De code voor de 'timer' ziet er als volgt uit:
If toestand = 3 Then
If waarde = 0 Then
T2 = Clock.ElapsedMilliseconds
'Alleen wanneer de tijd verstreken is moet de lamp worden uitgezet
If T2-T1 > tijd Then
lamp = "uit"
toestand = 1
LCD.Clear()
LCD.Write(10, 40, "Waarde = " + waarde)
LCD.Write(10, 60, "Toestand = " + toestand)
LCD.Write(10, 80, "Lamp = " + lamp)
Endif
Endif
Endif
If toestand = 3 Then
If waarde = 100 Then
lamp = "aan"
toestand = 2
LCD.Clear()
LCD.Write(10, 40, "Waarde = " + waarde)
LCD.Write(10, 60, "Toestand = " + toestand)
LCD.Write(10, 80, "Lamp = " + lamp)
Endif
EndIf