PureBasic

Forums PureBasic
Nous sommes le Lun 18/Jan/2021 17:26

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 7 messages ] 
Auteur Message
 Sujet du message: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Lun 06/Juil/2020 8:30 
Hors ligne

Inscription: Mer 03/Juin/2020 5:00
Messages: 2
Comment faire en PureBasic, pour récupérér à partir d'un lieu ou d'une ville pour
récupérér les coordonnées GPS (Latitude Longitude) à partir par exemple
de Mappy en France ou bien de Google Earth ou autre programme, merci à vous

oricman


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Lun 06/Juil/2020 8:48 
Hors ligne

Inscription: Mer 21/Jan/2004 18:24
Messages: 1556
une petite recherche gougeuleu sur "coordonnées gps villes de france"
Liste des villes de France en SQL, CSV ou XML = https://sql.sh/736-base-donnees-villes-francaises
trié sur le numéro de département

exemple avec le csv
Code:
1,"01","ozan","OZAN","ozan","Ozan","O250","OSN","01190","284","01284","2","26","6","618","469","500","93","6.6","4.91667","46.3833","2866","51546","+45456","462330","170","205"
2,"01","cormoranche-sur-saone","CORMORANCHE-SUR-SAONE","cormoranche sur saone","Cormoranche-sur-Saône","C65652625","KRMRNXSRSN","01290","123","01123","2","27","6","1058","903","1000","107","9.85","4.83333","46.2333","2772","51379","+44953","461427","168","211"


reste à faire le programme purebasic pour exploiter tout ce bazar...

Pat


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Mar 07/Juil/2020 7:57 
Hors ligne

Inscription: Ven 29/Juin/2007 17:50
Messages: 3673
Localisation: Encore ?
Bonjour Patrick88,

merci pour ce partage des infos. C'est et ça sera sûrement utile.

Cordialement


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Mer 08/Juil/2020 18:36 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 10/Mar/2013 22:22
Messages: 171
Localisation: France
Si l'on omet la partie spécifique "France" de la question (qui à déjà une réponse de la part de Patrick88), tu peut utiliser le géo-codeur d’OpenStreetMap pour faire ça : https://nominatim.openstreetmap.org/
Bon par-contre il faut faire attention à la façon dont tu fait les requêtes : https://www.smals.be/fr/content/geocoda ... p-partie-1


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Jeu 09/Juil/2020 8:42 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 2172
et voila .... ;)

Code:
;***********************************************
;Titre  :*recup_gps_affiche_sur_carte
;Auteur  : Dobro
;Date  :09/07/2020
;Heure  :09:41:09
;Version Purebasic :  PureBasic 5.71 LTS (Windows - x86)
;Version de l'editeur :EPB PHOENIX V2.68
; Libairies necessaire : Aucune
;***********************************************

;{- Enumerations / DataSections
;{ Windows
Enumeration
      #Win
EndEnumeration
;}
;{ Gadgets
Enumeration
      #Web
      #timer
EndEnumeration
;}
Define.l Event
;}
Declare SetBrowserEmulation()

Global Flag.b

InitNetwork()





;SetBrowserEmulation() ; <<<<<<<<<<<<<<---------------------- Seulement avec Windows 10 pour la version GOOGLE MAP

