[Visual Basic] Tricks: Sequenza casuale di numeri automatica

Discussioni su i vari linguaggi di programmazione; da ASP a C++...ecc.…

Moderatore: DialogiK

Rispondi
Avatar utente
DialogiK
Redazione HW Legend
Redazione HW Legend
Messaggi: 1111
Iscritto il: 3 giugno 2011, 18:55
GamerTag: --
ID PSN: --
Ha ringraziato: 0
Sei stato  ringraziato: 0
Contatta:

[Visual Basic] Tricks: Sequenza casuale di numeri automatica

Messaggio da DialogiK »

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

Codice: Seleziona tutto

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:

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 
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.
Immagine


Regolamento mercatino
Modello base di vendita del mercatino: QUI
Modello base di acquisto nel mercatino:QUI
Trattative concluse con successo: ste.ru, Il Metallurgico, djFrex

Immagine
Rispondi

Torna a “Programmazione”