AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte myTNAWeather - Version 0.2
Thema durchsuchen
Ansicht
Themen-Optionen

myTNAWeather - Version 0.2

Ein Thema von Mithrandir · begonnen am 23. Jun 2009 · letzter Beitrag vom 13. Jun 2016
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von Mithrandir
Mithrandir
Registriert seit: 27. Nov 2008
myTNAWeather - Version 0.2
http://mytnaweather.danielgilbert.de


Moinsen alle zusammen,

nach langer Zeit habe ich mal wieder ein Programm geschrieben. Die Idee entstand vor 2 1/2 Wochen nach diesem Thread. Damals kam die Idee auf, METAR-Daten zu verwenden. Und hier ist das erste Ergebnis von der Idee, eine sehr frühe Testversion.

Benutzung

Da es sich um eine frühe Version handelt, gibt es momentan noch keine Webseite zum Programm, geschweige denn eine vernünftige Hilfe. Daher eine kurze Einführung:

Beim ersten Start werdet ihr gefragt, an welcher Stelle die Einstellungsdatei gespeichert werden soll. Danach wird das Programm mit Standardwerten geladen. Anschließend wird eine Anfrage an den METAR-Server der NOAA gesendet.

Dann erscheint das Programmfenster. Hier bekommt ihr eine erste Übersicht. Anschließend könnt ihr in den Einstellungen auf "Flughafendaten" und dann auf "Nächsten Flughafen finden...". Hier könnt ihr die manuelle oder die automatische Suche auswählen. Bei der manuellen Auswahl könnt ihr entweder den ICAO Code des Flughafens direkt eingeben, oder ihn über das Land und die Stadt auswählen.

Bei der automatischen Suche könnt ihr eine deutsche Postleitzahl angeben und bekommt dann eine Liste mit möglichen Flughafen in einem Umkreis von 100 Kilometern wieder. Diese sind aber noch nicht nach Entfernung sortiert.

Bei einem Klick auf das Icon erscheint ein Balloon-Tipp mit dem aktuellen Wetter. Sollte das nicht möglich sein, so könnt ihr im Einstellungen-Dialog einstellen, das statt dem Balloon-Tipp das Übersichtsfenster erscheint.

Ein Klick auf das kleine Kreuz des Fensters lässt es dann verschwinden, mit Rechtsklick auf das Wettericon könnt ihr das Fenster wieder hervorholen.

Das Wetter wird alle 30 Minuten neu vom Server geholt.

Das war so erstmal das Wichtigste...

Bekannte Fehler
  • Einige Labels noch nicht übersetzt
  • Diverse Optionen ausgegraut
  • Fehlerbehandlung noch nicht komplett.


Noch zu implementierende Features
  • Wetter-Verlauf
  • Wetterwarnungen
  • Wettervorschau auf die nächsten 2 Stunden
  • Eventuell mehrere Stationen

Changelog

Version 0.2
  • Mit Windows starten möglich
  • Entfernung von PLZ zum Flughafen wird berechnet
  • Von TTrayIcon auf TCoolIcon umgestiegen
  • Umgebungssuche neu designed
  • Namen der Länder und Flughäfen in Groß-/Kleinschreibung konvertiert
  • Fehler in der TNAClick-Funktion behoben


Feedback
Da es sich um eine sehr, sehr frühe Version handelt, würde mich natürlich interessieren, was ich noch verbessern sollte, welche Wünsche ihr noch habt, unter welchen Systemen es einwandfrei funktioniert, und, und, und....


Danke für's lesen und testen.
Miniaturansicht angehängter Grafiken
mytnaweathertnaclick_851.png   mytnaweathermain_586.png  
Angehängte Dateien
Dateityp: exe mytnaweather_139.exe (935,5 KB, 69x aufgerufen)
"In einer Zeit universellen Betruges wird das Aussprechen der Wahrheit zu einem revolutionären Akt." -- 1984, George Orwell
 
Benutzerbild von Mithrandir
Mithrandir
 
#11
  Alt 26. Jun 2009, 21:03
Moin Markus,

Zitat:
By the way : was machst Du eigentlich, wenn zwei oder drei
Kodierungen für Wolkenbildung (in versch. Höhen) vorliegen ?
- Vermitteln, ignorieren oder den ersten Wert
(wäre ja die erste "sichtbare" Wolkenbildung) nehmen.
Nein, den letzten Wert. Es wäre allerdings auch theoretisch mit kleinen Umbauten möglich, alle Schichten zu erfassen. Ich frage mich allerdings, welcher Wert sinnvoller ist, ob nun der obere oder der unterste...

