[paulfjujo]

bonjour,


Si ce sujet interesse quelqu'un , je peux mettre queqlues explicages ici

Le Staraddict2 n'envoie pas nativement les donnees GPS par bluetooth !
Heureusement, RFO basic, tournant sous plateforme Android, propose un jeux d'instructions specifiques Bluetooth.
Nota: je n'ai pas testé si ce serait plus simple avec Appinventor2 !

Clicker2 PIC18F87J50 + BlueTooth Click RN41 sur mikrobus "1 <--------> Android Staradict2 (sans carte SIM) avec GPS
appli mikroC gerant le module BT Application RFO Basic
Envoi l''etat des 2 BP de la carte et une mesure analogique EA1 -------> Affiche ces etatss et mesure
Recupere les donnees GPS <------- envoi les donnees GPS formatées
et les affiche sur un terminal

Mon but premier , est d'avoir sous la main un GPS serie.. car je compte acheter un module GPS click par la suite..
afin de le monter sur ma carte avec GSM2 .. envoi de la position GPS par SMS toute les 10 minutes
geolocalisation et tracé de route pour sortie VTT..

pour info , le code RFO basic

Code : Tout sélectionner

! 18-07-2016
! test avec ARchos43IT sans GPS
! puis avec StaradictII et GPS  ..OK

! Demonstrates the GPS commands

debug.on

s=0
GPS_Status=0
rmsg$=""
a1$=""
rr=0
dr=1

!NomFichier$="GPS_datas.txt"

Progr$="Test-gps_160719.bas"
print "PC Asus Win10 Basic_Launcher V0.7 SCi 3.4.3"
print "Version basic : " Version$()
Device DV$
print "Device Info : "; DV$

pause 3000
print "Application MikroC Coté PIC BT RN41:"
print "Clicker2_18F87J50_RN41_BT_maitre_160719.c"
pause 2000

BT.OPEN

new_connection:
xdomenu =0

BT.CONNECT

! Read status until
! a connection is made

ln = 0
DO
BT.STATUS s
IF s = 1
ln = ln + 1
PRINT "En ecoute ", ln
ELSEIF s =2
PRINT "Connection "
ENDIF
PAUSE 1000

UNTIL s = 3
! When a connection is made
! get the name of the connected
! device

BT.DEVICE.NAME device$
print "Connecté à : ";device$;chr$(13)
print "Pret à recevoir une commande "
print chr$(13)


! Gps.open {{<status_nvar>},{<time_nexp>},{<distance_nexp>}}
! The time interval expression <time_nexp> sets the minimum 
! time between location updates

! Time_Interval=3000  % 3 sec
! Minimum_Distance_Interval=2 %  meters fot updating
GPS.OPEN  
! GPS_Status,Time_Interval,Minimum_Distance_Interval

GR.OPEN 255,255,255
GR.ORIENTATION 0
GR.SCREEN w, h
GR.TEXT.TYPEFACE 2

sp = h/9
pad = 0.25 * sp
x = 20
idx=0


Boucle:

BT.STATUS s
IF s<> 3
PRINT "Connection BT perdue "
GOTO Fin
ENDIF

GR.TEXT.SIZE sp - 2*pad
GR.COLOR 255,0,0,0,1

Debug.print 1

y = 0*sp + sp - pad
GR.TEXT.DRAW p, x,y, "  Indice ="+ FORMAT$("####",idx) 
GPS.TIME time
GR.TEXT.DRAW p, 400,y, "Time:       " + USING$(, "%tT", int(time))

Debug.print 2
y = 1*sp + sp - pad
GPS.ACCURACY accuracy
GR.TEXT.DRAW p, x,y, "Accuracy:  " + FORMAT$("####", accuracy) + " m"

Debug.print 3
y = 2*sp + sp - pad
GPS_Status=0
GPS.STATUS GPS_Status,inFix,inView
GR.TEXT.DRAW p, x,y, "GPS Status= " + GPS_Status$ +"   Satel. "+ FORMAT$("##%",inFix)+" dont "+ Format$("##%",inview)+ " detec."

!GPS.SATELLITES sats
!GR.TEXT.DRAW p, x,y, "Satellites: " + FORMAT$("##%", sats) + "    in view "+ Format$("###",inview)


