VEGA VEGACOM 557 VEGA ASCII protocol - Handbuch (Seite 52)

52 VEGACOM 557 VEGA ASCII
DIM v AS STRING
' Ausgabe der Daten auf den Bildschirm
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
' Status ist OK -> Anzeige in Gruen
COLOR COLORGREEN, 0
ELSE
' Fehler im Status -> Anzeige in Rot
COLOR COLORRED, 0
END IF
PRINT v;
NEXT j
' Anzeige in Weiss
COLOR COLORWHITE, 0
PRINT
NEXT i
' Hinweis ausgeben
PRINT
PRINT "Zum Beenden bitte eine Taste druecken"
END SUB
SUB ReceiveString (n%, rec$)
DIM DoLoop AS INTEGER
DIM MaxLoop AS SINGLE
' Alle Zeichen einlesen bis ein Linefeed gefunden wurde
' oder 0.2 Sekunden verstrichen sind
MaxLoop = TIMER + .1
' Empfangspuffer loeschen
rec$ = ""
DoLoop = 1
WHILE DoLoop <> 0
' Zeichen an der Schnittstelle vorhanden ?
IF LOC(n%) > 0 THEN
' Ja dann lesen
rec$ = rec$ + INPUT$(LOC(n%), #n%)
IF MID$(rec$, LEN(rec$), 1) = CHR$(10) THEN
DoLoop = 0
END IF
ELSE
' Zeit schon abgelaufen ?
IF MaxLoop < TIMER THEN
DoLoop = 0
END IF
END IF
WEND
END SUB
Inbetriebnahme