Sefelec M1501P Notice D'utilisation page 91

NOTICE TECHNIQUE D'UTILISATION M1501x
'traitement des interruptions RS232C
'
500
510 COM(1) OFF
520 val$ = ""
526 VALEUR$ = INPUT$(1, #5)
527 IF VALEUR$ = CHR$(19) THEN XOFFREC = 1: XONREC = 0: GOTO 590 'XOFF
528 IF VALEUR$ = CHR$(17) THEN XONREC = 1: XOFFREC = 0: GOTO 590 'XON
529 IF VALEUR$ = CHR$(10) THEN GOTO 531
530 val$ = val$ + VALEUR$: GOTO 526 ' PRINT VALEUR$; : GOTO 526
531 IF LEFT$(val$, 3) = "STB" THEN GOTO 540
532 IF LEFT$(val$, 3) = "VOL" THEN GOTO 550
533 IF LEFT$(val$, 3) = "OHM" THEN GOTO 550
534 IF LEFT$(val$, 3) = "STA" THEN GOTO 550
535 IF LEFT$(val$, 1) = "N" THEN GOTO 550
536 IF LEFT$(val$, 3) = "DGC" THEN GOTO 550
537 IF LEFT$(val$, 3) = "DGF" THEN GOTO 550
538 IF LEFT$(val$, 3) = "HR%" THEN GOTO 550
539 IF LEFT$(val$, 3) = "AMP" THEN GOTO 550 ELSE GOTO 590
540 stp% = VAL("&H" + MID$(val$, 4, 2)) ': PRINT "stp% = "; stp%,
541 IF (stp% AND 64) = 0 THEN GOTO 590
542 GOSUB 8400: 'decodage du status byte
543 PRINT "srq!!!!:"; stp%: GOTO 590
550 MESRET = 1 ': PRINT "MESRET="; MESRET
590 COM(1) ON: RETURN
'
' boucle de tempo: t3=valeur en secondes tempo
'
600 t = TIMER
610 WHILE t <> 0: t2 = TIMER: IF t2 - t >= t3 THEN t = 0
620 WEND
630 RETURN
'
' Remise en mode Local avec reset de l'appareil
'
700 CLS : KEY OFF: LOCATE 9, 30: PRINT "ATTENTE du Xon":
705 mes$ = "LOC": GOSUB 300: CLS : KEY ON
710 RETURN
'
' traitement de l'envoi de codes un par un
'
1000 CLS
1010 GOSUB 200: 'off des keys
1020 PRINT "Entrer le code ... envoyer en MAJUSCULES (return = sortie):";
1030 LINE INPUT cod$
1032 IF LEN(cod$) = 0 THEN 1060
1040 mes$ = cod$: GOSUB 300
1050 GOTO 1020
1060 CLS : GOSUB 120: RETURN
'
' cycles de mesures
'
7000 CLS
7010 GOSUB 7100
7020 GOTO 7020
'
7100 GOSUB 200: ' off des keys
7110 KEY 1, "MEGOHM"
7120 KEY 2, "PICO"
7122 KEY 3, "RESET"
7124 KEY 4, "MESDCH"
7126 KEY 5, "ACQUI"
7128 KEY 6, "MEMO"
7129 KEY 7, "VITESS"
7130 KEY 8, "RETOUR"
7131 KEY 9, "øC/HR "
7132 KEY 10, "STOP"
7140 ON KEY(1) GOSUB 7220
7142 ON KEY(2) GOSUB 7520
7152 ON KEY(3) GOSUB 700
7154 ON KEY(4) GOSUB 9000
7156 ON KEY(5) GOSUB 12000
7158 ON KEY(6) GOSUB 8500
7159 ON KEY(7) GOSUB 9700
7160 ON KEY(8) GOSUB 7200
7161 ON KEY(9) GOSUB 13200
7162 ON KEY(10) GOSUB 9300
7170 kmax = 9: GOSUB 250: KEY(10) ON: ' on des keys
7180 RETURN
'
' touche de retour
'
7200 IF endcy = 1 THEN PRINT "Demande ill‚gale ": RETURN
7205 CLS
7210 GOSUB 120: RETURN
'
' touche MEGOHM
'
7220 GOSUB 200: LOCATE 9, 30: PRINT "ATTENTE du Xon": mes$ = "MGO": GOSUB 300
7230 CLS : GOSUB 7250
7240 GOTO 7240
7250 GOSUB 200: 'off des keys
7260 KEY 1, "CYCLE"
7270 KEY 2, "ARRET"
7280 KEY 8, "RETOUR"
7290 ON KEY(1) GOSUB 7340
7300 ON KEY(2) GOSUB 7900
7310 ON KEY(8) GOSUB 7200
7320 kmax = 2: GOSUB 250: KEY(8) ON: ' on des keys
7330 RETURN
'
' cycle de mesure en megohm
'
Sefelec
91