Anaheim CLCI2000

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