Publicité
NOTICE TECHNIQUE D'UTILISATION DE LA SERIE MG - SEFELEC
'Analyse et envoi d'une commande à l'appareil MG :
COMMAND:
COM(1) ON
PRINT "Entrer les codes à envoyer au MG (RETURN pour sortir)"
LOOP1:
PRINT "A$="; : LINE INPUT A$
IF LEN(A$) = 0 THEN GOTO SORTIE ELSE GOSUB ENVOI
IF RIGHT$(A$, 1) = "?" THEN
IF LEFT$(A$, 1) <> "*" THEN
GOSUB ATTENTEXON
GOSUB ATTENTEMSG
ELSE
GOSUB ATTENTEMSG
END IF
PRINT "Message re‡u: "; msg$
END IF
GOSUB ATTENTEXON
GOTO LOOP1
SORTIE:
CLS
RETURN
ATTENTEMSG:
'srq = 0
WHILE eom = 0: WEND
eom = 0
RETURN
GESTIONSRQ:
TEMP$ = A$
COM(1) ON
A$ = "*STB?": GOSUB ENVOI
GOSUB ATTENTEMSG
IF LEN(msg$) = 4 THEN errdec = VAL("&H" + RIGHT$(msg$, 2))
IF LEN(msg$) = 3 THEN errdec = VAL("&H" + RIGHT$(msg$, 1))
FOR i = 0 TO 7
IF (errdec AND (2 ^ i)) <> 0 THEN bitstb(i) = 1 ELSE bitstb(i) = 0
NEXT i
IF bitstb(5) = 1 THEN
A$ = "*ESR?": GOSUB ENVOI
GOSUB ATTENTEMSG
IF LEN(msg$) = 4 THEN errdec = VAL("&H" + RIGHT$(msg$, 2))
IF LEN(msg$) = 3 THEN errdec = VAL("&H" + RIGHT$(msg$, 1))
FOR i = 0 TO 7
IF (errdec AND (2 ^ i)) <> 0 THEN bitesr(i) = 1 ELSE bitesr(i) = 0
NEXT i
IF bitesr(4) = 1 THEN PRINT "ERREUR DIALOGUE 2"
IF bitesr(5) = 1 THEN PRINT "ERREUR DIALOGUE 1"
ELSE
IF bitstb(0) = 0 THEN PRINT "BOUCLE OUVERTE !"
IF bitstb(1) = 1 THEN PRINT "Erreur !"
IF bitstb(2) = 0 THEN PRINT "Fin de Test."
IF bitstb(3) = 0 THEN PRINT "Test Mauvais." ELSE PRINT "Test Bon."
END IF
srq = 1
A$ = TEMP$
RETURN
SERIE MG Version : R
103
Page :
Publicité
