
GeoBASIC User Manual
9 — Refined GeoBASIC Concepts
9-2 TPS1100-Version
2.10
Example
DIM dHz1
AS Angle
'first horizontal angle
DIM dHz2
AS Angle
'second horizontal angle
DIM lValidHz2 AS Logical
'indicator if second
'
angle is valid
DIM dDiffHz
AS Angle
'the difference of the
'
angles
'assume dHz1 is initialized here to an angle
'in radians
GetAngleHz( dHz2, lValidHz2 )
dDiffHz = dHz1 - dHz2
GM_AdjustAngleFromZeroToTwoPi( dDiffHz )
MMI_PrintVal( 20, 0, 8, 3, dDiffHz, lValidHz2,
MMI_DIM_ON )
The output is as follows:
•
If the
GetAngleHz
routine returned a valid angle, also the difference
dDiffHz
will be valid (this is why
lValidHz2
is used in the
MMI_PrintVal
function). In this case the angle will be formatted in an 8
character wide field with 3 decimals, afterwards the unit according the
theodolite system configuration will be displayed.
Assume that
gon
is set and the angle difference was 1.5473452 radians,
then at position 20 in line 0 the output will be
«
98,507 g»
.
•
If the angle returned from
GetAngleHz
was not valid, five dashes will be
displayed
«
----- g»
.
9.1.2
What the user/surveyor has to do
The user has to set up the units, in which he want to work, in the theodolite system
configuration. All outputs that use the theodolite system will automatically be
formatted according to this setting.
9.2
THE USER MEASUREMENT DIALOG
The User Measurement Dialog (sometimes referred as MDlg) standardises the
visualisation of the measurement values in GeoBASIC. Each value (i.e. vertical
angle, horizontal distance) has a predefined output format. Thus the GeoBASIC
Содержание tps1100
Страница 1: ...GeoBASIC FOR TPS1100 User Manual Version 2 10 1997 2001 Leica Geosystems AG Heerbrugg Switzerland ...
Страница 150: ...GeoBASIC FOR TPS1100 Reference Manual Version 2 10 1997 2001 Leica Geosystems AG Heerbrugg Switzerland ...
Страница 411: ...GeoBASIC Reference Manual 6 System Functions TPS1100 Version 1 30 6 7 6 5 35 CSV_LibCallAvailable 6 213 ...
Страница 620: ...TPS1100 Version 2 10 6 1 ...
Страница 621: ......
Страница 623: ...TPS1100 Version 2 10 6 1 ...
Страница 624: ......
Страница 1053: ...TPS1100 Version 1 30 E 1 Appendix E GEOFONT ...
Страница 1154: ...GeoBASIC Reference Manual Appendix J List of Predefined Identifiers TPS1100 Version 1 30 J 9 TMC_SetOffsetDist 6 128 ...