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

GeoBASIC Reference Manual 6. System Functions
TPS1100-Version 2.10 6-42
CONST MODE = MMI_DEFAULT_MODE 'define editmode
DIM iLen AS Integer
DIM iElements AS Integer
DIM List
AS ListArray
DIM iIndex AS Integer
DIM iButton AS Integer
DIM lValid AS Logical
'initialize the variables
iLen
= 10 'displayed length of the list
iElements = 7 'number of available fields
iIndex = 3 'number of the first shown list
element
lValid
= TRUE
List(1) = "1 Line No.: 1"
List(2) = "2 Line No.: 2"
List(3) = "3 Line No.: 3"
List(4) = "4 Line No.: 4"
List(5) = "5 Line No.: 5"
List(6) = "6 Line No.: 6"
List(7) = "7 Line No.: 7"
InputList( 5, 1, iLen, iElements, MODE,
List, iIndex, lValid, iButton )
6.1.26 MMI_FormatVal
Description Convert a value to a string and use TPS system formatting rules.
Declaration
MMI_FormatVal( BYVAL iType AS Integer,
BYVAL iLen AS Integer,
BYVAL iDecimals AS Integer,
BYVAL dVal
AS Double,
BYVAL lValid AS Logical,
BYVAL iMode AS Integer,
sValStr AS String30 )
Remarks If
lValid = TRUE
then this routine converts a double value (or
values with equal type, e.g. dimension) to a text string, otherwise
the symbols for invalid values are returned. The returned string