RS-232 problem. Programm stürzt abundzu ab. Bitte um Hilfe!

**Accenter** · 17.07.2010, 17:05

kannst du nicht mal deine Dims einstellen. Dann könnte man dein Programm mal kompilieren

Das Programm ist echt endlos lange drum habe ich es gekürzt sonst hätte sich das keiner angetan zu lesen. Liegt auch wohl daran, dass es nicht perfekt programmiert ist.

Ich werde eure Tipps mal alle durchtesten und dann bescheid geben. Ich bedanke mich schonmal für eure tolle Hilfe.

**Accenter** · 18.07.2010, 12:15

Fehler gefunden! Es war ein Hardwarefehler. Eine zulange Resetleitung (trotz Pullup und 100nF Kondensator auf GND) war für die "Abstürze" verantwortlich. Es besteht nur weiterhin das problem mit dem Puffer. Bei zulangen Befehlen startet das programm neu.

Gibts auch ne Möglichkeit über den Watchdog keinen Reset auszulösen sondern in eine Sub zu springen? Dort könnte ich dann mit "Clear Serialin" den Puffer löschen. Wäre aber nur eine Zwischenlösung. Möchte das schon anders lösen mit dem Pufferüberlauf.

**peterfido** · 18.07.2010, 18:50

Ich habe mir den Code nicht angesehen. RS232 frage ich über IsCharWaiting ohne IRQ ab. Wenn ein Zeichen wartet, wird geprüft, ob es ein chr(13) ist, oder nicht. Wenn nicht dann an den Eingangsstring angehangen und wenn ja, dann wird der Eingangsstring verarbeitet. chr(10) ignoriere ich bei RS232 ganz gern... Hier mal ein Auszug aus einem meiner älteren Projekte ( X300T Frontend):

Code:

Config Serialin = Buffered , Size = 88
Dim B As Byte 
Dim Elaenge As Byte
Dim Seingang As String * 100
.
.
.
Do
.
.
.
   If Ischarwaiting() = 1 Then
        Gosub Empfangen

   End If
Loop
End

Empfangen:



   B = Inkey()
   If B >= 13 Then
         If B = 13 Then
            Gosub Auswerten
         Else
            If Len(seingang) < 78 Then
               Seingang = Seingang + Chr(b)
               Elaenge = Elaenge + 1
            Else
               Seingang = ""
               Elaenge = 0
              ' Print "error"
            End If
         End If
   End If

Return

**Accenter** · 18.07.2010, 21:41

Ich glaube das ist genau was ich brauche. Danke! Ich werde das gleich mal in meinen Code integrieren.

**Accenter** · 20.07.2010, 15:54

Verstehe den Code soweit. Mir ist nur nicht klar was die Variable "Elaenge" genau macht.

**Richard** · 20.07.2010, 17:09

So wie ich das sehe wird damit die Anzahl empfangener Bytes
gezählt und bei >79 also bei 80 auf Null gesetzt?

Gruß Richard

**Accenter** · 20.07.2010, 17:19

Das wird schon mit "seingang" gemacht damit es keinen Überlauf gibt so wie ich das verstehe. "Ealaange" wird auch nirgends ausgewertet sondern nur auf 0 gesetzt.