stubs32p.bas

全站仪学习测量与自动测量程序,测量数据excel导出.

' Enumerated type TMC_FACE

Global Const TMC_FACE_1 = 0
Global Const TMC_FACE_2 = 1

' Enumerated type TMC_INCLINE_PRG

Global Const TMC_MEA_INC = 0
Global Const TMC_AUTO_INC = 1
Global Const TMC_PLANE_INC = 2

' Enumerated type TMC_MEASURE_PRG

Global Const TMC_STOP = 0
Global Const TMC_DEF_DIST = 1
Global Const TMC_TRK_DIST = 2
Global Const TMC_CLEAR = 3
Global Const TMC_SIGNAL = 4
Global Const TMC_RTRK_DIST = 8

' Enumerated type MOT_MODE

Global Const MOT_POSIT = 0
Global Const MOT_OCONST = 1
Global Const MOT_MANUPOS = 2
Global Const MOT_LOCK = 3
Global Const MOT_BREAK = 4
Global Const MOT_TERM = 7

' Enumerated type MOT_LOCK_STATUS

Global Const MOT_LOCKED_OUT = 0
Global Const MOT_LOCKED_IN = 1
Global Const MOT_PREDICTION = 2

' Enumerated type MOT_STOPMODE

Global Const MOT_NORMAL = 0
Global Const MOT_SHUTDOWN = 1

' Enumerated type AUT_POSMODE

Global Const AUT_NORMAL = 0
Global Const AUT_PRECISE = 1

' Enumerated type AUT_ATRMODE

Global Const AUT_POSITION = 0
Global Const AUT_TARGET = 1

' Enumerated type AUT_ADJMODE

Global Const AUT_NORM_MODE = 0
Global Const AUT_POINT_MODE = 1

' Enumerated type SUP_AUTO_POWER

Global Const AUTO_POWER_DISABLED = 0
Global Const AUTO_POWER_SLEEP = 1
Global Const AUTO_POWER_OFF = 2

' Enumerated type BAP_MEASURE_PRG

Global Const BAP_NO_MEAS = 0
Global Const BAP_NO_DIST = 1
Global Const BAP_DEF_DIST = 2
Global Const BAP_TRK_DIST = 3
Global Const BAP_RTRK_DIST = 4
Global Const BAP_CLEAR_DIST = 5
Global Const BAP_STOP_TRK = 6

' Structure definitions

Type TPS_DEVICE
    eClass As Long                                ' TPS_DEVICE_CLASS
    Type As Long                                  ' TPS_DEVICE_TYPE
End Type

Type DATE_TYPE
    Year As Integer
    Month As Byte
    Day As Byte
End Type

Type TIME_TYPE
    Hour As Byte
    Minute As Byte
    Second As Byte
    cPadding As Byte
End Type

Type DATIME
    Date As DATE_TYPE
    Time As TIME_TYPE
End Type

Type TMC_INCLINE
    dCrossIncline As Double
    dLengthIncline As Double
    dAccuracyIncline As Double
    InclineTime As Long
End Type

Type TMC_ANGLE
    dHz As Double
    dV As Double
    dAngleAccuracy As Double
    AngleTime As Long
    Incline As TMC_INCLINE
    eFace As Long                                 ' TMC_FACE
End Type

Type TMC_HZ_V_ANG
    dHz As Double
    dV As Double
End Type

Type TMC_COORDINATE
    dE As Double
    dN As Double
    dH As Double
    CoordTime As Long
    dE_Cont As Double
    dN_Cont As Double
    dH_Cont As Double
    CoordContTime As Long
End Type

Type TMC_EDM_SIGNAL
    dSignalIntensity As Double
    Time As Long
End Type

Type TMC_ANG_SWITCH
    eInclineCorr As Long                          ' ON_OFF_TYPE
    eStandAxisCorr As Long                        ' ON_OFF_TYPE
    eCollimationCorr As Long                      ' ON_OFF_TYPE
    eTiltAxisCorr As Long                         ' ON_OFF_TYPE
End Type

Type TMC_ATMOS_TEMPERATURE
    dLambda As Double
    dPressure As Double
    dDryTemperature As Double
    dWetTemperature As Double
End Type

Type TMC_REFRACTION
    eRefOn As Long                                ' ON_OFF_TYPE
    dEarthRadius As Double
    dRefractiveScale As Double
End Type

Type TMC_HEIGHT
    dHr As Double
End Type

Type TMC_STATION
    dE0 As Double
    dN0 As Double
    dH0 As Double
    dHi As Double
End Type

Type MOT_CONTROLPAR
    adPAngle(0 To 1) As Double
    adIAngle(0 To 1) As Double
    adPOmega(0 To 1) As Double
    adIOmega(0 To 1) As Double
    dAngleTime As Double
    dOmegaTime As Double
End Type

Type MOT_MOTIONPAR
    adSpeedLimit(0 To 1) As Double
    adAccel(0 To 1) As Double
End Type

Type MOT_MAXPAR
    adMaxSpeed(0 To 1) As Double
    adMaxAccel(0 To 1) As Double
End Type

Type MOT_POSTOL
    adPosTol(0 To 1) As Double
End Type

Type MOT_KNOBPAR
    alGainLevel3(0 To 1) As Long
    anGainLevel2(0 To 1) As Integer
    anGainLevel1(0 To 1) As Integer
    anStep2(0 To 1) As Integer
    anStep1(0 To 1) As Integer
    anKickDown(0 To 1) As Integer
End Type

Type MOT_COM_PAIR
    adValue(0 To 1) As Double
End Type

Type AUT_POSTOL
    adPosTol(0 To 1) As Double
End Type

Type AUT_TIMEOUT
    adPosTimeout(0 To 1) As Double
End Type

Type BMM_ICON_DESC
    unCol As Integer
    unRow As Integer
    unWidth As Integer
    unHeight As Integer
    ucSymbol As Byte
End Type

' Typedef'd arrays

' Geocom Visual Basic API

' Enumerated type COM_PORT

Global Const COM_1 = 0
Global Const COM_2 = 1
Global Const COM_3 = 2
Global Const COM_4 = 3

' Enumerated type COM_FORMAT

Global Const COM_ASCII  = 0
Global Const COM_BINARY = 1

' Enumerated type COM_BAUD_RATE

Global Const COM_BAUD_38400 = 0
Global Const COM_BAUD_19200 = 1
Global Const COM_BAUD_9600  = 2
Global Const COM_BAUD_4800  = 3
Global Const COM_BAUD_2400  = 4

' Enumerated type COM_TPS_STATUS

Global Const COM_TPS_OFF = 0
Global Const COM_TPS_SLEEPING = 1
Global Const COM_TPS_READY  = 2
Global Const COM_TPS_UNKNOWN  = 3

' Geocom public local functions

Declare Function VB_COM_Init Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_COM_End Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_COM_OpenConnection Lib "GEOCOM32.DLL" (ByVal Port As Long, ByVal Baud As Long, ByVal Retries As Integer) As Integer
Declare Function VB_COM_CloseConnection Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_COM_GetBaudRate Lib "GEOCOM32.DLL" (eRate As Long) As Integer
Declare Function VB_COM_SetBaudRate Lib "GEOCOM32.DLL" (ByVal eRate As Long) As Integer
Declare Function VB_COM_GetDoublePrecision Lib "GEOCOM32.DLL" (nDigits As Integer) As Integer
Declare Function VB_COM_SetDoublePrecision Lib "GEOCOM32.DLL" (ByVal nDigits As Integer) As Integer
Declare Function VB_COM_GetComFormat Lib "GEOCOM32.DLL" (Format As Long) As Integer
Declare Function VB_COM_SetComFormat Lib "GEOCOM32.DLL" (ByVal Format As Long) As Integer
Declare Function VB_COM_GetTimeOut Lib "GEOCOM32.DLL" (Timeout As Integer) As Integer
Declare Function VB_COM_SetTimeOut Lib "GEOCOM32.DLL" (ByVal Timeout As Integer) As Integer
Declare Function VB_COM_GetTPSState Lib "GEOCOM32.DLL" (State As Long) As Integer
Declare Function VB_COM_UseWindow Lib "GEOCOM32.DLL" (ByVal hWnd As Integer) As Integer
Declare Function VB_COM_SetConnDlgFlag Lib "GEOCOM32.DLL" (ByVal bShow As Long) As Integer
Declare Function VB_COM_SetERODlgFlag Lib "GEOCOM32.DLL" (ByVal bShow As Long) As Integer
Declare Function VB_COM_RunERO Lib "GEOCOM32.DLL" (RetCode As Integer) As Integer
Declare Function VB_COM_Abort Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_COM_ViewError Lib "GEOCOM32.DLL" (ByVal RetCode As Integer, ByVal szMsgTitle As String) As Integer
Declare Function VB_COM_GetErrorText Lib "GEOCOM32.DLL" (ByVal RetCode As Integer, ByVal szErrorText As String) As Integer
Declare Function VB_COM_GetWinSWVersion Lib "GEOCOM32.DLL" (nRel As Integer, nVer As Integer, nSubVer As Integer) As Integer

' Remote functions

Declare Function VB_COM_NullProc Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_COM_Local Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_COM_SetSendDelay Lib "GEOCOM32.DLL" ( in1 As Integer ) As Integer
Declare Function VB_COM_GetSWVersion Lib "GEOCOM32.DLL" ( out1 As Integer, out2 As Integer, out3 As Integer ) As Integer
Declare Function VB_COM_SwitchOnTPS Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_COM_SwitchOffTPS Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_COM_GetBinaryAvailable Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_COM_SetBinaryAvailable Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_COM_EnableSignOff Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_EDM_Laserpointer Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_EDM_SetBumerang Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_EDM_On Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_EDM_SetTrkLightSwitch Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_EDM_SetTrkLightBrightness Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_EDM_GetTrkLightSwitch Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_EDM_GetTrkLightBrightness Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_EDM_GetBumerang Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_TMC_GetAngle1 Lib "GEOCOM32.DLL" ( out1 As TMC_ANGLE, in2 As Long ) As Integer
Declare Function VB_TMC_SetInclineSwitch Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_TMC_GetInclineSwitch Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_TMC_DoMeasure Lib "GEOCOM32.DLL" ( in1 As Long, in2 As Long ) As Integer
Declare Function VB_TMC_GetStation Lib "GEOCOM32.DLL" ( out1 As TMC_STATION ) As Integer
Declare Function VB_TMC_SetStation Lib "GEOCOM32.DLL" ( in1 As TMC_STATION ) As Integer
Declare Function VB_TMC_GetHeight Lib "GEOCOM32.DLL" ( out1 As TMC_HEIGHT ) As Integer
Declare Function VB_TMC_SetHeight Lib "GEOCOM32.DLL" ( in1 As TMC_HEIGHT ) As Integer
Declare Function VB_TMC_GetAngSwitch Lib "GEOCOM32.DLL" ( out1 As TMC_ANG_SWITCH ) As Integer
Declare Function VB_TMC_SetAngSwitch Lib "GEOCOM32.DLL" ( in1 As TMC_ANG_SWITCH ) As Integer
Declare Function VB_TMC_SetHandDist Lib "GEOCOM32.DLL" ( in1 As Double, in2 As Double, in3 As Long ) As Integer
Declare Function VB_TMC_SetEdmMode Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_TMC_GetEdmMode Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_TMC_GetSignal Lib "GEOCOM32.DLL" ( out1 As TMC_EDM_SIGNAL ) As Integer
Declare Function VB_TMC_GetPrismCorr Lib "GEOCOM32.DLL" ( out1 As Double ) As Integer
Declare Function VB_TMC_SetPrismCorr Lib "GEOCOM32.DLL" ( in1 As Double ) As Integer
Declare Function VB_TMC_GetFace Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_TMC_SetAtmCorr Lib "GEOCOM32.DLL" ( in1 As TMC_ATMOS_TEMPERATURE ) As Integer
Declare Function VB_TMC_GetAtmCorr Lib "GEOCOM32.DLL" ( out1 As TMC_ATMOS_TEMPERATURE ) As Integer
Declare Function VB_TMC_SetRefractiveCorr Lib "GEOCOM32.DLL" ( in1 As TMC_REFRACTION ) As Integer
Declare Function VB_TMC_GetRefractiveCorr Lib "GEOCOM32.DLL" ( out1 As TMC_REFRACTION ) As Integer
Declare Function VB_TMC_GetCoordinate1 Lib "GEOCOM32.DLL" ( in1 As Long, out2 As TMC_COORDINATE, in3 As Long ) As Integer
Declare Function VB_TMC_SetRefractiveMethod Lib "GEOCOM32.DLL" ( in1 As Integer ) As Integer
Declare Function VB_TMC_GetRefractiveMethod Lib "GEOCOM32.DLL" ( out1 As Integer ) As Integer
Declare Function VB_TMC_GetAngle5 Lib "GEOCOM32.DLL" ( out1 As TMC_HZ_V_ANG, in2 As Long ) As Integer
Declare Function VB_TMC_GetSimpleMea Lib "GEOCOM32.DLL" ( in1 As Long, out2 As TMC_HZ_V_ANG, out3 As Double, in4 As Long ) As Integer
Declare Function VB_TMC_SetOrientation Lib "GEOCOM32.DLL" ( in1 As Double ) As Integer
Declare Function VB_TMC_IfDataAzeCorrError Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_TMC_IfDataIncCorrError Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_TMC_GetSimpleCoord Lib "GEOCOM32.DLL" ( in1 As Long, out2 As Double, out3 As Double, out4 As Double, in5 As Long ) As Integer
Declare Function VB_TMC_QuickDist Lib "GEOCOM32.DLL" ( out1 As TMC_HZ_V_ANG, out2 As Double ) As Integer
Declare Function VB_CSV_GetInstrumentNo Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_CSV_GetInstrumentName Lib "GEOCOM32.DLL" ( ByVal out1 As String ) As Integer
Declare Function VB_CSV_SetUserInstrumentName Lib "GEOCOM32.DLL" ( ByVal in1 As String ) As Integer
Declare Function VB_CSV_GetUserInstrumentName Lib "GEOCOM32.DLL" ( ByVal out1 As String ) As Integer
Declare Function VB_CSV_SetDateTime Lib "GEOCOM32.DLL" ( in1 As DATIME ) As Integer
Declare Function VB_CSV_GetDateTime Lib "GEOCOM32.DLL" ( out1 As DATIME ) As Integer
Declare Function VB_CSV_GetVBat Lib "GEOCOM32.DLL" ( out1 As Double ) As Integer
Declare Function VB_CSV_GetVMem Lib "GEOCOM32.DLL" ( out1 As Double ) As Integer
Declare Function VB_CSV_GetIntTemp Lib "GEOCOM32.DLL" ( out1 As Double ) As Integer
Declare Function VB_CSV_GetSWVersion2 Lib "GEOCOM32.DLL" ( out1 As Integer, out2 As Integer, out3 As Integer ) As Integer
Declare Function VB_CSV_GetDeviceConfig Lib "GEOCOM32.DLL" ( out1 As TPS_DEVICE ) As Integer
Declare Function VB_MOT_StartController Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_MOT_StopController Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_MOT_SetVelocity Lib "GEOCOM32.DLL" ( in1 As MOT_COM_PAIR ) As Integer
Declare Function VB_MOT_ReadLockStatus Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_WIR_GetRecFormat Lib "GEOCOM32.DLL" ( out1 As Integer ) As Integer
Declare Function VB_WIR_SetRecFormat Lib "GEOCOM32.DLL" ( in1 As Integer ) As Integer
Declare Function VB_AUT_SetTol Lib "GEOCOM32.DLL" ( in1 As AUT_POSTOL ) As Integer
Declare Function VB_AUT_ReadTol Lib "GEOCOM32.DLL" ( out1 As AUT_POSTOL ) As Integer
Declare Function VB_AUT_SetTimeout Lib "GEOCOM32.DLL" ( in1 As AUT_TIMEOUT ) As Integer
Declare Function VB_AUT_ReadTimeout Lib "GEOCOM32.DLL" ( out1 As AUT_TIMEOUT ) As Integer
Declare Function VB_AUT_LockIn Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_AUT_SetATRStatus Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_AUT_GetATRStatus Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_AUT_SetLockStatus Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_AUT_GetLockStatus Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_AUT_MakePositioning4 Lib "GEOCOM32.DLL" ( in1 As Double, in2 As Double, in3 As Long, in4 As Long, in5 As Long ) As Integer
Declare Function VB_AUT_ChangeFace4 Lib "GEOCOM32.DLL" ( in1 As Long, in2 As Long, in3 As Long ) As Integer
Declare Function VB_AUT_Search2 Lib "GEOCOM32.DLL" ( in1 As Double, in2 As Double, in3 As Long ) As Integer
Declare Function VB_AUT_GetFineAdjustMode Lib "GEOCOM32.DLL" ( out1 As Long ) As Integer
Declare Function VB_AUT_SetFineAdjustMode Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_AUT_FineAdjust3 Lib "GEOCOM32.DLL" ( in1 As Double, in2 As Double, in3 As Long ) As Integer
Declare Function VB_BMM_BeepOn Lib "GEOCOM32.DLL" ( in1 As Integer, in2 As Integer ) As Integer
Declare Function VB_BMM_BeepOff Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_BMM_BeepNormal Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_BMM_BeepAlarm Lib "GEOCOM32.DLL" () As Integer
Declare Function VB_CTL_GetUpCounter Lib "GEOCOM32.DLL" ( out1 As Integer, out2 As Integer ) As Integer
Declare Function VB_SUP_GetConfig Lib "GEOCOM32.DLL" ( out1 As Long, out2 As Long, out3 As Long ) As Integer
Declare Function VB_SUP_SetConfig Lib "GEOCOM32.DLL" ( in1 As Long, in2 As Long, in3 As Long ) As Integer
Declare Function VB_SUP_SwitchLowTempControl Lib "GEOCOM32.DLL" ( in1 As Long ) As Integer
Declare Function VB_BAP_GetLastDisplayedError Lib "GEOCOM32.DLL" ( out1 As Integer, out2 As Integer ) As Integer
Declare Function VB_BAP_MeasDistanceAngle Lib "GEOCOM32.DLL" ( inout1 As Long, out2 As Double, out3 As Double, out4 As Double ) As Integer

#End If