
GeoBASIC User Manual
10 — GeoBASIC Sample Programs
TPS1100-Version 2.10
10-7
IF lKeyPressed THEN
MMI_GetButton( iButton, FALSE )
SELECT CASE iButton
CASE MMI_F3_KEY, MMI_F1_KEY
GetAngleHz( dHz, lHzOk )
storeHz(iCurrNo) = dHz
dMean
= dMean + dHz
'if REC pressed record values
IF iButton = MMI_F3_KEY THEN
RecordValue(dHz, dMean/iCurrNo)
END IF
iCurrNo = i 1
END SELECT
ELSE
'update display
GetAngleHz( dHz, lHzOk )
MMI_PrintVal( 20, 2, 8, 3, dHz, lHzOk, MMI_DEFAULT_MODE )
END IF
LOOP
'**************************
'*
show results
*
'**************************
'if execution should procede
IF (iButton <> MMI_ESC_KEY) AND (iButton <> MMI_SHF6_KEY) THEN
'setup new buttons
MMI_DeleteButton( MMI_F1_KEY )
MMI_DeleteButton( MMI_F3_KEY )
MMI_AddButton( MMI_F3_KEY, "SHOW" )
MMI_AddButton( MMI_F4_KEY, "EXIT" )
MMI_AddButton( MMI_F5_KEY, "GOTOM" )
'compute mean value
dMean = dMean / iNoPoints
MMI_PrintStr( 0, 3, "Mean HZ
:", TRUE )
MMI_PrintVal( 20, 3, 8, 3, dMean, TRUE, MMI_DEFAULT_MODE )
DO WHILE (iButton <> MMI_ESC_KEY) AND (iButton <> MMI_SHF6_KEY)
AND (iButton <> MMI_F4_KEY)
MMI_GetButton( iButton, FALSE )
Содержание 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 ...