Lichtvertraging: code

• We moeten bijhouden wanneer het licht is uitgezet, en hoelang we moeten wachten. Daarom deze variabelen.
  
  Dim vertraging As Integer
  Dim uitgezetop As Date
  
  
• Om aan te zetten:
  Private Sub cmdAan_Click()
  lblLicht.BackColor = RGB(255, 255, 0)
  End Sub
  
• Om uit te zetten, doen we beroep op een timer
  Private Sub cmdUit_Click()
  uitgezetop = Now
  Timer1.Interval = vertraging
  Timer1.Enabled = True
  End Sub
  
• Zo kunnen we de vertraging inlezen:
  Private Sub cmdVertraging_Click()
  If Not IsNumeric(txtVertraging.Text) Then Exit Sub
  'het is een getal
  vertraging = txtVertraging.Text
  cmdVertraging.Caption = "&Vertraging: " & vertraging & " seconden"
  End Sub
  
• En het eigenlijke werk gebeurt hier:
  Private Sub Timer1_Timer()
      If Second(Now - uitgezetop) >= vertraging Then
          lblLicht.BackColor = RGB(0, 0, 0)
          Timer1.Enabled = False
       End If
  End Sub
  

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