Inhaltsverzeichnis
Werbung
α
ALPHA-Steuerung
Redata =""
End Select
MSComm1.PortOpen =False
Exit Sub
ErrorHandler:
If Err.Number = 8005 Then
message =MsgBox("Communication port is already opened.",vbExclamat on)
End If
End Sub
-------------------------------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
Text1.Text =""
Text2.Text =""
Transdata =""
Redata =""
If MSComm1.PortOpen =True Then
MSComm1.PortOpen =False
End If
End Sub
-------------------------------------------------------------------------------------------------------------------------
Private Sub Text1_Change()
End Sub
-------------------------------------------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
Timecnt =Timecnt +1
End Sub
Datenformate bei der speziellen Kommunikation 7
'Schnittstelle schliessen.
'Routine zur Fehlerbehandlung.
'"Reset"-Schaltfeld wurde betätigt.
'Textfelder löschen.
'Kommunikations-Schnittstelle schliessen.
7 - 38
Werbung
Inhaltsverzeichnis
