Hallo Papsi!
Du musst mit ISCHARWAITING prüfen, ob ein neues Zeichen anliegt. Wenn nicht, dann darfst du nicht mit INPUTBIN danach fragen. Denn INPUTBIN wartet bis ein Zeichen kommt. Das ganze Programm bleibt also an dieser Stelle stehen. Somit dürfte auch klar sein, weshalb DEBOUNCE nicht funktioniert.
Außerdem fehlt mir in diesem Programm irgendwie die OPEN-Anweisung.Code:dim is_waiting as byte ... is_waiting = ischarwaiting(#1) if is_waiting = 1 then Inputbin #1 , A If A = 10 Then Goto XYZ If Relaisx1hoch = 0 And Relaisx2hoch = 0 And Relaisx3hoch = 0 And Relaisx4hoch = 0 Then Alleshoch = 0 X13hoch = 0 X23hoch = 0 X33hoch = 0 X43hoch = 0 End If If Relaisx1runter = 0 And Relaisx2runter = 0 And Relaisx3runter = 0 And Relaisx4runter = 0 Then Allesrunter = 0 X13runter = 0 X23runter = 0 X33runter = 0 X43runter = 0 End If end if Debounce Tasterx1hoch , 0 , X1hoch , Sub 'Tasterabfrage Debounce Tasterx1runter , 0 , X1runter , Sub ...
Wenn du langen Code zeigen möchtest, dann kannst du diesen in einen Paste-Service wie z.B. LodgeIt! http://paste.pocoo.org/ eingeben und uns dann den Link zu diesem Code posten.
mfg
Gerold
:-)
Lesezeichen