Vega VEGACOM 557 VEGA ASCII protocol Bedienungsanleitung PDF herunterladen (Seite 52)

52 VEGACOM 557 VEGA ASCII

DIM v AS STRING

' Ausgabe der Daten auf den Bildschirm

CLS

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

NEXT i

' Hinweis ausgeben

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 a/jointfilesconvert/1351038/bgelaufen ?

IF MaxLoop < TIMER THEN

DoLoop = 0

END IF

WEND

END SUB

Inbetriebnahme

1 2 ... 47 48 49 50 51 52 53 54 55 56 57 ... 63 64

Kommentare zu diesen Handbüchern

Keine Kommentare

Vega VEGACOM 557 VEGA ASCII protocol Bedienungsanleitung Seite 52

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Kommunikationszubehör Vega VEGACOM 557 VEGA ASCII protocol