Vinnerliste

Når de automatiske lukeåpnererne i drivhuset ikke tåler stort mer enn flau fis så måtte litt heftigere utstyr til. En gammel portmotor, noen meter rør-i-rør, et Nexa z-wave rele og et par z-wave magnetbrytere og voila, lukene går av seg selv etter temp fra en Aeotec Multisensor ?

Mye rart folk kan få for seg. Jeg ble møtt med uventet motstand da jeg plasserte ut WiFi APer for noen år siden. En person hadde fått noe forferdelig hodepine av APet som sto å blinket i taket av korridoren utenfor kontoret. "Det er ordnet nå" sa jeg etter å ha inspisert stedet og slått av LEDene på APn. "Ja, jeg merker stor forskjell med en gang" sa personen mens h*n løftet ut bluetooth-headsettet fra ørene..

Public Sub Main(ByVal input As Object) 'Moskus 2020 Dim device As Scheduler.Classes.DeviceClass Dim DE As Scheduler.Classes.clsDeviceEnumeration Dim counter As Integer = 0 Dim counterBelow100 As Integer Dim filter As String = "batter" 'tar da både "battery" og "batteri" hs.WriteLog("Battery", "Looking for battery devices...") DE = hs.GetDeviceEnumerator() Do While Not DE.Finished device = DE.GetNext If device.Device_Type_String(hs).ToLower.Contains(filter) OrElse device.DeviceType_Get(hs).Device_Type_Description.ToLower.Contains(filter) OrElse device.Name(hs).Contains(filter) Then Dim devName As String = device.Location2(hs) & ", " & device.Location(hs) & ", " & device.Name(hs) Dim devValue As Double = hs.DeviceValueEx(device.Ref(hs)) If devValue < 100 Then hs.WriteLog("Battery", "Device: " & devName & ", battery: " & devValue) counterBelow100 += 1 End If counter += 1 End If Loop hs.WriteLog("Battery", "Done! Found " & counter & " devices, " & counterBelow100 & " have levels below 100%.") End Sub Bare lagre som "GetBatteryLevels.vb" og kjør det. Det skrives til loggen.

Placebo-medisin er av de mest virkningsfulle medikamentene som finnes. Og virkningen har motsatt effekt også. Dess styggere APeet var med flere antennepisker stikkende ut dess flere fikk hodepine. Kraftige blinkende LEDer hjalp heller ikke på. De stedene hvor AP ble montert over himling var det ingen som reagerte i det heletatt. Ingen reagerer på de nyere runde UFO-ene i taket feks. Mot slike ting hjelper ikke argumentasjon og fakta. Har folk vondt i hodet, så har folk vondt i hodet. Det er noe som heter "ute av syne, ute av sinn".

Hvis du betaler 300 kr for Verisure, så kan du betale det i nesten 16 år før du får samme kostnad som "E-security".

