prague12

A*35$GPGGA,162455.00,2504.26958,N,12129.18274,E,1,11,1.80,4.4,M,15.0,M,,*52$GPGSA,A,3,16,42,06,03,20,14,50,19,21,30,31,,2.28,1.80,1.39*04$GPGSV,4,1,14,16,62,308,27,42,54,142,46,06,50,182,50,03,37,198,44*7C$GPGSV,4,2,14,29,12,040,,20,14,271,30,14,23,150,37,32,24,246,*75$GPGSV,4,3,14,50,51,134,37,19,08,200,41,21,06,093,43,30,60,347,28*78$GPGSV,4,4,14,31,50,054,38,23,24,319,45*7C$GPGLL,2504.26958,N,$GPVTG,271.03,T,,M,0.050,N,0.093,K,A*35$GPGGA,162455.00,2504.26958,N,12129.18274,E,1,11,1.80,4.4,M,15.0,M,,*52$GPGSA,A,3,16,42,06,03,20,14,50,19,21,30,31,,2.28,1.80,1.39*04$GPGSV,4,1,14,16,62,308,27,42,54,142,46,06,50,182,50,03,37,198,44*7C$GPGSV,4,2,14,29,12,040,,20,14,271,30,14,23,150,37,32,24,246,*75$GPGSV,4,3,14,50,51,134,37,19,08,200,41,21,06,093,43,30,60,347,28*78$GPGSV,4,4,14,31,50,054,38,23,24,319,45*7C$GPGLL,2504.26958,N,12129.18274,E,162455.00,A,A*6A$GPZDA,162455.00,21,01,2011,00,00*67琨* ??S?鸃瞰_ ?漣戴遙;綟x a?

Dim date1 = CDate(isget_array(5))

Dim Time_sec = New TimeSpan(date1.Ticks - 0).TotalSeconds
Dim d_sec = Time_sec - old_Time_sec
If d_sec = 0 Then
d_sec = 1
End If

GPS如何計算兩點座標的距離 c＃
http://www.dotblogs.com.tw/jeff-yeh/archive/2009/02/04/7034.aspx

c＋＋
http://tkjh9001024.pixnet.net/blog/post/24493149-%E7%94%A8c%23%E6%A0%B9%E6%93%9A%E7%B6%93%E7%B7%AF%E5%BA%A6%E6%B1%82%E5%85%A9%E9%BB%9E%E9%96%93%E8%B7%9D%E9%9B%A2%E7%9A%84%E5%87%BD%E6%95%B8%E4%BB%A3%E7%A2%BC