VBA MSCOMM32 RS232

[guy (Gast)]

Hallo,

ich habe folgenden Code in vba6 (excel). Ich will ein Multimeter über 
rs232c ansprechen. Dazu habe ich in vba das folgende kleine Programm:

Sub CommandButton3_Click()

//deklaration Kommunikation Fluke Multimeter
    Dim var_string As String
    Dim Port As New MSComm

    With Port
        .CommPort = 1 'Com-Port Nummer
        .Settings = "9600,N,8,1" 'Baudrate,Parity(N entspricht none),Datenbits,Stobbits)
        .PortOpen = True 
        .Handshaking = comRTS
    End With
      
    Port.Output = "*IDN?" + Chr$(10) //sendet Befehl an Multimeter sich zu identifizieren.
         
     MsgBox "a"//Ausgabe von a
    
    var_string = Port.Input//fragt den eingang ab
    MsgBox "Antwort Com-Port: " & var_string, vbOKOnly, "Antwort"//Ausgabe der erhaltenen Zeichenkette vom rs232 Port
End Sub

Das obige Programm gibt dann erst "a" aus und dann die Antwort vom 
Multimeter(Seriennummer).

Das Problem ist, wenn ich die MsgBox "a" weglasse, enthält die zweite 
MsgBox nicht mehr die Seriennummer des Multimeters...sondern gar nichts, 
wenn man das Programm nochmal ausführt.

Meine Vermutung ist, dass die Abfrage des var_string = Port.Input zu 
schnell kommt und das Multimeter noch gar nicht zurückgesendet hat...

Wie kann ich das beheben? Es gibt noch die Methode Port.commevent, aber 
die Attribute haben meiner Meinung nach nichts, was mir helfen würde. 
Ich bräuchte ein Flag, dass sagt, wann die Daten vollständig empfangen 
wurden. Gibt es so etwas, oder hat jemand eine andere Idee?

Gruß guy

[Peter II (Gast)]

Du musst so oft Port.Input aufrufen, bis du alle Daten die du erwartest 
empfangen hast. Woher soll das System denn sonst wissen auf was du 
wartest?

[Dennis H. (c-logic)]

Im normal wird die Ausgabe des Messgerätes bis zum vbcrlf laufen.
Solange mußte du halt einlesen bevor du es weiterverarbeitest.

[fredylich (Gast)]

Hallo guy,

dein Ansatz ist falsch. Ohne Schleife ist Verhalte okay.
Com- Port ohne ISR, muss Abfrage rolliehrend sein. Dies sehe ich aber 
nicht im Code.

Gruß

[Guy (Gast)]

Ich weiß nie wie lang die Strings sind die empfangen werden...aber das 
Frame wird immer mit Char(10) also einem line feed beendet.

Gibt es nicht die Möglichkeit solange einzulesen bis das Line feed 
Zeichen kommt?

[Sascha W. (sascha-w)]

Guy schrieb:
> Ich weiß nie wie lang die Strings sind die empfangen werden...aber das
> Frame wird immer mit Char(10) also einem line feed beendet.
>
> Gibt es nicht die Möglichkeit solange einzulesen bis das Line feed
> Zeichen kommt?

Ja mit einer Schleife, lies solange ein und verbinde den Input mit dem 
bis dahin gelesenen bis das letzte Zeichen im String (erstes von Rechts) 
gleich chr(10) ist.

Sascha