Scholieren.com forum - [VB] Random

Scholieren.com forum (https://forum.scholieren.com/index.php)

- Software & Hardware (https://forum.scholieren.com/forumdisplay.php?f=20)

- - [VB] Random (https://forum.scholieren.com/showthread.php?t=161656)

dafelix

18-07-2002 09:41

Is er een echte random functie voor VB? ik gebruik nu nl de volgende code en daar komt de hele tijd hetzelfde uit :confused:

Code:

For i = 1 To 52

 Card(i) = -1

Next



For i = 1 To 52

Again:

 Randomize

 Temp3 = (51 * Rnd) + 1

  If Card(Temp3) <> -1 Then

   BoxChatText = BoxChat.Text & "Again" & vbNewLine

   BoxChatText = ChatC(BoxChatText)

   GoTo Again

  Else

   Card(i) = Temp3

   BoxChatText = BoxChat.Text & Card(i) & vbNewLine

   BoxChatText = ChatC(BoxChatText)

 End If

Next

Chimera

18-07-2002 10:06

Je moet random seeden. Het was iets als RANDOMIZE TIMER() ofzo.

Raptorke

18-07-2002 18:08

Citaat:

Chimera schreef:
Je moet random seeden. Het was iets als RANDOMIZE TIMER() ofzo.

In Qbasic was het iets van:

RANDOMIZE TIMER

X = INT(RND(TIMER) * 100) + 1

Zo heb je een willekeurig getal tss 1 en 100 :D

Chip Zero

18-07-2002 18:14

Inderdaad, RANDOMIZE TIMER aan 't begin van je code (dus niet binnen een for lus).

Lethalis

19-07-2002 09:36

Zet Randomize aan het begin van je code. Timer e.d. is niet nodig, seeden wordt geregeld door randomize-functie.

[edit]
Let dus erop dat randomize aangeroepen wordt, voordat je ooit rnd gebruikt. Als je eenmaal rnd aanroept, blijven dezelfde sequenties volgen.

Daarnaast mag je randomize ook maar 1 keer aanroepen.

Lethalis

19-07-2002 09:40

Overigens zou ik die goto laten vervallen en in plaats daarvan een while-wend constructie toepassen binnen de for-loop. Is veel netter.

Chimera

19-07-2002 15:24

Citaat:

******** schreef:
Overigens zou ik die goto laten vervallen en in plaats daarvan een while-wend constructie toepassen binnen de for-loop. Is veel netter.

Och, als je toch VB programmeert, moet dat ook kunnen ;)

Lethalis

19-07-2002 18:56

Citaat:

Chimera schreef:
Och, als je toch VB programmeert, moet dat ook kunnen ;)

LoL :D

Quick 'n' dirty all the way :D

dafelix

20-07-2002 11:16

Citaat:

******** schreef:
Overigens zou ik die goto laten vervallen en in plaats daarvan een while-wend constructie toepassen binnen de for-loop. Is veel netter.

ik heb hele code veranderd, maar me internet lag er een hele tijd uit dus ik had geen kans om het te verbeteren, en over de random, het werkt nu wel :)

Alle tijden zijn GMT +1. Het is nu 21:27.