
GeoBASIC User Manual
9 — Refined GeoBASIC Concepts
TPS1100-Version 2.10
9-9
9.4.1
Definition of a subroutine for Interapplication-Call
If a subroutine should be called by another application, it must be defined as a
global subroutine.
Example:
PROGRAM IAC2
GLOBAL SUB InterAppEntry
DIM iButton
AS INTEGER
MMI_WriteMsgStr("Welcome in IAC2","IAC2", MMI_MB_OK,
iButton)
END InterAppEntry
END IAC2
9.4.2
Call the global subroutine
Before calling the global subroutine, the GeoBASIC
programmer has to check
with
CSV_LibCallAvailable
if the subroutine is available. That usually
means if it is loaded or not. Is the subroutine available, he can invoke it with
CSV_LibCall
.
Example:
DIM lAvailable
AS LOGICAL
'Check if global subroutine is available
CSV_LibCallAvailable("IAC2","InterAppEntry", lAvailable)
IF lAvailable
'available, call global subroutine
CSV_LibCall("IAC2", "InterAppEntry", "BASIC")
END IF
See the example program IAC.GBS and IAC2.GBS for a typical usage of inter-
application-call. For further explanations read the description of
CSV_LibCall
and
CSV_LibCallAvailable
in the reference manual.
9.5
SYSTEM FUNCTION CALL
If a theodolite user creates his own configuration on the PC with the Customisation
Tool, he has a wide selection of predefined system functions which he can add to
menus, buttons, etc. After the loading of the configuration he calls the system
functions by selecting the appropriate menu item or button.
The GeoBASIC programmer has the same possibilities. With the routine
CSV_SysCall
he can call the system functions in his programs. Because some
system functions do not run on every theodolite type, there is a routine
Содержание 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 ...