mehrere über RS232 kommende hex-Werte (String) auswerten

[Ch S. (spelli)]

Hallo,

ich möchte per UART mehrere aneinander gereihte hex-Werte auswerten.

Ich bekomme alles problemlos hin, wenn ich nur EINEN hex-Wert (bspw. 01) 
auswerte.


Leider scheitere ich an dem ganzen String:
01040A00FF - das ist der kommende Befehlssatz bzw. String. Dieser wird 
immer mit FF abgeschlossen.

Momentan realisiere ich das über eine If-Schleife.

Bin Newbie, habe versucht das hier: 
Beitrag "mittles ATmega VISCA "hex Werte" empfangen und auswerten" schon einmal 
darzustellen. Der Thread ist aber etwas lang geworden.


Danke und Gruß
Christoph

[Walter S. (avatar)]

Ch Sp schrieb:
> Momentan realisiere ich das über eine If-Schleife.

das ist nicht gut, versuch mal eine while-Schleife

[Ch S. (spelli)]

Hallo Walter S.,

warum ist eine If-Schleife nicht gut?

[Purzel H. (hacky)]

Alles Schrott. Das Mittel der Wahl heisst Zustandsmaschine. 
(Statemachine)

[Ch S. (spelli)]

Hallo,

das habe ich nach Lesen im Internet so halb verstanden.

Habe mein programm auf Case umgestellt.

Jetzt habe ich folgendes Problem:

(...)
Dim Com1 As ???                                            'Variable für UART

(...)

  If Usr.rxc = 1 Then                                       'Byte aus Empfangsregister lesen
    Com1 = Udr                                              'aus UART auslesen und Com1 zuweisen

  Select Case Com1

    Case &H01040602FF
(...)

Wobei das so ja falsch ist: Case &H01040602FF
Das sind ja 5 Byte (??), also muss die Variable ein String sein (??)

Habs probiert, aber ich habe auch nichts gefunden, was da näher bringt.
Auch jeden Wert einzeln macht mir beim compilieren Probleme...

[weinbauer (Gast)]

if ist keine Schleife sondern ne Verzweigung ...
Dein Codeschnipsel ist Müll ...

[Ch S. (spelli)]

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Watchdog = 2048                                      'Watchdog konfigurieren auf 2048 Millisekunden
Start Watchdog                                              ' Watchdog starten

Led1 Alias Portc.1
Led2 Alias Portc.0

Config Servos = 2 , Servo1 = Portd.5 , Servo2 = Portb.1 , Reload = 10       'Servos konfigurieren

Config Led1 = Output                                        'Led1 "rot" (PortC.1) ist Ouput
Config Led2 = Output                                        'Led2 "grün" (PortC.0) ist Ouput
Config Portd.5 = Output                                     'PortD.5 ist Output
Config Portb.1 = Output                                     'PortB.1 ist Output

Enable Interrupts                                           'Interrupts aktivieren

Dim Com1 As String * 6                                            'Variable für per RS232 übergebene Werte
Dim Dummy As Eram Byte                                      'erstes Byte im EPROM vorsorglich belegen; keine weitere Funktion
Dim Winkel1_eram As Eram Byte                               'Variable für EPROM für Winkel1 - Servo1
Dim Winkel1 As Byte                                         'Arbeitsvariable für Winkel1 - Servo1
Dim Winkel2_eram As Eram Byte                               'Variable für EPROM für Winkel2 - Servo2
Dim Winkel2 As Byte                                         'Arbeitsvariable für Winkel2 - Servo2

Const Status = 15                                           'Zeit in ms: so lange leuchtet Led1 bei (bekanntem) RS232 Signal

Winkel1 = Winkel1_eram                                      'Werte für Servo 1 und 2 aus EPROM in Arbeitsvariable Winkel1 und Winkel2 laden
Winkel2 = Winkel2_eram
Servo(1) = Winkel1
Servo(2) = Winkel2

Led2 = 1                                                    'Led2 für Betriebsanzeige etc.


Do

  If Usr.rxc = 1 Then                                       'Byte aus Empfangsregister lesen
    Com1 = Udr                                              'aus UART auslesen und Com1 zuweisen

  Select Case Com1

    Case &H01 ; &H04 ; &H06 ; &H02 ; &HFF                   'Es geht um diese Werte, die als "01040602FF" empfangen werden               

            Winkel1 = 70
            Servo(1) = Winkel1
            Winkel2 = 70
            Servo(2) = Winkel2
            Winkel1_eram = Winkel1                          'hier und im ff. Wert des jeweiligen Servos in EPROM schreiben
            Winkel2_eram = Winkel2

            Led1 = 1                                        'hier und im ff. kurzes Aufblitzen für "Befehlsanname/-umsetzung"
            Waitms Status
            Led1 = 0



    Case &H46                                               'nicht belegt (Funktion1)

            Led1 = 1
            Waitms Status
            Led1 = 0



    Case &H47                                               'nicht belegt (Funktion2)

            Led1 = 1
            Waitms Status
            Led1 = 0



    Case &H06 And Winkel1 >= 40                             'Servo1 nach links "PAN"

            Decr Winkel1                                    'um 1 verkleinern
            Servo(1) = Winkel1
            Winkel1_eram = Winkel1

            Led1 = 1
            Waitms Status
            Led1 = 0



    Case &H04 And Winkel1 <= 99                             'Servo1 nach rechts "PAN"

            Incr Winkel1                                    'um 1 erhöhen
            Servo(1) = Winkel1
            Winkel1_eram = Winkel1

            Led1 = 1
            Waitms Status
            Led1 = 0



    Case &H00 And Winkel2 >= 50                             'Servo2 nach oben "TILT"

            Decr Winkel2                                    'um 1 verkleinern
            Servo(2) = Winkel2
            Winkel2_eram = Winkel2

            Led1 = 1
            Waitms Status
            Led1 = 0



    Case &H02 And Winkel2 <= 90                             'Servo2  nach unten "TILT"

            Incr Winkel2                                    'um 1 erhöhen
            Servo(2) = Winkel2
            Winkel2_eram = Winkel2

            Led1 = 1
            Waitms Status
            Led1 = 0



    End Select
  End If
 Reset Watchdog                                             'Watchdog zurücksetzen
Loop
End

"Müll" ist als Umschreibung auch Müll!

Das If eine Verzweigung und keine Schleife ist, werde ich mir aber 
merken.

[astroscout (Gast)]

Hi,
so wie ich das sehe wird dein Code nicht funktionieren.

Du list mit dieser Zeile immern nur ein Byte aus

If Usr.rxc = 1 Then                                       'Byte aus Empfangsregister lesen
    Com1 = Udr                                              'aus UART auslesen und Com1 zuweisen

Allerdings ist jedes Zeichen, dass über die RS232-Schnittstelle gesendet 
wird jewels ein Byte. Du musst dir mal genau anschauen, wie die Zeichen 
codiert sind (ASCII, hex,...). Wenn ich deinen Post richtig verstanden 
habe, dann ist das ganze jeweils ein ganzer Befehlsblock, richtig?
Du musst dir also einen Zwischenspeicher programmieren, z.B. indem du 
die Werte in ein Array schreibst nachdem ein FF enfangen wurde, wenn 
dann wieder FF empfangen wurde, kannst du dein Array (also deinen 
Befehl) auswerten.



Gruß Astroscout

[Ch S. (spelli)]

Guten morgen!

Ja, eigentlich total offensichtlich... Kommentar...

Die Zeichen sind hex Werte, also ein Block immer abgeschlossen durch FF.

Das mit dem Zwischenspeicher muss ich mir dann noch mal anschauen.