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