1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Imports NETGeographicLib
Module example_DMS
Sub Main()
Try
Dim desc As String = "30d14'45.6""S"
Dim type As DMS.Flag
Dim ang As Double = DMS.Decode(desc, type)
Console.WriteLine(String.Format("Type: {0} String: {1}", type, ang))
ang = -30.245715
Dim prec As UInteger = 6
desc = DMS.Encode(ang, prec, DMS.Flag.LATITUDE, 0)
Console.WriteLine(String.Format("Latitude: {0}", desc))
Catch ex As GeographicErr
Console.WriteLine(String.Format("Caught exception: {0}", ex.Message))
End Try
End Sub
End Module
|
