gullfrode

Epost fra mai: INTIN og Tibber = Sant Se denne e-posten i din nettleser Tibber Store for privatkunder. INTIN AS vokser og får en stadig større andel bedriftskunder. Vår nettbutikk vil om kort tid bli tilpasset til bedriftsmarkedet. For å kunne tilby konkurransedyktige priser og en god kundeopplevelse også for våre privatkunder har vi nå inngått et samarbeid med Tibber AS. Sjekk ut: https://store.tibber.com/no/ Våre eksisterende fordelskunder vil kunne fortsette å handle hos oss også i fremtiden, med enda bedre betingelser enn før. Ta gjerne kontakt med oss på [email protected] om du har spørsmål. Vi ønsker alle en riktig god 17.Mai! Vennlig hilsen oss i INTIN AS

Jeg kjøpe elektrisk sluttstykke på Tronika(Popp) og kjøpe en smekklås hos låssmed som jeg tilpasset til den hjemmelagde døra i garasjen(70-tallshus med noe utenfor standard. Kjøpe og noen fler sluttstykker de hadde, som jeg skal montere i søppelskuret når jeg får laget ferdig det en gang.

https://www.google.no/search?q=aeotec+heavy+duty+smart+switch&ie=UTF-8&oe=UTF-8&hl=nb-no&client=safari

Med 3000w ville jeg ihvertfall montert en HDSwitch.

Genial støvsuger(har to Connected og en D5), plugin fungerer kjempefint. Det gjør og app, men greit å ikke overstyre fridager flere plasser, derfor kjekt med plugin. Kart, samt litt fler muligheter enn i appen i plugin.

Dvs(om du husker) at COM, -, PVR2 og begge GND skal kobles sammen?

Noen som vil lage, og prøve seg på en guide med link til deler:o)

Brukte en slik til å forlenge Kinect på en Xbox One FireNEX-uLINK USB 3.0 10 Meters/32.8 feet, A to A Female Active Repeater Extension Cable https://www.amazon.com/dp/B011AQ2AY6/ref=cm_sw_r_cp_api_NrbvBbQC8RB0Z, som fungerer fint. Et stykke unna 30m da

Har brukt homebridge på Pi med både Fibaro HC2 og Homeseer. Bruker nå bare på samme windowsmaskin som Homeseer, helt stabilt. Er bare å følge oppskrift til punt og prikke på både Windows og Pi. Men noe jobb er det. Jeg liker at man plukker ut noen enheter i Homebridge stedet for alle, da jeg har noen enheter. Når man er borte så er statusen i Homekit fin for å se at alt er oppe og går. Tar meg aldri tid til å sette opp noe i HSTouch. Selve Siri-delen bruker jeg mest til å åpne garasje og ytterdør.

Tror de endret på APIet sitt. Fant en diskusjon med at noen hadde laget noe i Python og fått inn noe i Homeseer, men fant ikke noe nå

Da en del av mine nodes ikke mottok infoog jeg trodde noe annet var galt ove flere dager, så hadde jeg ikke prøvd å skru av plugin dra ut og sette inn igjen aeotec-stick, og skru på plugin igjen, som var løsningen. Har hatt en del runder med feil primært pga av strømbrudd. Tar jevlig backup av Usbsticken med aeotec sin programvare, og har en ny liggende ibsckup. Samme med hjemmelaga znet med UZB.

