[VB]Random stoppen

[Verwijderd]

Ik ben dus met een fruitmachine bezig, hij is opzich af, maar 1 klein minpuntje.
Hij draait goed, maar hij komt altijd op hetzelfde uit.
Eerste draai is 3 kersen, 2e draai is 3 klokken.
Altijd!
Het moet dus random gaan stoppen maar wel blijven draaien.

Even de codes:

Als ik op start klik (spin) dan Timer3.Enabled = True

code:

Private Sub Timer3_Timer()
Static i As Integer
Static minus As Boolean
If i > 4 Then i = 0
i = i + 1
Rol1 = CStr(i)
Call Rollen1
Timer6.Enabled = True
End Sub

Rollen1

code:

Private Sub Rollen1()
AppPath = App.Path
Kers = AppPath + "\Pictures" + "\" + "kers.bmp"
Klok = AppPath + "\Pictures" + "\" + "klok.bmp"
Bar = AppPath + "\Pictures" + "\" + "bar.bmp"
Zeven = AppPath + "\Pictures" + "\" + "zeven.bmp"
ster = AppPath + "\Pictures" + "\" + "ster.bmp"
If Rol1 = "1" Then
slot1.Picture = LoadPicture(Kers)
ElseIf Rol1 = "2" Then
slot1.Picture = LoadPicture(Klok)
ElseIf Rol1 = "3" Then
slot1.Picture = LoadPicture(Bar)
ElseIf Rol1 = "4" Then
slot1.Picture = LoadPicture(Zeven)
Else
slot1.Picture = LoadPicture(ster)

End If
End Sub

En timer6 zorgt ervoor dat de rollen stoppen

code:

Private Sub Timer6_Timer()
z = z + 1
If z = 20 Then
Timer3.Enabled = False
Dim stoppen$
ElseIf z = 30 Then
Timer4.Enabled = False
ElseIf z = 40 Then
z = 0
Timer5.Enabled = False
Timer6.Enabled = False

Call Winnen
End sub

Hij stopt nu dus altijd op hetzelfde einde en wint hierdoor steeds hetzelfde!
mijn laatste bug en ik snap er niks meer van.

Ik gebruik trouwens Visual Basic 6

[ Voor 10% gewijzigd door Verwijderd op 27-04-2006 21:52 ]

[mulder]

Ik zou eens kijken naar Random(), de functie dan. Deze gebruik je om 3 random waarden te genereren. Het draaien is eigenlijk maar animatie. Zorg dat je een goed seed hebt voor je Random functie.

http://www.dotnet247.com/247reference/msgs/20/100932.aspx

[NMe]

Hier is meer dan genoeg over te vinden als je even een simpele Google-query uitvoert. Simpelweg je topictitel uitschrijven en in Google stoppen geeft me dit terug, met talloze voorbeeld van willekeurige getallen in Visual Basic. Je maakt mij niet wijs dat je daar niets mee kan.