VEGA VEGACOM 557 Betriebsanleitung Seite 54

Private Sub Form_Load()
Dim i As Integer
' Speicher initialisieren
For i = 1 To 255
Status(i) = False
PLS(i) = 0
Next i
' Fehlerzaehler initialisieren
InAction = 0
' Bereich einstellen
StartIndex = 1
LenIndex = 30
' Werte anzeigen
DisplayValues
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Timer stoppen
Timer.Enabled = False
' Serielle Schnittstelle schliessen.
If MSComm.PortOpen = True Then
MSComm.PortOpen = False
End If
End Sub
Private Sub MSComm_OnComm()
Dim InString As String
' ? Wurden Zeichen empfangen
If MSComm.CommEvent = comEvReceive Then
' Anzeige für Kommunikation
If Led.FillColor = Me.BackColor Then
Led.FillColor = RGB(0, 255, 0)
Else
Led.FillColor = Me.BackColor
End If
' Prüfen, ob Daten vorhanden sind.
Do While MSComm.InBufferCount > 0
' Fehlerzaehler auf 1 Sec
InAction = 10
' Daten lesen.
Call DecodeFrame(MSComm.Input)
Loop
End If
End Sub
Private Sub Run_Click()
' ? Start oder Stop
If Run.Tag = "0" Then
' ? Schnittstelle geoeffnet
If MSComm.PortOpen = True Then
' -> schliessen
MSComm.PortOpen = False
End If
54
' COM1 einsetzen.
MSComm.CommPort = 1
' 9600 Baud, keine Paritaet, 8 Daten-
bits und 1 Stopbit
MSComm.Settings = "9600,N,8,1"
' Schnittstelle oeffnen.
MSComm.PortOpen = True
' Timer starten
Timer.Enabled = True
If MSComm.PortOpen Then
' Button umschalten
Run.Caption = "&Stop"
Run.Tag = "1"
End If
Else
' ? Schnittstelle geoeffnet
If MSComm.PortOpen = True Then
' -> schliessen
MSComm.PortOpen = False
End If
' Timer ausschalten
Timer.Enabled = False
' Button umschalten
Run.Caption = "&Start"
Run.Tag = "0"
End If
End Sub
Private Sub Timer_Timer()
If InAction = 0 Then
' Speicher loeschen
ReceiveBuffer = ""
' Starus loeschen
ClearValues
' Ausgabe der Anfrage
MSComm.Output = "%" +
Format(StartIndex, "000") + "L" +
Format$(LenIndex, "000") + Chr$(13)
Else
' Fehlerzeahler benutzen
InAction = InAction - 1
' ? Grenze erreicht
If InAction = 0 Then
' Werte anzeigen
DisplayValues
End If
End If
End Sub
VEGACOM 557 VEGA ASCII
Inbetriebnahme