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