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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 875 fois - Téléchargée 33 fois

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

Ajouter un commentaire Commentaires
broker14 Messages postés 3 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 26 juillet 2007
9 févr. 2006 à 01:27
quelqu'un pourrait m'aider à realiser une application sur le reseau informatique et n'importe laquelle.Merci de m'avoir repondre les programeurs et conseiller moi comment faire la demarche ...
holen Messages postés 29 Date d'inscription samedi 3 avril 2004 Statut Membre Dernière intervention 7 février 2006
7 févr. 2006 à 20:11
Le protocole NMEA n'est pas propre à Magellan et ton code s'accommode de la même façon pour les récepteurs GPS d'autres marques. D'autre part, il me semble qu'il existe un événement propre à MSCOMM qui permet de récupérer plus elegamment les données en entrée. C'est l"évènement OnComm. Ton code n'est pas bien explicite non plus, on ne sait pas ce que tu récupères comme infos.
Il y a des choses plus abouties sur le site.

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.