■ 戻 る   ■ i2net HOME   ■ HTBASIC HOME

タイトルイメージ

ines/ELAN D403/D480サンプルプログラム
(11/11)



3. プログラム

10 ! Example program for ines/ELAN DAQ D403/D480
20 ! DIO MultiPort Output test program
30 ! Hdio: PORT A 128
40 ! PORT B 256
50 ! PORT C 512
60 ! PORT D 1024
70 ! PORT E 2048
80 ! PORT F 4096
90 !-----------------------------------------------------------
100 GINIT
110 CLEAR SCREEN
120 IF INMEM("Daqhtb_ioctl") THEN GOTO Skip_loadsub
130 LOADSUB ALL FROM "c:\inesdio\htbasic\daqhtb.csb"
140 Skip_loadsub:!
150 OPTION BASE 1
160 INTEGER D_a(2),D_b(2) ! Data arrays
170 INTEGER Dummy,P ! dummy variable for initialization
180 INTEGER Hdio,Cdio ! Device handle for DIO, Numbers of the samples read
190 INTEGER Hdio_a,Hdio_b
200 DIM A$[16] ! string of 16 characters
210 PRINT "D403/D403 DIO CALL Daqhtb_writei(1,Hdio,D(*)) Multi-Port Test"
220 PRINT "--------------------------------------------------"
230 Cdio=2
240 !---------- initialization ------------------------------------------------------
250 CALL Daqhtb_ioctl(Dummy,"( fctn init) ")
260 !---------- open device ------------------------------------------------------
270 CALL Daqhtb_open(Hdio_a,"i403 DIO A",1)
280 CALL Daqhtb_open(Hdio_b,"i403 DIO B",1)
290 PRINT Hdio_a,Hdio_b
300 !---------- configure DIO device and start writing ---------------------------------------
310 CALL Daqhtb_ioctl(Hdio_a,"( iod ( dir 255 ) ) ") !
320 CALL Daqhtb_ioctl(Hdio_b,"( iod ( dir 255 ) ) ") !
330 Repeat:!
340 FOR P=0 TO 255
350 A$=IVAL$(P,2) ! binary expression of P
360 PRINT P,A$[9] ! sub stgring expression of 8 characters
370 D_a(1)=P
380 D_b(1)=P
390 CALL Daqhtb_writei(Cdio,Hdio_a,D_a(*))
400 CALL Daqhtb_writei(Cdio,Hdio_b,D_b(*))
410 WAIT .25
420 NEXT P
430 WAIT 3
440 !---------- Closing Status --------------------------------------
450 Fines:!
460 D_a(1)=0
470 CALL Daqhtb_writei(Cdio,Hdio_a,D_a(*)) ! end of display
480 D_b(1)=255
490 CALL Daqhtb_writei(Cdio,Hdio_b,D_b(*)) ! end of display
500 WAIT 1
510 D_b(1)=0
520 CALL Daqhtb_writei(Cdio,Hdio_b,D_b(*)) ! end of display
530 !----------- close device ---------------------------------------
540 CALL Daqhtb_close(Hdio_a)
550 CALL Daqhtb_close(Hdio_b)
560 PRINT
570 PRINT "-------------------------------------------------------------"
580 PRINT "D403/D403 DIO CALL Daqhtb_writei(1,Hdio,D(*)) Multi-Port Test "
590 PRINT "--------------------- Fines ---------------------------------"
600 DELSUB Daqhtb_ioctl TO END
610 END
620 !

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  11  BACK

アイネット株式会社
  〒103-0014 東京都中央区日本橋蛎殻町1-1-9-7階
  TEL:03-5623-2301(代表) FAX:03-5623-2305
  E-mailでのお問い合わせ
_/_/_/ Copyright 1998-2011 I2NET Co., Ltd. AllRights Reserved. _/_/_/