最近ちょっと気になっている商品がある。それは、BUFFALOのモバイルWi-FiルータのDWR-PGである。

これは、ドコモのデータ通信接続とWi-Fiスポットをドッキングしてしかもモバイルにしたルーターですぐれものである。

似たような商品はいままでいろいろあったが、ドコモのデータ通信でここまで洗練されたやつは、初めてだと思われる。

しかも、本体にLANポートがついているので、H8/3069 LANと組み合わせれば結構おもしろいことができそう。例えば、加速度を逐次、WEBにデータ送信するなど。

すでに、私は定額のデータ通信入っており、定額にもこのルーターは対応してるので、買ったらすぐに実験はできそう。

ただ値段は一般相場よりは少しお安くはなっているものの、4万円近くすることがネック、2万円台なら間違いなく買うのだが。WiFiなしが仮にあったとしたら、もう少し安くなるのかな？

今後、モバイルルーターがどのように進化するか楽しみです。

[0回]

準天頂衛星初号機「みちびき」はもはや、日本の期待を背負った日本初のGPS衛星です。GPSファンかつ日本人には打ち上げが待ち遠しいですが、2010年8月2日の打ち上げ予定は残念ながら、リアクションホイールに懸念事項があったようで延期となっております。

さてさて、このみちびきは「準天頂衛星」です、これはものすごいことです。どういういみかというと、JAXAのHPの内容を引用して、「ユーザが“準天頂”を通る“人工衛星”からの信号を障害物の少ないほぼ真上から受信できることです。」なわけです。よって、電波の届きにくい山間部等でも電波が受信しやすくなるというわけです。

また、既存のGPS衛星のみの場合よりもかなりいい測位精度が得らaれるようです。

ただし、打ち上げ後、いろいろテストもありますし、信号はL1-SAIFのようですので、既存のGPSレシーバ自体は利用可能だと思われますが、ファームを書き換えないとおそらく利用できないと思われます。

いずれにしても、日本専属のGPS衛星とはすばらしいものです。

[0回]

「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回]