Prev: Convergence of random variables
Next: Another joke
From: MeM on 20 Apr 2010 21:51
al Data As Byte)
Declare
Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal
Data As Integer)
Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal
Data As Long)
Declare
Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As
Byte
Declare Function PortWordIn Lib "IO.DLL" (ByVal Port As Integer) As
Integer
Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer)
As Long
Declare
Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal
Bit As Byte)
Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal
Bit As Byte)
Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal
Bit As Byte)
Declare
Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer,
ByVal Bit As Byte)
As Boolean
Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As
Integer, ByVal Val As Boolean)
As Boolean
Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer,
ByVal Val As Boolean)
As Boolean
Declare Function IsDriverInstalled Lib "IO.DLL" ()
As Boolean

'Global Variables and Constants
Global Const NUM_IOV = 32

'Data Variables defining I/O
Global
DAQNAME$
Global NUM_AIP As Integer
Global NUM_AOP As Integer
Global NUM_DIP As Integer
Global NUM_DOP As Integer

Global gSpeed&

Global
DIPs(1 To 16) As Integer
Global
DOPs(1 To 16) As Integer
Global
AIPs(1 To NUM_IOV) As Single
Global
AOPs(1 To NUM_IOV) As Integer
Global gDOP As Integer
'Printer Variables
Global LPTNo%, LptPortAddr%
Global LPTData%, LPTStatus%, LPTControl%
Global D
ataReg%, StatusReg%, ControlReg%, iErr%
Global g
InputV%, gMeasureV%, gOffSetV%

Global gStepType
As Integer
Global gFullHalf
As Integer

Global Const TWO_PHASE_SEQ = 0
 | 
Pages: 1
Prev: Convergence of random variables
Next: Another joke