Takker og bukker! High og Auto ble motsatt, så da blir scriptet slik(starter dagen litt tidligere enn dere) ' Moskus 2017'Version 0.0.1Private scriptName As String = "VirtualThermostat"Private scriptFile As String = scriptName & ".vb"Public Sub Main(ByVal rootDeviceRef As Object) 'Devices: 'Root: Heating, Cooling 'Mode: Manual, High, Low, Off 'Thermostat: Range 5 - 40, step 0.5 'Temperature: Adjusted for locationEnd SubPrivate Enum Modes Off = 0 High = 1 Low = 2 Auto = 3 Manual = 4End EnumPrivate Enum ThermostatDeviceType Thermostat_Root = 0 Thermostat_Mode = 1 Thermostat_Setpoint = 2 Thermostat_Temperature = 3End EnumPublic Sub UpdateConfig(ByVal input As Object) Dim rootDeviceRef As Integer = CInt(input.ToString.Split("|")(0)) Dim s As New ThermostatSettings(hs, rootDeviceRef) s.Load(input.ToString.Split("|")(1)) s.Save(hs, rootDeviceRef)End SubPublic Sub Setup(ByVal inputString As Object) 'HeaterDeviceReference=860,ExternalTemperatureSensorRef=521 Dim useFahrenheit As Boolean = hs.GetINISetting("Settings", "gGlobalTempScaleF", "False", "settings.ini") Try Dim SVpair As HomeSeerAPI.VSPair Dim VGpair As HomeSeerAPI.VGPair '============= 'Root device 'Mode device '============= Dim rootRef As Integer = hs.NewDeviceRef("Thermostat mode") Dim rootDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(rootRef) rootDevice.Location(hs) = scriptName rootDevice.Location2(hs) = scriptName rootDevice.Device_Type_String(hs) = ThermostatDeviceType.Thermostat_Mode.ToString rootDevice.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo rootDevice.Status_Support(hs) = True rootDevice.Can_Dim(hs) = False hs.SaveEventsDevices() rootDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) rootDevice.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) rootDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.NO_LOG) For i As Integer = 0 To 4 Dim value As Modes = i SVpair = New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status) SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue SVpair.Value = CInt(value) SVpair.Status = value.ToString hs.DeviceVSP_AddPair(rootRef, SVpair) VGpair = New HomeSeerAPI.VGPair VGpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue VGpair.Set_Value = CInt(value) Select Case CInt(value) Case Is = Modes.Off VGpair.Graphic = "images/HomeSeer/contemporary/off.gif" Case Is = Modes.Manual VGpair.Graphic = "images/HomeSeer/contemporary/yellow.png" Case Is = Modes.Low VGpair.Graphic = "images/HomeSeer/contemporary/blue.png" Case Is = Modes.High VGpair.Graphic = "images/HomeSeer/contemporary/red.png" Case Is = Modes.Auto VGpair.Graphic = "images/HomeSeer/contemporary/green.png" End Select hs.DeviceVGP_AddPair(rootRef, VGpair) hs.DeviceScriptButton_AddButton(rootRef, value.ToString, CInt(value), scriptFile, "ModeButtonPress", CInt(value), 1, CInt(value) + 1, 1) Next 'Storing settings in ini file Dim s As New ThermostatSettings(inputString.ToString) s.Save(hs, rootRef) 'Setting up initial schedule hs.SaveINISetting("Schedule", "5:00", "High", scriptName & "_" & rootRef & ".ini") hs.SaveINISetting("Schedule", "8:00", "Low", scriptName & "_" & rootRef & ".ini") hs.SaveINISetting("Schedule", "13:00", "High", scriptName & "_" & rootRef & ".ini") hs.SaveINISetting("Schedule", "23:00", "Low", scriptName & "_" & rootRef & ".ini") 'Setting up initial alternative schedule hs.SaveINISetting("AlternativeSchedule", "6:00", "High", scriptName & "_" & rootRef & ".ini") hs.SaveINISetting("AlternativeSchedule", "23:00", "Low", scriptName & "_" & rootRef & ".ini") '============= 'Setpoint device '============= Dim setpointRef As Integer = hs.NewDeviceRef("Thermostat setpoint") Dim setpointDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(setpointRef) setpointDevice.Location(hs) = scriptName setpointDevice.Location2(hs) = scriptName setpointDevice.Device_Type_String(hs) = ThermostatDeviceType.Thermostat_Setpoint.ToString setpointDevice.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo setpointDevice.Status_Support(hs) = True setpointDevice.Can_Dim(hs) = False hs.SaveEventsDevices() setpointDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) setpointDevice.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) setpointDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.NO_LOG) Dim tempStart As Double = 5 Dim tempEnd As Double = 35 Dim forStep As Double = 0.5 Dim scale As String = "C" If useFahrenheit Then tempStart = 41 tempEnd = 95 forStep = 1 scale = "F" End If For i As Double = tempStart To tempEnd Step forStep SVpair = New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Both) SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue SVpair.Value = i SVpair.Status = i & " °" & scale SVpair.Render = HomeSeerAPI.Enums.CAPIControlType.Values SVpair.Render_Location.Row = 1 SVpair.Render_Location.Column = 1 SVpair.Render_Location.ColumnSpan = 1 hs.DeviceVSP_AddPair(setpointRef, SVpair) Next If useFahrenheit Then hs.SetDeviceValueByRef(setpointRef, 64, False) Else hs.SetDeviceValueByRef(setpointRef, 17.5, False) End If hs.DeviceScriptButton_AddButton(setpointRef, "-", 200, scriptFile, "SetpointButtonPress", ScriptParm:=200, Row:=1, Column:=2, ColumnSpan:=1) hs.DeviceScriptButton_AddButton(setpointRef, "+", 201, scriptFile, "SetpointButtonPress", ScriptParm:=201, Row:=1, Column:=3, ColumnSpan:=1) VGpair = New HomeSeerAPI.VGPair VGpair.PairType = HomeSeerAPI.VSVGPairType.Range VGpair.RangeStart = 0 VGpair.RangeEnd = 1000 VGpair.Graphic = "images/HomeSeer/contemporary/Thermometer-50.png" hs.DeviceVGP_AddPair(setpointRef, VGpair) '============= 'Temperature device '============= Dim roomTempRef As Integer = hs.NewDeviceRef("Thermostat room temp") Dim roomTempDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(roomTempRef) roomTempDevice.Location(hs) = scriptName roomTempDevice.Location2(hs) = scriptName roomTempDevice.Device_Type_String(hs) = ThermostatDeviceType.Thermostat_Temperature.ToString roomTempDevice.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo roomTempDevice.Status_Support(hs) = True roomTempDevice.Can_Dim(hs) = False hs.SaveEventsDevices() roomTempDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) roomTempDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) roomTempDevice.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.NO_LOG) SVpair = New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status) SVpair.PairType = HomeSeerAPI.VSVGPairType.Range SVpair.RangeStart = -1000 SVpair.RangeEnd = 1000 SVpair.RangeStatusSuffix = " °" & scale SVpair.RangeStatusDecimals = 1 hs.DeviceVSP_AddPair(roomTempRef, SVpair) VGpair = New HomeSeerAPI.VGPair VGpair.PairType = HomeSeerAPI.VSVGPairType.Range VGpair.RangeStart = -1000 VGpair.RangeEnd = 1000 VGpair.Graphic = "images/HomeSeer/contemporary/Thermometer-90.png" hs.DeviceVGP_AddPair(roomTempRef, VGpair) 'Save devices hs.SaveEventsDevices() 'Associating devices rootDevice.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Parent_Root rootDevice.AssociatedDevice_Add(hs, setpointRef) rootDevice.AssociatedDevice_Add(hs, roomTempRef) setpointDevice.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Child setpointDevice.AssociatedDevice_Add(hs, rootRef) roomTempDevice.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Child roomTempDevice.AssociatedDevice_Add(hs, rootRef) 'Setting up events Dim eventRef As Integer = hs.NewEventGetRef("Thermostat " & rootRef, "Virtual Thermostat", "") hs.EventSetRecurringTrigger(eventRef, New TimeSpan(0, 5, 0), False, True) hs.AddActionRunScript(eventRef, "VirtualThermostat.vb", "CheckTemperature", rootRef) hs.WriteLog("Virtual Thermostat", "New thermostat created successfully!") Catch ex As Exception hs.WriteLog("Virtual Thermostat", "Error creating root device: " & ex.Message) End TryEnd SubPublic Sub ModeButtonPress(ByVal input As Object) Dim rootDeviceRef As Integer = input(0) Dim value As Modes = input(1) Dim s As New ThermostatSettings(hs, rootDeviceRef) 'Updating the mode device hs.SetDeviceValueByRef(rootDeviceRef, CInt(value), True) 'Updating the temperature device Select Case value Case = Modes.Off TurnOff(rootDeviceRef) Case Is = Modes.Low hs.SetDeviceValueByRef(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Setpoint), s.TemperatureLow, True) Case Is = Modes.High hs.SetDeviceValueByRef(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Setpoint), s.TemperatureHigh, True) Case Is = Modes.Auto Dim temp As Double = GetSetpointFromSchedule(rootDeviceRef) hs.SetDeviceValueByRef(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Setpoint), temp, True) End Select If value > Modes.Off Then CheckTemperature(rootDeviceRef)End SubPublic Sub SetpointButtonPress(ByVal input As Object) Dim setpointDeviceRef As Integer = input(0) Dim value As Integer = input(1) 'Get the current setpoint value Dim devValue As Double = hs.DeviceValueEx(setpointDeviceRef) 'Set the new setpoint value Select Case value Case = 200 'Down hs.SetDeviceValueByRef(setpointDeviceRef, devValue - 0.5, True) Case 201 'Up hs.SetDeviceValueByRef(setpointDeviceRef, devValue + 0.5, True) End Select 'Find the root device (the setpoint device is only associated to the root device) Dim setpointDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(setpointDeviceRef) Dim rootDeviceRef As Integer = 0 If setpointDevice.AssociatedDevices_Count(hs) = 1 Then rootDeviceRef = setpointDevice.AssociatedDevices(hs)(0) End If If rootDeviceRef > 0 Then 'Set the mode to "manual" If hs.DeviceValue(rootDeviceRef) Modes.Manual Then hs.SetDeviceValueByRef(rootDeviceRef, Modes.Manual, True) 'Check the temperature and adjust the heater as needed CheckTemperature(rootDeviceRef) Else hs.WriteLog(scriptName, "Could not find root device for setpoint device") End IfEnd SubPrivate Function GetChildReference(ByVal rootDeviceRef As Integer, ByVal deviceType As ThermostatDeviceType) As Integer Dim root As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(rootDeviceRef) For Each i As Integer In root.AssociatedDevices(hs) Dim child As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(i) If child.Device_Type_String(hs).ToString = deviceType.ToString Then Return i End If Next Return 0End FunctionPrivate Sub UpdateTemperatureDevice(ByVal rootDeviceRef As Integer) Dim s As New ThermostatSettings(hs, rootDeviceRef) Dim roomTemperature As Double = Math.Round((hs.DeviceValueEx(s.ExternalTemperatureSensorRef) + s.TemperatureCorrectionAddition) * s.TemperatureCorrectionMultiplier, 1) hs.SetDeviceValueByRef(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Temperature), roomTemperature, True)End SubPublic Sub CheckTemperature(ByVal rootDeviceRef As Object) Dim s As New ThermostatSettings(hs, CInt(rootDeviceRef)) UpdateTemperatureDevice(rootDeviceRef) Dim currentMode As Modes = hs.DeviceValue(rootDeviceRef) 'If the root is Off, then If currentMode = Modes.Off Then Exit Sub 'Check mode for auto, and update the setpoint device If currentMode = Modes.Auto Then Dim scheduleTemp As Double = GetSetpointFromSchedule(rootDeviceRef) hs.SetDeviceValueByRef(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Setpoint), scheduleTemp, True) End If 'Get roomtemperature from device and setpoints Dim roomTemperature As Double = hs.DeviceValueEx(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Temperature)) Dim setPoint As Double = hs.DeviceValueEx(GetChildReference(rootDeviceRef, ThermostatDeviceType.Thermostat_Setpoint)) Dim lowSetPoint As Double = setPoint - s.TemperatureOffset 'Set the mode button to manual if the temperature is not equal to TempHigh or TempLow and the mode is not Off or Auto If currentMode Modes.Auto AndAlso currentMode Modes.Off Then If setPoint s.TemperatureHigh AndAlso setPoint s.TemperatureLow Then hs.SetDeviceValueByRef(rootDeviceRef, Modes.Manual, True) End If End If If roomTemperature TurnOn(rootDeviceRef) If s.Log Then hs.WriteLog(scriptName, "Heating ON - Temp: " & roomTemperature & "° - , Setpoint: " & setPoint & "°") ElseIf roomTemperature > lowSetPoint AndAlso roomTemperature Idle() If s.Log Then hs.WriteLog(scriptName, "Heating IDLE - Temp: " & roomTemperature & "° - , Setpoint: " & setPoint & "°") ElseIf roomTemperature > setPoint Then TurnOff(rootDeviceRef) If s.Log Then hs.WriteLog(scriptName, "Heating OFF - Temp: " & roomTemperature & "° - , Setpoint: " & setPoint & "°") Else If s.Log Then hs.WriteLog(scriptName, "Heating status unchanged - Temp: " & roomTemperature & "° - Setpoint: " & setPoint & "°") End IfEnd SubPrivate Sub TurnOff(ByVal rootDeviceRef As Object) Dim s As New ThermostatSettings(hs, rootDeviceRef) Dim cc As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControlByUse(s.HeaterDeviceReference, HomeSeerAPI.ePairControlUse._Off) Dim ccResponse As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc) If s.Log Then hs.WriteLog("Virtual Thermostat", "Turn Off: " & ccResponse.ToString & " for device " & s.HeaterDeviceReference)End SubPrivate Sub TurnOn(ByVal rootDeviceRef As Integer) Dim s As New ThermostatSettings(hs, rootDeviceRef) Dim cc As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControlByUse(s.HeaterDeviceReference, HomeSeerAPI.ePairControlUse._On) Dim ccResponse As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc) If s.Log Then hs.WriteLog("Virtual Thermostat", "Turn On: " & ccResponse.ToString & " for device " & s.HeaterDeviceReference)End SubPrivate Sub Idle() 'Do nothingEnd SubPrivate Function GetSetpointFromSchedule(ByVal rootDeviceRef As Integer) As Double Dim s As New ThermostatSettings(hs, rootDeviceRef) Dim schedule As System.Collections.Generic.List(Of String) Dim scheduleArray() As String If s.AlternativeScheduleDeviceReference > 0 Then If hs.IsOff(s.AlternativeScheduleDeviceReference) Then scheduleArray = hs.GetINISectionEx("Schedule", scriptName & "_" & rootDeviceRef & ".ini") Else scheduleArray = hs.GetINISectionEx("AlternativeSchedule", scriptName & "_" & rootDeviceRef & ".ini") End If Else scheduleArray = hs.GetINISectionEx("Schedule", scriptName & "_" & rootDeviceRef & ".ini") End If schedule = scheduleArray.ToList 'Failsafe if no schedule is found If schedule.Count = 0 Then Return s.TemperatureLow If Not schedule(0).StartsWith("0:00") Then schedule.Insert(0, "0:00=Low") End If schedule.Add("24:00=Low") Dim timeNow As Double = Now.Hour + Now.Minute / 60 For i As Integer = 0 To schedule.Count - 2 Dim line() As String = schedule(i).Split("=") Dim nextLine() As String = schedule(i + 1).Split("=") Dim time_this As Double = line(0).Split(":")(0) + line(0).Split(":")(1) / 60 Dim time_next As Double = nextLine(0).Split(":")(0) + nextLine(0).Split(":")(1) / 60 If timeNow >= time_this AndAlso timeNow Select Case line(1) Case = "High" Return s.TemperatureHigh Case = "Low" Return s.TemperatureLow Case Else Dim temp As Double = 0 Dim success As Boolean = Double.TryParse(line(1), temp) If Not success Then hs.WriteLog(scriptName, "Error parsing value in schedule at time: " + line(i)) Return temp End Select End If Next Return 0End FunctionClass ThermostatSettings Public Property ExternalTemperatureSensorRef As Integer = 0 Public Property TemperatureCorrectionMultiplier As Integer = 1 Public Property TemperatureCorrectionAddition As Integer = 0 Public Property TemperatureOffset As Double = 0.3 Public Property HeaterDeviceReference As Integer = 0 Public Property TemperatureHigh As Double = 23 Public Property TemperatureLow As Double = 16 Public Property AlternativeScheduleDeviceReference = 0 Public Property Log As Boolean = False Private scriptName As String = "VirtualThermostat" Public Sub Save(ByRef hs As Object, ByVal rootDeviceRef As Integer) Dim filename As String = scriptName & "_" & rootDeviceRef & ".ini" hs.SaveINISetting("Settings", "ExternalTemperatureSensorRef", Me.ExternalTemperatureSensorRef, filename) hs.SaveINISetting("Settings", "TemperatureCorrectionAddition", Me.TemperatureCorrectionAddition, filename) hs.SaveINISetting("Settings", "TemperatureCorrectionMultiplier", Me.TemperatureCorrectionMultiplier, filename) hs.SaveINISetting("Settings", "TemperatureOffset", Me.TemperatureOffset, filename) hs.SaveINISetting("Settings", "Log", Me.Log, filename) hs.SaveINISetting("Settings", "HeaterDeviceReference", Me.HeaterDeviceReference, filename) hs.SaveINISetting("Settings", "TemperatureHigh", Me.TemperatureHigh, filename) hs.SaveINISetting("Settings", "TemperatureLow", Me.TemperatureLow, filename) hs.SaveINISetting("Settings", "AlternativeScheduleDeviceReference", Me.AlternativeScheduleDeviceReference, filename) End Sub Public Sub New(ByRef hs As Object, ByVal rootDeviceRef As Integer) Dim lines() As String = hs.GetINISectionEx("Settings", scriptName & "_" & rootDeviceRef & ".ini") Dim inputString = String.Join(",", lines) 'Dim rootDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(rootDeviceRef) 'Dim inputString As String = rootDevice.DeviceType_Get(hs).Device_SubType_Description.ToString Load(inputString) End Sub Public Sub New(ByVal inputString As String) Load(inputString) End Sub Public Sub Load(ByVal inputString As String) Dim lines() As String = inputString.Split(",") For Each line As String In lines Dim properties() As String = line.Split("=") Select Case properties(0) Case = "ExternalTemperatureSensorRef" Me.ExternalTemperatureSensorRef = CInt(properties(1)) Case = "TemperatureCorrectionAddition" Me.TemperatureCorrectionAddition = CInt(properties(1)) Case = "TemperatureCorrectionMultiplier" Me.TemperatureCorrectionMultiplier = CInt(properties(1)) Case = "TemperatureOffset" Me.TemperatureOffset = CInt(properties(1)) Case = "Log" Me.Log = CBool(properties(1)) Case = "HeaterDeviceReference" Me.HeaterDeviceReference = CInt(properties(1)) Case = "TemperatureHigh" Me.TemperatureHigh = properties(1) Case = "TemperatureLow" Me.TemperatureLow = properties(1) Case = "AlternativeScheduleDeviceReference" Me.AlternativeScheduleDeviceReference = properties(1) End Select Next 'HeaterDeviceReference=860,ExernalTemperatureSensorRef=521 End SubEnd Class config.json for termostaten slik: { "ref": "7569", "type": "Thermostat", "name": "Badet Termostat", "controlRef": "7567", "stateRef": "7567", "temperatureUnit":"C", "humidityRef": "362", "heatingSetpointRef": "7568", "coolingSetpointRef": "7568", "uuid_base": "Thermostat7569" }, Og config.ini-fila slik(med HeaterDeviceReference=6936,ExternalTemperatureSensorRef=6913, samt at 467 er fridagscriptet ditt) [settings]ExternalTemperatureSensorRef=6913TemperatureCorrectionAddition=0TemperatureCorrectionMultiplier=1TemperatureOffset=0,3Log=FalseHeaterDeviceReference=6936TemperatureHigh=23TemperatureLow=16AlternativeScheduleDeviceReference=467[schedule]5:00=High8:00=Low13:00=High23:00=Low[AlternativeSchedule]5:30=High23:00=Low Kjøler ned ser litt dumt ut, om jeg dropper den så står det -10 grader, så det får bare være.

