Leica tps1100, Руководство пользователя, Страница: 62 / 1154

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 )