'***********Tastertest by Paul Baumann 'Taster an PD5, LED´s an PD6 und 7 'Wenn der Taster für 1 sekunde und darunter gedrückt wird, wird PD6 eingeschaltet 'sonst PD7 'Läßt der Benutzer sich zu lange Zeit,bekommt er eine Meldung :-) $regfile = "m8def.dat" $crystal = 1000000 ' 1 MHz Int. RC-Oszillator $baud = 4800 Declare Sub Guck_och_nur 'Unterprogramm deklarieren Ddrd = &B11000000 Portd = &B00100000 Dim Z As Byte '*************Hauptprogramm Do 'Hier steht dann das eigentliche Programm Debounce Pind.5 , 0 , Guck_och_nur , Sub Loop '************Ende Hauptprogramm '************UP wird bei gedrücktem Taster angesprungen Sub Guck_och_nur While Pind.5 = 0 Z = Z + 1 Waitms 200 If Z = 255 Then Z = 0 Print "Willst Du langsam mal loslassen?" End If Wend If Z <= 5 Then Portd.6 = 1 Portd.7 = 0 End If If Z > 5 Then Portd.6 = 0 Portd.7 = 1 End If Z = 0 End Sub