For the vb user, A826.bas (for win 95/98), 2 for the vb user – Omega Engineering OME-A826PG User Manual
Page 17: 1 a826.bas (for win 95/98)
OME-A-826PG Software Manual [Win 95/98/NT]
2.2 For The VB user
2.2.1
A826.BAS (for Win 95/98)
Attribute VB_Name = "A826"
'*********************************************************************************
' The Declare of A826.DLL for A826 DAQ Card
'*********************************************************************************
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'***************** DEFINE A826 RELATIVE ADDRESS *****************
Global Const TIMER0
= &H0
Global Const Timer1
= &H1
Global Const TIMER2
= &H2
Global Const TIMER_MODE
= &H3
Global Const AD_LO
= &H4
'* Analog to Digital, Low Byte *
Global Const AD_HI
= &H5 '* Analog to Digital, High Byte *
Global Const DA_CH0_LO
= &H4
'* Digit to Analog, CH 0 *
Global Const DA_CH0_HI
= &H5
Global Const DA_CH1_LO
= &H6
'* Digit to Analog, CH 1 *
Global Const DA_CH1_HI
= &H7
Global Const DI_LO
= &H6
'* Digit Input *
Global Const DO_LO
= &HD
'* Digit Output *
Global Const CLEAR_IRQ
= &H8
Global Const SET_GAIN
= &H9
Global Const SET_CH
= &HA
Global Const SET_MODE
= &HB
Global Const SOFT_TRIG
= &HC
Global Const POLLING_MODE = 1
Global Const DMA_MODE
= 2
Global Const INTERRUPT_MODE = 6
'*** define the gain mode ***
Global Const A826_BI_1
= 0
Global Const A826_BI_10
= 1
Global Const A826_BI_100
= 2
Global Const A826_BI_1000
= 3
Global Const A826_UNI_1
= 4
Global Const A826_UNI_10
= 5
Global Const A826_UNI_100 = 6
Global Const A826_UNI_1000 = 7
Global Const A826_BI_05
= 8
Global Const A826_BI_5
= 9
Global Const A826_BI_50
= 10
Global Const A826_BI_500
= 11
Date: Aug-15-2000 Ver: 2.2 Page 15