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)

Advertising
background image

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

Advertising