1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Acquisition de trames gps nmea sur gps magellan ( la version publiée sur code source ne marchait pas avec mon gps)

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 668 fois - Téléchargée 32 fois

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

Ajouter un commentaire Commentaires
Signaler
Messages postés
3
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
26 juillet 2007
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 ...
Signaler
Messages postés
29
Date d'inscription
samedi 3 avril 2004
Statut
Membre
Dernière intervention
7 février 2006
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.
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)