Function Call Protocol - Vba - Leica TPS1200 Series Reference Manual

GeoCOM Reference Manual
GRC_TYPE
TMC_HZ_V_ANG
double
RetCode = TMC_GetSimpleMea( 1000, Angles,
if (RetCode == GRC_OK)
{
// do something - use values
}
else
{
// handle error
}

2.5 FUNCTION CALL PROTOCOL - VBA

Here almost all is valid for VBA as for C/C++. Please refer to Chapter 2.4. The only difference between VBA and
C/C++ is that VBA has a different type system. Hence, the defined data types differ slightly in their definition.
Furthermore, because of implementation reasons the RPC names must have an additional prefix, which is "VB_" for the
current implementation of GeoCOM.
Example:
We take the same example as in Chapter 2.4.
Dim RetCode
Dim Angles
Dim dSlopeDist
RetCode = VB_TMC_GetSimpleMea( 1000, Angles,
If RetCode = GRC_OK Then
' do something - use values
Else
' handle error
End If
Leica TPS1200 / TS30 / TM30 – Version 1.50
RetCode;
Angles;
dSlopeDist;
dSlopeDist,
TMC_AUTO_INC );
As Integer
As TMC_HZ_V_ANG
As Double
dSlopeDist,
TMC_AUTO_INC )
General Concepts of Using GeoCOM
9