[VB] Random

[dafelix]

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

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]

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

[Raptorke]

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

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

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.

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

[Chimera]

******** 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

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

LoL

Quick 'n' dirty all the way

[dafelix]

******** 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