Skript für Anzahl Tage seit letztem Regen

[Xel66]

Gibts nun ein Reloaded 2.0 ?

Schau doch einfach mal hier rein, dann weißt Du woher der Wind weht. Äsop lässt grüßen.

Gruß Xel66

[[sprotte80]]

Hi

Ich weiss nicht, ich kann mich vage daran erinnern, sowas in der Art wie: "ich weiß etwas, aber ich sage nicht was und wie es geht" hier schon mal früher öfters gelesen zu haben. Gibts nun ein Reloaded 2.0 ?

wie schräg bist du denn drauf?

ich glaube nicht das Tyfiys eine Anleitung brauchen tut wie man eine Sysvar mit datetime erstellt.
Schau einfach mal seine scripts an denn die sind nicht von schlechten Eltern.

Auserdem ist das Erstellen von Sysvars per Script ja kein Geheimnis. Gibt hier genügend Beispiele dafür.
Und die ivt's gibt hier
hier viewtopic.php?f=31&t=63093&p=622660#p622659
und hier viewtopic.php?f=31&t=63093&p=622660#p622660
in meiner Signatur
Sprich einfach Suche benutzen oder ist die wieder mal kaputt.

Ist also eine akademische Spielerei für Leute, die wissen was sie tun und die die entsprechenden Programmierumgebungen haben

In nimm dafür den Administrator von den Hm-internals. Da kannst du das wie in der WebUI einfach mit dem gewollten Datentyp komplett anlegen wie die normalen in der WebUI. Also Name -> Datentyp -> Werte -> Kanalverküpfung -> Klick und fertig

Thomas

[Tyfys]

Für alle, die hier auf eine Lösung gehofft haben,
und für diejenigen: „Wir“ freuen uns dann über Beispiele im Forum, um abschreiben zu können.

hier mal eine Möglichkeit von mehreren:

1.Skript zum Setzen der SV Letzter_Regentag

Code: Alles auswählen

!1.Skript
string SysVarName = "Letzter_Regentag";
var AktDatum;
object SVrObj = dom.GetObject(ID_SYSTEM_VARIABLES).Get(SysVarName);
if (SVrObj) {
    if (SVrObj.Value().Type() == "string") {
        AktDatum = localtime;
    } else {
        AktDatum = localtime.ToInteger();
    }
} else {
    WriteLine("Variablenname ist falsch");
    quit;
}
!WriteLine(AktDatum);
SVrObj.State(AktDatum);

2.Skript Berechnung der Differenztage und Ausgabe in die SV Regen_vor_Tagen

Code: Alles auswählen

!2.Skript
!vorheriges Datum wieder auslesen
!und Differenztage berechnen.
integer TagesSek=86400 ;
string SysVarName = "Letzter_Regentag";
time heute= ((localtime.ToString()).Substr(0,10) # " 12:00:00").ToTime();
var letzter;
object SVrObj = dom.GetObject(ID_SYSTEM_VARIABLES).Get(SysVarName);
if (SVrObj) {
    if (SVrObj.Value().Type() == "string") {
        letzter = ((SVrObj.Value()).Substr(0,10) # " 12:00:00").ToTime();
    } else {
        letzter = (((SVrObj.Value().ToTime()).ToString()).Substr(0,10) # " 12:00:00").ToTime();
    }
} else {
    WriteLine("Variablenname ist falsch");
    quit;
}
integer tage = (heute-letzter).ToInteger()/TagesSek;
string tag_arr = "ist heute;war gestern;war vorgestern;war vor $$ Tagen";
string msg = "letzter Regentag ";
if (tage < 3) {
    msg = msg # tag_arr.StrValueByIndex(";", tage);
} else {
    msg = msg # (tag_arr.StrValueByIndex(";", 3)).Replace("$$", tage);
}
!WriteLine(msg)

 string SysVarName = "Regen_vor_Tagen";
 object SVrObj = dom.GetObject(ID_SYSTEM_VARIABLES).Get(SysVarName);
 if (SVrObj) {
     if (SVrObj.Value().Type() == "string") {
         SVrObj.State(msg);
     } else {
         SVrObj.State(tage);
     }
 } else {
     WriteLine("Variablenname für "#SysVarName#" ist falsch");
 }

Die beiden Systemvariablen können jeweils vom Type Zahl ODER Zeichenkette sein.

just for fun...

[[sprotte80]]

Hi

Code: Alles auswählen

    if (SVrObj.Value().Type() == "string") {
 

Gibs nen Grund für das umständlich so zu tun

Code: Alles auswählen

    if (SVrObj.Value().Type() == "string") {
 

und nich einfach so

Code: Alles auswählen

if (SVrObj.ValueType() == ivtString) {
 

?

Thomas

[Tyfys]

Gibs nen Grund für das umständlich so zu tun

Nicht direkt.
Aber diese Abfragemöglichkeit wird so in der Script-Dokumentation aufgeführt.
Und nicht jeder kennt die internen Konstanten,

[[sprotte80]]

Hi

Gibs nen Grund für das umständlich so zu tun

Nicht direkt.
Aber diese Abfragemöglichkeit wird so in der Script-Dokumentation aufgeführt.

Ah, ok

Und nicht jeder kennt die internen Konstanten,

das hab ich vor ner Zeit angfangen zu dokumentieren
viewtopic.php?f=31&t=63093
viewtopic.php?f=31&t=63093&p=622660#p622659

Hab dafür nur Spott und Hohn geerntet und nen Rauswurf bei Blacks SDV!
Will von den Scriptprofs keiner hier haben das das jeder lesen kann.

Thomas

[mnanzer]

Meine Lösung sieht nun so aus (funktioniert wahrscheinlich nicht übers Jahresende, muss es aber auch nicht):

1) Eine Variable (Zahl) für letzter Regentag und eine Variable für Letzter Regentag seit (Zahl - Anzahl Tage)
2) Wenn es regnet wird folgendes Skript ausgeführt:
var LetzterRegentag = currenttime.Yearday();
dom.GetObject("Letzter_Regentag").State(LetzterRegentag);
3) Täglich in der Nacht wird dieses Skript ausgeführt:
var Lregentag = dom.GetObject("Letzter_Regentag").Value().ToInteger();
var nrdays = (currenttime.Yearday() - Lregentag);
dom.GetObject("Letzter_Regentag_seit").State(nrdays);

Dadurch habe ich in der Systemvariable "Letzter Regentag seit" die Anzahl Tage seit dem letzten Regen.
(Danke an Alle für's mitdenken und wer noch einen Verbesserungsvorschlag hat - immer gerne.)

[Xel66]

Da intern die Uhrzeiten doch als Linux-Zeiten geführt werden, braucht man doch nur die letzte Änderung von der aktuellen Uhrzeit (Anzahl Sekunden seit 1.1.1970) abziehen und durch 86400 teilen und noch einen Integer draus machen. Dann deckt das auch einen Jahreswechsel ab.

Gruß Xel66