If OpenWindow(#Win, 439, 55, 1195, 732, "Window", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
      
      ; ; ******************* GOOGLE MAP  *************************************************
      ; ; ************* affichage par Adresse  de la carte  **************************
      ; ; Affiche le'adresse 12 rue Edouard lefebvre a Versailles  ..... a 12 rue lenine a Saint Cyr l'ecole
      ; ;adresse.s="12 Rue Edouard Lefebvre,Versailles"
      ; WebGadget(#Web, 60, 55, 1055, 645, "https://www.google.com/maps/place/"+adresse.s)   ; <<<<<<<<<<<<<  decomenter pour tester
      ; ne retourne pas les coordonées , seule la carte est affichée
      ; ; ******************************************************************
      
      
      ; ********************* OPEN STREET MAP **************************************
      ;********************* Affiche par adresse de la carte *******************************
      adresse.s="12 rue edouard lefebvre"
      Ville.s="Versailles"
      Pays.s="France"
      etat.s=""
      code_postal.s=""
      ;
      ;
      WebGadget(#Web, 60, 55, 1055, 645, "https://nominatim.openstreetmap.org/search.php?street="+adresse.s+"&city="+Ville.s+"&county="+Pays.s+"&state="+etat.s+"&county="+Pays.s+"&postalcode="+code_postal.s)
      ; **********************************************************************************
      
      ; ***********************   recuperation du point GPS  ***************************************
      
      Url.s="https://nominatim.openstreetmap.org/search.php?street="+adresse.s+"&city="+Ville.s+"&county="+Pays.s+"&state="+etat.s+"&county="+Pays.s+"&postalcode="+code_postal.s
      
      *Buffer = ReceiveHTTPMemory(Url.s)
      If *Buffer
            Taille = MemorySize(*Buffer)
            page.s= PeekS(*Buffer, Taille, #PB_UTF8|#PB_ByteLength)
            ;;;debug page.s
            FreeMemory(*Buffer)
      Else
            Debug "Le téléchargement a échoué"
      EndIf
      
      debug "Adresse :" +adresse.s
      debug "Ville :"+ville.s
      debug "Pays :"+Pays.s
      debug "Longitude ="+mid(stringfield(page.s,3,chr(34)+"lon"+chr(34)+":"),1,11)
      debug "Latitude ="+mid(stringfield(page.s,3,chr(34)+"lat"+chr(34)+":"),1,12)
      
      ;  ***************************************************************************************
      
EndIf




;{- Event loop
Repeat
      Event = WaitWindowEvent(12)
      Select Event
                  ; ///////////////////
                  
            Case #PB_Event_Gadget
                  Select EventGadget()
                        Case #Web
                              Select EventType()
                                          Case#PB_EventType_DownloadEnd
                                          ;Url.s= GetGadgetText(#Web)
                                          ;Debug Url.s
                                          ;debug GetGadgetItemText(#Web,#PB_Web_StatusMessage )
                              EndSelect
                  EndSelect
                  ; ////////////////////////
            Case #PB_Event_CloseWindow
                  Select EventWindow()
                        Case #Win
                              CloseWindow(#Win)
                              
                              Break
                  EndSelect
      EndSelect
      
      
Forever
;
;}


Procedure SetBrowserEmulation() ; permet de choisir le type de navigateur qu'on veux
      
      ; https://msdn.microsoft.com/en-us/library/ee330730(v=vs.85).aspx
      
      Protected IEVersion.s = "2AF9" ; setting the desired IE-Version (see below)
      
      ; 11001 (0x2AF9) IE11. Webpages are displayed in IE11 edge mode, regardless of the declared !DOCTYPE directive. Failing to declare a !DOCTYPE directive causes the page to load in Quirks.
      ; 11000 (0x2AF8) IE11. Webpages containing standards-based !DOCTYPE directives are displayed in IE11 edge mode. Default value for IE11.
      ; 10001 (0x2711) IE10. Webpages are displayed in IE10 Standards mode, regardless of the !DOCTYPE directive.
      ; 10000 (0x2710) IE10. Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode. Default value for IE 10.
      ;  9999 (0x270F) IE9.  Webpages are displayed in IE9 Standards mode, regardless of the declared !DOCTYPE directive. Failing to declare a !DOCTYPE directive causes the page to load in Quirks.
      ;  9000 (0x2328) IE9.  Webpages containing standards-based !DOCTYPE directives are displayed in IE9 mode. Default value for IE 9. Important  In IE 10, Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode.
      ;  8888 (0x22B8) IE8.  Webpages are displayed in IE8 Standards mode, regardless of the declared !DOCTYPE directive. Failing to declare a !DOCTYPE directive causes the page to load in Quirks.
      ;  8000 (0x1F40) IE8.  Webpages containing standards-based !DOCTYPE directives are displayed in IE8 mode. Default value for IE 8 Important  In IE 10, Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode.
      ;  7000 (0x1B58) IE7.  Webpages containing standards-based !DOCTYPE directives are displayed in IE7 Standards mode. Default value for applications hosting the WebBrowser Control.
      
      Protected RegistryString.s
      Protected TempRegFile.s
      Protected FF
      
      RegistryString = "Windows Registry Editor Version 5.00" + #CRLF$ +
      "" + #CRLF$ +
      "[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION]" + #CRLF$ +
      Chr(34) + GetFilePart(ProgramFilename()) + Chr(34) + "=dword:" + IEVersion + #CRLF$
      
      TempRegFile = GetTemporaryDirectory() + "SetBrowserEmulation.reg"
      
      FF = CreateFile(#PB_Any, TempRegFile)
      
      If FF
            WriteString(FF, RegistryString)
      CloseFile(FF)
      RunProgram("regedit", "/s " + Chr(34) + TempRegFile + Chr(34), "", #PB_Program_Hide | #PB_Program_Wait)
      DeleteFile(TempRegFile)
      ProcedureReturn #True
EndIf

EndProcedure




; Epb


_________________
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Jeu 09/Juil/2020 10:01 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 25/Avr/2008 11:14
Messages: 1447
bjr à tous
voici un atlas international format texte
que l'on peut reformater pour notre usage avec une petite moulinette :wink:
je l'ai moi même adapté à mes besoins
Cordialement

http://www.southville.net/astrolog32/fr/atlas_int.html

http://www.southville.net/astrolog32/fr/atlas_usa.html


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Récupérer les coordonnées GPS Latitude et Longitude
MessagePosté: Mar 14/Juil/2020 16:29 
Hors ligne

Inscription: Mer 03/Juin/2020 5:00
Messages: 2
Merci les gars c'est vraiment sympa de votre part,
Cordialement

Lolo


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 7 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 6 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye