Polling???

[Xeus]

Hallo,

hat einer von euch vielleicht eine idee wie ich in meinem code eine art "polling" einbauen kann?

mein mc sendet eine anforderung und wartet auf eine antwort, nur kann es auch sein, dass er keine antwort kriegt. Dann soll er 'incr Adr' und die routine von vorne starten.


hab jezt schon sehr viel ausprobiert von interrupts bis ischarwaiting, aber irgendwie funzt es nicht.

Sub Wr_sende
   Gosub Crc
   Gosub Wr_inits
   Printbin Wr_pakets(1) ; 10                               'Paket wird gesendet
   Return
End Sub Wr_sende



'Antwort von Wr empfangen
Sub Wr_empfange
  ' Call Wr_inite
   Inputbin Wr_pakete(1) , 8                                'Bytes werden eingelesen
   Gosub Mc1_sende
   Return
End Sub Wr_empfange



'Statusabfrage
Sub Wr_getstate
   Value = 1
   Wr_anzahl = Wr_anzahl + 1
   Adr = Wr_anzahl

   For Adr = 2 To Wr_anzahl

   Command = 50                                             'Command für Statusabrfrage

   Adr = Adr
   Command = Command
   Par1 = 000
   Par2 = 032
   Par3 = 032
   Par4 = 032
   Par5 = 032
   Par6 = 032
   Par7 = Bcclo
   Par8 = Bcchi

      '//UNTERPROGRAMME
         Gosub Wr_inits
         Gosub Wr_sende
         Gosub Wr_empfange
         Wait 3
   Next Adr

   If Adr = Wr_anzahl Then
   Adr = 2
   End If

   Return
End Sub Wr_getstate

gruß

xeus

[chr-mt]

Hi,
arg unsauber:

For n = 1 To 500
Eingang = Inkey()
If Eingang <> 0 Then
gosub daten_auswerten
End If
Next n
Incr adr

Inkey wird eine Zeit lang abgefragt.
Eben so lange wie es dauert es 500 mal abzufragen.
Je nach Taktfrequenz und gewünschter Wartezeit müsstest du unterschiedliche Werte ausprobieren )
Tut sich in der Zeit nix, kommt also kein Byte an, dann wird die Adresse erhöht

Gruß
Christopher

[Xeus]

erstmal danke,
aber was verbiergt sich hinter Eingang?

hab es jetzt mal so probiert:

If Usr = 1 Then
Inputbin Wr_pakete(1) , 8
else
incr adr

nur irgendwie treagiert er dabei auf kein empfangsbyte

[chr-mt]

Hi "Eingang" ist einfach nur eine Variable

Gruß
Christopher

[Xeus]

Also, hab es hinbekommen, dass er die routine so oft wiederholt und die adr um 1 erhöt bis er ein byte empfängt.
nun ist nur das problem, das er dann nicht mehr so lang wiederholt bis er was kriegt, sondern einfach abwartet.

If Usr.rxc = 1 Then
Gosub Wr_empfange

gibt es irgendeine möglichkeit den inhalt des registers zu löschen, so dass er wieder empfangsbereit ist, bzw merkt wenn etwas ansteht?

[chr-mt]

Hi,
habe gerade den Befehl "Timeout" in Bascom entdeckt.
Guck' dir den mal an.

Gruß
Christopher