Vinnerliste

Jeg må betale nettleie også så hva strømprisen alene koster er akademisk 🙂

Ja jeg er veldig fornøyd med S7 maxv. Å komme hjem til ferdig støvsuget og vasket gulv på kjøkken, stue, tv-stue og soverom hver eneste dag er helt fantastisk. Om du ikke er interessert i de avanserte tømmestasjonene så ville jeg nå vurdert S7 også, en del billigere en maxv. Forskjellen er som nevnt AI som oppdager gjenstander på gulvet og mulighet for bruk av auto empty og ultra dock. Min s5 vil rulle rett over en sokk, klesplagg eller hva det måtte være, mens maxv går fint rundt. Den kan nok ikke erstatte husvask helt. Den vil ikke klare gamle flekker som sitter godt fast, men mopper over gulvet og har en vinrasjonsfunksjon på moppen for å ta flekker. Tidligere bare dro den moppen over, så er en fin forbedring fra tidligere versjoner. Du kan jo se på vacuum wars sine tester.

Kjøpte en Sensibo Air, og den funker! Man kan ikke lære den kommandoer, og "fjernkontroll-modellen" den valgte ved å trykke på på-knappen mot Sensiboen klarte ikke skru den på Men med Midea - Hatless Snowy Owl (3) funker alle funksjonene

Flott script og takk for at du deler. Endelig kan jeg velge hvilke timer som skal scannes, men sliter selvfølgelig litt. Gjør jeg noe galt eller sliter scriptet med overgangen ved midnatt? Event som kjører script: IF This event is MANUALLY triggered THEN Run the script: TibberVVB.vb and only allow one instance of the script to run at a time. Script: Sub Main(ByVal input As Object) 'Moskus 2022 'DeviceRev til VVB switch Dim devRef As Integer = 404 'Henter pris-info fra TibberSeer Dim hours As Double = 2 'antall timer som sammenhengende skal ha lavest snittpris Dim hourStart As Integer = Now.Hour +1 'Vi er ikke interessert i data som har vært. Dim hourEnd As Integer = 8 '"Look ahead". 0 tilsier alle tilgjengelige data 'Henter billigste timer og snittpris fra TibberSeer Dim D As Tuple(Of Date, Double) = hs.PluginFunction("TibberSeer", "", "GetCheapestDhours", New Object() {hours, hourStart, hourEnd}) 'Finner CAPI-kommando for "On" for VVB-devicen Dim onCC As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(devRef, True, "On", False, False) 'Lager et nytt event med "VVB på" kommando Dim eventRef As Integer = hs.NewEventGetRef("VVB På (pris-trigger)", "Automatisk (strømstyring)", String.Empty) hs.EventSetTimeTrigger(eventRef, New Date(D.Item1.Year, D.Item1.Month, D.Item1.Day, D.Item1.Hour, D.Item1.Minute, 0)) hs.AddDeviceActionToEvent(eventRef, onCC) hs.DeleteAfterTrigger_Set(eventRef) hs.SaveEventsDevices() hs.WriteLog("Tibber VVB", "Lagde nytt VVB på trigger-event") End Sub Jeg har kjørt scriptet i 22-23 tiden, men da får jeg følgende ukomplette event generert: Hvis jeg derimot endrer "Dim hourEnd" til 0, eller kjører script etter midnatt så funker det. Har ikke prøvd andre tider på døgnet enda. Dim hourStart med "Now.Hour" eller "Now.Hour +1" utgjør ingen forskjell. EDIT: Fant ut av det. Må jo skrive f.eks. "Dim hourEnd As Integer = 24 + 8" for å sjekke frem til kl 8 neste dag..

Dukket opp i RFXmngr. (virket som om FineOffset/Viking protokollen ikke var på.) Løsning: Endte opp med å legge den til manuelt med decimal-id'n hentet fra RFXmngr. Vet ikke hvorfor den ikke ble snappet opp automatisk. Men skriver det her i tilfelle noen andre sliter med det senere.