Anaheim CLCI2000 Computer Accessories User Manual


 
21
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