Zitat:
.. und ich nehme mal an, die rel. Luftfeuchte berechnest Du ?
Da stellt sich mir die Frage, welche Parameter benutzt Du bei
Temperaturen unter 0°C ?
Hmm... Hast du einen meterologischen Hintergrund? Mehr fehlt dieser, deswegen habe ich mir das relativ einfach gemacht, und eine vorhandene PHP-Library nach Delphi übersetzt und entsprechend den Feinheiten "unserer" Sprache angepasst. Die Logik habe ich mir aber aus der Unit genommen, die ich demnächst auch noch veröffentlichen möchte.

Momentan berechnet sich die Luftfeuchte so:

Delphi-Quellcode:
//DewPoint in Celsius
fDewPoint := StrToInt(StringReplace(RgEx.SubExpressions[2],'M','-', [rfReplaceAll]));
fHumidity := Round(100 * power((112 - (0.1 * fTemperature) + fDewPoint ) / (112 + (0.9 * fTemperature)) , 8));
Ob die Formel korrekt ist, kann ich nicht nachvollziehen. Du vielleicht?


//Nachtrag:
Ungeachtet dessen habe ich mal Version 0.2 hochgeladen.

Ich habe einige Fehler der letzten Version entfernt, etwas im Code aufgeräumt und neue Features hinzugefügt.

Zitat:
die beiden Combo-Boxen zur manuellen Auswahl sollten bei automatischer Auswahl oder Direkteingabe richtig eingestellt werden
Das habe ich noch nicht umgesetzt.
米斯蘭迪爾
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#12
  Alt 27. Jun 2009, 16:50
Hallo daniel,

die meines Wissens korrekte Berechnung der rel. Luftfeuchte :

Bezeichnungen:
r = relative Luftfeuchte
T = Temperatur in °C
Tt = Temperatur in Kelvin (Tt = T + 273.15)
TA = Taupunkttemperatur in °C
DD = Dampfdruck in hPa
SDD = Sättigungsdampfdruck in hPa

Parameter:
a = 7.5, b = 237.3 für T >= 0
a = 7.6, b = 240.7 für T < 0 über Wasser (Taupunkt)
a = 9.5, b = 265.5 für T < 0 über Eis (Frostpunkt)

R* = 8314.3 J/(kmol*K) (universelle Gaskonstante)
mw = 18.016 kg (Molekulargewicht des Wasserdampfes)
Fabs = absolute Feuchte in g Wasserdampf pro m3 Luft

Formeln:

SDD(T) = 6.1078 * 10^((a*T)/(b+T))

DD(r,T) = r/100 * SDD(T)

r(T,TA) = 100 * SDD(TA) / SDD(T)

TD(r,T) = b*v/(a-v)
mit v(r,T) = log10(DD(r,T)/6.1078)

Fabs(r,Tt) = 10^5 * mw/R* * DD(r,T)/Tt;
Fabs(TA,Tt) = 10^5 * mw/R* * SDD(TA)/Tt

an den Parametern a und b siehst Du, dass bei Temperaturen unter 0 °C
andere Verhältnisse vorherschen, die das Sättigungsverhalten beeinflussen.

Deine Formel ist eine Näherungsformel - wird ungenau, wenn z.B. temperatur und Taupunkttemperatur
dicht zusammen liegen.
Markus H.
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
 
#13
  Alt 28. Jun 2009, 19:12
Hui, das ist erstmal harter Tobak.

Danke dir, ich werde mir die Formeln genauer ansehen, interpretieren und in der nächsten Version dann wohl implementieren...
米斯蘭迪爾
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#14
  Alt 29. Jun 2009, 12:10
Zitat von Daniel G:
Hui, das ist erstmal harter Tobak.

Danke dir, ich werde mir die Formeln genauer ansehen, interpretieren und in der nächsten Version dann wohl implementieren...
Hallo,
das Problem der Ungenauigkeit wird nicht bei Temperaturen über 0°C auftreten
(kann man vernachlässigen), jedoch bei unter 0 °C wird's heikel.
Für Temperaturen unter 0°C nusst Du dann die Parameter nach "über Eis (Frostpunkt)"
festlegen, allerdings erst bei ca. -8°C, da Du sonst nicht von gefrorenem Boden
ausgehen kannst. Für den Bereich zwischen 0°C ... -8°C würde ich die Werte vermitteln.
Ist auch wieder eine Näherung, aber wir können ja nicht wissen, ob bei bspw. -6°C
der Boden bei XXXX schon gefroren ist.
Markus H.
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms

 
Delphi XE Professional
 
