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

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