[VB.net] Tricks: Sequenza casuale di numeri automatica

[Eddy]

Buongiorno a tutti. Oggi ho messo un post che riguarda un piccolo trucchetto, ovvero su 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.
Ecco un esempio


4.Ora passiamo al codice: facciamo doppio click sul controllo "Timer1" quindi vi inseriamo questo codice

Label1.Text = CStr(Int(Rnd() * 99))

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:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = CStr(Int(Rnd() * 99))
        Label2.Text = CStr(Int(Rnd() * 99))
    End Sub

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.

[Nix88]

Da 1 a 90 per giocare i numeri al superenalotto funziona?

[Eddy]

Originariamente inviata da Nix88

Da 1 a 90 per giocare i numeri al superenalotto funziona?

E infatti stavo giusto lavorando su questo trucchetto Nix, per poter creare un programma che simulasse la generazione di combinazioni casuali per ambo, terna, quaterna, cinquina e 5+1 ^^. non appena riesco a finirlo metterò la sorgente del codice