Open "comd.3:4800,8,n,1,inverted" For Input As #1
Odczytaj_gps:
Gpstxt = ""
Przerwanie = 0
Do ' W tej pętli szukaj znaku "R" (82). Ona zsynchronizuje odczyt $GPRMC ...
Gps = Inkey(#1)
Incr Przerwanie
Loop Until Gps = 82 Or Przerwanie = 1024
If Gps = 82 Then ' Jak znajdziesz to odbierz resztę
Input #1 , Gpstxt
Gpstxt = Left(gpstxt , 43)
Dobry_odczyttxt = Mid(gpstxt , 15 , 1) ' Sprawdz
If Dobry_odczyttxt = "A" Then
Czastxth = Mid(gpstxt , 4 , 2)
Czastxtm = Mid(gpstxt , 6 , 2)
Szerokosctxtst = Mid(gpstxt , 17 , 2)
Szerokosctxtmin = Mid(gpstxt , 19 , 2)
Szerokosctxtsek = Mid(gpstxt , 22 , 4)
Szerokoscsek = Val(szerokosctxtsek)
Szerokoscsek = 0.006 * Szerokoscsek
Szerokosctxtsek = Fusing(szerokoscsek , "#.##")
Dlugosctxtst = Mid(gpstxt , 30 , 2)
Dlugosctxtmin = Mid(gpstxt , 32 , 2)
Dlugosctxtsek = Mid(gpstxt , 35 , 4)
Dlugoscsek = Val(dlugosctxtsek)
Dlugoscsek = 0.006 * Dlugoscsek
Dlugosctxtsek = Fusing(dlugoscsek , "#.##")
Knotstxt = Mid(gpstxt , 42 , 2)
If Knotstxt = "0." Then
Kmh = 0
Else
Kmh = Val(knotstxt)
Kmh = Kmh * 1.852
End If
Knotstxt = Fusing(kmh , "#.#" )
Locate 1 , 1 : Lcd "N=" ; Szerokosctxtst ; "'" ; Szerokosctxtmin ; "'" ; Szerokosctxtsek ; " " ; Czastxth ; ":" ; Czastxtm ; " "
Locate 2 , 1 : Lcd "E=" ; Dlugosctxtst ; "'" ; Dlugosctxtmin ; "'" ; Dlugosctxtsek ; " V=" ; Knotstxt ; " "
Else
Locate 1 , 1 : Lcd "BRAK ODCZYTU GPS "
Locate 2 , 1 : Lcd " "
End If
End If
Return