Problème de decodage trame nmea Résolu

Question

Bonjours à toutes et à tous,

Je developpe une petite appli avec mon gps sous visual basic 2008, mais je n'arrive pas à trouver les commandes pour lire le buffer, le segmenter, et le traiter. Quelqu'un pourrait il eclairer ma lanterne svp?

Merci d'avance.

Flatron

NHenry · Accepted Answer

Bonjour

Je n'ai pas eu spécialement le temps de regardé le code, mais il me semble que tu as récupéré le conde ici :
http://www.codeproject.com/KB/vb/WritingGPSApplications1.aspx

Dans ce cas, normalement, il suffit de récupérer le code présenté dans le Listing 1.2
et écouter l'evenement :PositionReceived

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

NHenry · Answer

Bonjour

Tu communique en COM, TCP, autre ?
Qu'as-tu déjà fait ?

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonjour et merci pour ta réponse. Je communique sur du COM virtuel simulé par un petit logiciel (par ailleurs trés pratique) nommée spanner. Concernant ce que j'ai déjà, je lis les trames NMEA dans une textbox, voici le code: OptionExplicitOn Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Text Imports System.Windows.Forms Imports System.IO.Ports Imports MSCommLib Imports System.Globalization PublicClass Form4 DimWithEvents serialPort AsNew IO.Ports.SerialPort PrivateSub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ HandlesMyBase.Load For i AsInteger = 0 To _ My.Computer.Ports.SerialPortNames.Count - 1 cbbCOMPorts.Items.Add( _ My.Computer.Ports.SerialPortNames(i)) Next btnDisconnect.Enabled = False EndSub PrivateSub DataReceived( _ ByVal sender AsObject, _ ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _ Handles serialPort.DataReceived txtDataReceived.Invoke(New _ myDelegate(AddressOf updateTextBox), _ NewObject() {}) EndSub PublicDelegateSub myDelegate() PublicSub updateTextBox() With txtDataReceived .Font = New Font("Garamond", 8.5!, FontStyle.Bold) .SelectionColor = Color.Blue .AppendText(serialPort.ReadExisting) .ScrollToCaret() EndWith EndSub PrivateSub btnConnect_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnConnect.Click If serialPort.IsOpen Then serialPort.Close() EndIf Try With serialPort .PortName = cbbCOMPorts.Text .BaudRate = 9600 .Parity = IO.Ports.Parity.None .DataBits = 8 .StopBits = IO.Ports.StopBits.One ' .Encoding = System.Text.Encoding.Unicode EndWith serialPort.Open() lblMessage.Text = cbbCOMPorts.Text & " connected." btnConnect.Enabled = False btnDisconnect.Enabled = True Catch ex As Exception MsgBox(ex.ToString) EndTry EndSub PrivateSub btnDisconnect_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnDisconnect.Click Try serialPort.Close() lblMessage.Text = serialPort.PortName & " disconnected." btnConnect.Enabled = True btnDisconnect.Enabled = False Catch ex As Exception MsgBox(ex.ToString) EndTry EndSub PublicClass TestNmeaInterpreter ' Processes information from the GPS receiver PublicFunction Parse(ByVal sentence AsString) AsBoolean ' Divide the sentence into words Dim Words() AsString = GetWords(sentence) ' Look at the first word to decide where to go next SelectCase Words(0) Case"$GPRMC" ' A "Recommended Minimum" sentence was found! ' Indicate that the sentence was recognized ReturnTrue CaseElse ' Indicate that the sentence was not recognized ReturnFalse EndSelect EndFunction ' Divides a sentence into individual words PublicFunction GetWords(ByVal sentence AsString) AsString() Return sentence.Split(","c) EndFunction PublicEvent PositionReceived(ByVal latitude AsString, _ ByVal longitude AsString) PublicFunction ParseGPRMC(ByVal sentence AsString) AsBoolean ' Divide the sentence into words Dim Words() AsString = GetWords(sentence) ' Do we have enough values to describe our location? If Words(3) <> ""And Words(4) <> ""And Words(5) <> ""And _ Words(6) <> ""Then ' Yes. Extract latitude and longitude Dim Latitude AsString = Words(3).Substring(0, 2) & "°"' Append hours Latitude = Latitude & Words(3).Substring(2) & """" ' Append minutes Latitude = Latitude & Words(4) ' Append the hemisphere Dim Longitude AsString = Words(5).Substring(0, 3) & "°"' Append hours Longitude = Longitude & Words(5).Substring(3) & """" ' Append minutes Longitude = Longitude & Words(6) ' Append the hemisphere ' Notify the calling application of the change RaiseEvent PositionReceived(Latitude, Longitude) EndIf ' Indicate that the sentence was recognized ReturnTrue EndFunction PublicFunction GetChecksum(ByVal sentence AsString) AsString ' Loop through all chars to get a checksum Dim Character AsChar Dim Checksum AsInteger ForEach Character In sentence SelectCase Character Case"$"c ' Ignore the dollar sign Case"*"c ' Stop processing before the asterisk ExitFor CaseElse ' Is this the first value for the checksum? If Checksum = 0 Then ' Yes. Set the checksum to the value Checksum = Convert.ToByte(Character) Else ' No. XOR the checksum with this character's value Checksum = Checksum Xor Convert.ToByte(Character) EndIf EndSelect Next ' Return the checksum formatted as a two-character hexadecimal Return Checksum.ToString("X2") EndFunction PublicFunction ParseGPGSV(ByVal sentence AsString) AsBoolean Dim PseudoRandomCode AsInteger Dim Azimuth AsInteger Dim Elevation AsInteger Dim SignalToNoiseRatio AsInteger ' Divide the sentence into words Dim Words() AsString = GetWords(sentence) ' Each sentence contains four blocks of satellite information. ' Read each block and report each satellite's information Dim Count AsInteger For Count = 1 To 4 ' Does the sentence have enough words to analyze? If (Words.Length - 1) >= (Count * 4 + 3) Then ' Yes. Proceed with analyzing the block. Does it contain any ' information? If Words(Count * 4) <> ""And Words(Count * 4 + 1) <> "" _ And Words(Count * 4 + 2) <> ""And Words(Count * 4 + 3) <> ""Then ' Yes. Extract satellite information and report it PseudoRandomCode = CType(Words(Count * 4), Integer) Elevation = CType(Words(Count * 4 + 1), Integer) Azimuth = CType(Words(Count * 4 + 2), Integer) SignalToNoiseRatio = CType(Words(Count * 4 + 2), Integer) ' Notify of this satellite's information RaiseEvent SatelliteReceived(PseudoRandomCode, Azimuth, Elevation, _ SignalToNoiseRatio) EndIf EndIf Next ' Indicate that the sentence was recognized ReturnTrue EndFunction PublicFunction IsValid(ByVal sentence AsString) AsBoolean ' Compare the characters after the asterisk to the calculation Return sentence.Substring(sentence.IndexOf("*") + 1) = _ GetChecksum(sentence) EndFunction PublicEvent DateTimeChanged(ByVal dateTime As DateTime) PublicEvent BearingReceived(ByVal bearing AsDouble) PublicEvent SpeedReceived(ByVal speed AsDouble) PublicEvent SpeedLimitReached() PublicEvent FixObtained() PublicEvent FixLost() PublicEvent SatelliteReceived(ByVal pseudoRandomCode AsInteger, _ ByVal azimuth AsInteger, _ ByVal elevation AsInteger, _ ByVal signalToNoiseRatio AsInteger) Private NmeaCultureInfo AsNew CultureInfo("en-US") Private MPHPerKnot AsDouble = Double.Parse("1.150779", NmeaCultureInfo) EndClass EndSub EndClass J'ai parcouru le site de long en large, mais aucune des solutions proposées ne fonctionnait. Je code en vb2008, depuis un mois, ce qui m'a surement empeché de trouver la solution (car je ne comprend pas tout pour l'instant). Je crois qu'il faut utiliser "mydelegate" pour appeler les données dans le buffer et aprés passer à la segmentation. Enfin bref, merci pour ton aide en tout cas

flatron123 · Answer

Comme on peut le voir, j'ai essayé de decoder le tout avec la class nmeainterpreter. Mais je n'ai rien touché d'autre, et meme le "sentence", à mon avis, dois etre remplacé par quelquechose en raport avec Mydelegate. Enfin je ne sais pas trop...

NHenry · Answer

Bonjour

Quest ce qui est affiché dans ta TextBox ?
Car il existe plusieurs type de trames NMEA : http://fr.wikipedia.org/wiki/Nmea

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Dans ma textbox, je peux visualer, en temps réel, l'arrivée des divers trames envoyées par le GPS.
Je reçois les types de trames suivantes:
- GPGGA
- GPRMB
- GPGSA
- GPGSV
- GPGLI
- GPBOD
- DPVTG
- PGRME
- PGRMZ
- PGRMM
- HCHDG
- GPRTE
- GPRMC
- GPRMB

flatron123 · Answer

Effectivement, j'ai "tenté" d'utiliser cette source, ainsi qu'un morceau d'un autre (voir SerialCommchat, je n'ai plus le lien). Je te remercie de tes eclaircissement, je vais voir ce que je peux avec le "Positionreceveid". Je te tiens au courant. Quoi qu'il en soit, merci pour ton aide ;)

flatron123 · Answer

Salut Nico,

Merci pour ta soluce.

Voici mon soucis suivant (ce serait trop facile sinon):

J'obtiens mes coordonnées dans deux autres textbox, cependant le format ne me convient pas et je voudrais les afficher (en plus) sous un autre format. J'ai les formules:

Degrees = Int(Decimal_Deg)
Minutes = (Decimal_Deg - Degrees) * 60
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " & Seconds + Chr(34)

Et voici ce que récupères mes boxs (au départ, donc non converti:)

LAB_Latitude.Text = wInfo.Latitude.ToString
LAB_Longitude.Text = wInfo.Longitude.ToString

Le soucis: comment les associer? Et comment déclarer les noms?

Merci de votre aide

NHenry · Answer

Bonjour

Le mieux pour des formules plus Frameworks :

dim Degrees as integer=cint(Math.Truncate(Decimal_Deg))

Decimal_Deg-=Degrees

Decimal_Deg*=60

Dim Minutes as integer=cint(math.Truncate(Decimal_Deg))

Decimal_Deg-=Minutes

Decimal_Deg*=60
dim Secondes as integer= cint(math.Truncate(
Decimal_Deg))

dim ConvertDegree as string=string.format({0}° {1}' {2}'',Degrees,Minutes,Secondes)

Cela fonctionne à la condition que Decimal_Deg soit un Double ou un Decimal (voir Double.Parse, Decimal.parse).

"Comment déclarer les noms" ??? Que veux-tu dire ?

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

En fait j'ai du mal à saisir quelle variable je dois prendre et ou je dois la mettre pour que la function de conversion s'applique, et ou recuperer le resultat.

NHenry · Answer

Bonjour

Si tu gère l'evenement "PositionReceived", tu obtient directement les cooéronées sours la forme x°y'z".

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Je commence à y voir plus clair. 

Dans la definition de l'event "position receveid" il y a latitude et longitude (en string), comment puis-je les gerer simultanément? (je sais ça doit te paraitre simple)

Si je veux l'afficher dans une textbox, je dois faire comment? 

Merci de ton aide, c'est sympas ;)

NHenry · Answer

Bonjour

Dans la gestion de l'evenement (voir WithEvents et Addhandler), tu fais simplement : 
TxtLatitude.text=latitude
TxtLongitude.text=longitude

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonjour Nico,

Oui Oui mais c'est plutot dans la definition que je ne sais pas trop, genre "function...byval...As..." je vais voir ce que je peux faire avec ça. Merci en tout cas pour ton aide :)

NHenry · Answer

Bonjour

Le prototype de la procédure de gestion est : 

Sub NMEA_PositionReceived(ByVal latitude As String, ByVal longitude AsString)

Tu peux changer le nom de la procédure si tu veux, mais reste cohérent avec le programme.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Nickel !!!! ça marche :) Merci t'assure. Par contre je n'arrive à traiter que les evenements de la trame GPMRC, les autres ne veulent pas, donc je n'ai que les infos de base. Est il possible que, utilisant un Garmin, le protocole proprietaire plante la norme NMEA ?  Et par rapport aux Integer, je crois que ce n'est pas une valeur numerique pouvant etre inserer dans une textbox. Comment peux t on faire?

Merci

NHenry · Answer

Bonjour

Regarde cette fonction :

PublicFunction Parse(ByVal sentence AsString) AsBoolean
' Look at the first word to decide where to go next

SelectCase GetWords(sentence)(0)
Case"$GPRMC"' A "Recommended Minimum" sentence was found!

Return ParseGPRMC(sentence)
CaseElse
' Indicate that the sentence was not recognized

ReturnFalse
EndSelect
EndFunction

Il te suffit de rajouter des "Case ""$...."""
Et ensuite de voir comment est traitée la trame GPRMC (et non  GPMRC comme tu l'as écrit) et de faire ce que tu désire.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonsoir, Bon c'est parfait, tout marche. Pour les trames qui ne voulaient pas etre decoupées, cela venait simplement d'un caracteres en trops, dans les cases tu me parlais. Mes problèmes suivants se situe au niveau de la trame GPGSV. Celle ci est, en theorie, divisé en 3 parties, et te donne les infos sur les satellites en vue. Satellites en vue - GPS $GPGSV,2,1,08,01,40,083,46,02,17,308,41,12,07,344,39,14,22,228,45*75 2 = Nombre de trames GSV avec les données complètes. 1 = Trame 1 de 2 trames (jusqu'à 3 trames) 08 = Nombre de satellites visibles (SV). 01 = N° d'identification du 1er Satellite. 40 = Elevation en degrés du 1er Satellite. 083 = Azimuth en degrés du 1er Satellite. 46 = Force du signal du 1er Satellite (Plus grand=meilleur) (Cette séquence se répète jusqu'à 4 satellites par trames. On peut donc avoir jusqu'à 3 trames GSV dans une transmision (12 satellites).) *75 = cheksum non représentés les CR et LF Ce qui vous explique la limitation à 12 satellites de nos petits appareils. http://www.gpspassion.com/forumsen/topic.asp?TOPIC_ID=17661 Mon soucis est que, regulierement, la trame complète n'arrive pas, et est "tronquée" dans sa troisieme partie, ce qui me fait planter mon code. Dans mes cases, j'ai dit "si le caractere est different de zero, alors..." mais comment faire si le caractere est "vide". Autre point d'interrogation, comment représenté les satellites (on dispose de l'azimuth, et l'elevation de chacun dans la trame aussi). Je me dirige vers une picturebox sur laquelle se disposerons mes icones en fonction de coordonnées cartesiennes, mais je n'ai pas trouvé de tuto en rapport. Tu as une idée? Merci Flatron

