A826.bas (for win nt), 2 a826.bas (for win nt) – Omega Engineering OME-A826PG User Manual

Page 20

Advertising
background image

OME-A-826PG Software Manual [Win 95/98/NT]

2.2.2

A826.BAS (for Win NT)


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


Global Const A826_BI_2

= 1

Global Const A826_BI_4

= 2

Global Const A826_BI_8

= 3

Global Const A826_UNI_2

= 5

Global Const A826_UNI_4

= 6

Global Const A826_UNI_8

= 7

Date: Aug-15-2000 Ver: 2.2 Page 18

Advertising