Table des Matières
Publicité
Les langues disponibles
Les langues disponibles
'
' MGR10NI1: test program for MGR10 series with National Instrument boards
'
' Date : 29-03-00
'
88 SCREEN 0, 0, 0: COLOR 10, 1
89 CLS
'
' definition :ieee address , ....
'
90 a$ = "05"
91 num$ = ""
92 'ON ERROR GOTO 10000
'
' init of the unit
'
bdname$ = "DEV5"
CALL ibfind(bdname$, brd0%)
IF brd0% < 0 THEN CALL gpiberr("Ibfind Error")
CALL ibclr(brd0%)
'
'
init of the board for SRQ treatement
'
ON PEN GOSUB 500
PEN ON
'
' definition function keys
'
112 GOSUB 120
113 GOSUB 6000: ' title
114 fin = 1
115 IF fin = 0 THEN 199 ELSE GOTO 115
'
120 GOSUB 200: ' keys off
122 KEY 1, "IDN"
130 KEY 2, "TEST"
140 KEY 3, "LEARN"
144 KEY 4, "CODE"
146 KEY 5, ""
148 KEY 6, "RESIST"
154 KEY 8, " END
"
160 ON KEY(1) GOSUB 5000
170 ON KEY(2) GOSUB 5500
180 ON KEY(3) GOSUB 4000
182 ON KEY(4) GOSUB 1000
184 ON KEY(5) GOSUB 3000
186 ON KEY(6) GOSUB 2000
188 ON KEY(8) GOSUB 700
190 kmax = 6: GOSUB 250: KEY(8) ON: ' keys on
198 RETURN
199 END
'
' off key sub routine
'
200 FOR i = 1 TO 10
210 KEY i, ""
212 KEY(i) OFF
220 NEXT i
222 KEY OFF
230 RETURN
'
'sous programme de on key:kmax contient le numero de la derniere
' touche fonction validee contigue
250 FOR i = 1 TO kmax
260 KEY(i) ON
270 NEXT i
272 KEY ON
280 RETURN
'
author:DD
MGR10 A/B/C Indice : J (version 7.0 du logiciel)
98
Publicité
Table des Matières