NHenry · Answer

Bonjour

Pour la représentation, je ne pourrais t'aider.

En ce qui concerne la réception, comment définis-tu la fin de ta réception ?

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonjour Nico, Voilà comment je recupere la fin de ma trame. Le truc genant est que, normalement, si il n'y a pas d'infos, la trame à cette tete: GPSV,xx,xx,xx,xx,xx,xx, et non pas GPSV,xx,xx,xx,xx,xx,xx,,,,,, comme je l'aurais voulu. If Words(2) <> "" And Words(2) = "3" Then If Words(4) <> "" Then Dim SatNeuf As Double = Double .Parse(Words(4), NmeaCultureInfo) RaiseEvent SVU9(SatNeuf) End If 'If Words(8) <> "" Then 'Dim SatDix As Double = Double.Parse(Words(8), NmeaCultureInfo) 'RaiseEvent SVU10(SatDix) 'End If 'If Words(12) <> "" Then 'Dim SatOnze As Double = Double.Parse(Words(12), NmeaCultureInfo) 'RaiseEvent SVU11(SatOnze) 'End If 'If Words(16) <> "" Then 'Dim SatDouze As Double = Double.Parse(Words(16), NmeaCultureInfo) 'RaiseEvent SVU12(SatDouze) 'End If 'If Words(7) <> "" Then 'Dim SatneufSNR As Double = Double.Parse(Words(7), NmeaCultureInfo) 'RaiseEvent SVU9SNR(SatneufSNR) 'End If ' If Words(11) <> "" Then 'Dim SatdixSNR As Double = Double.Parse(Words(11), NmeaCultureInfo) 'RaiseEvent SVU10SNR(SatdixSNR) 'End If 'If Words(15) <> "" Then 'Dim SatonzeSNR As Double = Double.Parse(Words(15), NmeaCultureInfo) 'RaiseEvent SVU11SNR(SatonzeSNR) 'End If 'If Words(19) <> "" Then 'Dim SatdouzeSNR As Double = Double.Parse(Words(19), NmeaCultureInfo) 'RaiseEvent SVU12SNR(SatdouzeSNR) 'End If End If T'as une idée? Merci

