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

GeoB
ASIC
Reference Manual 3. TPS 1100 system and GeoBasic
3-4 TPS1100-Version 1.30
PROGRAM TestExample 'program to test the examples
'
' GeoBASIC test frame
' -------------------
'
The example shows a small program frame for the
' beginning of a project.
' (c) Leica AG, CH - Heerbrugg 1999
'-----------------------------------------------------
GLOBAL SUB Install
'
-------
' Description
'
Install it in the program menu.
'
MMI_CreateMenuItem ( "TestExample", "Main",
MMI_MENU_PROGRAMS, "EXAMPLE" )
END Install
'-----------------------------------------------------
SUB Test
'
----
'==============================================
'
INSERT YOUR SAMPLE CODE HERE
'==============================================
END Test
'-----------------------------------------------------
GLOBAL SUB Main
'
----
' Description
'
Small program frame with an empty text dialog.
'
CONST iLines
AS Integer = 5 'display: 5 lines
'
can be used
DIM iButton AS Integer 'for the button pressed
MMI_CreateTextDialog( iLines, "BASIC",
"EXAMPLE", " No Help ")
Test() 'call the test routine
MMI_GetButton( iButton, TRUE ) 'wait for a key press
MMI_DeleteTextDialog()
END Main
END TestExample