VEGA VEGACOM 557 VEGA ASCII protocol Manuel d'utilisation

Page 49

Advertising

VEGACOM 557 VEGA ASCII

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

Advertising