Riesenproblem mit Datenübertragung, Betriebsblind?

[Jens P. (Gast)]

Hallo Leute,

ich sitze seit einer halben Ewigkeit an einer Datenübertragung vom PC 
zum Controller.

Es geht um 127 Presets mit je 16 Zeichen Namensstring und 16 
Relaiszuständen.

Wenn ich vom Rechner an den Controller Sende und das danach auslese habe 
ich nur Schrott drinstehen.

Wenn ich Presets direkt am Gerät bearbeite und dass dann auf den rechner 
lade passt die Sache.

Ich wäre sehr froh, wenn jemand da mal drüberschauen könnte, nach 8 
Stunden an der selben sch'#@e bin ich wohl so langsam Betriebsblind.

Sendecode (vb.net):

 Private Sub BwSend_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BwSend.DoWork
        Com.Write("S") ' Sende!, Pipe als delimiter
        Do
        Loop Until Com.ReadTo("|") = "A"
        For z1 = 1 To 128
            ' Es gibt keine Fixlängen-Strings unter .NET, daher Eingabefelder begrenzen und nach rechts mit Leerzeichen auffüllen
            Do
            Loop Until Com.ReadTo("|") = "A"
            ConfigArr(z1, 0) = ConfigArr(z1, 0).PadRight(16, " ")
            'MsgBox("|" & ConfigArr(z1, 0).Substring(0, 16) & "|")
            For z3 = 0 To 15
                ' MsgBox(ConfigArr(z1, 0).Substring(z3, 1))
                Com.Write(ConfigArr(z1, 0).Substring(z3, 1))
            Next z3
            Do
            Loop Until Com.ReadTo("|") = "A"
            ' MsgBox(ConfigArr(z1, 1) & ConfigArr(z1, 2) & ConfigArr(z1, 3) & ConfigArr(z1, 4) & ConfigArr(z1, 5) & ConfigArr(z1, 6) & ConfigArr(z1, 7) & ConfigArr(z1, 8) & ConfigArr(z1, 9) & ConfigArr(z1, 10) & ConfigArr(z1, 11) & ConfigArr(z1, 12) & ConfigArr(z1, 13) & ConfigArr(z1, 14) & ConfigArr(z1, 15) & ConfigArr(z1, 16))
            For z2 = 1 To 16
                If ConfigArr(z1, z2).Trim = "1" Then
                    Com.Write("1")
                Else
                    Com.Write("0")
                End If
            Next z2
        Next z1

Code im Controller(relevante Teile):

.....
         if TempChar="S" then
            ReceiveFromComputer()
         end if
......


sub procedure ReceiveFromComputer
            TempChar=0
            LCD_OUT(1,1," Receiving Data ")
            LCD_OUT(2,1," from Computer  ")
            j=0
            ct=0
            UART_WRITE_TEXT("A|")
           ' Zuerst die Presets, erst Name, dann Outputs
           for ct= 0 to 127
               'Name empfangen
               Preset=ct
               calc7seg
               UART_WRITE_TEXT("A|")
               for j = 0 to 15
                   WaitForChar(false)
                   NewReceive=false
                   Presetname[j]=tempchar
               next j
               Write_PresetName()
               j=0
               UART_WRITE_TEXT("A|")
               for j= 0 to 15
                   WaitForChar(false)
                   NewReceive=false
                   if TempChar="1" then
                      Outputs.j=1
                   end if
                   if TempChar="0" then
                      Outputs.j=0
                   end if
               next j
               write_presetrelais()
           next ct
end sub

sub procedure WaitForChar(dim Acknowledge as boolean)
    do
    loop until NewReceive=true
    if acknowledge=TRUE then
       UART_WRITE_TEXT("A|")
    end if
end sub

.... ISR....
       if ReceiveMode = 0 then          ' RS232-Empfang
          TempChar=receivetemp
          NewReceive=true
       end if
....

Wäre echt Super wenn sich jemand dafür erwärmen könnte mal drüber zu 
schauen. Mir raucht so langsam der Kopf, ich komm und komm nicht weiter.

Gruß,
Jens

[Jens P. (Gast)]

