VEGA VEGACOM 557 VEGA ASCII protocol - Manuel (Page 49)

VEGACOM 557 VEGA ASCII 49
5.4 Programme d'exemple pour la requête 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)
' Définir les constantes
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
' Définition des variables
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
' Effacer l’écran
CLS
COLOR COLORWHITE, 0
' Chercher un fichier libre
sio = FREEFILE
' Ouvrir l’interface sans Handshake
OPEN "COM2:9600,N,8,1,BIN,OP0,DS0,RS" FOR RANDOM AS sio
' Commencer avec adresse VEGAMET 1
MetNr = FirstMet
' Initialiser le compteur d’erreurs
FOR i = FirstMet TO LastMet
NoReceive(i) = MAXNORECEIVE
FOR j = FirstPls TO LastPls
Etat (i, j) = -1
NEXT j
NEXT i
' Répéter jusqu’à ce que l’utilisateur appuie sur une touche
WHILE INKEY$ = ""
' Créer une chaîne (de caractères) d’émission
SendNr = RTRIM$(LTRIM$(STR$(MetNr)))
' Remplir de zéros en tête
Mise en service