Eaton MGR10, Руководство по эксплуатации

Страница: 95 / 108

MGR10 A/B/C - Revision : I (for 7.0 software revision) 95
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"
ON KEY(1) GOSUB AUTO
ON KEY(2) GOSUB MESURE
ON KEY(3) GOSUB 110