1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Composants
  5. Composants gps

Composants gps

Soyez le premier à donner votre avis sur cette source.

Vue 6 500 fois - Téléchargée 1 073 fois

Télécharger le projet
Commenter

Description

Ces deux composants traduisent les sentences NMEA envoyées par un GPS pour le premier: GPS.Le second permet de voir la position des satellites et l'intensité de leur émission.

Source / Exemple : 


Les sources se trouvent dans le ZIP.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
 13
Bon, bé les balises de code ne fonctionnent pas ici...
Signaler
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
 13
Salut,

Petite composant sympathique (TGPS) !

Je l'ai modifié pour mes besoins, mais peut être que ça peut intéresser du monde (et puis un avis sur ces modifs peut être le bienvenu...).

La modification consiste en l'ajout d'un filtre pour ne récupérer qu'un certain type de trames.

J'ai ajouté : (je ne sais pas si les balises de code fonctionnent ici... on va bien voir) 
  TGPS = class (TComponent)
  private
    ...
    FMsgFilter : TMsgGP;
    FMsgFiltered : Boolean;
    ...
  published
    ...
    property MsgFilter : TMsgGP read FMsgFilter write FMsgFilter default msgGP;
    property MsgFiltered : Boolean read FMsgFiltered write FMsgFiltered default False;
    ...


et sur : 

procedure TGPS.PacketRecv(Sender: TObject; const Str: String);
        ...
        // Get the message type
        TypeMsg := MidStr(Resultat[0], 4, 3);

        // initialisation 
        with FGPSDatas do begin
             Latitude := 0;
             Longitude := 0;
             HeightAboveSea := 0;
             Speed := 0;
             UTCTime := now;
             Valid := True;
             NbrSats := 0;
             NbrSatsUsed := 0;
        end;

        // Test sur filtre
        if (MsgFiltered and (IndexMsgGP(TypeMsg) = FMsgFilter))
           or not MsgFiltered then begin
           // Retrieves data based on message type
           case IndexMsgGP(TypeMsg) of
                msgGPGGA: begin


Je me pose une question sur l'initialisation de la variable valid (true par défaut...)
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 (jponselle)