Hallo, goede morgen!
Hieronder m'n code voor een slotmachine in aanbouw. Deze code gaat om het eerste (van drie) wiel(en) van deze machine.
Ik heb op een formulier negen pictureboxen en een StartKnop:
3 x Pictureboxen
3 x Pictureboxen
3 x PictureBoxen
en een startknop.
Je ziet aan de code dat het de bedoeling is dat de picturebox.visible in een ritme aan en uit wordt gezet waarmee beweging wordt gesuggereerd, net als bij de oude filmstrips.
Als ik onderstaande code laat lopen (ik tik op de Startknop) zie ik niets bewegen!
Slechts aan het eind zie ik een beeld.
Als ik dan weer hier, dan weer daar, een breakpoint plaats dan blijkt dat de code wel degelijk goed is, want dan zie je dat de plaatjes getoond worden zoals in de code bedoeld is.
Iemand een idee hoe het komt dat ik tijdens de run geen beweging zie?
Zou het scherm regelmatig "refreshed" moeten worden?
Kan VB het tempo van Picturebox.visible wel aan?
Moet ik een andere methode gebruiken?
[/attach]
Hieronder m'n code voor een slotmachine in aanbouw. Deze code gaat om het eerste (van drie) wiel(en) van deze machine.
Ik heb op een formulier negen pictureboxen en een StartKnop:
3 x Pictureboxen
3 x Pictureboxen
3 x PictureBoxen
en een startknop.
Je ziet aan de code dat het de bedoeling is dat de picturebox.visible in een ritme aan en uit wordt gezet waarmee beweging wordt gesuggereerd, net als bij de oude filmstrips.
Als ik onderstaande code laat lopen (ik tik op de Startknop) zie ik niets bewegen!
Slechts aan het eind zie ik een beeld.
Als ik dan weer hier, dan weer daar, een breakpoint plaats dan blijkt dat de code wel degelijk goed is, want dan zie je dat de plaatjes getoond worden zoals in de code bedoeld is.
Iemand een idee hoe het komt dat ik tijdens de run geen beweging zie?
Zou het scherm regelmatig "refreshed" moeten worden?
Kan VB het tempo van Picturebox.visible wel aan?
Moet ik een andere methode gebruiken?
PHP:
Private Sub Startknop_Click()
Dim Y As Integer
Dim Takt As Integer
Dim Nummer(3, 3) As Integer
Nummer(1, 1) = 1 'Druif
Nummer(1, 2) = 2 'Kers
Nummer(1, 3) = 3 '7
Nummer(2, 1) = 4 'Druif
Nummer(2, 2) = 5 'Kers
Nummer(2, 3) = 6 '7
Nummer(3, 1) = 7 'Druif
Nummer(3, 2) = 8 'Kers
Nummer(3, 3) = 9 '7
For Takt = 1 To 6
If Takt = 1 Then
For Y = 1 To 3
If Y = 1 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = True 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 2 Then
Plaatje(Nummer(Y, 1)).Visible = True 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 3 Then
Plaatje(Nummer(Y, 1)).Visible = True 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
Next Y
End If 'Takt = 1
If Takt = 2 Then
For Y = 1 To 3
If Y = 1 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = True 'kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 2 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = True 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 3 Then
Plaatje(Nummer(Y, 1)).Visible = True 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
Next Y
End If 'Takt = 2
If Takt = 3 Then
For Y = 1 To 3
If Y = 1 Then
Plaatje(Nummer(Y, 1)).Visible = False
Plaatje(Nummer(Y, 2)).Visible = False
Plaatje(Nummer(Y, 3)).Visible = True
End If
If Y = 2 Then
Plaatje(Nummer(Y, 1)).Visible = False
Plaatje(Nummer(Y, 2)).Visible = True
Plaatje(Nummer(Y, 3)).Visible = False
End If
If Y = 3 Then
Plaatje(Nummer(Y, 1)).Visible = False
Plaatje(Nummer(Y, 2)).Visible = True
Plaatje(Nummer(Y, 3)).Visible = False
End If
Next Y
End If 'Takt = 3
If Takt = 4 Then
For Y = 1 To 3
If Y = 1 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'kers
Plaatje(Nummer(Y, 3)).Visible = True '7
End If
If Y = 2 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = True '7
End If
If Y = 3 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = True 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
Next Y
End If 'Takt = 4
If Takt = 5 Then
For Y = 1 To 3
If Y = 1 Then
Plaatje(Nummer(Y, 1)).Visible = True 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 2 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = True '7
End If
If Y = 3 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = True '7
End If
Next Y
End If 'Takt = 5
If Takt = 6 Then
For Y = 1 To 3
If Y = 1 Then
Plaatje(Nummer(Y, 1)).Visible = True 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 2 Then
Plaatje(Nummer(Y, 1)).Visible = True 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = False '7
End If
If Y = 3 Then
Plaatje(Nummer(Y, 1)).Visible = False 'Druif
Plaatje(Nummer(Y, 2)).Visible = False 'Kers
Plaatje(Nummer(Y, 3)).Visible = True '7
End If
Next Y
End If 'Takt = 6
Next 'Takt
End Sub
[/attach]
Bijlagen
Laatst bewerkt: