[VB6]>>>>>>Funzione random<<<<<<<<<<<

[TheSpoiler]

Salve a tutti.
Come posso avere un valore,in maniera randomatica, che si trova all'interno di un recordset?

cosi va bene?

for i=1 to 10 
variabile=rnd(rs2!Genere) 
rs2.movenext 
next i

Grazie a tutti.

[codo82]

No in quel modo non va, prova così:

For i = 1 To 10
Randomize Timer
rs2.Move(Int(Rnd(1) * rs.RecordCount) + 1)
Next i

DOvrebbe andar bene, semmai togli il +1

[codo82]

Cioè cos' ti da 10 valori random uno dopo l'altro, se ne vuoi uno solo togli anche il ciclo For

[i'mshady]

un altro esempio è questo

Dim Stringa As String

Ano:
Randomize

Stringa = InputBox("Inserisci il numero massimo", "", "10")

If Not Stringa = "" And IsNumeric(Stringa) = True Then

MsgBox Int(Rnd * 10) + 1

Else

GoTo Ano

End If

così ti dà un numero a caso che arriva fino al numero che inserisci nella inputbox

[JamesD]

Leva subito di li quel GoTo!!!!!!!!!

[i'mshady]

va bene

Dim Stringa As String

Randomize

while Stringa="" or isnumeric(stringa)=false
Stringa = InputBox("Inserisci il numero massimo", "", "10")
wend

MsgBox Int(Rnd * 10) + 1

[JamesD]

Grazie!!