2. プログラム
10 ! Example program for ines data acquisition cards
20 ! Uses CSUBS to perform actions
30 ! Writes to DIO port A. Data transfer of INTEGER data!
40 OPTION BASE 0
50 GINIT
60 CLEAR SCREEN
70 ! *** SET PATH ACCORDING TO YOUR INSTALLATION ***
80 IF INMEM("Daqhtb_ioctl") THEN GOTO Skip_loadsub
90 LOADSUB ALL FROM "c:\inesdio\htbasic\daqhtb.csb"
100 Skip_loadsub: !
110 INTEGER D(1)! Data arrays, sizes must be 2,4,6,8 and so on.
D(1) means size is 2!!!
120 INTEGER Daqerr! error variable for DAQ interface
130 DIM Daqerr$[128]! error string
140 DIM B$[32]
150 INTEGER Hdio,Cdio! Device handle for digital I/O port, samples
read
160 DATA "i403","i480"
170 ! Initialise card
180 CALL Daqhtb_init
190 ! Open devices
200 ! This function looks for a card present
210 RESTORE
220 FOR I=0 TO 1
230 READ B$
240 C$=B$&" DIO A"
250 PRINT "Open Card"
260 CALL Daqhtb_open(Hdio,C$,1)! Note that opening mode is 1 for
integer data transfer
270 IF Hdio>0 THEN GOTO 320
280 NEXT I
290 CALL Daqhtb_error(Daqerr)
300 PRINT "Error number occurred: ",Daqerr
310 STOP
320 REM Digital I/O port is accessible
330 PRINT "Found card type: ";B$
340 !Card found, now writing data
350 CALL Daqhtb_ioctl(Hdio,"( iod ( dir 255 ) ) ")
360 Cdio=2 ! Always 2
370 !Enter port output value here:
380 D(0)=0
390 CALL Daqhtb_writei(Cdio,Hdio,D(*))
400 ! Close devices
410 CALL Daqhtb_close(Hdio)
420 ! Show port data
430 PRINT "Digital I/O port status: ";D(0)! Values are
in the range 0..255, D(0) is OK
440 DELSUB Daqhtb_ioctl TO END
450 GOTO 460
460 END
470 SUB Daqhtb_error(INTEGER Err)
480 Daqerr$="( fctn geterr ) "
490 CALL Daqhtb_ioctl(Err,Daqerr$)
500 PRINT "DAQ error occurred: "&Daqerr$
510 SUBEND
520 SUB Daqhtb_init
530 INTEGER Dummy
540 CALL Daqhtb_ioctl(Dummy,"( fctn init) ")
550 SUBEND |
|
