In questa guida vedremo come far apparire un numero random (a caso), simulando un dado.

L’istruzione che ci serve è: Rnd().
Questa funzione genera un numero casuale compreso fra 0 e 1.
Moltiplicando il numero creato dalla funzione, per il numero delle faccie del dado otterremo un numero compreso tra 0 e 5, che aumentati di uno diventeranno da 1 a 6.
Infine per fare in modo che vengano visualizzati solo i numeri interi aggiungiamo la funzine Int().
La riga di codice diventa quindi: Int(Rnd() * 6) + 1

Nel form load (funzione che viene caricata ad ogni apertura del programma) inseriremo la funzione Randomize(). Senza questa funzione infatti sarebbe generata la stessa serie di numeri casuali ad ogni avvio del programma.

Il brevissimo codice per realizzare un dado è quindi il seguente:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Randomize()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ‘dichiariamo la variabile che conterrà il numero casuale
    Dim a As Integer
    ’scriviamo la funzione che creerà il numero casuale
    a = Int(Rnd() * 6) + 1
    ‘visualizziamo il numero casuale nella textbox
    TextBox1.Text = Str(a)
End Sub