Oppure

Loading
06/09/08 22:11
P4p3r0g4
fate finta che io non ci sia (ufficialmente sono ancora assente ma volevo correggere 2 cose).
A)
la formula deve essere int((x*13) +1) e non * 12 altrimenti non potra` mai assumere il valore 13.
Rnd() da un numero maggiore o uguale a zero ma minore in senso stretto a 1.

B) le function sono abbastanza diverse dalle sub non facciamo confusione.
aaa
07/09/08 7:22
GrG
io non ho mai detto che le sub e le function sono la stessa cosa...

LoL
facendo così:

Private Sub Command1_Click()
Dim x As Integer
Randomize
x = (Rnd * 12) + 1
Label1.Caption = Label1.Caption & " " & x
End Sub

x assume valori da 1 a 13, l'ho testato...

p.s. Cmq sia Ben Tornato, sono felice di sentirti sul forum:D
Ultima modifica effettuata da GrG 07/09/08 7:38
aaa
07/09/08 14:22
Postato originariamente da P4p3r0g4:

A)
la formula deve essere int((x*13) +1) e non * 12 altrimenti non potra` mai assumere il valore 13.
Rnd() da un numero maggiore o uguale a zero ma minore in senso stretto a 1.


Lo quoto, perchè anc'io sapevo si facesse in quel modo...

l'o fatto su un mio prog (Diciamo prog...8-);))