
GeoBASIC User Manual
10 — GeoBASIC Sample Programs
10-4 TPS1100-Version
2.10
DIM sVal2
As String30
DIM sOut
As String255
ON Error Resume Next
'Ignore all errors
MMI_FormatVal(MMI_FFORMAT_HZANGLE, 10, 2, dHz,
TRUE,
MMI_DEFAULT_MODE, sVal1)
MMI_FormatVal(MMI_FFORMAT_HZANGLE, 10, 2, dMean, TRUE,
MMI_DEFAULT_MODE, sVal2)
sOut = "hz: " + sVal1 +
"mean: "+ sVal2
'Compute output text
'Write to data link and file
Send(sOut)
Print(fId, sOut)
END RecordValue
'--------------------------------------------------------------------
SUB GetAngleHz ( dHz AS Angle, lValid AS Logical)
'
----------
' Description
'
Measures the horizontal angle 'valid' indicates if the dHz is
'
valid.
'
' Parameters
'
OUT: dHzOUT, lValid
'
DIM theoAngle
AS TMC_Angle_Type
'The measured values
DIM iInfo
AS Integer
'Return code
ON Error Resume Next
'Ignore all errors
'get angle
TMC_GetAngle( theoAngle, iInfo )
IF (Err = RC_OK) THEN
lValid = TRUE
dHz
= theoAngle.dHz
ELSE
lValid = FALSE
END IF
END GetAngleHz
'--------------------------------------------------------------------
SUB ShowGraphics( byVal iNoPoints AS Integer, angles AS TAngles,
byVal dMean AS Angle )
'
------------
' Description
'
Displays the measured and the mean horizontal angles
'
graphically.
'
' Parameters
'
IN: iNoPoints, angles, dMean
'
DIM iX
AS Integer
'x coordinate
Содержание 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 ...