Inhaltsverzeichnis
Werbung
α
ALPHA-Steuerung
Timer1.Enabled =False
'If Timecnt =1 Then
'Timer1.Enabled =False
'End If
'For i =0 To 45000
' i =+1
'Next
Select Case C_com
Case 0
Cmnd =ChrB(&H2)+ChrB(&H3)+ChrB(&H40)+ChrB(&H0)+ChrB(&H5)
MSComm1.Output =Cmnd
For j =1 To 5
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 =""
Datenformate bei der speziellen Kommunikation 7
'"Kommunikationsmöglichkeit prüfen".
' Diese Daten werden gesendet .
'Zeichenfolge in den Sendepuffer eintragen.
'Anweisungen zur Anzeige der Sendedaten
'Sendedaten anzeigen.
'Auf Antwort der Steuerung warten.
'Empfangene Daten lesen.
'Anweisungen zur Anzeige der Empfangsdaten.
'Empfangsdaten anzeigen
7 - 35
Werbung
Inhaltsverzeichnis
