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

52 VEGACOM 557 VEGA ASCII
DIM v AS STRING
' Affichage des données sur l’écran
CLS
PRINT
PRINT
FOR i = FirstMet TO LastMet
PRINT "MET:"; i,
FOR j = FirstPls TO LastPls
v = LTRIM$(RTRIM$(STR$(PLS(i, j))))
v = MID$(SPACE$(8), 1, 8 - LEN(v)) + v
IF Status(i, j) = 0 THEN
' L’état est OK -> Affichage en vert
COLOR COLORGREEN, 0
ELSE
' Erreur d’état -> Affichage en rouge
COLOR COLORRED, 0
END IF
PRINT v;
NEXT j
' Affichage en blanc
COLOR COLORWHITE, 0
PRINT
NEXT i
' Afficher la remarque
PRINT
PRINT "Pour arrêter, appuyer sur une touche"
END SUB
SUB ReceiveString (n%, rec$)
DIM DoLoop AS INTEGER
DIM MaxLoop AS SINGLE
' Lire tous les signes jusqu’à ce qu’un Linefeed ait été trouvé
' ou attendre 0.2 secondes
MaxLoop = TIMER + .1
' Effacer la mémoire tampon de réception
rec$ = ""
DoLoop = 1
WHILE DoLoop <> 0
' Y-a-t-il des signes sur l’interface ?
IF LOC(n%) > 0 THEN
' Oui alors lecture
rec$ = rec$ + INPUT$(LOC(n%), #n%)
IF MID$(rec$, LEN(rec$), 1) = CHR$(10) THEN
DoLoop = 0
END IF
ELSE
' Temps déjà écoulé ?
IF MaxLoop < TIMER THEN
DoLoop = 0
END IF
END IF
WEND
END SUB
Mise en service