VB6.0のGPSシリアル通信について
はじめまして。
VB6.0で、GPSシリアル通信を行っています。
シリアル設定は、MSComm1.Settings = "4800,n,8,1" にしています。
1秒毎にGPSデータは受信でき、すべて受信できています。
ただし、このGPSデータは、1秒間に下記のように6行分受信されます。
$GPRMC,131850,A,3603.5404,N,14008.5746,
$GPGGA,131850,3603.5404,N,14008.5746,
$GPGSA,A,3,27,09,02,05,21,29,10,15,,,,
$GPGSV,3,1,11,27,27,193,33,09,13,199,
$GPGSV,3,2,11,21,18,317,23,29,14,259,22,
$GPGSV,3,3,11,07,01,033,00,18,00,295,00,28
そこで、上記6行分のデータのうち、初めの2行分だけを取り出したいと思っていますが、どうもうまくいきません。
どのようにすれば、初めの2行分だけを取り出すことができるでしょうか?
下記がソースです。
Private Sub MSComm1_OnComm()
Dim Buffer1 As Variant
Select Case MSComm1.CommEvent Case comEvReceive Buffer1 = MSComm2.Input
If (InStr(Buffer1, "GPRMC")) Then
Debug.Print Buffer1;
Else (InStr(Buffer1, "GPGGA")) Then
Debug.Print Buffer1;
End If
End Sub
どなたか教えてください。
よろしくお願いします。
お礼
ご連絡ありがとうございます。 ポーリングするしか無いですかね。 ポーリングでチェックするように対応してみます。