Instruction Manual

VEGACOM 557 VEGA ASCII 55
Setup
' Daten lesen.
Call
DecodeFrame(MSComm.Input)
Loop
End If
End Sub
Private Sub Run_Click()
' ? Start or Stop
If Run.Tag = "0" Then
' ? Schnittstelle
geoeffnet
If MSComm.PortOpen =
True Then
' -> schliessen
MSComm.PortOpen =
False
End If
' COM1 einsetzen.
MSComm.CommPort = 1
' 9600 Baud, keine
Paritaet, 8 Datenbits and 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
Private Sub DecodeFrame(Rec
As String)
Dim idx As Integer
Dim Value As Long
Dim PlsString As String
Dim SingleValue As String
Dim p As Integer
' Alle characters
aufsammeln
ReceiveBuffer =
ReceiveBuffer + Rec
' Schon 1 Wert empfangen
p = InStr(ReceiveBuffer,
Chr$(13))
If p > 0 Then
' -> Einzelnen Wert
ausschneiden
SingleValue =
Left$(ReceiveBuffer, p -
1)
ReceiveBuffer =
Mid$(ReceiveBuffer, p +
1)
Else
SingleValue = ""
End If
If Len(SingleValue) > 9
Then
' Frame pruefen
' =001#FAULTCR