20
•
23 − AutoZoomOn: turn on automatic zooming
•
24 − AutoZoomOff: turn off automatic zooming
Example:
The following example invocation call demonstrates how to switch the map display to night colors:
Sub SwitchToNightView
On Error GoTo SwitchToNightView_Error
Call TTNav.SendDirectCommand(3)
SwitchToNightView_Exit:
Exit Sub
SwitchToNightView_Error:
MsgBox "Failed to change to night view mode"
Resume SwitchToNightView_Exit
End Sub
5.2.19. Sub GetCurrentPosition( )
Supported Since:
TTN 1.42
Obtains the current position information from GPS. The GPS data is available after this call in the
read−only properties GpsStatus, Longitude, Latitude, Direction and Speed:
Property GpsStatus As Long:
Indication of the quality of the GPS data (if < 0 indicates an error)
Property Longitude As Long:
Longitude in millionths of degree (WGS84 format)
Property Latitude As Long:
Latitude in millionths of degree (WGS84 format)
Property Direction As Long:
Direction in degrees: zero is north, clockwise
Property Speed As Long:
Speed in kilometers per hour
If GetCurrentPosition has never been called, GpsStatus will be −1, indicating that these properties don’t
contain valid GPS information.
Example:
The shows how the GetCurrentPosition call can be used to warn when the driver is driving too fast.
Sub CheckSpeed
On Error GoTo CheckSpeed_Error
Call TTNav.GetCurrentPosition
If TTNav.GpsStatus >= 0 And TTNav.Speed > 120 Then
MsgBox "You are driving too fast!"
End If
CheckSpeed_Exit:
Exit Sub
CheckSpeed_Error:
MsgBox "Failed to get the current location"
Resume CheckSpeed_Exit
End Sub
5.2.20. Sub MakePoiVisible( aPoiTypeID As Long, aVisibility As
Boolean)
Command Parameters:
•
aPoiTypeID As Long:
POI unique type identifier
•
aVisibility As Boolean:
whether to show or hide this POI type on the map
5. Communicating with TomTom Navigator from Visual Basic
