VEGA VEGACOM 557 Betriebsanleitung Seite 50

SendNr = MID$(COMADR + "00", 1, 3 - LEN(SendNr)) + SendNr
' Sendestring erzeugen
IF LastPls > 3 THEN
Send = CMD2 + SendNr + CHR$(13)
ELSE
Send = CMD1 + SendNr + CHR$(13)
END IF
' Sendestring auf der Schnittstelle ausgeben
' ; am Ende, damit kein 2. CR gesendet wird
PRINT #sio, Send;
' Info zur aktuellen Taetigkeit
LOCATE 1, 1
PRINT "Scan VEGAMET Adresse "; MetNr
' Auf Antwort vom VEGACOM warten ca 0.1 Sekunden
Delay (.1)
CALL ReceiveString(sio, Receive)
' Laenge pruefen
IF LastPls > 3 THEN
L = 66
ELSE
L = 32
END IF
IF LEN(Receive) = L THEN
' Keine Antwort Zaehler wieder auf Startwert
NoReceive(MetNr) = MAXNORECEIVE
' Statusinformationen auf Fehler setzen
FOR j = FirstPls TO LastPls
Status(MetNr, j) = -1
NEXT j
CALL CheckReceive(Receive)
ELSE
IF NoReceive(MetNr) > 0 THEN
NoReceive(MetNr) = NoReceive(MetNr) - 1
ELSE
' Stausinformationen auf Fehler setzen
FOR j = FirstPls TO LastPls
Status(MetNr, j) = -1
NEXT j
END IF
END IF
' naechste VEGAMET abfragen
MetNr = MetNr + 1
' Alle VEGAMET abgefragt ?
IF MetNr > LastMet THEN
OutputData
' Wieder bei VEGAMEt Adresse FirstMet beginnen
MetNr = FirstMet
END IF
WEND
' Schnittstelle schliessen
CLOSE sio
END
50
Inbetriebnahme
VEGACOM 557 VEGA ASCII