Acquisition de trames gps nmea sur gps magellan ( la version publiée sur code source ne marchait pas avec mon gps)

Commenter

Contenu du snippet

Reception des trames NMEA du GPS Magellan sur ligne série RS232.Ma contribution est une adaptation d'un précédent code publié....pour que ça marche avec le protocole NMEA V2.1 GSA.J'ai laissé volontairement le commentaire 'Label9.Caption = TmpChaine qui permet de visualiser la trame pour adapter le programme à d'autres protocoles NMEA

Source / Exemple : 


Option Explicit
Private Sub Form_Load()
'Protocole NMEA V2.1 GSA Magellan Color
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
decoder
End Sub

Public Sub decoder()
Dim TmpChaine As String
Dim i As Integer
On Error Resume Next
MSComm1.InputLen = 0
TmpChaine = MSComm1.Input
'Label9.Caption = TmpChaine
i = InStr(TmpChaine, "GPRMC")
Do While Len(TmpChaine) - i < 61
On Error Resume Next
TmpChaine = TmpChaine & MSComm1.Input

Loop
Label1.Caption = Mid(TmpChaine, i + 6, 2) & ":" & Mid(TmpChaine, i + 8, 2) & ":" & Mid(TmpChaine, i + 10, 2)
Label2.Caption = Mid(TmpChaine, i + 18, 2) & "°" & Mid(TmpChaine, i + 20, 2) & "." & Mid(TmpChaine, i + 22, 2) & "'"
Label3.Caption = Mid(TmpChaine, i + 30, 3) & "°" & Mid(TmpChaine, i + 33, 2) & "." & Mid(TmpChaine, i + 35, 2) & "'"
Label4.Caption = Mid(TmpChaine, i + 54, 2) & "/" & Mid(TmpChaine, i + 56, 2) & "/" & Mid(TmpChaine, i + 58, 2)
End Sub
 Et ça marche! J'ai laissé en commentaire la ligne Label9.Caption qui m'a permis de visualiser la trame NMEA

Conclusion :


Pas de commentaires mais un grand merci à celui qui a publié la version initiale!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BarresLTD)