Inhaltsverzeichnis
Werbung
α
ALPHA-Steuerung
Case 1
Cmnd =ChrB(&H2)+ChrB(&H7)+ChrB(&H41)+ChrB(&H0)+ChrB(&H0)+ChrB(&H1)_
+ChrB(&H42)+ChrB(&H1)+ChrB(&H0)+ChrB(&H3)+ChrB(&H85)+ChrB(&H0)
MSComm1.Output =Cmnd
For j =1 To 12
Bytedata =AscB(MidB(Cmnd,j,1))
Transdata =Transdata +Right$("00"+Hex$(Bytedata),2)&""
Next
Text1.Text =Transdata
Transdata =""
Do
DoEvents
Loop Until MSComm1.InBufferCount >=5
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 2
Cmnd =ChrB(&H2)+ChrB(&H8)+ChrB(&H41)+ChrB(&H0)+ChrB(&H1)+ChrB(&H1)_
+ChrB(&H42)+ChrB(&H1)+ChrB(&H0)+ChrB(&H1)+ChrB(&H3)_
+ChrB(&H87)+ChrB(&H0)
MSComm1.Output =Cmnd
For j =1 To 13
Bytedata =AscB(MidB(Cmnd,j,1))
Transdata =Transdata +Right$("00"+Hex$(Bytedata),2) & " "
Next
Text1.Text =Transdata
Transdata =""
Datenformate bei der speziellen Kommunikation 7
'"Daten lesen".
'Befehl senden (Zustand von "O01"lesen) .
'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 .
'"Daten schreiben".
' Befehl senden ("O01 einschalten").
'Zeichenfolge in den Sendepuffer eintragen.
' Anweisungen zur Anzeige der Sendedaten.
'Sendedaten anzeigen.
7 - 36
Werbung
Inhaltsverzeichnis