NHenry · Answer

Bonjour

Je suspecte plutot une réception en provenance du port COM incomplète.

J'ai déjà eu un pb similaire (avec du Modbus, mais le principe est le même), en fait, tu ne récupère que le début de la trame, car celle-ci est trop longue, la classe de gestion du port série ne t'en retourne qu'une partie, il faudrait que tu fasse un buffer de réception et dès que tu reçoi les cartactères de fin de ligne (CR/LF), tu traduit la trame.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonjour,

Oula ça m'a l'air compliqué à faire ça. Ce qui est etrange est que lorsque je change de periph GPS, il n'y a que les infos du dernier satellite que je ne recois pas, avec le meme port COM. Si le decodage incomplet provient du port COM qui n'arrive pas à tout retenir, comment est-ce possible, avec un autre GPS (mais avec une antenne plus puissante) d'en obtenir plus? Simplement grace à un signal plus important?


Merci




PS: Je t'ai laissé un msg sur une source de ton site sur ton forum.

NHenry · Answer

Bonjour

Je récacapépète.

- Tu reçois la trame avec à la fin que des , aulieu d'une fin de trame ?
- Tu reçoi une ta trame, et le CRC n'est pas reçu ?

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonjour,

En fait, j'ai à ma disposition plusieurs recepteurs GPS, de 2 modèles différents, dont un qui a une reception bien meilleure que les autres. De plus, j'habite dans Paris, et faut avouer que les immeubles ne sont pas les meilleurs amis des satellites, donc souvent des problèmes de reception. En fait, avec le recepteur A (low quality), je ne reçois pas la fin de la 3eme trame GPGSV. Avec le recepteur B (hight quality) je la reçois quasiement tout le temps. Comment faire pour que, avec le recepteur de mauvaise qualité, je puisse dire que si "aucune donnée". Je crois que ce post d'un utilisateur, explique d'une autre maniere mon probleme:
http://www.gpspassion.com/FORUMSEN/topic.asp?TOPIC_ID=66744

Merci

NHenry · Answer

Bonjour

Alors là, il faudrait à ce moment que tu mette les trames en question, car je n'ai pas de récepteur GPS chez moi et je suis un peu (voir plus :p ) largué.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Bonjour,

Problème résolu. Il fallait, avant d'aller chercher les infos, n'allez chercher les infos que des satellites qui etait mentionné en debut de trames :). Mes questions à propos de la NMEA sont finies. Merci pour ton aide Nico.

Derniere petite question qui n'a rien à voir, comment pouvoir repeter une fonction toutes les x secondes à partir du declenchement de celle-ci par un bouton?

Merci

NHenry · Answer

Bonjour

Par un Timer par exemple.
Ou un Thread, c'est selon le besoin.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1

flatron123 · Answer

Desolé pour le retard dans la réponse.

C'est parfait, merci Nico. Je n'ai plus de soucis avec la trame NMEA, le sujet est donc clos. Je m'attaque maintenant au TCP ;)

Merci

flatron

Problème de decodage trame nmea

28 réponses

Votre réponse

Discussions similaires