Inhaltsverzeichnis
Werbung
α
ALPHA-Steuerung
Do
DoEvents
Loop Until MSComm1.InBufferCount >=10
MSComm1.InputMode =comInputModeBinary 'Empfangsdaten als Binärdaten lesen.
Bfcnt =MSComm1.InBufferCount
Instring =MSComm1.Input
For j =0 To Bfcnt -1
Re =Instring(j)
Redata =Redata +Right$("00"+Hex$(Re),2) & " "
Next
Text2.Text =Redata
Redata =""
Case 3
Cmnd =ChrB(&H2)+ChrB(&H4)+ChrB(&H41)+ChrB(&H0)+ChrB(&H10)+ChrB(&H1)_
+ChrB(&H3)+ChrB(&H52)+ChrB(&H0) 'Befehl zur RUN-Umschaltung
MSComm1.Output =Cmnd
For j =1 To 9
Bytedata =AscB(MidB(Cmnd,j,1))
Transdata =Transdata +Right$("00"+Hex$(Bytedata),2) & " "
Next
Text1.Text =Transdata
Transdata =""
Do
DoEvents
Loop Until MSComm1.InBufferCount >=6
MSComm1.InputMode =comInputModeBinary 'Empfangsdaten als Binärdaten lesen.
Bfcnt =MSComm1.InBufferCount
Instring =MSComm1.Input
For j =0 To Bfcnt -1
Re =Instring(j)
Redata =Redata +Right$("00"+Hex$(Re),2) & " "
Next
Text2.Text =Redata
Datenformate bei der speziellen Kommunikation 7
' Auf Antwort der Steuerung warten.
'Empfangene Daten aus Puffer lesen.
' Anweisungen zur Anzeige der Empfangsdaten.
'Empfangene Daten anzeigen.
'"Steuerung in RUN schalten" .
'Zeichenfolge in den Sendepuffer eintragen.
'Anweisungen zur Anzeige der Sendedaten.
'Sendedaten anzeigen.
'Auf Antwort der Steuerung warten.
'Empfangene Daten aus Puffer lesen.
'Anweisungen zur Anzeige der Empfangsdaten.
'Empfangene Daten anzeigen"
7 - 37
Werbung
Inhaltsverzeichnis
