
GeoBASIC User Manual
10 — GeoBASIC Sample Programs
10-6 TPS1100-Version
2.10
DIM lHzOk
AS Logical
'TRUE if measured hz is valid
DIM dHz
AS Angle
'measured hz
DIM storeHz
AS TAngles
'array of measured angles
DIM dMean
AS Angle
'calculated mean angle
DIM lKeyPressed
AS Logical
'TRUE if button pressed
DIM iButton
AS Integer
'id of pressed button
DIM Family
AS TPS_Fam_Type
'this data structure is used to
store
'information about the system
ON Error Resume Next
'ignore errors
'check which type of instrument is active and open file
CSV_GetInstrumentFamily( Family
)
IF ( Family.lSimulator ) THEN
Open( "C:\\results.txt", "Append", fId, 0 )
ELSE
Open( "A:\\results.txt", "Append", fId, 0 )
END IF
'set up dialog and input iNoPoints
MMI_CreateTextDialog ( 6, "MEAN", "HZ MEAN VALUE",
"Compute mean HZ for a number of
measurements." )
' *******************************
' *
read in iNoPoints
*
' *******************************
iNoPoints = 3
lNoOk
= TRUE
MMI_PrintStr( 0, 0, "No of points:", TRUE )
MMI_AddButton( MMI_F1_KEY, "CONT" )
MMI_AddButton( MMI_SHF6_KEY, "QUIT" )
MMI_InputInt( 26, 0, 2, 1, MaxNoHz, MMI_DEFAULT_MODE, iNoPoints,
lNoOk, iButton )
'setup rest of dialog
iCurrNo = 1
MMI_PrintStr( 0, 1, "Curr. point :", TRUE )
MMI_PrintVal( 26, 1, 2, 0, iCurrNo, TRUE, MMI_DEFAULT_MODE )
MMI_PrintStr( 0, 2, "HZ
:", TRUE )
MMI_AddButton( MMI_F3_KEY, "REC" )
'init mean value
dMean = 0.0
'get iNoPoints points (abort if ESC or QUIT is pressed)
DO WHILE (iCurrNo <= iNoPoints) AND (iButton <> MMI_ESC_KEY) AND
(iButton <> MMI_SHF6_KEY)
MMI_PrintVal( 26, 1, 2, 0, iCurrNo, lNoOk, MMI_DEFAULT_MODE )
MMI_CheckButton( lKeyPressed )
Содержание 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 ...