Debug.print 4
y = 3*sp + sp - pad
GPS.LATITUDE latitude
GR.TEXT.DRAW p, x,y, "Latitude:   " + FORMAT$("##%.#####", latitude)

Debug.print 5
y = 4*sp + sp - pad
GPS.LONGITUDE longitude
GR.TEXT.DRAW p, x,y, "Longitude:  " + FORMAT$("##%.#####", longitude)

Debug.print 6
y = 5*sp + sp - pad
GPS.ALTITUDE altitude
GR.TEXT.DRAW p, x,y, "Altitude: " + FORMAT$("####%", altitude) + " m"


Debug.print 8
y = 6*sp + sp - pad
GPS.SPEED speed
GR.TEXT.DRAW p, x,y, "Speed:      " + FORMAT$("##%.##", speed) + " m/s"

Debug.print 9
y = 7*sp + sp - pad
if (len(rmsg$)>1) 
   GR.TEXT.DRAW p, x,y, "PIC ->RN41: " + left$(rmsg$,32)
  else
   GR.TEXT.DRAW p, x,y, "                   "  
  endif

y = 8*sp + sp - pad
if (inFix>6)
  wmsg$=""
  wmsg$="LAT:"+FORMAT$("##%.#####", latitude)+" LON:" + FORMAT$("##%.#####", longitude)+ " ALT:" + FORMAT$("####%", altitude)
  GR.TEXT.DRAW p, x,y,wmsg$
  GR.RENDER
  BT_Msg$=  USING$(, "%tT", int(time))+"  "+ wmsg$ + "  Sat: "+ FORMAT$("##%",inFix)
  BT.WRITE BT_Msg$;chr$(13)
else
  GR.TEXT.DRAW p,x,y,"Nb insuffisants de satelites : "+ FORMAT$("##%",inFix)
  BT.WRITE "Satelites en vue insuffisants: " + FORMAT$("##%",inFix);chr$(13)
endif

BT.WRITE BT_Msg$;chr$(13)
GR.CLS

PAUSE 1000


idx=idx+1

!
!if (idx=10) 
!Sms.send <33621334715,wmsg); %   number_sexp>, <message_sexp>
!SMS.RCV.INIT
!DO % Loop until SMS received
!PAUSE 5000 % Sleep of 5 seconds
!SMS.RCV.NEXT m$ % Try to get a new message
!UNTIL m$ <> "@" % "@" indicates no new message
!end if
!

GOTO Boucle

ONERROR:
debug.print GETERROR$()
Debug.print "sortie sur Erreur"
fin:
Console.save "Err_"+Prog$+".txt"
pause 2000
end

OnBtReadReady:
! Read messages until the message queue is empty
rmsg$=""
a1$=""
DO
BT.READ.READY rr
IF rr
dr=1
pause 100
bt.read.bytes A1$
rmsg$=rmsg$+a1$
end if
until rr=0
if dr=1 then
a1$=""
dr=0
end if
Pause 200
Bt.onReadReady.Resume

END



le dialogue recupéré cote PIC et envoi sur terminal

16:52:00.390> StaradictII : 16:47:47 LAT: 45.84541 LON: 5.03875 ALT: 237 Sat: 10
16:52:00.390> BP1=1 ;BP2=1 ; EA1= 232
16:52:04.765> StaradictII : 16:47:52 LAT: 45.84541 LON: 5.03876 ALT: 241 Sat: 10
16:52:04.765> BP1=1 ;BP2=1 ; EA1= 233

et le source mikroC

Clicker2_18F87J50_RN41_BT_maitre_160718.zip

Test_GPS_BT_160718_RFObas_01.jpg

Test_GPS_BT_160718_RFObas_02.jpg

Test_GPS_BT_160718_RFObas_03.jpg

[Jérémy]

Bonsoir,

Super projet comme d'hab avec toi Paul .

J’espère pouvoir bientôt me pencher sur le GPS dans quelques temps pour une autre application. Dans mon cas la com se fera en RF pour le temps réel !

Très beau travail, je suis sûr que ça va plaire à plus d'une personne !

[Jérémy]

Bonjour ,

Paul as tu galéré pour récupérer les coordonnes GPS , sont -elle brutes ou directement la longitude-latitude ?
Connais tu le taux de rafraichissement ?

[sylvain54]

Bonjour Paul,

Intéressant ton sujet. Je ne pensais pas que l'on pouvait récupérer les données des GPS de nos téléphone

