degreesminutesseconds.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 52 行

Namespace Microsoft.WindowsMobile.Samples.Location

    Public Class DegreesMinutesSeconds

        Private m_degrees As Integer
        Private m_minutes As Integer
        Private m_seconds As Double

        Public Sub New(ByVal decimalDegrees As Double)
            m_degrees = CInt(Math.Abs(decimalDegrees))
            Dim doubleMinutes As Double = ((Math.Abs(decimalDegrees) - Math.Abs(CDbl(m_degrees))) * 60)
            m_minutes = CInt(doubleMinutes)
            m_seconds = ((doubleMinutes - m_minutes) * 60)
        End Sub

        Public Sub New(ByVal degrees As Integer, ByVal minutes As Integer, ByVal seconds As Double)
            m_degrees = degrees
            m_minutes = minutes
            m_seconds = seconds
        End Sub

        Public Function ToDecimalDegrees() As Double
            Return ((m_degrees + (CDbl(m_minutes) / 60)) + (m_seconds / 3600))
        End Function

        Public Overrides Function ToString() As String
            Return String.Concat(New Object() {m_degrees, "d ", m_minutes, "' ", m_seconds, """"})
        End Function


        ' Properties
        Public ReadOnly Property Degrees() As Integer
            Get
                Return m_degrees
            End Get
        End Property

        Public ReadOnly Property Minutes() As Integer
            Get
                Return m_minutes
            End Get
        End Property

        Public ReadOnly Property Seconds() As Double
            Get
                Return m_seconds
            End Get
        End Property

    End Class

End Namespace