Spørsmålet var egentlig at om jeg kan endre Value 4 Auto til Value 1 på noen måte, i termostaten fra deg. Det er foreløpig ikke noen routingmuligheter i homebridge

Tenkte å prøve å få Moskus sitt Termostatscript inn i Homebridge. Noen som vet om det er bare å endre i .ini-fila samt Values i Heating-device for å endre verdiene? Ikke noen mulighet for å definere i config-fila i homebridge ennå. { "type": "Thermostat", "name":null, "ref": 0, // Set to HomeSeer device reporting the current temperature. "uuid_base": 0, "batteryRef": 0, "batteryThreshold": 25, "temperatureUnit":"F", "controlRef": 0, // Set to HomeSeer device by which you select the Off / Heat / Cool / Auto state. "stateRef": 0, // Set to HomeSeer device reporting the actually running state (Off / Heat / Cool). Sometimes this is the same as controlRef! "heatingSetpointRef": 0, // Either "heatingSetpointRef" or "coolingSetpointRef" must be set (usually both are!) "coolingSetpointRef": 0, // Either "heatingSetpointRef" or "coolingSetpointRef" must be set (usually both are!) "humidityRef": 0, // optional. Set to HomeSeer device that provides a humidity report. "humidityTargetRef": 0 // optional. Set to HomeSeer device that allows you to set humidity setpoint. }, I en standard termostat så er vel 0=Off 1=Heat 2=Cool og 11=Energy Save Heat I Moskus sitt script så er 0=Off 1=Manual 2=Low 3=High 4=Auto

Og firmware 261F0500? Jeg har fått lagt til et par Xiaomi multisensorer og en Cube, ikke prøvd så mange ganger på brytere. Sliter med stabiliteten i Jowihue, HS3(port80)finner bridge(port 8080), og jeg prøver å koble til. Etter refresh av nettside så står det bare not reachable.

Dvs hvilken versjon? Kjører du tilfeldigvis HS3 og Conbee på samme windowsmaskin, og i såfall hvilken verson på Jowihue? Min Jowihue fungerer ikke, har satt deCons til port 8080.

Denne gruppa er jeg medlem i, https://m.facebook.com/groups/665692520245652?view=info

Kjører Jowihue 2.0.2.4 forresten. Finner deConz bridge, koble til, men så blir brua unreachable. Kan det være at det må åpnes noe i Windows 10?(kun Mac/Unix ellers hjemme, har kun en liten beebox med win10 pro, Hs3, Homebridge, startup delayer og deConz, tilkobla usb Zstick fra Aeotec og en usb Conbee

Fungerte det, men Jowihue bare crasher når den kobler til. Dere som kjører Homeseer på samme windowsmaskin med deConz, har dere gjort noe annet enn å bytte port på deConz?

Hvor satte du porten tli 8090?

Fant en mer detaljert guide med bilder, laget for Home Assistant.

{ "bridge": { "name": "Homebridge", "username": "CC:22:3D:E3:CE:30", "port": 51826, "pin": "xxx-xx-xxx" }, "platforms": [{ "platform": "HomeSeer", "name": "HomeSeer", "host": "Hiphs3", "accessories": [{ "ref": 431, "type": "Lightbulb", "name": "Vindu Høyre", "offValue": "0", "onValue": "99", "can_dim": true, "uuid_base": "DimmableLight431" }, { "ref": 401, "type": "Lightbulb", "name": "Vitrineskapet", "offValue": "0", "onValue": "99", "can_dim": true, "uuid_base": "DimmableLight401" }, { "ref": 440, "type": "Lightbulb", "name": "Vindu Venstre", "offValue": "0", "onValue": "99", "can_dim": true, "uuid_base": "DimmableLight440" }, { "ref": 728, "type": "Lightbulb", "name": "Snekkerbua Lys", "offValue": "0", "onValue": "255", "can_dim": false, "uuid_base": "NonDimmable728" }, { "ref":604, "type":"TemperatureSensor", "temperatureUnit":"C", "name":"Bak garasjen", "uuid_base": "Temp604" },{ "ref":1026, "type":"TemperatureSensor", "temperatureUnit":"C", "name":"Garasje", "uuid_base": "Temp1026" }, { "ref":6968, "type":"TemperatureSensor", "temperatureUnit":"C", "name":"Terassen", "uuid_base": "Temp6968" }, { "ref":846, "type":"TemperatureSensor", "temperatureUnit":"C", "name":"Stua", "uuid_base": "Temp846" }, { "ref":893, "type":"ContactSensor", "name":"Balkongdør status", "offValues":[23], "uuid_base": "Motion893" }, { "ref":903, "type":"ContactSensor", "name":"Ytterdør status", "uuid_base": "Motion903" }, { "ref": 1009, "type": "WindowCovering", "name": "Markise terassen", "closedValue": 0, "openValue": 255, "uuid_base": "NonDimmable1009" }, { "ref": 294, "type": "WindowCovering", "name": "Markise Sør", "closedValue": 0, "openValue": 255, "uuid_base": "NonDimmable294" }, { "ref": 511, "type": "Valve", "name": "Vann Barnekjøkken", "closeValve": "0", "openValve": "255", "valveType": 1, "useTimer": true, "minTime": 60, "uuid_base": "NonDimmable511" }, { "ref": 508, "type": "Valve", "name": "Vann Vest", "closeValve": "0", "openValve": "255", "valveType": 1, "useTimer": true, "minTime": 30, "uuid_base": "NonDimmable508" }, { "ref": 507, "type": "Valve", "name": "Vann Sør", "closeValve": "0", "openValve": "255", "valveType": 1, "useTimer": true, "minTime": 30, "uuid_base": "NonDimmable507" }, { "ref": 510, "type": "Valve", "name": "Vann Nordøst", "closeValve": "0", "openValve": "255", "valveType": 1, "useTimer": true, "minTime": 30, "uuid_base": "NonDimmable510" }, { "ref": "6899", "type": "Lock", "name": "Ytterdøra", "unlockValue": 0, "lockValue": 255, "uuid_base": "DoorLock6899" }, { "ref": 5763, "type": "GarageDoorOpener", "name": "Garasjeport","openValue": 1, "closedValue": 2, "openingValue": 254, "closingValue": 252, "stoppedValue": 253, "uuid_base": "GarageDoor5763" } ] }] }

Kona maste om å styre markisen fra tlf. Slet litt med å legge til med den gamle plugin på pi, så la inn 2018-versjonen på windowsmaskinen med HS3 i stedet. Der hadde Valve kommet og, ser litt tøffere ut en brytere(type 2, som er Irregation, har lagt til timer, derfor det står inaktiv). var gjort om en del på parameterne på lås og port, så måtte endre litt på configfila.

Ja, får ikke kontakt når jeg kjører ekskludering heller.

Kjøpte og hacket garadjedøra og satte inn en Popp Dørlås med medfølgende sluttstykke. Fikk innstallert den på første forsøk uten feil i HS3 med min hjemmesnekra ZNet, og fungerte upåklagelig til morgenen på den 17, da jeg plutselig mista all kontakt. Fikk ikke til å inkludere den igjen(eller ekskludere, prøvde mange kanger. Kjøpte nytt sett, og den Poppen får jeg heller ikke til å inkludere. Prøvd både med popp sin egen transformator på 12v samt 9v batteri. Diode blinker, får ingen kontakt. Noen tips? Har UZB på ZNet, prøvde og på en Pi2 med HS3 innstallert og uZB, samt til usb-sticken som er koblet til hovedHS3, ingen kontakt, finner ingen ting ved inkludering. Har plugin 3.0.2.215 på hovedHS3 og 3.0.1.190 på pi.