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

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