RNDtester: code

Dim aantal As Long
Dim totaal As Double
Dim getrokken As Double

Private Sub cmdGoOn_Click()
Timer1.Enabled = True
End Sub

Private Sub cmdRecurrentie_Click()
Randomize
Dim buffer As Double
Dim eerste As Double
Dim aantal As Double
MousePointer = vbHourglass
eerste = Rnd
Do
aantal = aantal + 1
lblGetestAantal.Caption = aantal
buffer = Rnd
lblRND.Caption = buffer
DoEvents
Loop Until buffer = eerste
MousePointer = vbNormal
MsgBox "Hetzelfde getal komt terug na " & aantal & " keer"
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
cmdGoOn.Enabled = True
End Sub

Private Sub Form_Load()
cmdGoOn.Caption = "Gemiddelden-test"
End Sub

Private Sub Timer1_Timer()
cmdGoOn.Caption = "Verder..."
cmdGoOn.Enabled = False
Randomize
getrokken = Rnd
aantal = aantal + 1
totaal = totaal + getrokken
gemiddelde = totaal / aantal
lblAantal.Caption = aantal
lblGemiddelde.Caption = gemiddelde
DoEvents 'als we dit niet plaatsen, gebeurt er niets
End Sub

[VB Web] - [hlrnet] - [copyright]