WIN2000.BAS Program Listing

Below is the file listing for the WIN2000.BAS declaration file including all the Declarations needed to use the DLL with Visual Basic for Windows.

'*---------------------------------------------------------------

'* ANAHEIM AUTOMATION DLL LIBRARY SUPPORT

'* DATE: DECEMBER 22, 1993

' *	Function Declarations
' *	----------------------------------------------------------*/

Declare Function BUSY Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer

Declare Function GET_INPUT Lib "win2000.dll" (ByVal address%, ByVal input_number%) As Integer

Declare Function GET_LO_MID_HI Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal setting&) As Integer Declare Function GO_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer

Declare Function GO_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function HALT Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer

Declare Function HARD_INPUT_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function HARD_INPUT_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function HOME_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function HOME_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function HOME_INPUT Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function INDEX Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal setting&) As Integer Declare Function INITIALIZE Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer

Declare Function LIMIT_CONTROL Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal soft%, ByVal marker%, ByVal home%) As Integer

Declare Function MOTION Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal basespeed&, ByVal maxspeed&, ByVal rampvalue&) As Integer

Declare Function ONE_AT_MAX_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function ONE_AT_MAX_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function ORIGIN_INDEX_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function ORIGIN_INDEX_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function POSITION Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal setting&) As Integer Declare Function RAMP_TO_BASE_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function RAMP_TO_BASE_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function RAMP_TO_STOP_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function RAMP_TO_STOP_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function READ_ENCODER Lib "win2000.dll" (ByVal address%, ByVal axis%) As Long Declare Function READ_POSITION Lib "win2000.dll" (ByVal address%, ByVal axis%) As Long

Declare Function SET_ENCODER Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal setting&) As Integer Declare Function SET_OUTPUT_1 Lib "win2000.dll" (ByVal address%, ByVal out5%, ByVal out4%, ByVal out3%, ByVal out2%, ByVal out1%, ByVal a_home_dir%, ByVal b_home_dir%) As Integer

Declare Function SET_OUTPUT_2 Lib "win2000.dll" (ByVal address%, ByVal out10%, ByVal out9%, ByVal out8%, ByVal out7%, ByVal out6%, ByVal c_home_dir%, ByVal d_home_dir%) As Integer

Declare Function SET_POSITION Lib "win2000.dll" (ByVal address%, ByVal axis%, ByVal setting&) As Integer Declare Function SLEW_AT_BASE_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function SLEW_AT_BASE_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function SOFT_INPUT_CCW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer

Declare Function SOFT_INPUT_CW Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer Declare Function WAIT_FOR_STOP Lib "win2000.dll" (ByVal address%, ByVal axis%) As Integer