Connecter un GPS bluetooth à son PDA et lire les données reçues? Pas si compliqué que ça! Nous allons parler ici sommairement du protocole NMEA ( National Marine Electronics Association ) introduit par la marine et qui est utilisé par les récepteurs GPS pour transmettre des données via le port série à un ordinateur. Ce protocole de type ASCII ( tous les messages sont envoyés au format texte ) définit un certain nombre de codes ( GPGGA / GPGSA / GPRMC / .. ) qui permettent d'identifier la position actuelle, l'angle et la vitesse de déplacement, le nombre de satellites,.. Les trames provenant d'un récepteur GPS commencent toujours par les deux lettres GP. ( GPS Receiver )

Un GPS ( bluetooth ou filaire ) dialogue via le protocole de transmission RS232 le standard étant 4800b/s, 8Bits, 1 bit de stop, pas de parité. Cette vitesse limite le nombre de phrases NMEA que le GPS peut transmettre à 530 caractères par seconde ( 4800 / ( 8 + 1 )) soit en moyene 5-6 trames.

Exemple de trame NMEA :
Le protocole NMEA est donc constitué de phrases, celles-ci commencent par le caractère $ et se terminent par un retour chariot ( code ASCII 13 ). Chaque éléments de cette phrase est délimité par une virgule. Le premier élément définit le type de phrase :

GPGGA : Position actuelle. GPGSA : Information sur la précision. GPGSV : Information sur les satellites. GPRMC : Trame minimum de positionnement. GPVTG : Vitesse / Direction. ... Nous allons dans un premier temps nous intéresser à la trame GPGGA. La trame de l'exemple ci-dessus contient les informations : Temps universel : 130442.000 Latitude : 4344.6476 N Longitude : 00123.5622 E Satellites : 05 Altitude : 187.5 M L'exemple suivant en VisualBasic .NET permet de créer une application très simple pouvant s'exécuter sur un PDA permettant de se connecter au port série et extraire quelques données ( Latitude, Longitude, Altitude, Satellites ) dans une structure. Cet exemple peut servir de base pour réaliser des applications plus complexes de positionnement ou de tracking.

L'ouverture du port série COM7 ( à vous d'identifier le bon! ) en lecture donne : SerialPort1.PortName = "COM7" SerialPort1.BaudRate = 4800 SerialPort1.Parity = IO.Ports.Parity.None SerialPort1.DataBits = 8 SerialPort1.StopBits = IO.Ports.StopBits.One SerialPort1.Open() ..la lecture des données provennant du port série se fait au travers de cette fonction : Dim ComBuffer As String Private Sub SerialPort1_DataReceived(ByVal sender As Object, _ ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _ Handles SerialPort1.DataReceived Dim PopedBit As String If SerialPort1.BytesToRead > 0 Then ReceivedBits = ReceivedBits + SerialPort1.BytesToRead Do PopedBit = Chr(SerialPort1.ReadByte) If PopedBit = Chr(10) Then PopedBit = "" If PopedBit = Chr(13) Then ReadGPSInfo(ComBuffer) ComBuffer = "" Else ComBuffer = ComBuffer & PopedBit End If If SerialPort1.BytesToRead = 0 Then Exit Do Loop End If End Sub ..nous allons ensuite stocker les données dans une nouvelle structure que nous allons créer : Public Structure GPS_Infos Dim Latitude As Decimal Dim Latitude_C As String Dim Longitude As Decimal Dim TS As Decimal Dim Longitude_C As String Dim Altitude As Integer Dim Satellites As Integer End Structure ..ne reste plus qu'à parser les phrases NMEA reçues et les stocker dans notre structure : Dim CurrentInfo As GPS_Infos Private Sub ReadGPSInfo(ByVal GPSString As String) Dim SubValues() As String Dim wDeg As Integer Dim wMin As Integer Dim wSec As Integer If GPSString.StartsWith("$GPGGA") Then SubValues = Split(GPSString, ",") If (SubValues(1) <> "") Then CurrentInfo.TS = SubValues(1) If (SubValues(2) <> "") Then Dim TempLatitude As String TempLatitude = SubValues(2).Replace(".", "") wDeg = Integer.Parse(TempLatitude.Substring(0, 2)) wMin = Integer.Parse(TempLatitude.Substring(2, 2)) wSec = Integer.Parse(TempLatitude.Substring(4, 4)) * 6 / 1000 CurrentInfo.Latitude = ToUnit(wDeg, wMin, wSec) End If If (SubValues(3) <> "") Then CurrentInfo.Latitude_C = SubValues(3) If CurrentInfo.Latitude_C = "S" Then CurrentInfo.Latitude=-CurrentInfo.Latitude End If If (SubValues(4) <> "") Then Dim TempLongitude As String TempLongitude = SubValues(4).Replace(".", "") wDeg = Integer.Parse(TempLongitude.Substring(0, 3)) wMin = Integer.Parse(TempLongitude.Substring(3, 2)) wSec = Integer.Parse(TempLongitude.Substring(5, 4)) * 6 / 1000 CurrentInfo.Longitude = ToUnit(wDeg, wMin, wSec) End If If (SubValues(5) <> "") Then CurrentInfo.Longitude_C = SubValues(5) If CurrentInfo.Longitude_C = "W" Then CurrentInfo.Longitude=-CurrentInfo.Longitude End If If (SubValues(7) <> "") Then CurrentInfo.Satellites = SubValues(7) If (SubValues(9) <> "") Then CurrentInfo.Altitude = SubValues(9) End If End Sub Private Function ToUnit(ByVal wDeg As Integer, ByVal wMin As Integer, _ ByVal wSec As Integer) As Decimal Return wDeg + (wMin / 60.0) + (wSec / 3600.0) End Function Liens Complémentaires

Commentaires  | Ajouter un commentaire

-

Rechercher sur internet  ?  | Rechercher!

Trackback

Utilisez le lien http://www.sunyday.net/trackback-Lecture-de-donnees-GPS-depuis-un-pocket-PC pour faire un trackback vers cette article depuis votre site web. Les trackbacks sont soumis à une approbation mutuelle et susceptibles d'être supprimés si jugés indésirables.