AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Geokoordinaten Umrechnen in Dezimalgrad

Geokoordinaten Umrechnen in Dezimalgrad

Ein Thema von BBoy · begonnen am 27. Mai 2011 · letzter Beitrag vom 27. Mai 2011
Antwort Antwort
Seite 1 von 3  1 23   
BBoy

Registriert seit: 17. Jan 2007
418 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 08:16
Ich habe Geokoordinaten in der Form: N 49° 41.567 E 008° 51.356
Und möchte diese in Dezimalgrad umwandeln, also so: 49.531 8.356
Und eben auch umgekehrt. Weiß jemand wie ich das in Delphi realisieren kann?

Danke.
  Mit Zitat antworten Zitat
Benutzerbild von Coffeecoder
Coffeecoder

Registriert seit: 27. Apr 2011
242 Beiträge
 
Delphi 6 Enterprise
 
#2

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 08:27
Hi,


Guck mal hier rein.
Coffeecoder
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#3

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 08:42
Du kannst auch nach NMEA Konvertierungen suchen. Ich müsste irgenwo eine Funktion haben.

Im NMEA String ist "N 49° 41.567" als "4941.5670,N" kodiert. Meine geht mit Grad merken und Rest durch 60 Sekunden (Minuten?) teilen und bei S/W noch negieren.

Ich suche mal die Funktion...

Geändert von Satty67 (27. Mai 2011 um 08:46 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#4

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 08:56
Ich habe Geokoordinaten in der Form: N 49° 41.567 E 008° 51.356
Und möchte diese in Dezimalgrad umwandeln, also so: 49.531 8.356
Und eben auch umgekehrt. Weiß jemand wie ich das in Delphi realisieren kann?

Danke.
Deine Beispiel stimmen nicht.
Nord = 49 + (41.567 / 60) = 49,692783

Den Weg in die Andere Richtung kannst Du Dir selbst überlegen.
Jens
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 09:00
Gefunden:

Delphi-Quellcode:
function GeoToDec(Grad : Integer; Min, Sec : Double; Direction : AnsiChar): Double;
begin
  Result := (Min / 60) + (Sec / 3600) + Grad;
  if Direction in ['S', 'W'] then
    Result := -Result;
end;
Also E48° 41' 50.908" wird so übergeben:

GeoToDec(48, 41, 50.908, 'N')

Geändert von Satty67 (27. Mai 2011 um 09:44 Uhr)
  Mit Zitat antworten Zitat
BBoy

Registriert seit: 17. Jan 2007
418 Beiträge
 
Delphi 10 Seattle Professional
 
#6

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 09:21
Ich habe Geokoordinaten in der Form: N 49° 41.567 E 008° 51.356
Und möchte diese in Dezimalgrad umwandeln, also so: 49.531 8.356
Und eben auch umgekehrt. Weiß jemand wie ich das in Delphi realisieren kann?

Danke.
Deine Beispiel stimmen nicht.
Nord = 49 + (41.567 / 60) = 49,692783

Den Weg in die Andere Richtung kannst Du Dir selbst überlegen.
Also die Formel funktioniert. Da muss man nix negieren oder so?
Wäre schon nett wenn Du mir noch den Weg in die andere Richtung beschreiben könntest. Ich komme da nicht drauf. Danke.
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#7

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 09:34
Wenn es Süd oder West ist, dann musst Du es negieren.

Meine Formel mal allgemein formuliert.
Dezimalgrad = Grad + (Minuten / 60)

Stelle die Formel nach "Grad" um und Du hast den Grad-Anteil. Stelle die Formel nach "Minuten" um und Du hast den Minutenanteil.
Jens
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#8

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 09:45
Hab' meine Funktion leicht geändert, somit sind auch Dezimal-Minuten (ohne Sekunden) verwendbar.
  Mit Zitat antworten Zitat
BBoy

Registriert seit: 17. Jan 2007
418 Beiträge
 
Delphi 10 Seattle Professional
 
#9

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 11:29
@Satty67, kann deine Funktion dies: N 49° 52.048 E 008° 33.470 in dies: 49.867467 8.557833 Umwandeln? Scheinbar nimmst du ein anderes Format und zwar dies: N49° 52' 2.88" E8° 33' 28.2", oder?

Für mich wichtig wäre jetzt erst mal die umgekehrte Umwandlung, also dies: 49.867467 8.557833 in N 49° 52.048 E 008° 33.470

Gibt es keine Funktionsbibliothek für solche Geo-Sachen? bräuchte da auch noch Entfernung zw. zwei koordinaten und eventuell die Himmelsrichtung einer Koordinate vom Ausgangspunkt. Aber im Moment ist die og. Umrechnung erst mal wichtig
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#10

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 11:37
@Satty67, kann deine Funktion dies: N 49° 52.048 E 008° 33.470 in dies: 49.867467 8.557833 Umwandeln? Scheinbar nimmst du ein anderes Format und zwar dies: N49° 52' 2.88" E8° 33' 28.2", oder?
Übergib einfach eine 0 für den Sekundenanteil.

Wo genau liegt Dein Problem, die Formel für die andere Richtung umzuformen?
Jens
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz