Leica tps1100 Reference Manual page 23

GeoCOM Reference Manual
End Type
Obviously all enumeration values are encoded as global constants. The
VBA structure definition equals to the C structure definition. A valid
procedure call would be:
Dim WaitTime
Dim OnlyAngle
Dim SlopeDistance
WaitTime = 1000
VB_TMC_GetSimpleMea( WaitTime,
3.3.2 Basic GeoCOM Application Frame for VBA
Like in section 3.2.2 - Basic GeoCOM Application Frame for C/C++ - a VBA
GeoCOM application consists at least of the following parts:
- Initialise GeoCOM
- Open a connection to the server
- One or more GeoCOM RPC's
- Close the active connection to the server
- Finalise GeoCOM
A sample implementation of above points could be:
CONST RETRIES_1 = 1
DIM RetCode As Integer
DIM bOpenAndRunning as Integer
' initialize GeoCOM
bOpenAndRunning = False
RetCode = VB_COM_Init()
If (RetCode = RC_OK) Then
TPS1100 - Version 1.05
Fundamentals of Programming GeoCOM
As Long
As TMC_HZ_V_ANG
As Double
OnlyAngle,
SlopeDistance,
TMC_AUTO_INC)
3-10