[Gelöst] RS232, Rückgabe NULL abfangen

[DK7IH]

Hallo zusammen!

Ich programmiere gerade eine Kommunikationssoftware zwischen einem Gambas-Client unter Linux Mint 18 und einem ATmega128. Ich möchte damit eines meiner selbstgebauten Amateurfunkgeräte steuern (Projektbeschreibung). Die Kommunikation mit der seriellen Schnittstelle funktioniert soweit, ich kann Daten an das Funkgerät senden und von ihm empfangen. Grundsätzlich zumindest. Denn der Empfang über RS232 macht sporadisch Probleme. Ich erhalte teilweise einen NULL-Zeiger von der Funktion zurück, welche Daten vom angeschlossenen COM-Device ( comRS232.PortName = "/dev/ttyUSB0") erhält. Vor dem Lesen aus der Schnittstelle wird dem Funkgerät mitgeteilt, welche Daten man erhalten will.

Hier die Empfangsfunktion:
gambas code

Function GetTRXData(strRequest As String) As String

    Dim strRX As String
     
    TransmitData(strRequest & " " & gb.Cr) 'Anforderung der Daten aus dem Transceiver
     
    comRS232.Begin()
    comRS232.Drop
    Sleep 0.025
    Read #comRS232, strRx, Lof(comRS232)
        
    If Error Then
         Return "-1"
    Endif

    If Len(strRx) > 1 Then
         Return strRX
    End If
    
    Return "-1"
End

Der String, der zurückkommt enthält dann idealerweise den Puffer der RS232-Schnittstelle. Manchmal kommt aber NULL zurück, was ich mir nicht erklären kann, denn ich gebe entweder die Variable zurück oder eine Konstante (-1). Den NULL-Pointer versuche ich dann abzufangen in der aufrufenden Funktion. Diese lädt (derzeit noch manuell) Daten, nachdem die Schnittstelle geöffnet wurde:
gambas code

Public Sub cmdLoadData_Click()
   Dim intRval As Integer
   Dim strRval As String
    
   strRVal = GetTRXData("GET BAND")
   'Print strRVal
   If IsNull(strRVAl) = False Then 
       intRVal = Val(strRVal)
       If intRVal >= 0 And intRVal <= 5
          'Print intRVal
           cmbBand.Index = intRVal
           cmbBand.Refresh
       Endif    
   Endif
End

In der 6. Zeile frage ich auf IsNull() ab, trotzdem bringt die nächste Zeile, wo mit Val() eine Typumwandlung durchgeführt werden soll, den Fehler, dass dort ein NULL angekommen ist.

gambas_dk7ih_1.png (48.09 KiB) 8674 mal betrachtet

Wie kann das sein?

Viele Grüße

Peter

[tionov]

Hi Peter,

was steht denn in diesem Fall in strRVal? Mach doch mal einen Fehlerbehandlung mit Catch und dort 'Print strRVal':
gambas code

' .... Code
Catch
     Print "Fehler: strRVal enthält'" & strRVal & "'"

[DK7IH]

Hi tionov,

vielen Dank für's Antworten. Ich konnte das Problem lösen. Es muss eine kurze Wartezeit zwischen der Übermittlung des Befehls an das Funkgerät und dem Abfragen der Empfangsdaten liegen. So geht das nun:
gambas code

Function GetTRXData(strRequest As String) As String

    Dim strRX As String
     
    TransmitData(strRequest & " " & gb.Cr)
    Wait 0.01 'NEU!!!!
     
    comRS232.Begin()
    comRS232.Drop
    Sleep 0.025
    Read #comRS232, strRx, Lof(comRS232)
        
    If Error Then
         Return "-1"
    Endif

    If Len(strRx) > 1 Then
         Return strRX
    End If
    
    Return "-1"
End

Viele Grüße

Peter

[tionov]

Ok.

[DK7IH]

Hi, ich nochmal,

also, die Schnittstelle scheint ein ganz ordentliches Timingproblem zu haben. Wenn ich eine zweite Befehlssequenz sofort nach der ersten übermittele geht das Problem von vorne los. Außerdem werden die rückübermittelten Datenstrings abgeschnitten. Man muss dann zwischen die beiden Befehls-Sequenzen, welche die Daten an den RS232-Port senden, wiederum ca. 50ms Delay einbauen, damit es nicht zum Absturz kommt. Und dann reduziert sich auch die Datenfehlerrate auf 0.

Edit: Was das aber alles mit dem angeblichen NULL-Pointer zu tun hat, verstehe ich immer noch nicht. Sehr spannend.

Viele Grüße

Peter

[tionov]

Ich kenne mich mit RS232 nicht aus. Aber du solltest mal schauen, wo du 'Wait' (ohne Zeitangabe) anwenden kannst. Damit sagst du nämlich Gambas, es soll warten, bis ein Event abgeschlossen ist. Weil vielleicht ist dein Code auf deinem Computer schneller als die Schnittstelle.

Hier kannst du auch die englische Mailingliste durchsuchen, z.B.:

https://lists.gambas-basic.org/cgi-bin/ ... rs232+wait

[DK7IH]

Hallo,

ja Du scheinst Recht zu haben. Der Fehler tritt auf, wenn die Schnittstelle nicht oder nicht rechtzeitig antwortet. Vielen Dank für den Link, da werde ich mal reinsehen. Aber zumindest kann ich das Problem jetzt eingrenzen.

Schöne Grüße

Peter

[Crabman]

Moin

Der Beitrag ist zwar schon etwas betagt aber vielleicht erreicht Dich meine Antwort noch.

Ich arbeite seit langem erfolgreich mit seriellen Schnittstellen und es werden ihnen z.T. Probleme unterstellt, die sich in aller Regel als Programmierfehler herausstellen. Mein letztes großes Programm für die Fernsteuerung eines HF-Transceivers per RS232 habe ich mit Gambas geschrieben und es funktioniert 1A.
Wichtig ist zu erkennen, dass die Gambas-RS232-Klasse volle Duplex-Fähigkeit hat, was nicht unbedingt bei den zu steuernden Funkgeräten der Fall ist. Während mein letzter HF-Transceiver beispielsweise volle RS232-Duplex-Fähigkeit besaß, war das bei einem älteren Receiver nicht der Fall. Bei Geräten die keine RS232-Duplex-Fähigkeit besitzen (was primär von der Firmware des Gerätes abhängt), kann es beispielsweise passieren, dass man ihm ein Kommando schickt, während es gerade etwas zurück meldet. Das Kommando geht also verloren. Die Programme müssen also u.U. für die zu steuernden Geräte ausgelegt werden und es kann beispielsweise erforderlich sein, dass man in einer Art "Handshake-Betrieb" auf eine Antwort warten muss, bevor man ein weiteres Kommando raus schickt. Ich nenne das mal "Synchronbetrieb". Bei Funkgeräten, deren serieller Schnittstelle duplex-fähig sind, kann man i.d.R. (aber auch nicht immer) auf "Rücksicht" verzichten und "asynchron" steuern, also zu beliebigen Momenten Befehle schicken und Rückmeldungen empfangen.

Vielleicht betrachtest Du Dir Dein Problem mal aus dieser Perspektive. Bei ca. 6 Programmen, die ich zur Fernsteuerung von Funkgeräten geschrieben habe, war das immer das Hauptproblem.