
GeoBASIC User Manual
10 — GeoBASIC Sample Programs
TPS1100-Version 2.10
10-3
10.1.2 Source code listing
See example file "
meanhz.gbs
"
PROGRAM Mean
'
' Sample application for building the mean value of angles
' --------------------------------------------------------
' Measures a user defined number of horizontal angles and calculate
' the mean angle. The measured and the mean angle can also be
' displayed graphically.
'
' GeoBASIC 1.0 for TPS1100 Series Instruments
' (c) Leica AG, CH - Heerbrugg 1998
'--------------------------------------------------------------------
' Global Declarations
CONST MaxNoHz
= 9
'Maximum number of angles that can be
'measured
CONST CaptionShort
= "MEAN"
'Short caption (displayed lefthand, in
'top line)
'Type to store the angles (for graphics)
TYPE DIM
TAngles (MaxNoHz) AS Angle
END
DIM fId
AS FileId
'File identification
'--------------------------------------------------------------------
-----
GLOBAL SUB Install
'
-------
' Description
'
Adds the program into the theodolite's PROG menu. The program's
'
(application's) name is 'Mean', the global routine to start is
'
'Main' and the program menu item will be named 'MEAN HZ'.
MMI_CreateMenuItem( "Mean", "Main", MMI_MENU_PROGMENU, "MEAN HZ")
END Install
SUB RecordValue (dHz As Angle, byVal dMean As Angle)
'
-----------
' Description
'
Writes the value to data link and file.
'
DIM sVal1
As String30
Содержание 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 ...