Achso: Mit den ganzen auskommentierten Messageboxen konnte ich 
feststellen, dass meine Sendewerte soweit stimmen.

[Werner A. (homebrew)]

Schau doch mit nem Terminalprogramm erstmal nach, obs nen Problem auf 
der Sender- oder Empfängerseite gibt. Dann kannst du an der 
entsprechenden Stelle weitersuchen...

[Purzel H. (hacky)]

>UART_WRITE_TEXT("A|")
>..
>WaitForChar(false)

Scheint mir blockierender Betrieb zu sein. So wird das nichts. Mach ne 
Zustandsmaschine, die gleichzeitiges Senden und Empfangen zulaesst.

[Jens P. (Gast)]

gleichzeitiges Senden und Empfangen ist hier (in diesem Modus des 
Programmes) nicht nötig bzw erwünscht.

Es geht immer: Anfordeurng->warten->Acknowledge

Ist zwar hier mit Polling gelöst, aber ist das prinzipiell falsch?

[Purzel H. (hacky)]

Naja, wenn du gleichzeitig blockierend schreibst...

[MaWin (Gast)]

> aber ist das prinzipiell falsch?

Ich finde ja.

Ein Programmpaket, welches nur funktioniert, wenn sich beide so gut 
verstehen wie es die eng verzahnten und aufeinander wartenden Prozesse 
für ihre fehlerfreie Abarbeitung verlangen, ist meiner Meinung nach 
komplett lebensuntauglich.

Eine serielle Kommunikation muß
1. damit zurecht kommen, daß nicht die erwarteten Zeichen kommen und 
sich dabei dann resynchronisieren
2. damit zurecht kommen, daß überhaupt kein Zeichen kommt, also einen 
TimeOut besitzen.

Deine Delimiter (immer das A) machen es natürlich besonders schwierig, 
eine fehlerhafte Kommunikation zu erkennen. Es sollten zumindest nicht 
die Buchstaben sein, die wohl auch im Namensfeld erlaubt sind.

Ein loop until NewReceive=true ist doch ein deadlock. Kabel ab Prozessor 
steht.

Die ISR sollte jedes Zeichen entgegennehmen und auf Grund des aktuellen 
Zustandes dorthin verteilen, wo es hingehört, und wenn das Zeichen dort 
nicht hingehört, dann sollte der Zustand auf das geändert werden, wo es 
hingehört, also eine Resynchronisation stattfinden.

[Jens P. (Gast)]

Gut, vielleicht zur Erklärung warum ich hier den "bequemen" weg nehme:

Dieser Modus des Gerätes dient eigentlich NUR dem übertragen der 
PResets. Im Normalbetrieb wird der UART als MIDI-Schnittstelle benutzt, 
inklusive Statemachine und allem drum und dran.

Ich dachte mir nur "die paar Hundert Bytes sollten doch auch so gehen".

Wenn bei den 10 Sekunden übertragung dann halt mal das Kabel rausrutscht 
steht die Kiste halt, das würde ich in dem Fall als hinnehmbar 
akzeptieren.

[Jens P. (Gast)]

Nur so als Info für die Nachwelt:

Schuld war natürlich jetzt die pure Dummheit.

Ein einzelnes Zeichen als Delimiter zu verweden mag ja gehen wenn man 
ausschliesslich mit Ascii-Zeichen arbeitet und auf Sonderzeichen 
verzichen kann. In meinem Fall | (Pipe)

Blöd nur wenn mitten im String auch mal beliebige Relais-Setups 
übertragen werden, bei denen sich durchaus auch mal eine Paarung mit dem 
Wert 124 ergeben kann.

Manchmal würde man sich dann gerne selber hauen....

[Hans (Gast)]

Jens Plappert schrieb:
> Manchmal würde man sich dann gerne selber hauen....

Hallo Jens,

hier kann Dir geholfen werden : http://www.rotelinien.de/

[Jens P. (Gast)]

Danke Hans, hab da auch was für dich:
http://www.rasputin.de/Humorlos/

[Hans (Gast)]

Hallo Jens,

ich habe den Test auf der von Dir genannten Seite nicht bestanden :(

[Jens P. (Gast)]

Schade ;-)