
GeoBASIC User Manual
9 — Refined GeoBASIC Concepts
9-4 TPS1100-Version
2.10
9.2.2
Creating the User Measurement Dialog
After the definition of the content GSI_CreateMDlg analogous to the creation of a
text dialog creates the user measurement dialog. For adding buttons to the dialog
use
MMI_AddButton
.
9.2.3
Executing the User Measurement Dialog
In the following example a measurement dialog is created with the horizontal angle
on line 2 and the buttons “DIST” on F2-key and “QUIT” on SHIFT-F6-key. All
other lines are predefined by the system. After the creation of the dialog the
measured values will be updated in a loop:
'Change line 2
GSI_SetLineMDlg(2, GSI_PAR_AngleHz)
GSI_CreateMDlg (2, "MEAS", "Measurement Test",
"Measurement Help...")
'Addition of buttons
MMI_AddButton(MMI_F2_KEY, "DIST")
MMI_AddButton(MMI_SHF6_KEY, "QUIT")
lDone = FALSE
DO WHILE NOT lDone
GSI_UpdateMeasurement(TMC_AUTO_INC, WAITTIME,
lRecValid, iCode, FALSE)
GSI_UpdateMDlg(iButton)
SELECT CASE iButton
CASE MMI_F2_KEY
'DIST Button --> meas a distance and angles
BAP_MeasDistAngle(iDistMode, dHz, dV, dDist, TRUE,
MEAS)
CASE '..
'handle other keys
CASE MMI_ESC_KEY, MMI_SHF6_KEY
'done --> exit this routine
lDone = TRUE
END SELECT
LOOP 'end measurement loop
'delete measurement dialog
MMI_DeleteDialog()
The routine
GSI_UpdateMeasurement
updates the measurement values in the
theodolite data pool.
GSI_UpdateMDlg
updates the user measurement dialog
with the new values and returns the pressed button. For further explanations read
the description of these system routines in the reference manual.
Содержание 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 ...