Inhaltsverzeichnis
Werbung
α
ALPHA-Steuerung
7.7
Visual-Basic-Programmbeispiel
Das folgende Visual Basic Programm ist ein Beispiel zum Datenaustausch mit einer
ALPHA-Steuerung.
Die MSCOM-Einstellungen für die Signale RTS und DTR müssen freigegeben wer-
den, um dieses Beispielprogramm nutzen zu können.
Dim C_com As Integer
Dim Timecnt As Integer
-------------------------------------------------------------------------------------------------------------------------
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
C_com = 0
Case 1
C_com = 1
Case 2
C_com = 2
Case 3
C_com = 3
End Select
End Sub
-------------------------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim Cmnd()As Byte
Dim Bytedata As Byte
Dim Transdata As String
Dim Bfcnt As Integer
Dim Instring()As Byte
Dim Re As Byte
Dim Redata As String
On Error GoTo ErrorHandler
MSComm1.CommPort =1
MSComm1.Settings ="9600,N,8,1"
MSComm1.InputLen =0
MSComm1.PortOpen =True
Timecnt =0
Timer1.Enabled =True
Do
DoEvents
Loop Until Timecnt >1
Datenformate bei der speziellen Kommunikation 7
"Prüfung der Kommunikation".
'"Daten lesen".
'"Daten schreiben".
'"Steuerung in RUN schalten".
'"Transmit"-Schaltfeld wurde betätigt.
'Daten senden.
'Bytes der Sendedaten.
'Zeichenketten der Sendedaten.
'Anzahl der Bytes in den Empfangsdaten.
'Empfangsdaten.
'Fehlerroutine bearbeiten.
'"COM1" wird verwendet.
'"Baudrate,Parität,Datenlänge,Stopp-Bit".
'Alle Puffer werden auf Lesen eingestellt.
'Kommunikations-Schnittstelle öffnen.
'Zeitliche Steuerung der Schnittstelle (siehe
Hinweis)
7 - 34
Werbung
Inhaltsverzeichnis
