Vinnerliste

Tusen takk for at du tok deg tid til å skrive alt dette. Jeg har nesten ikke ord. Helt innertier spør du meg, og gleder meg til å sette i gang(ser allerede hvor jeg har rotet meg bort). Tenker på sikt å få den til å justere hastighet etc ut i fra Co2-måling fra Netatmo, men starter nok med det panelet du viste på toppen for å erstatte appen.

Last ned MyZwaveParameters-plugin.

Jeg laget meg en slags migreringsstrateg, som viste seg både å være god og lur(tror jeg). Prinsippet for styring og kontroll ville jeg ta med meg (og det fungerte fint også på HC2). Jeg bygget så opp samme struktur i HS4 med diverse hendelse/tidsstyring og parametere(VD). For eventer i HC2 som ble styrt av sensorer la jeg også inn kall som overførte samme informasjon til HS4 via API. Med dette hadde jeg i praksis to systemer som agerte likt på samme tidspunkt og/eller hendelser. Jeg valgte så ut grupper av devicer som jeg flyttet over, og det fine med dette var at beboerne i smarthuset ikke merket noe. Det ble selvfølgelig noe innsatsmessig overhead med å gjøre det på denne måten, men det gjorte at jeg heller ikke hadde noen stress med noen ting. Brukte ca to ukes tid på å flytte alle devicene. Forberedelsene gjorte også at jeg ble godt kjent med HS4 og hvordan ting&tang virket der.

Vi har HSTouch på mobilene våre og jeg har lenge tenkt jeg skulle legge inn noen av de grafene jeg har tilgang på fra Device History. Startet med det i dag og da innså jeg at det var veldig begrenset hvor mye man kunne tilpasse grafene via vanlig event, mens man kunne gjøre mye mer tilpassninger via script. Med script ble det også en fordel at man bare trenger å endre ett sted om jeg vil endre noe på designet på grafene, i stedet for å måtte endre mange events. Sub Main(ByVal params as Object) ' @Author: ZoRaC ' @Version: 1.1 (2019-01-09) ' @Syntax: dvRef|time in hours|Y1-label ' SETTINGS Dim parameters() as String = params.ToString.Split("|") Dim dvRef As String = parameters(0) Dim hours As Integer = parameters(1) Dim y1Lbl As String = parameters(2) Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(dvRef) Dim dvName As String = dv.Name(Nothing) Dim filename As String = Nothing Dim seconds As Integer = hours*60*60 Dim timeString As String = parameters(1) & " timer" If hours > 24 Then timeString = "1 dag" End If If hours > 48 Then timeString = TimeSpan.FromSeconds(seconds).Days & " dager" End If ' CREATE GRAPH filename = hs.PluginFunction("Device History", "", "CreateChartEx",New Object(){dvRef,"{'Title': '" & dvName & " (" & timeString & ")', 'Y1Label': '" & y1Lbl & "','Y2Label': '','XLabel': 'Dato/Tid', 'ShowLegend': false, 'DurationType': 2, 'PeriodType': 1, 'Periods': " & hours & ", 'Style': 2, 'UseMarkers': false, 'Width': 460, 'Height': 310, 'RotateDegrees': 270}", "", ""}) End Sub I manualen til Device History finnes det mange flere parametere man kan putte inn for å tilpasse utseendet på grafen. Scriptet gir f.eks dette (med parametere: "789|24|% RH"): I HSTouch har jeg laget egne screens: Jeg har laget 3 events pr rom: På de 3 tekst-knappene over grafen har jeg satt "IgnorePresses=false" og lagt inn dette i "ActionWhenPressed": Vent i 1000ms, slik at den rekker å generere bildet. Deretter tvinger den den til å laste bildet på nytt - setter bare URL til det samme som den opprinnelig er (PNG-URLen): Slik ble resultatet:

Kjøpte 3 stk Heatit Z-Relay 25A for måling av strøm til VVB og 2 elbiler, alle 3 viser ~450 watt ved null last og dette kan ikkje fikses men Heatit seier de jobber med et nytt produkt som om det skulle hjelpe meg... 🤬