Publicité
NOTICE TECHNIQUE D'UTILISATION DE LA SERIE MG - SEFELEC
8.3.3 Conseils et exemples de programmation
Les informations ci-après sont extraites d'un programme de contrôle d'un appareil de la série MG écrit en
langage Quick Basic et sont données à titre didactique pour aider à la réalisation d'un programme. Vous
trouverez en annexe à la fin de ce chapitre le listing complet du programme de démonstration.
• Initialisation du port série pour la liaison RS232 :
OPEN "COM1:9600, N, 8, 1" FOR RANDOM AS #1
ON COM(1) GOSUB INTERUPTIONRS
COM(1) ON
Port de communication série 1 ouvert :
• Vitesse de transmission : 9600 bauds,
• N : aucun contrôle de parité,
• Nombre de bit de données : 8,
• Bit d'arrêt : 1.
Si un message arrive sur le port série, le programme se branche alors automatiquement sur la fonction
INTERUPTIONRS.
• Traitement des interruptions RS232 :
INTERUPTIONRS:
COM(1) OFF: nochr = 0
char$ = INPUT$(1, #1)
IF char$ = CHR$(17) THEN varxon = 1: nochr = 1
IF char$ = "Z" THEN
GOSUB GESTIONSRQ
nochr = 1
END IF
IF nochr = 0 THEN LINE INPUT #1, msg$
msg$ = char$ + msg$
varxon = 1
eom = 1
END IF
COM(1) ON
RETURN
La variable 'nochr' distingue les caractères XON et Z (nochr=1) des autres caractères (nochr=0).
Page : 94
'Autorisation des interruptions sur le port série COM1.
'Masquage des interruptions RS.
'Lecture du caractère (8 bits) reçu sur le port série.
'Le caractère reçu est un XON.
'Le caractère reçu, Z, correspond à une demande de
'service de la part de l'appareil MG (fin de test,
'erreur...).
'Si autre caractère, lecture du reste des caractères émis.
'Reconstitution du message.
'Autorisation d'envoi commande suivante (pas d'attente XON).
'Fin de message détecté (eom=1).
SERIE MG Version : R
Publicité
