
GeoBASIC User Manual
9 — Refined GeoBASIC Concepts
9-10 TPS1100-Version
2.10
CSV_SysCallAvailable
, which returns if the system function can be
executed.
Example:
DIM lAvailable AS Logical
CSV_SysCallAvailable(CSV_SFNC_PositCompassDlg,
lAvailable)
IF lAvailable
CSV_SysCall(CSV_SFNC_PositCompassDlg)
END IF
If the system function
CSV_SFNC_PositCompassDlg
can be executed (RCS
mode is activ), then the dialog RCS orientation with a compass is displayed. For
further explanations read the function descriptions of
CSV_SysCall
and
CSV_SysCallAvailable
in the reference manual. In Appendix H of the
reference manual there is a list of all system functions.
9.6
SYSTEM EVENT GENERATION
Every configuration for a TPS1100 series theodolite is event driven. The user or
the system itself generates an event (e.g. the user has pressed the PROG key or the
initialisation sequence is finished) and the configuration functionality executes
then the linked action (menu, dialog, macro, application or system function).
A GeoBASIC program can generate all events, which can occur in the theodolite
system software, also. To generate a system event the same functions can be used
as for calling system functions. The routine
CSV_SysCall
is used for the
generation of system events. The routine
CSV_SysCallAvailable
returns
TRUE, if there is an action linked to the requested event and the action can be
executed.
Example:
DIM lItemDefined AS Logical
CSV_SysCallAvailable(CSV_EFNC_CompensatorSetting,
lItemDefined)
IF lItemDefined
CSV_SysCall(CSV_EFNC_CompensatorSetting)
END IF
If a configuration item is defined for the system event
CSV_EFNC_
CompensatorSetting
(compensator setting event; usually connected to a
compensator setting dialog)
CSV_EFNC_CompensatorSetting
is generated
and the appropriate system function, application, macro, dialog or menu is
Содержание 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 ...