Hallo Papsi!

Wenn ISCHARWAITING nicht funktioniert, dann könnte dir vielleicht INKEY weiterhelfen. Das liefert 0 zurück wenn nichts anliegt. Das hindert dich aber auch daran, ein 0 zu empfangen. Denn das könntest du nicht unterscheiden.

mfg
Gerold


Code:
   ...
   A = Inkey(#1)
   if A > 0 then
      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
   ...