Funker som et skudd og med mitt lille tillegg (markert med '***** Svein *****) er jeg veldig langt på vei der jeg ville. Public Sub Main(ByVal input As Object) 'Moskus 2020 Dim device As Scheduler.Classes.DeviceClass Dim DE As Scheduler.Classes.clsDeviceEnumeration Dim counter As Integer = 0 Dim counterBelow100 As Integer Dim filter As String = "batter" 'tar da både "battery" og "batteri" Dim LowestBatLevel as Integer '***** Svein ***** LowestBatLevel = 100 '***** Svein ***** hs.WriteLog("Battery", "Looking for battery devices...") DE = hs.GetDeviceEnumerator() Do While Not DE.Finished device = DE.GetNext If device.Device_Type_String(hs).ToLower.Contains(filter) OrElse device.DeviceType_Get(hs).Device_Type_Description.ToLower.Contains(filter) OrElse device.Name(hs).Contains(filter) Then Dim devName As String = device.Location2(hs) & ", " & device.Location(hs) & ", " & device.Name(hs) Dim devValue As Double = hs.DeviceValueEx(device.Ref(hs)) If devValue < 100 Then hs.WriteLog("Battery", "Device: " & devName & ", battery: " & devValue) if devValue < LowestBatLevel then LowestBatLevel = devValue '***** Svein ***** counterBelow100 += 1 End If counter += 1 End If Loop hs.WriteLog("Battery", "Lowest Battery Level found: " & LowestBatLevel &"%") '***** Svein ***** hs.WriteLog("Battery", "Done! Found " & counter & " devices, " & counterBelow100 & " have levels below 100%.") hs.SetDeviceValueByName("GeneralBatteryLevel", LowestBatLevel) '***** Svein ***** End Sub Den virtuelle variabelen GeneralBatteryLevel har status graphics som vanlig batteri og viser i alle bilder i HSTouch som f.eks. nede til høyre her. Tilfeldigvis er laveste batterinivå akkurat den som allerede viser øverst i bildet ?: Da var jeg et meget godt stykke på vei der jeg ville. Takker og bukker for hjelpen.

Det er riktig, men hvorfor er alt annet enn mobil farlig? Det er der jeg ikke henger med lenger. Og hun her er heller ikke første jeg hører om som synes at 2,4GHz fra Wi-Fi er skummelt, mens 2,1GHz fra mobilen er greit.

Fått loddet tilnærmet ferdig to ulike arduino-shields. Det ene er gass-sensor-shield jeg har skrevet om tidligere , det andre er neste generasjon av minidrivhus-prosjektet mitt. Denne gangen skalert ned til å monitorere og vanne to planter og styre ett vekstlys. I begge prosjektene har jeg gått over til å bruke en ferdig IC for multipleksing (74HC5041), som har kraftig forenklet opplegget rundt begrensningen med kun én analog pin på ESP8266.

Bare et lite tips til de som har mange batteridrevne sensorer og bruker Home Assistant Putt dette {%- for state in states.sensor %} {%- if 'battery' in state.name | lower %} {% if state.state | int < 30 %}**{% endif %}{{state.state_with_unit}}, {{ state.name}}, {{ as_timestamp(state.last_updated) | timestamp_custom("%H:%M/%d.%m")}}{% if state.state | int < 30 %}**{% endif %} {%- endif -%} {% endfor %} inn i en markdown panel og du får en liste ala dette i Lovelace. Merk at alle under 30% blir merket med fet skrift. 85 %, Bod Battery Level, 08:10/03.03 88 %, AQ2 Battery Level, 08:10/03.03 48 %, AQ3 Battery Level, 08:10/03.03 75 %, AQ4 Battery Level, 08:23/03.03 81 %, AQ5 Battery Level, 08:10/03.03 91 %, AQ6 Battery Level, 08:10/03.03 88 %, AQ7 Battery Level, 08:10/03.03 88 %, AQ8 Battery Level, 09:26/03.03 91 %, AQ9 Battery Level, 08:10/03.03 100 %, Bad 1. etg bryter Battery Level, 08:10/03.03 100 %, Bad 1. etg sensor Battery Level, 08:10/03.03 100 %, Bad U. etg bryter Battery Level, 08:10/03.03 99 %, Motion Sensor Battery Level, 08:10/03.03 91 %, Boddor Battery Level, 08:10/03.03 100 %, Gang 1. etg sensor Battery Level, 08:10/03.03 100 %, Gang 1. etg bryter Battery Level, 08:10/03.03 100 %, Gang U. etg sensor Battery Level, 08:10/03.03 100 %, Gang U. etg bryter Battery Level, 08:10/03.03 100 %, Garasje bryter Battery Level, 08:10/03.03 100 %, Garasje sensor Battery Level, 08:10/03.03 91 %, Garasjedor Battery Level, 08:10/03.03 100 %, Garasjeport Battery Level, 08:10/03.03 60 %, Garasjeport bryter Battery Level, 08:10/03.03 100 %, Gjesterom U. etg bryter Battery Level, 08:10/03.03 100 %, Hagestue Battery Level, 08:10/03.03 91 %, Hagestue sensor Battery Level, 08:10/03.03 91 %, Hoveddor Battery Level, 08:10/03.03 100 %, Hoveddor U. etg Battery Level, 08:10/03.03 100 %, Kjoekken bryter Battery Level, 08:10/03.03 100 %, Kontor bryter Battery Level, 08:10/03.03 100 %, Ringeklokke Battery Level, 08:10/03.03 96 %, Rullegardin hagestue a battery level, 08:10/03.03 99 %, Rullegardin hagestue b battery level, 08:37/03.03 100 %, Rullegardin hagestue c battery level, 08:10/03.03 57 %, SM-G930F Battery Level, 10:28/03.03 74 %, SM-G955F Battery Level, 10:20/03.03 100 %, Soverom 1. etg bryter Battery Level, 08:10/03.03 100 %, Soverom U. etg bryter Battery Level, 08:10/03.03 100 %, Stue bryter Battery Level, 08:10/03.03 87 %, TRADFRI open/close remote Battery Level, 08:10/03.03 100 %, TV Stue bryter Battery Level, 08:10/03.03 100.0 %, UPS Battery, 08:10/03.03 27.1 V, UPS Battery Voltage, 08:10/03.03 100 %, Ute 1. etg sensor Battery Level, 08:10/03.03 100 %, Vannsensor bad 1. etg Battery Level, 08:10/03.03 100 %, Vannsensor bad U. etg Battery Level, 08:10/03.03 100 %, Vannsensor kjokkenbenk Battery Level, 08:10/03.03 95 %, Vannsensor ute 1. etg Battery Level, 08:10/03.03 100 %, Vannsensor ute 2. etg Battery Level, 08:10/03.03 100 %, Vannsensor ute U. etg Battery Level, 08:10/03.03 100 %, Vaskerom bryter Battery Level, 08:10/03.03 100 %, Vaskerom sensor Battery Level, 08:10/03.03