Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Récupérer la position gps (longitude et latitude)
Auteur Message
Répondre en citant
Message Récupérer la position gps (longitude et latitude) 
Salut,

ça faisait longtemps que je n'était pas passé sur le forum ! (Coucou Laddy Smile )

si vous possédez un appareil windows avec une puce gps embarquée vous pouvez tester ce petit script (programmé sur une tablette windows 10) Wink :
Code:
$return = _get_gps_position()
if @error then
   ConsoleWrite("erreur:"&$return&@cr)
Else
   ConsoleWrite("position gps:"&$return&@cr)
   ConsoleWrite("adresse google map:http://maps.google.com/?q="&$return&@cr)
EndIf
func _get_gps_position()
   Global $rptLong = -1, $rptLat = -1
   $latlongfactory = ObjCreate("LocationDisp.LatLongReportFactory" )
   If @error Then return SetError(1,0,"ObjCreate error")
   ObjEvent($latlongfactory,  "llf_","NewLatLongReport")
   If @error Then return SetError(1,0,"ObjEvent error")
   $latlongfactory.ListenForReports(1000)
   $timeout = TimerInit()
   Do
      Sleep(100)
      If TimerDiff($timeout) > 25000 Then return SetError(1,0,"timer="&int(TimerDiff($timeout))&" Aucun résultat gps trouvé dans le délai imparti")
   Until $rptLong <> -1
   return $rptLat&","&$rptLong
EndFunc
Func llf_NewLatLongReport($report)
   $rptLong = $report.Longitude
   $rptLat = $report.Latitude
EndFunc   ;==>llf_NewLatLongReport





______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch