[Visual Basic] Tricks: Sequenza casuale di numeri automatica
Inviato: 3 agosto 2011, 11:12
Oggi vedremo un piccolo trucchetto che nel manuale di VB 2005 non viene trattato in particolar modo, ma può rivelarsi molto utile per svariate applicazioni: come generare una sequenza casuale di numeri automaticamente. Tutto quello di cui abbiamo bisogno è di un Timer e una etichetta, nel caso più semplice.
1. Creata una nuova "Windows Application", ci spostiamo nella casella degli strumenti e clicchiamo due volte sul controllo "Timer" e ne inseriamo uno. Quindi trasciniamo una etichetta "Label" nel form di default.
2. Impostando su "False" la proprietà autosize dell'etichetta, la ridimensionamo a nostro piacimento lasciando vuoto il campo "Testo".
3. Ora ci spostiamo in basso sulla voce "Timer1" e in basso a destra impostiamo le sue proprietà: "Interval" indica la frequenza con la quale la sequenza di numeri viene aggiornata. ( 1000 corrisponde a 1 sec. ) Quindi impostiamo "True" alla voce "Enabled" di modo che il timer sia sempre attivo.
4.Ora passiamo al codice: facciamo doppio click sul controllo "Timer1" quindi vi inseriamo questo codice
Che scrive nell'etichetta 1, una stringa di numeri (Integer) in sequenza casuale (Rnd) fino a 99. Il 99 può essere cambiato a vostro piacimento.
Nel caso vogliate generare una combinazione basta inserire un'altra etichetta e avrete questo tipo di risultato:
Se volete fare in modo che la sequenza di numeri si generi in minor tempo basta diminuire l'intervallo del timer, mentre se volete che generi numeri oltre le 2 cifre basta che nel codice sostituite il 99 con un mumero a vostro piacimento.
1. Creata una nuova "Windows Application", ci spostiamo nella casella degli strumenti e clicchiamo due volte sul controllo "Timer" e ne inseriamo uno. Quindi trasciniamo una etichetta "Label" nel form di default.
2. Impostando su "False" la proprietà autosize dell'etichetta, la ridimensionamo a nostro piacimento lasciando vuoto il campo "Testo".
3. Ora ci spostiamo in basso sulla voce "Timer1" e in basso a destra impostiamo le sue proprietà: "Interval" indica la frequenza con la quale la sequenza di numeri viene aggiornata. ( 1000 corrisponde a 1 sec. ) Quindi impostiamo "True" alla voce "Enabled" di modo che il timer sia sempre attivo.
4.Ora passiamo al codice: facciamo doppio click sul controllo "Timer1" quindi vi inseriamo questo codice
Codice: Seleziona tutto
Label1.Text = CStr(Int(Rnd() * 99))Nel caso vogliate generare una combinazione basta inserire un'altra etichetta e avrete questo tipo di risultato:
Codice: Seleziona tutto
Private Sub Timer1_Tick (ByVal sender As System, Object, ByVal & As System, EventArgs) Handles Timer1.Tick
Label1.Text = CStr(Int(Rnd() * 99))
Label2.Text = CStr(Int(Rnd() * 99))
End Sub