Durchschnittliche Windgeschwindigkeit

[mfreye]

Guten Abend und noch frohe Weihnachten!

Ich hatte vor die durchschnittliche Windgeschwindigkeit der letzten Stunde zu berechnen.

Dazu habe ich KS_300_Wind folgendes eingetragen:

Code: Alles auswählen

KS_300_Wind.var:=KS_300_Wind

KS_300_Wind.var:=KS_300_Wind.var + KS_300_Wind.var
KS_300_Wind.Zaehler:=KS_300_Wind.Zaehler +1

In einen anderen Objekt, welches jede Stunde ausgeführt wird dieses eingetragen:

Code: Alles auswählen

KS_300_Wind.Durchschnitt:=KS_300_Wind.var / KS_300_Wind.Zaehler
KS_300_Wind.var:=0
KS_300_Wind.Zaehler:=0


SchreibText := "'" + Datum + ";" + "'" + Uhrzeit + ";" + Datum + ";" + Uhrzeit + ";" + KS_300_Temp + ";" + KS_300_Feuchte + ";" + KS_300_Wind.Durchschnitt + ";" + KS_300_RegenLStunde
Schreibedatei("D:\homeputer Studio\Loggen\Wetterdaten\Wetterdaten_gemessen.csv",SchreibText)

Leider wird immer der Wert 0 in die Textdatei geschrieben?

Was mache ich hier falsch?

MfG
MFreye

[kafibo]

Hallo,

Du hast im ersten Makro geschrieben

KS_300_Wind.var:=KS_300_Wind

KS_300_Wind.var:=KS_300_Wind.var + KS_300_Wind.var
KS_300_Wind.Zaehler:=KS_300_Wind.Zaehler +1

In der zweiten Zeile müsste meiner Meinung die Variable die alles zusammen rechnet anders heissen, z. B. KS_300_Wind.Gesamt.
Wenn nämlich ein neuer Wert vom Sensor kommt wird die Variable KS_300_Wind.var überschrieben. Wenn dann kurz bevor das andere Makro gestartet wird der Wert 0 vom KS300 übermittelt wird stimmt nämlich der Wert (den Du mit 0 angegeben hast) in der CSV Datei.
Also müsste die zweite Zeile dann heissen:

Code: Alles auswählen

KS_300_Wind.Gesamt:=KS_300_Wind.Gesamt + KS_300_Wind.var

und im zeiten Makro müsste es heissen:

Code: Alles auswählen

KS_300_Wind.Durchschnitt:=KS_300_Wind.Gesamt / KS_300_Wind.Zaehler
KS_300_Wind.Gesamt:=0
KS_300_Wind.Zaehler:=0

Als Startwert bei KS_300_Wind.Gesamt würde ich *.* einsetzen damit eine Kommastelle angegeben wird.
Ich hoffe Dir weiterhelfen zu können.

[mfreye]

Hallo und danke kafibo.

Hatte das Problem einfach nicht gesehen

Jetzt aber noch ne andere Frage.

Code: Alles auswählen

KS_300_Wind.var_1:=KS_300_Wind

KS_300_Wind.var_2:=KS_300_Wind.var_2 + KS_300_Wind.var_1
KS_300_Wind.Zaehler:=KS_300_Wind.Zaehler +1

muss ich KS_300_Wind.var_1:=KS_300_Wind erst zuweisen oder kann der Code auch so aussehen.

Code: Alles auswählen

KS_300_Wind.var:=KS_300_Wind.var + KS_300_Wind
KS_300_Wind.Zaehler:=KS_300_Wind.Zaehler +1

Kann es zur Zeit nicht testen, da es hier kein Wind zur Zeit gibt

MfG
MFreye

[kafibo]

Hallo,

das habe ich so noch nicht probiert, sollte aber theoretisch funktionieren (bei ausführen bei Empfang).

[mfreye]

Hallo kafibo,

habe das ganze diese Nacht mal gestest, läuft ohne Probleme.

MfG
MFreye