Instruction Manual

VEGACOM 557 VEGA ASCII 49
5.4 Example program for the enquiry 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 DCS(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)))
Setup