Beispielprogramm Für Die Anfrage Vegamet (Quick Basic) - VEGA VEGACOM 557 Betriebsanleitung

Inbetriebnahme
5.4 Beispielprogramm für die Anfrage VEGAMET (QUICK BASIC)
DECLARE SUB Receive String (n%, rec$)
DECLARE SUB Check Receive (rec AS STRING)
DECLARE SUB Output Data ()
DECLARE SUB Delay (t AS SINGLE)
' Konstanten definieren
CONST COMADR = "0"
CONST MAXNORECEIVE = 2
CONST FirstMet = 1
CONST LastMet = 15
CONST FirstPls = 1
CONST LastPls = 3
CONST CMD1 = "P"
CONST CMD2 = "M"
CONST COLORWHITE = 15
CONST COLORGREEN = 10
CONST COLORRED = 12
' Variablendefinition
DIM sio AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
DIM L AS INTEGER
DIM Receive AS STRING
DIM Send AS STRING
DIM NoReceive (LastMet) AS INTEGER
DIM SHARED SendNr AS STRING
DIM SHARED MetNr AS INTEGER
DIM SHARED PLS(LastMet, LastPls) AS LONG
DIM SHARED Status(LastMet, LastPls) AS INTEGER
' Bildschirm loeschen
CLS
COLOR COLORWHITE, 0
' Freies Dateihandle holen
sio = FREEFILE
' Schnittstelle ohne Handshake Oeffnen
OPEN "COM2:9600,N,8,1,BIN,OP0,DS0,RS" FOR RANDOM AS sio
' Mit VEGAMET Adresse 1 beginnen
MetNr = FirstMet
' Fehlerzaehler initialisieren
FOR i = FirstMet TO LastMet
NoReceive(i) = MAXNORECEIVE
FOR j = FirstPls TO LastPls
Status(i, j) = -1
NEXT j
NEXT i
' Solange wiederholen bis der Anwender eine Taste drueckt
WHILE INKEY$ = ""
' Sendestring erzeugen
SendNr = RTRIM$(LTRIM$(STR$(MetNr)))
' mit fuehrenden Nullen auffuellen
VEGACOM 557 VEGA ASCII 49