Bascom und ATMega 8, String zerlegen, auf kommandos reagieren

[Matthias B. (matthias_b14)]

Ich weiß grad nicht mehr weiter. Wollte wie oben angegeben einen ATMega8 
dazu bewegen Strings, welche er per RS232 erhält, zu zerhacken und die 
Schnipsel entsprechend zu verarbeitet. Ein String über RS232 soll dabei 
folgende Form haben: <Startbyte><Adresse><kommando><Optionale 
Parameter><CR>. Bisher habe ich das ganze mit #001adr" getestet. Das 
Zerhacken ist mir auch ganz gut gelungen, nur macht der µC danach was er 
will. Später soll das Programm die Befehle über RS232 empfangen und über 
eine Software UART passende kommandos über RS485 versenden (bin erst am 
anfang;)). Hier erstmal der Code:

'##########################################################################
 $regfile = "m8def.dat"
 $crystal = 8000000
 $hwstack = 100
 $swstack = 100
 $framesize = 100
 $baud = 9600

 Declare Sub Serial0charmatch()

'########[ Variables ]#####################################################
  Dim New_command As String * 10 , A As String * 3 , Command As String * 3

'########[ Constants ]#####################################################
Const Adresse = "001"

'########[ Hardware Configuration ]########################################
 Config Portc.5 = Output
 Config Serialin = Buffered , Size = 10 , Bytematch = 13

 Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 ,_
   Db7 = Portb.2 , E = Portb.1 , Rs = Portb.0
 Config Lcd = 20 * 2

'########[ Initialisation ]################################################
 Open "comd.6:9600,8,N,1" For Output As #1                  'TXD
 Open "comd.7:9600,8,N,1" For Output As #2                  'RXD
 Enable Interrupts

'########[ Main Code ]#####################################################
Do

      If A = Adresse Then                         'Adressprüfung
      Select Case Command                         'Selektion nach kommando
         Case "ADR"
         Print "Funktioniert 1"
         Case "SBY"
         Print "Funktioniert 2"
         Case "RPM"
         Print "Funktioniert 3"
         Case Else
         Print "Case Else"
      End Select
      End If

      A = "" : Command = ""

Loop
End

'########[ Subroutines ]###################################################
 Sub Serial0charmatch()
   Input New_command Noecho
   Clear Serialin
   If Instr(new_command , "#") = 1 Then       'Suchen nach Startzeichen (#)
   A = Mid(new_command , 2 , 3)                'Abtrennen der Adresse
   Command = Mid(new_command , 5 , 3)          'Abtrennen des Befehls
   Command = Ucase(command)                    'Umwandeln in Großbuchstaben

   Toggle Portc.5

   Print A ; " und " ; Command        'Ausgabe der Teilstrings zur Prüfung

   Else
   New_command = ""

   End If
End Sub

Wie im Bild zu sehen zerlegt der AtMega den String scheinbar korrekt, 
verarbeitet den dann aber nicht richtig weiter. Je nach lust und Laune 
des Controllers tritt ein anderes Ereigniss für ein und den selben 
Befehl ein. Erwartet habe ich eigentlich immer ein "Funktioniert 1".

Ich weiß grad keinen Rat mehr und hoffe das mir hier einer einen Tipp 
geben kann was ich falsch gemacht habe/ anders machen sollte.

[Matthias B. (matthias_b14)]

Hab das Bild ohne die Dezimalwerte vergessen. Es wurde immer nur 
"#001adr" gesendet.

[Matthias B. (matthias_b14)]

Juhu, ich hab rausgefunden woran das lag, war gestern wahrscheinlich 
doch etwas zu müde:P. Falls mal jemand auch das Problem haben sollte:

In meinem Programmcode puffer ich ankommende Zeichen solange bis das 
Zeichen <CR> empfangen wird. Ab da hüpfe ich mit interrupt in die Sub 
Serial0charmatch(). Dort wird alles fein ausgeführt. Allerdings kehre 
ich danach an genau die Stelle zurück, an der das Hauptprogramm vorher 
unterbrochen wurde. Wenn das nun mitten im Code war erfolgt die 
Auswertung der Variablen a und command nicht oder nicht korekt. Daher 
erhielt ich nur äußerst selten eine korrekte Antwort.

Eine einfache Änderung am Code hilft jedoch damit das ganze wie 
vorgesehen funktioniert:

Do

      If A <> "" Then
      If A = Adresse Then                                   'Adressprüfung
      Select Case Command                                   'Selektion nach kommando
         Case "ADR"
         Print "Funktioniert 1"
         Case "SBY"
         Print "Funktioniert 2"
         Case "RPM"
         Print "Funktioniert 3"
         Case Else
         Print "Case Else"
      End Select
      End If

      A = "" : Command = ""
      End If
Loop
End

Ich kann mir aber denken das der empfang und das senden über die 
serielle Schnittstelle eleganter gelöst werden könnte. Falls jemand dazu 
ideen hat bitte posten:).

[Bello (Gast)]

Matthias B. schrieb:
> Ab da hüpfe ich mit interrupt in die Sub
> Serial0charmatch().
Ich sehe zwar Enable Interrupts aber kein "ON interrupt label" in deinem 
Programm.

[Matthias B. (matthias_b14)]

Jup, da hast du recht. Ich hab das enable interruppts schon 
eingeschrieben obwohl ich im Programm noch keine weiteren Interrupts 
nutze. War sozusagen zur vorsorge weil ich später sicher noch nen Timer 
nutzen werde. Das Serial0charmatch() wird automatisch angesprungen 
sobald ein <CR> empfangen wurde.

Aber ich hab noch eine Frage: Ich nutze HTerm für die serielle 
Kommunikation mit dem PC. Dort empfange ich immer noch ein <LF> vor dem 
eigentlichen String der gesendet wurde (sieht man auch an den Bildern 
oben). Woran kann das liegen bzw. wie kann man das verhindern?

[Karl H. (kbuchegg)]

Du empfängst nicht LF vor dem String. Das LF ist ein Überbleibsel aus 
dem vorhergehenden String, der mit CR LF abgeschlossen wurde.

In Bascom, als auch in HTerm, kann man konfigurieren, wie ein Zeilende 
gesendet werden soll.