[vb6] Calcolare numeri random [Archivio]

Lich jr

20-04-2006, 20:41

Ho creato il gioco master mind ma non riesco a creare dei numeri sempre diversi... ho provato con rnd, con i secondi dell'ora di sistema...
Premetto che sono un principiante..

mynos79

20-04-2006, 20:56

Dim Valore
Randomize ' Generatore di numeri casuali

Valore = Int((15 * Rnd) + 1) ' Valore = numero casuale tra 1 e 15

"Randomize" serve per inizializzare la radice usata per generare i numeri casuali (la procedura seguita dal VB è quella di creare una radice a partire dal timer di sistema).
Poi la funzione "Rnd" invece genera un numero compreso tra 0 e 1, quindi per avere un numero intero basta moltiplicare per il massimo valore che si vuole ottenere (e aggiungere 1 in quanto la funzione "int" prende solo la parte intera del numero a virgola mobile risultante dalla moltiplicazione).
Se usi solo "Rnd", senza fare un "Randomize" all' inizio, il seme sarà sempre lo stesso ad ogni avvio del programma ... è buona cosa quindi fare un "Randomize" prima di usare un "Rnd" ...