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

50 VEGACOM 557 VEGA ASCII

SendNr = MID$(COMADR + "00", 1, 3 - LEN(SendNr)) + SendNr

' Créer une chaîne (de caractères) d’émission

IF LastPls > 3 THEN

Send = CMD2 + SendNr + CHR$(13)

ELSE

Send = CMD1 + SendNr + CHR$(13)

END IF

' Délivrer une chaine (de caractères) d’émission sur l’interface

' ; à la fin, pour qu’il n’y ait pas l’émission d’un 2ème CR

PRINT #sio, Send;

' Info sur l’activité actuelle

LOCATE 1, 1

PRINT "Scan VEGAMET Adresse "; MetNr

' Attendre env. 0.1 seconde la réponse de la VEGACOM

Delay (.1)

CALL ReceiveString(sio, Receive)

' Vérifier la longueur

IF LastPls > 3 THEN

L = 66

ELSE

L = 32

END IF

IF LEN(Receive) = L THEN

' Pas de réponse, remettre compteur sur la valeur de départ

NoReceive(MetNr) = MAXNORECEIVE

' Mettre les informations d’état sur erreur

FOR j = FirstPls TO LastPls

Etat (MetNr, j) = -1

NEXT j

CALL CheckReceive(Receive)

ELSE

IF NoReceive(MetNr) > 0 THEN

NoReceive(MetNr) = NoReceive(MetNr) - 1

ELSE

' Mettre les informations d’état sur erreur

FOR j = FirstPls TO LastPls

Etat (MetNr, j) = -1

NEXT j

END IF

' interroger le prochain VEGAMET

MetNr = MetNr + 1

' Tous les VEGAMET interrogés ?

IF MetNr > LastMet THEN

OutputData

' Recommencer avec l’adresse VEGAMEt FirstMet

MetNr = FirstMet

END IF

WEND

' Fermer l’interface

CLOSE sio

EN D

Mise en service

1 2 ... 45 46 47 48 49 50 51 52 53 54 55 ... 63 64

Kommentare zu diesen Handbüchern

Keine Kommentare

Vega VEGACOM 557 VEGA ASCII protocol Bedienungsanleitung Seite 50

Kommentare zu diesen Handbüchern

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