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
j'en étais pas convaincu non plus , avant ce test !
