「PHPで経度緯度を DMM(NMEA)からDegreeに変換」を行いましたので今回はVB2008で同様の処理を行ってみます。

VBはシリアル経由でGT-730 F/Lの出力データを容易に受け取れますので、今回はNMEAデータごと処理する関数にしてみます。といっても、ラインごとですのでご注意を

Private Function DmmToDegree_NMEA(ByVal strReceivedData As String) As Double() Dim strData() As String = Split(strReceivedData, ",") Dim strlatlon(3) As String Dim dbllatlon(2) As Double If strData(0) = "$GPGGA" Then strlatlon = Split(strData(2), ".") dbllatlon(0) = CDec(strData(2).Substring(0, 2)) + (CDec(strData(2).Substring(2, 2)) + CDec("0." & strlatlon(1))) / 60 strlatlon = Split(strData(4), ".") If strlatlon(0).Length = 5 Then dbllatlon(1) = CDec(strData(4).Substring(0, 3)) + (CDec(strData(4).Substring(3, 2)) + CDec("0." & strlatlon(1))) / 60 Else dbllatlon(1) = CDec(strData(4).Substring(0, 2)) + (CDec(strData(4).Substring(2, 2)) + CDec("0." & strlatlon(1))) / 60 End If If strData(3) <> "N" Then dbllatlon(0) = -dbllatlon(0) End If If strData(5) <> "E" Then dbllatlon(1) = -dbllatlon(1) End If End If Return dbllatlon End Function '利用例 Dim dblLatLon(2) As Double dblLatLon = DmmToDegree_NMEA(strDataReceived) txtLat.Text = dblLatLon(0) txtLon.Text = dblLatLon(1)
利用例はソースの下に記載してますので、見てもらえばわかるとは思います。
尚、この関数はGPGGAラインしか処理しませんのでご注意ください。
また、文字チェックほとんど入れてないので、ちょっと怪しいです。
いずれにせよ、VBは便利です。

[0回]