gtdeclarisa.bas

fbkldfmlb n/ovk,e vml bhdsrb mor brb n/sZPer b vk,epabho,l rnopazbhlrepofrt,epsho

Public Type TyMap
C(5) As Double
End Type

Public Type GENERAL_COMMAND
        cCommand As Integer
        InputLength As Integer
        OutputLength As Integer
        usResult As Integer
        InData As Long
        OutData As Long
End Type

Public Type BACKGROUND_COMMAND
        InterruptMask As Integer
        CommandCount As Integer
        GenCommand(1) As GENERAL_COMMAND
End Type

Public Type BACKGROUND_COMMANDSET
        nCount As Integer
        usReserve As Integer
        BackgroundCommand(1) As BACKGROUND_COMMAND
End Type

Public Declare Function GT_AbptStp Lib "gtdll.dll" () As Integer
Public Declare Function GT_AddList Lib "gtdll.dll" () As Integer
Public Declare Function GT_AlarmOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_AlarmOn Lib "gtdll.dll" () As Integer
Public Declare Function GT_ArcRErrLmt Lib "gtdll.dll" (ByVal errlmt As Double) As Integer
Public Declare Function GT_ArcXY Lib "gtdll.dll" (ByVal x_center As Double, ByVal y_center As Double, ByVal angle As Double) As Integer
Public Declare Function GT_ArcXYP Lib "gtdll.dll" (ByVal x_end As Double, ByVal y_end As Double, ByVal r As Double, ByVal direct As Integer) As Integer
Public Declare Function GT_ArcYZ Lib "gtdll.dll" (ByVal y_center As Double, ByVal z_center As Double, ByVal angle As Double) As Integer
Public Declare Function GT_ArcYZP Lib "gtdll.dll" (ByVal y_end As Double, ByVal z_end As Double, ByVal r As Double, ByVal direct As Integer) As Integer
Public Declare Function GT_ArcZX Lib "gtdll.dll" (ByVal z_center As Double, ByVal x_center As Double, ByVal angle As Double) As Integer
Public Declare Function GT_ArcZXP Lib "gtdll.dll" (ByVal z_end As Double, ByVal x_end As Double, ByVal r As Double, ByVal direct As Integer) As Integer
Public Declare Function GT_AuStpOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_AuStpOn Lib "gtdll.dll" () As Integer
Public Declare Function GT_AuUpdtOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_AuUpdtOn Lib "gtdll.dll" () As Integer
Public Declare Function GT_Axis Lib "gtdll.dll" (ByVal num As Integer) As Integer
Public Declare Function GT_AxisI Lib "gtdll.dll" () As Integer
Public Declare Function GT_AxisOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_AxisOn Lib "gtdll.dll" () As Integer
Public Declare Function GT_BrkOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_CaptHome Lib "gtdll.dll" () As Integer
Public Declare Function GT_CaptHomInx Lib "gtdll.dll" () As Integer
Public Declare Function GT_CaptIndex Lib "gtdll.dll" () As Integer
Public Declare Function GT_CaptProb Lib "gtdll.dll" () As Integer
Public Declare Function GT_Close Lib "gtdll.dll" () As Integer
Public Declare Function GT_CloseLp Lib "gtdll.dll" () As Integer
Public Declare Function GT_ClrEncPos Lib "gtdll.dll" (ByVal pos As Integer) As Integer
Public Declare Function GT_ClrIntrEvent Lib "gtdll.dll" (ByVal IntrEvent As Integer) As Integer
Public Declare Function GT_ClrSts Lib "gtdll.dll" () As Integer
Public Declare Function GT_CrdAuStpOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_CrdAuStpOn Lib "gtdll.dll" () As Integer
Public Declare Function GT_DrvRst Lib "gtdll.dll" () As Integer
Public Declare Function GT_DutyRatio Lib "gtdll.dll" (ByVal X As Long)
Public Declare Function GT_EncPos Lib "gtdll.dll" (ByVal no As Integer, lpos As Long) As Integer
Public Declare Function GT_EncSns Lib "gtdll.dll" (ByVal sense As Integer) As Integer
Public Declare Function GT_EncVel Lib "gtdll.dll" (ByVal no As Integer, dVel As Double) As Integer
Public Declare Function GT_EndList Lib "gtdll.dll" () As Integer
Public Declare Function GT_EStpMtn Lib "gtdll.dll" () As Integer
Public Declare Function GT_EvntIntr Lib "gtdll.dll" () As Integer
Public Declare Function GT_ExInpt Lib "gtdll.dll" (ExIn As Long) As Integer
Public Declare Function GT_ExOpt Lib "gtdll.dll" (ByVal vExOp As Long) As Integer
Public Declare Function GT_ExtBrk Lib "gtdll.dll" () As Integer
Public Declare Function GT_GetAcc Lib "gtdll.dll" (Acc As Double) As Integer
Public Declare Function GT_GetAccLmt Lib "gtdll.dll" (AccLmt As Double) As Integer
Public Declare Function GT_GetAdc Lib "gtdll.dll" (ByVal no As Integer, X As Integer) As Integer
Public Declare Function GT_GetAtlErr Lib "gtdll.dll" (Aerr As Integer) As Integer
Public Declare Function GT_GetAtlPos Lib "gtdll.dll" (AtlPos As Long) As Integer
Public Declare Function GT_GetAtlVel Lib "gtdll.dll" (AtlVel As Double) As Integer
Public Declare Function GT_GetBrkCn Lib "gtdll.dll" (BrkCn As Long) As Integer
Public Declare Function GT_GetBrkPnt Lib "gtdll.dll" (pnt As Double) As Integer
Public Declare Function GT_GetCapt Lib "gtdll.dll" (Capt As Long) As Integer
Public Declare Function GT_GetCmdSts Lib "gtdll.dll" (Csts As Integer) As Integer
Public Declare Function GT_GetCrdSts Lib "gtdll.dll" (Crdsts As Integer) As Integer
Public Declare Function GT_GetEncCapt Lib "gtdll.dll" (EncPos As Long) As Integer
Public Declare Function GT_GetEncSts Lib "gtdll.dll" (EncSts As Integer) As Integer
Public Declare Function GT_GetHBCmd Lib "gtdll.dll" (hbCmd As Integer) As Integer
Public Declare Function GT_GetIntr Lib "gtdll.dll" (Intr As Integer) As Integer
Public Declare Function GT_GetIntrMsk Lib "gtdll.dll" (IMsk As Integer) As Integer
Public Declare Function GT_GetIntrTm Lib "gtdll.dll" (ITm As Integer) As Integer
Public Declare Function GT_GetJerk Lib "gtdll.dll" (GJK As Double) As Integer
Public Declare Function GT_GetLmtSwt Lib "gtdll.dll" (LmtSwt As Integer) As Integer
Public Declare Function GT_GetMAcc Lib "gtdll.dll" (macc As Double) As Integer
Public Declare Function GT_GetMode Lib "gtdll.dll" (gmode As Integer) As Integer
Public Declare Function GT_GetMtnNm Lib "gtdll.dll" (MtnNm As Integer) As Integer
Public Declare Function GT_GetMtrBias Lib "gtdll.dll" (Bias As Integer) As Integer
Public Declare Function GT_GetMtrLmt Lib "gtdll.dll" (MtrLmt As Integer) As Integer
Public Declare Function GT_GetPos Lib "gtdll.dll" (pos As Long) As Integer
Public Declare Function GT_GetPosErr Lib "gtdll.dll" (Perr As Integer) As Integer
Public Declare Function GT_GetRatio Lib "gtdll.dll" (Ratio As Double) As Integer
Public Declare Function GT_GetSmplTm Lib "gtdll.dll" (macc As Double) As Integer
Public Declare Function GT_GetSts Lib "gtdll.dll" (Sts As Integer) As Integer
Public Declare Function GT_GetVel Lib "gtdll.dll" (vel As Double) As Integer
Public Declare Function GT_HardRst Lib "gtdll.dll" () As Integer
Public Declare Function GT_HomeSns Lib "gtdll.dll" (ByVal sense As Integer) As Integer
Public Declare Function GT_LmtSns Lib "gtdll.dll" (ByVal sense As Integer) As Integer
Public Declare Function GT_LmtsOff Lib "gtdll.dll" () As Integer
Public Declare Function GT_LmtsOn Lib "gtdll.dll" () As Integer
Public Declare Function GT_LnXY Lib "gtdll.dll" (ByVal X As Double, ByVal y As Double) As Integer
Public Declare Function GT_LnXYZ Lib "gtdll.dll" (ByVal X As Double, ByVal y As Double, ByVal z As Double) As Integer
Public Declare Function GT_LnXYZA Lib "gtdll.dll" (ByVal X As Double, ByVal y As Double, ByVal z As Double, ByVal A As Double) As Integer
Public Declare Function GT_MapAxis Lib "gtdll.dll" (ByVal num As Integer, map As TyMap) As Integer
Public Declare Function GT_MltiUpdt Lib "gtdll.dll" (ByVal num As Integer) As Integer
Public Declare Function GT_MtnBrk Lib "gtdll.dll" () As Integer
Public Declare Function GT_MvXY Lib "gtdll.dll" (ByVal X As Double, ByVal y As Double, ByVal vel As Double, ByVal accel As Double) As Integer
Public Declare Function GT_MvXYZ Lib "gtdll.dll" (ByVal X As Double, ByVal y As Double, ByVal z As Double, ByVal vel As Double, ByVal accel As Double) As Integer
Public Declare Function GT_MvXYZA Lib "gtdll.dll" (ByVal X As Double, ByVal y As Double, ByVal z As Double, ByVal A As Double, ByVal vel As Double, ByVal accel As Double) As Integer
Public Declare Function GT_NegBrk Lib "gtdll.dll" () As Integer
Public Declare Function GT_Open Lib "gtdll.dll" (Optional ByVal PortBase As Long = 65535, Optional ByVal irq As Long = 65535) As Integer
Public Declare Function GT_Override Lib "gtdll.dll" (ByVal X As Double) As Integer
Public Declare Function GT_PosBrk Lib "gtdll.dll" () As Integer
Public Declare Function GT_PrflG Lib "gtdll.dll" (ByVal num As Integer) As Integer
Public Declare Function GT_PrflS Lib "gtdll.dll" () As Integer
Public Declare Function GT_PrflT Lib "gtdll.dll" () As Integer
Public Declare Function GT_PrflV Lib "gtdll.dll" () As Integer
Public Declare Function GT_Reset Lib "gtdll.dll" () As Integer
Public Declare Function GT_RstIntr Lib "gtdll.dll" (ByVal RstIntr As Integer) As Integer
Public Declare Function GT_RstSts Lib "gtdll.dll" (ByVal Sts As Integer) As Integer
Public Declare Function GT_SetAcc Lib "gtdll.dll" (ByVal Acc As Double) As Integer
Public Declare Function GT_SetAccLmt Lib "gtdll.dll" (ByVal AccLmt As Double) As Integer
Public Declare Function GT_SetAdcChn Lib "gtdll.dll" (ByVal nChn As Integer) As Integer
Public Declare Function GT_SetAtlPos Lib "gtdll.dll" (ByVal AtlPos As Long) As Integer
Public Declare Function GT_SetBrkCn Lib "gtdll.dll" (ByVal BrkCn As Long) As Integer
Public Declare Function GT_SetEncCapt Lib "gtdll.dll" () As Integer
Public Declare Function GT_SetHBFrq Lib "gtdll.dll" (ByVal nhbfrq As Integer) As Integer
Public Declare Function GT_SetIntrMsk Lib "gtdll.dll" (ByVal IntrMsk As Integer) As Integer
Public Declare Function GT_SetIntrTm Lib "gtdll.dll" (ByVal IntrTm As Integer) As Integer
Public Declare Function GT_SetJerk Lib "gtdll.dll" (ByVal Jerk As Double) As Integer
Public Declare Function GT_SetMAcc Lib "gtdll.dll" (ByVal macc As Double) As Integer
Public Declare Function GT_SetPos Lib "gtdll.dll" (ByVal pos As Long) As Integer
Public Declare Function GT_SetRatio Lib "gtdll.dll" (ByVal Ratio As Double) As Integer
Public Declare Function GT_SetSmplTm Lib "gtdll.dll" (ByVal SmplTm As Double) As Integer
Public Declare Function GT_SetSynAcc Lib "gtdll.dll" (ByVal accel As Double) As Integer
Public Declare Function GT_SetSynVel Lib "gtdll.dll" (ByVal vel As Double) As Integer
Public Declare Function GT_SetVel Lib "gtdll.dll" (ByVal vel As Double) As Integer
Public Declare Function GT_SetVelMul Lib "gtdll.dll" (ByVal n As Double) As Integer
Public Declare Function GT_SmthStp Lib "gtdll.dll" () As Integer
Public Declare Function GT_StepDir Lib "gtdll.dll" () As Integer
Public Declare Function GT_StepPulse Lib "gtdll.dll" () As Integer
Public Declare Function GT_StpMtn Lib "gtdll.dll" () As Integer
Public Declare Function GT_StrtList Lib "gtdll.dll" () As Integer
Public Declare Function GT_StrtMtn Lib "gtdll.dll" () As Integer
Public Declare Function GT_SynchPos Lib "gtdll.dll" () As Integer
Public Declare Function GT_TmrIntr Lib "gtdll.dll" () As Integer
Public Declare Function GT_Update Lib "gtdll.dll" () As Integer
Public Declare Function GT_ZeroPos Lib "gtdll.dll" () As Integer
Public Declare Function GT_SetBgCommandSet Lib "gtdll.dll" (BgCmdset As BACKGROUND_COMMANDSET, ByVal CmdsetSize As Long) As Integer
Public Declare Function GT_GetBgCommandResult Lib "gtdll.dll" (BgCmdset As BACKGROUND_COMMANDSET, ByVal CmdsetSize As Long) As Integer
Public Declare Function GT_SetIntSyncEvent Lib "gtdll.dll" (ByVal hEvent As Long) As Integer