A bientôt.

Sylvain

[paulfjujo]

Bonjour ,

Paul as tu galéré pour récupérer les coordonnes GPS , sont -elle brutes ou directement la longitude-latitude ?
Connais tu le taux de rafraichissement ?

Non, tres facile, car RFO basic contient des instrtuctions specifiques GPS ... et BlueTooth
Le programme source basic tourne directement sur l'android (apres avoir chargé le compilateu Basic_0190.apk)
apres mise au point du source, on peut le transformer en fichier executable *.apk


j'ai inclus un test sur le nb de satellites UTILES, pour afficher ou pas les coordonnees ..

j'ai mis des pauses assez importantes pour bien Visualiser sur l'ecran ..
je referais des tests pour evaluer le rafraichissement (minimum intervalle de temps) ..

il y a d'ailleurs une possibilité de seuil de deplacement et time intervalle ...pour reactualiser les donnees
je ne l'ai pas encore evalué

! Gps.open {{<status_nvar>},{<time_nexp>},{<distance_nexp>}}
! The time interval expression <time_nexp> sets the minimum
! time between location updates

voir le document complet Docu RFO basic


ou cet extrait concernant le GPS

RFOBasic &amp; GPS .pdf

[paulfjujo]

Bonjour Paul,

Intéressant ton sujet. Je ne pensais pas que l'on pouvait récupérer les données des GPS de nos téléphone

A bientôt.

Sylvain

j'en étais pas convaincu non plus , avant ce test !

[sylvain54]

fallait oser

En tout cas, ça peut ouvrir des perspectives de projets. De nos jours, presque tout le monde a un smartphone dans sa poche et quasi H24.
Après sont-ils aussi performant que les GPS click de chez MikroE
A adapter selon les besoins du projet je pense.

A ++

[paulfjujo]

bonjour à tous,

pour plus d'infos sur cette 1ere partie ICI

Après sont-ils aussi performant que les GPS click de chez MikroE

Je vais en commander un .. mais critere de choix ?
comparatif MikroE
j'hesite en le GPS-click et le GS3 avec antenne integrée qui serait plus rapide et consomme moins
Votre avis m'interesse !



En attendant , je vais tester :
GSM2 click sur le mikrobus#1 .
BlueTooth RN41 sur le mikrobus#2
pour .. cette fois envoi GPS Android Staradict2 (sans puce SIM) <-> bluetooh RN41 PIC18F87J50 -> GSM2 -> SMS Stratrail7 Phone
pour avoir en finalité
GPS-Click <-> PIC18F87J50 -> GSM2 -> SMS Stratrail7 Phone
donc à suivre ...

[sylvain54]

le GPS 3 à l'air pas mal, le nano aussi. Je dirais tout dépend de ce que l'on veut faire avec
Le nano peut être bien dans un projet où la taille du produit fini est importante, et encore, il ne faut pas grand chose autour pour les faire vivre
Pour moi, la rapidité n'est pas forcément un critère de choix alors que la conso, oui, puisque l'utilisation se fait via batterie(s).

De mon coté, j'ai un Ublox Lea-6 (mais pas de chez Mikroe), J'ai juste regardé s'il fonctionnait.

A + Sylvain

[paulfjujo]

bonjour,


J'ai fais mon choix , ailleurs que chez MikroE
C'est bien joli les support MikroBus , mais les modules GPS sont pas donnés, de plus il faut rajouter le Port et les frais de douanes !
un module à 45e -> finit vers 65€ à 70€
j'ai donc commandé chez DX europe ..pas de frais d'envoi au delà de 30€, pas de frais de douanes ..en France
pour moins de 45e j'ai commandé ceci:
http://eud.dx.com/product/high-precisio ... -844397953
High Precision GPS Module with Compass for NEO-7N Pixhawk APM Multicopter € 22.79
http://eud.dx.com/product/ulbox-atk-neo ... -844226460
Ulbox ATK-NEO-6M-V12 GPS Module w/ 5Hz Antenna - Blue + Yellow € 21.57

le 1er serait un GPS + Compas pour helicoptere avec sortie Serie GPS et sortie I2C compas
Le 2me est un Ublox ? ou ulbox ?

j'espere que ce ne sont pas des erzats ! (Puce vide !)

A suivre ...

au webmaster : effacer SVP, le nom du fournisseur si considéré comme de la pub