MGR10 A/B/C - Revision : I (for 7.0 software revision) 95APPENDIX 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, 1CLSPRINT " TEST DE LA LIAISON RS232 POUR MGR10 - Version 2.02 du 11-04-2000"PRINT ""choix:PRINTPRINT "CHOIX DU PORT RS232 (1 ou 2)";INPUT port%REM port% = 1IF port% = 1 THEN GOTO vitrs1IF port% = 2 THEN GOTO vitrs3 ELSE GOTO choixvitrs1:PRINT " Port RS232 nø1 sélectionné": OPEN "COM1:9600,N,8,1,CS2000,DS2000,CD0" FOR RANDOM AS #1: port% = 1GOTO suitevitrs3:PRINT " Port RS232 nø2 sélectionné": OPEN "COM2:9600,N,8,1,CS2000,DS2000,CD0" FOR RANDOM AS #1: port% = 2suite:ON COM(port%) GOSUB INTERUPTIONRSCOM(port%) ON'fin de message détectéeom = 0'arret du processus en coursfin = 0'message recumsg$ = ""CONST BSFERMEE = 1, ERREUR = 2, TESTENCOURS = 4, BON = 8CONST OUVERTE = 0AUTORUN = 0' mise en mode Remote de l'appareilA$ = "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 AUTOON KEY(2) GOSUB MESUREON KEY(3) GOSUB 110