vb6 - random

[FinalFantasy]

Sicuramente è stato detto 1000000000000000000000 volte, ma io non ho trovato nulla per quello che serve a me. Devo creare un numero TOTALMENTE CASUALE da 0 a 99. La funzione rnd mi crea numeri con la virgola e randomize non ho capito ancora come si usa. Chi mi sa aiutare?

[Mabi]

MSDN:

Per generare interi casuali in un dato intervallo, utilizzare la seguente formula:

Int((limitesup - limiteinf + 1) * Rnd + limiteinf)

In questo contesto, limitesup indica il numero maggiore presente nell'intervallo, mentre limiteinf indica il numero minore.

Nota:Per ripetere sequenze di numeri casuali, richiamare Rnd con un argomento negativo immediatamente prima dell'utilizzo di Randomize con un argomento numerico. L'utilizzo di Randomize con lo stesso valore di numero non determinerà la ripetizione della sequenza precedente

Const LimiteSup = 99
Const LimiteInf = 0
Dim Num1 As Byte

Randomize Timer
Num1 = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
MsgBox CStr(Num1)

[ciro78]

aggiungerei che è inutile sommare alla finer il limite inferiore almeno in questo caso visto che è 0!

quindi

Num1 = Int((LimiteSup  + 1) * Rnd )

ovviamente solo in questo caso

[Vega la luce]

gia risposto vedo

[Mabi]

Originariamente inviato da ciro78
ovviamente solo in questo caso

giusta segnalazione

[giano118]

domanda forse stupida!
mi chiedo perchè aggiungere +1 al LimiteSup!
basterebbe anche solo:

Num1 = Int((LimiteSup) * Rnd )

o sbaglio? non fà una piega questo codice e mi chiedevo appunto questa cosa.
grazie!

Originariamente inviato da ciro78
aggiungerei che è inutile sommare alla finer il limite inferiore almeno in questo caso visto che è 0!

quindi

Num1 = Int((LimiteSup  + 1) * Rnd )

ovviamente solo in questo caso

[ciro78]

rnd è un numero inferiore ad 1 di conseguenza quando moltiplichi il limite superiore per rnd non otterrai mai il limite superiore ma sempre un numro inferiore, aggiungendo 1 ottieni anche l'estremno superiore.
spero di essere stato chiaro

[giano118]

effettivamente a pensarci bene è vero! graSSie