Visual Basic 6 - Idea ambiziosa :D

Si, il codice è quello per quel tipo di filtro

..ora, sto "studiando" meglio il programma e spero di riuscire ad elaborare l'idea (pazza) che ho ;-)

è difficile, e sempre se non disturbo o rompo troppo, vi chiederò aiuto!

e a tal proposito ho elaborato un codice facile facile...

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NumeroEstratto As Integer

Randomize()

NumeroEstratto = Int(90 * Rnd() + 1)
Num1.Text = NumeroEstratto & " "

NumeroEstratto = Int(90 * Rnd() + 1)
Num2.Text = NumeroEstratto & " "

NumeroEstratto = Int(90 * Rnd() + 1)
Num3.Text = NumeroEstratto & " "

NumeroEstratto = Int(90 * Rnd() + 1)
Num4.Text = NumeroEstratto & " "

NumeroEstratto = Int(90 * Rnd() + 1)
Num5.Text = NumeroEstratto & " "

NumeroEstratto = Int(90 * Rnd() + 1)
Num6.Text = NumeroEstratto & " "

End Sub

End Class

Programma VB 2005 Express Edition, un form con 1 bottone e 6 textbox.

Cliccando sul pulsante, in ognuno dei textbox viene estratto un numero casuale da 1 a 90.

Problema tecnico:

Come faccio a far estrarre (sicuramente) un numero diverso dai textbox precedenti?

poi, risolto questo, vedo di inserire un checkbox con un primo filtro

grazie a tutti.

Chiedo scusa agli amministratori e non voglio mettere in difficoltà nessuno

Ringrazio Luigi
e chiedo scusa agli amministratori!

PS appena posso, provo l'ennesimo suggerimento ed apro una discussione nell'altra sezione.

ciao a tutti

questo codice è per vb.net (visual stdio 2005 - 08) non è VB6 percio cambia sezione.

questo codice è per vb.net (visual stdio 2005 - 08) non è VB6 percio cambia sezione.

comunque per risoòvere quel problema, dovresti fare un select case per esempio:
se inserisic ogni valore in un array puoi iterare con il select case in questo modo

sub verValore(valore as integer, indice as integer) 
'valori è l'array che contiene i numeri generati
select case NumeroEstratto
case valori(0)
'estrai nuovo valore per NumeroEstratto e ripeti questo passaggio richiamando verValore
case valori(1)
'lo stesso codice di prima
case valori(2)
'vale per qui e per il resto
case valori(3)
case valori(4)
case valori(5)
else
'salvi il valore nell'array ed esci
valori(indice)=valore
'indiceè l'indice dell'array il numero da (1 a 6) indica il numero corrente che stai generando
end select
end sub

inserendo questo codice in una funzione chiamandola ogni volta che generi il numero casuale e usando una ricorsione dovresti risolvere il problema

avresti risolto il problema diversamente se avresti creato un array di textbox e con un ciclo for iterando sulle text verificavi...

ciao.

Ma quante volte lo devo ripetere che qui non si parla di vb 2005 ma di vb6.
A volte i membri fanno propio arrabbiare

Locked