Verkeerslichten: code

• Bij het opstarten zetten we het licht op groen
  
  Private Sub Form_Load()
  Picture1.Picture = ImageList1.ListImages(1).Picture
  End Sub
  
  
• We laten het licht verspringen in een timer. We gebruiken een statische variabele om de status van het licht te kennen.
  
  Private Sub Timer1_Timer()
  Static nummer As Integer
  nummer = nummer + 1
  If nummer = 4 Then nummer = 1
  Select Case nummer
  Case 1, 3
  Timer1.Interval = 10000
  Case 2
  Timer1.Interval = 1000
  End Select
  Picture1.Picture = ImageList1.ListImages(nummer).Picture
  End Sub
  Private Sub Command1_Click()
  Timer1_Timer
  End Sub
  
• En als het rapper moet gaan, doen we dat met
  Timer1_Timer
  

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