AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Geokoordinaten Umrechnen in Dezimalgrad
Thema durchsuchen
Ansicht
Themen-Optionen

Geokoordinaten Umrechnen in Dezimalgrad

Ein Thema von BBoy · begonnen am 27. Mai 2011 · letzter Beitrag vom 27. Mai 2011
Antwort Antwort
Benutzerbild von Nersgatt
Nersgatt

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

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
 
#2

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
 
#3

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
 
#4

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
 
#5

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
 
#6

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
 
#7

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
BBoy

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

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 12:03
Wo genau liegt Dein Problem, die Formel für die andere Richtung umzuformen?
Unwissenheit? Dummheit? Nenne es wie Du willst, ich bekommst halt net gebacken, sorry.
  Mit Zitat antworten Zitat
Satty67

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

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 13:01
@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?
Beide Formate kannst Du übergeben.

Geodaten sind Angaben in
Grad° Minuten' Sekunden"
oder
Grad° Minuten+Sekunden als Dezimalzahl

Beides kannst Du der Funktion übergeben, im zweiten Fall für Sekunden einfach 0 angeben.

Unwissenheit ist übrigens keine Schande, ich weis auch vieles nicht. Im Zeitalter von Internet und Google sollte man aber Informationen sammeln können.

Die Umrechnung ist übrigens genausowenig Hexerei wie 1 Stunde 30 Minuten in 1,5 Stunden umzurechen (das macht fast jeder schnell im Kopf)

das ist nicht dein Ernst oder? Komme mir vor wie in einem Hausaufgabenforum, wo keiner eine Lösung geben will. Naja, vielleicht erbarmt sich ja doch noch jemand
Hier haben Dir zwei Leute ausführlich und genau den Lösungsweg vorgeschlagen, incl. Funktion (fertiger Quellcode!) Das Du so eine einfach Aufgabe damit nicht gebacken bekommst, kannst Du uns nicht in die Schuhe schieben.
  Mit Zitat antworten Zitat
BBoy

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

AW: Geokoordinaten Umrechnen in Dezimalgrad

  Alt 27. Mai 2011, 13:23
ich gebe hier niemanden die Schuld an meiner Unwissenheit....

Klar wie man N 49° 52.048 E 008° 33.470 in dies: 49.867467 8.557833 Umwandelt weis ich ja nun schon lange.
kann deine Funktion auch den umgekehrten weg rechnen? Denn nur darum geht es mir momentan.
Mit dem umgekehrten weg habe ich eben probleme. Ich peil es eben nicht.. hab von dem Koordinaten Kram keine Ahnung und Mathe ist mehr als ewig her.... brauch einfach nur ne Formel.. Sorry...

Und für die bisherige Hilfe bin ich dankbar!! Hat mir weiter geholfen.
  Mit Zitat antworten Zitat
Antwort Antwort


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 20:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz