MGR10 A/B/C - Revision : I (for 7.0 software revision) 101
272 KEY ON
280 RETURN
'
'envoi d'un message sur le bus IEEE488
' mes$ contient le code a envoyer
'
300
mes$ = mes$
CALL IBWRT(brd0%, mes$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt Error")
310 RETURN
'
'reception d'un message sur le bus IEEE488
' val$ contient le code recu
'
320
val1$ = SPACE$(100)
CALL IBRD(brd0%, val1$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibrd Error")
val$ = ""
FOR k = 1 TO 100
IF MID$(val1$, k, 1) = CHR$(10) THEN RETURN
val$ = val$ + (MID$(val1$, k, 1))
NEXT k
340 RETURN
'
'traitement des srq
'
500 CALL ibrsp(brd0%, stp%)
530 IF (stp% AND 64) = 0 THEN RETURN
534 GOSUB 9400: 'decodage du status byte
540 PRINT "srq!!!!:"; stp%
542 IF (stp% AND 32) = 0 THEN RETURN
544 mes$ = "*esr?": GOSUB 300: GOSUB 320: PRINT "Esr:"; val$
550 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
'
' touche de fin
'
700 BEEP: PRINT "The test is going to stop , please wait ....": fin = 0
702 'GOSUB 120
710 RETURN
'
' traitement de l'envoi de codes un par un
'
1000 CLS
1010 GOSUB 200: 'off des keys
1020 t3 = 1: GOSUB 600 'to wait for a possible error srq
1022 PRINT "Enter the code (return = escape):";
1030 LINE INPUT cod$
1032 IF LEN(cod$) = 0 THEN 1060
1040 mes$ = cod$: GOSUB 300
1042 IF RIGHT$(cod$, 1) <> "?" THEN GOTO 1020
1050 GOSUB 320: PRINT val$: GOTO 1020
1060 CLS : GOSUB 120: RETURN
'
' Cycles en mesure de r‚sistance
'
2000 CLS : PRINT "Measurement cycles(press on F8 to escape)"
2001 GOSUB 200: KEY 8, " END ": KEY(8) ON: KEY ON
2002 fin = 1: i = 1: start = 0: endtest = 0: resul = 1: erreur = 0: interlock = 0
2004 PRINT "Do you want to set the parameters (no=enter, yes=y)";
2006 INPUT rep$: IF LEN(rep$) = 0 THEN 2015
To Next Page
Loading...
Need help?
General
