Parker Hannifin acr-motion max api users guide Manual Do Utilizador

AbsReadout (0).Caption = Format(((EncoderArray(0) * Val(Resolution0)) - WorkOffsetsArray(0)), "00.0000")

AbsReadout(1).Caption = Format(((EncoderArray(1) * Val(Resolution1)) - WorkOffsetsArray(1)), "00.0000")

AbsReadout(2).Caption = Format(((EncoderArray(2) * Val(Resolution2)) –

WorkOffsetsArray(2) - CurLength), "00.0000")

AbsReadout(3).Caption = Format(((EncoderArray(3) * Val(Resolution3)) - WorkOffsetsArray(3)), "000.000")

End sub

Public Declare Function AX_GetEncoderCounts Lib "MotionCore.DLL" _

(ByRef EncoderArray as Long) As Integer

Extract Distance to Go information from DLL in array

Returns 

(Integer) 1 on Success, 0 on Failure

Global DTGArray (0 To 8) As Long

VB Example:  Ret = AX_GetDistanceToGoCoordinates (DTGArray(0))

Public Declare Function AX_GetDistanceToGoCoordinates Lib _

  

"MotionCore.DLL" (ByRef lDTGArray As Long) As Integer

Extract Master velocity from DLL

Returns 

(Integer) 1 on Success, 0 on Failure

Global MasterVel (0 To 8) As Double

Ret = AX_GetAxisVelocity(mastervel(0))           'Get Master velocity

‘ Display Current Profile Feedrate

FeedsReadout (3). Caption = Format (mastervel (0), "0000.00")

Public Declare Function AX_GetAxisVelocity Lib _

"MotionCore.DLL" (ByRef DMasterVel as Double) As Integer

(Bit Functions)

Turns on any bit except the Inputs

Returns 

(Integer) 1 on Success, 0 on Failure

Global BitNum as Integer

Public Declare Function AX_BitOn Lib _

"MotionCore.DLL" (ByVal BitNum as Integer) As Integer