Rnd

[Eminem]

Παιδιά και άλλο πρόβλημα. Γάρφω τον παρακάτω κώδικα:

 

MsgBox(255 * Rnd())

 

Και μου βγάζει πάντα τον ίδιο τυχαίο αριθμό. Τι να κάνω;

[godlike]

Νομίζω ότι πρέπει να καλέσεις μια function ονόματι randomize. (Στην Pascal τουλάχιστον έτσι γίνεται)

[damn3]

prepei prota na kaleseis mia synartisi opws leei o godlike pou stin pascal einai odos Randomize kai meta na kaleseis tin Rnd. To oti sou bgazei panta ton idio arithmo afou den exeis kalesei tin Randomize einai apolitos logiko (etsi einai sxediasmeni i Rnd gia na mporeis na kaneis aposfalmatosi pio eukola).

[Eminem]

Το βρήκα.

 

Dim num

Randomize

num = Int(Rnd * 255)

MsgBox(num)