[gelöst] debounce und inputbin laufen nicht zusammen ???

**python_rocks** · 26.01.2008, 20:49

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.

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
   ...

Außerdem fehlt mir in diesem Programm irgendwie die OPEN-Anweisung.

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
:-)

**Papsi** · 26.01.2008, 20:59

Die Open Anweisung habe ich aus versehen mit gelöscht.

Sieht so aus:

Code:

   Open "COMB.1:2400,8,N,1,inverted" For Output As #1       ' PB.1 ist Sender
   Open "COMB.0:2400,8,N,1,inverted" For Input As #2       ' PB.0 ist Empfänger

Die Sache mit ISCHARWAITING ist ja gerade mein Problem, das bekomme ich nicht hin!

Das Inputbin läuft ja schon, nur bleibt er wie gesagt stehen...

**Papsi** · 26.01.2008, 21:04

Wenn ich deinen Programmcode so einfüge meckert Basco rum:

Code:

Error : 328 Line : 206 Not valid for SW UART, in File ...

**python_rocks** · 26.01.2008, 21:10

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
   ...

**Papsi** · 26.01.2008, 21:24

L Ä U F T . . .
(mußte nur Inkey von #1 auf #2 ändern, da #2 der "Empfangsport" ist)

Das ist die Lösung:

Code:

...
   A = Inkey(#2) 
   if A > 0 then 
      If A = 10 Then Goto XYZ 
   End If

!!! Super Danke !!!

**python_rocks** · 26.01.2008, 21:25

Falls du später nicht nur ein Zeichen empfangen musst, könntest du vielleicht so vorgehen (ungetestet):

Code:

dim buffer as string * 10
dim buffer_byte(10) as byte at buffer overlay
dim counter as byte

   ...
   buffer = string(0, 10)
   counter = 0
   do 
      A = Inkey(#1)
      if A > 0 then
          incr counter
          if counter > 10 then
              ' Fehler
              '...
          end if
          buffer_byte(counter) = A
      end if
   loop until A = 0
   
   if counter > 0 then
      'tu etwas mit dem buffer
      ...
   end if
   ...

mfg
Gerold