Appendix Iv : Rs232 Demo Programme - Eaton MGR10 Serie Manuel D'utilisation

APPENDIX IV : RS232 demo programme

'
' TSTMGR10: programme de test de la liaison s‚rie du MGR10
'
' Date de création : 15-05-95 rédacteur:CS
' Date de modification : 11-04-2000 rédacteur DD
' Version issue de mgrs21.bas .
' Choix possible du port RS
'
'-----------------------------------------------------------------------------
SCREEN 0, 0, 0: COLOR 10, 1
CLS
PRINT " TEST DE LA LIAISON RS232 POUR MGR10 - Version 2.02 du 11-04-2000"
PRINT ""
choix:
PRINT
PRINT "CHOIX DU PORT RS232 (1 ou 2)";
INPUT port%
REM port% = 1
IF port% = 1 THEN GOTO vitrs1
IF port% = 2 THEN GOTO vitrs3 ELSE GOTO choix
vitrs1:
PRINT " Port RS232 nø1 sélectionné": OPEN "COM1:9600,N,8,1,CS2000,DS2000,CD0" FOR RANDOM AS #1: port% = 1
GOTO suite
vitrs3:
PRINT " Port RS232 nø2 sélectionné": OPEN "COM2:9600,N,8,1,CS2000,DS2000,CD0" FOR RANDOM AS #1: port% = 2
suite:
ON COM(port%) GOSUB INTERUPTIONRS
COM(port%) ON
'fin de message détecté
eom = 0
'arret du processus en cours
fin = 0
'message recu
msg$ = ""
CONST BSFERMEE = 1, ERREUR = 2, TESTENCOURS = 4, BON = 8
CONST OUVERTE = 0
AUTORUN = 0
' mise en mode Remote de l'appareil
A$ = "SYSTem:REMote": GOSUB envoi
'-----------------------------------------------------------------------------
PRINT ""
PRINT " - Utiliser la touche F1:IDENT pour identifier l'appareil "
PRINT " - Utiliser la touche F2:MESURE pour effectuer des cycles de mesures"
PRINT " - Utiliser la touche F7:CODES pour envoyer des codes un par un "
KEY 1, "IDENT"
KEY 2, "MESURE"
KEY 3, ""
KEY 4, ""
KEY 5, ""
KEY 6, ""
KEY 7, "CODES"
KEY 8, "FIN"
MGR10 A/B/C Indice : J (version 7.0 du logiciel) 93