VB-Makro & Zabbix

' ============================================================
' BBasic KNX Anlage – VB.NET Makro
'
' AlterNET-Editor (WinForms) ist hier nicht einbindbar
' (Blazor + MAUI-WebView). Diese Datei ist die Referenz.
'
' Pflicht-Subs:
'   Sub Init(Anlagenname As String)
'   Sub Tick(Anlagenstatus As PlantStatusSnapshot)
'   Sub KNXPaket(paket As KnxPacketInfo, Anlagenstatus As PlantStatusSnapshot)
'   Sub Alternate(paket As KnxPacketInfo, Anlagenstatus As PlantStatusSnapshot)  ' jedes Paket
'   Sub BoolWechsel(paket As KnxPacketInfo, alt As Boolean, neu As Boolean, Anlagenstatus As PlantStatusSnapshot)
'   Sub Zeitplan(ev As ScheduleEventInfo, Anlagenstatus As PlantStatusSnapshot) ' ev.Setpoint noch änderbar
'   Sub MakroBool(ev As MacroBoolEventInfo, Anlagenstatus As PlantStatusSnapshot)  ' optional, Makro-Bool gewechselt
'       alternativ: Sub MakroBool(name As String, wert As Boolean [, Anlagenstatus As PlantStatusSnapshot])
'       (Alias-Name OnMacroBool) · name = Id des Makro-Bools
'   Sub ShutDown()
'
' Hilfen:
'   Log(msg)                          Script-Log + Ereignis-Log („Makro Tick: …“) + Journal
'   Log(level, msg)                   level = "info" | "warn" | "error" | "debug"
'                                     warn/error erscheinen als Warnung/Fehler im Ereignis-Log, debug nur Script-Log/Journal
'   SendAlarmMail(betreff, text) As Boolean
'                                     Mail über die Alarm-Mail-Einstellungen (SMTP, Empfänger, Absender wie Alarm-Mails),
'                                     Betreff wird zu "[Anlagenname] betreff". Limit: 1 Mail je gleichem Betreff
'                                     pro 60 min, max. 20 Makro-Mails pro Stunde; Unterdrücktes steht im Log.
'                                     True = angenommen (Versand läuft im Hintergrund), False = unterdrückt/kein SMTP.
'   Beispiel:
'     If Anlagenstatus.TempOutdoor < -15 Then
'         Log("warn", "Sehr kalt: " & Anlagenstatus.TempOutdoor.ToString("0.0") & " °C")
'         SendAlarmMail("Frostwarnung", "Außentemperatur " & Anlagenstatus.TempOutdoor.ToString("0.0") & " °C")
'     End If
'   RegisterAddress / RegisterAdress  key [, bezeichnung, knxAddress, dpt, einheit, rolle]
'   SetValue(key, value)              Zabbix knx.address.value[key]
'   GetKNXBool("0/1/2") As Boolean    letzter Bool aus Cache (GA oder Role)
'   GetKNXTemp("0/0/6") As Double     letzte Temperatur °C
'   GetKNXProzent("0/0/1") As Double  letzter Prozentwert
'   GetKNXValue("14/1/7") As Object   letzter Wert typisiert nach DPT: Boolean (1.x), Double (5.001/9.x/14.x),
'                                     Long (Zähler 5.010/7.x/12.x/13.x), String (16.x), TimeSpan (10.001),
'                                     DateTime (11.001/19.001), Integer (17.001 Szene 1-basiert, 20.x Code);
'                                     DPT fehlt/nicht unterstützt, Länge passt nicht, nichts empfangen: Nothing
'                                     (Rohbytes im Ereignis KNXPaket: paket.Data)
'   GetKNXText("14/1/7") As String    Anzeige mit Einheit, z. B. "999.68 lx", "Fr 16:24:00", "Ein"; nicht dekodierbar: "*UDEF*"
'   Knx.Connected As Boolean
'   Knx.WriteBool(roleOderGA, wert)
'   Knx.WritePercent(roleOderGA, 0..100)
'   Knx.WriteByte(roleOderGA, 0..255)
'   Knx.WriteTemp(roleOderGA, celsius)
'   Knx.WriteRole(role, wert)
'   Knx.WriteAddress(ga, wert, Optional dpt := "1.001")
'   Knx.WriteBool("macro:<id>", wert)  Makro-Bool setzen → Ziele + Event MakroBool
'   GetMakroBool("<id>") As Boolean    letzter Makro-Bool-Wert (False wenn unbekannt)
'   GetKnxStatus("<GA>") As Double     Rückmeldung (Status-GA) zur Schreib-GA: 1/0 bzw. Wert, -1 = unbekannt
'   Adressen überall: KNX-GA "0/1/2", "shelly:<id>:switch:0", "url:<id>", "macro:<id>"
'   Modbus: GetKNXValue("modbus:<gerät>:<punkt>") lesen, "modbus:<gerät>:<punkt>:alarm" = Alarm 0/1;
'           Schreiben (FC06) nur bei Geräte-Freigabe „Schreiben freigeben“ + Punkt bestätigt + schreibbar
'
' ----- PlantStatusSnapshot (Anlagenstatus) -----
'   Gesamt: TempOutdoor, OutdoorSourceText, Connected, SeasonMode, SeasonText
'           CentralFlowTemp, CentralReturnTemp, MasterPumpOn, HeatDemand
'           SolarRoofTemp, SolarActive, StatusText, HeatReason, …
'   Listen (flexibel, 0..n):
'     Anlagenstatus.Aussensensoren      Name, Address, Value, HasValue
'     Anlagenstatus.Lueftungsanlagen    Name, AirRatio, TempSupplyAfterHeater, HxPercent, …
'     Anlagenstatus.Heizkreise          Name, TempFlow, RoomAverage, PumpOn, Setpoint, …
'     Anlagenstatus.SolarPuffer         Name, TempTop, TempBottom, ChargeValve, …
'     Anlagenstatus.Heizquellen         Name, Active, BurnerTemp, Fault, SourceKind, Online, ThermalPowerKw, ElectricalPowerKw, OperatingState, TempFlow, ...
'     Anlagenstatus.Warmwasser          Name, TempTop, TempBottom, Charge, Setpoint, …
'   Beispiel:
'     For Each lv In Anlagenstatus.Lueftungsanlagen
'         Log(lv.Name & " Zuluft " & lv.TempSupplyAfterHeater.ToString("0.0"))
'     Next
'
' ----- KnxPacketInfo (paket) -----
'   Address, Role, Key, Name, Label, DisplayName, Dpt
'   AsBool, AsPercent, AsTemperature (Rohdeutung, unabhängig vom DPT)
'   ValueText  Wert ohne Einheit nach DPT ("21", "1", "Fr 16:24:00"; DPT fehlt/unbekannt/Länge falsch: Hex "0x0C1A")
'   Value      typisiert wie GetKNXValue (Nothing wenn nicht dekodierbar); Numeric (Double?), Unit ("°C", "lx" …)
'   DisplayText mit Einheit/Text ("21 °C", "Ein", "Komfort", nicht dekodierbar "*UDEF*"); DptError <> "" bei falscher Datenlänge
'   Data       Rohbytes (Payload)
'   Source     Absender lesbar: "von 1.1.23, Schnittstelle 1" (fremdes Gerät, Schnittstelle n aus der Liste),
'              "KNX Control" (eigenes Telegramm), "Router von Schnittstelle 2" (vom Router weitergeleitet),
'              "manuell <Benutzer>" (Bool-Schaltfläche); leer = unbekannt.  SourceAddress = "1.1.23" (leer = unbekannt)
'              gilt auch für BoolWechsel(paket, …) – heißt der Parameter ev, entsprechend ev.Source:
'                If paket.Source.StartsWith("von 1.1.23") Then Log("1/1/10 von Taster 1.1.23")
'   Label = "Hauptpumpe (0/0/11)" wenn Name bekannt
'
' ----- MacroBoolEventInfo (ev) -----
'   Id, Name, Address ("macro:<id>"), Value, OldValue, First (erstes Schreiben seit Start), Time
'   Ausgelöst bei Wertwechsel (und erstem Schreiben). Ziele bekommen jeden Schreibvorgang.
'   Beispiel:
'     Sub MakroBool(ev As MacroBoolEventInfo, Anlagenstatus As PlantStatusSnapshot)
'         If ev.Id = "sperre_wp" Then Log("WP-Sperre " & ev.Value)
'     End Sub
'
' ----- ScheduleEventInfo (ev) -----
'   Kind ("ww"|"heizung"|"lueftung"), Name, CircuitId
'   FromId, FromName, ToId, ToName, IsDefault
'   Setpoint, SetpointBottom   ' noch änderbar
'   Apply                      ' False = Umschaltung verwerfen
' ============================================================