VB6 Kommunikationssteuerung RS232 Senden Empfangen?

Patrick Gast 25.07.2014 13:38 #3739356

Hallo,

ich hab eine Frage wie ich da am besten vorgehe. Das Problem ist, dass 
ich ein Kommando an eine Hardware senden und als Antwort eine 
Bestätigung zurückbekomme.

zb. so:

Tx: xxw0B0002B
Rx: 0:000000

oder auch

xxsb000001d
0:000000

die Daten kann ich mit

Private Sub MSComm1_OnComm()

    Select Case MSComm1.CommEvent

        Case comEvReceive

          Zeichen_rx_Com1 = MSComm1.Input

empfangen. Nun möchte ich aber erst dann wieder was senden wenn eine 
korrekte Antwort empfangen wurde.

also quasi so:

Private Sub Command10_Click()

'1ten String senden
Zeichen_Com1 = "xxw" & "01" & daten & CRC & vbCrLf
MSComm1.Output = Zeichen_Com1

es soll erst weitergehen wenn das Kommando betätigt wurde...

'2ten String senden
Zeichen_Com1 = "xxw" & "02" & daten & CRC & vbCrLf
MSComm1.Output = Zeichen_Com1

es soll erst weitergehen wenn das Kommando betätigt wurde...

'3ten String senden
Zeichen_Com1 = "xxw" & "03" & daten & CRC & vbCrLf
MSComm1.Output = Zeichen_Com1

wie kann ich erreichen das dies so funktioniert?

Gruss Patrick

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke

Prog R. (daniel_v) 25.07.2014 14:14 #3739399

Bin jetzt kein VB6-Kenner, aber grundsätzlich wird deine Variable, so 
wie ich das verstehe, ja im Empfangsevent auf die neuen Daten von der 
Peripherie überschrieben.

Somit kannst du auf das Kommando z.B. in der Form
while(Zeichen_rx_Com1 != Erwartungswert) warten.

Hierbei sei allerdings erwähnt, dass deine Software ewig auf die 
korrekte Antwort warten würde - also könnte man sich noch eine Art 
TimeOut überlegen - kommt dann wohl auf die Anforderung an.

Antwort Zitieren Bearbeiten Löschen Melden Danke

VB6 Kommunikationssteuerung RS232 Senden Empfangen?

Antwort schreiben