#15
  Alt 5. Jul 2009, 06:08
- Nachdem ich das Land und Flughafen ausgewählt und gespeichert habe wird bei erneutem Klick auf "Nächsten Flughafen finden..."
beim Land immer "Afghanistan" angezeigt.

- Bei einigen Flughäfen werden die Bezeichnungen abgeschnitten, resp. fehlt eine schließende Klammer (z.B Zurich-Kloten (A )
Thomas
  Mit Zitat antworten Zitat
letsfetz

 
Delphi 7 Personal
 
#16
  Alt 5. Jul 2009, 08:14
Getestet unter Win XP Home:
Automatisch minimierte Taskleiste mit doppelter Höhe (2-reihig) auf Asus Netbook.

1. Wenn man mit der Maus über das Tray-Icon fliegt erscheint der Text unlesbar halb verdeckt hinter der Taskleiste. (Ich meine nicht Balloon Tip).
[edit] plötzlich wird es doch richtig dargestellt... liegt wohl an meinem Windows[/edit]

2. Das Programm gefällt mir so gut, dass meine Phantasie mit mir durchgeht !

Wenn das Programm auch noch kurz nach der Wetteraktualisierung eine Textdatei ausgeben würde, welche ich dann mit meinem Html-Pharser synchronisieren könnte... Würde auf ner Website in Verbindung mit meiner Webcam mit Sicherheit ein absoluter Hingucker
[edit]Aber wahrscheinlich ist es nicht erlaubt diese Daten von dort zu holen und in eigene Websiten einzubauen[/edit]
Michael
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
 
#17
  Alt 5. Jul 2009, 14:08
Hi ihr zwei beiden.

@toms:

Zitat:
- Nachdem ich das Land und Flughafen ausgewählt und gespeichert habe wird bei erneutem Klick auf "Nächsten Flughafen finden..."
beim Land immer "Afghanistan" angezeigt.
Wird in der nächsten Version gefixt.

Zitat:
- Bei einigen Flughäfen werden die Bezeichnungen abgeschnitten, resp. fehlt eine schließende Klammer (z.B Zurich-Kloten (A )
Hmm... Das ist so eine Sache... Das Problem sind die Rohdaten. Jemand kam auf die großartige Idee, eine Liste mit allen 7000 Flughäfen anzulegen, die METAR-Daten senden. Allerdings musste er pro Spalte wohl irgendwie eine bestimme Länge einhalten. Normalerweise sind die Rohdaten auch alle GROSS geschrieben. Das habe ich schon gefixt. Der Wille, die 7000 Flughäfen zu vervollständigen.. Nun ja, hält sich momentan noch in Grenzen. Kommt aber sicher irgendwann....

@letsfetz:

Zitat:
Das Programm gefällt mir so gut, dass meine Phantasie mit mir durchgeht !


Zitat:
Wenn das Programm auch noch kurz nach der Wetteraktualisierung eine Textdatei ausgeben würde, welche ich dann mit meinem Html-Pharser synchronisieren könnte... Würde auf ner Website in Verbindung mit meiner Webcam mit Sicherheit ein absoluter Hingucker
Eine History-Funktion ist in meiner aktuellen Testversion schon eingebaut. Dabei wird eine XML-Datei erstellt und pro Aktualisierung ein neuer Eintrag hinzugefügt. Ein mächtiger History-Reader befindet sich als eigene Anwendung in der Entwicklung. Über eine Plugin-Schnittstelle könnte man auch nachdenken.

Zitat:
[edit]Aber wahrscheinlich ist es nicht erlaubt diese Daten von dort zu holen und in eigene Websiten einzubauen[/edit]
Was das angeht, hast du sowohl von der NOAA als auch von mir grünes Licht.
米斯蘭迪爾
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#18
  Alt 13. Jun 2016, 19:18
Moin.

NOAA stellt nach dem 15.06.2016 seinen Betrieb ein (zumindest nach jetzigen Informationen).
Danach sollte dann der DownloadPfad geändert werden,
eine Anleitung im Anhang.
Miniaturansicht angehängter Grafiken
noaa.jpg  
Markus H.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


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 11:27 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