Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

Beerpal

Medlemmer
  • Innlegg

    32
  • Ble med

  • Besøkte siden sist

  • Dager vunnet

    3

Beerpal vant dagen sist 16. mai 2017

Beerpal hadde mest likt innhold!

Hjemmeautomasjon

  • System
    Annet

Nylige profilbesøk

Blokken for nylige besøkende er slått av og vises ikke for andre medlemmer.

Beerpal sine prestasjoner

Kabelfører

Kabelfører (6/16)

  • Samarbeidspartner
  • Første innlegg
  • Reagerer godt
  • Samtalestarter
  • Uke én ferdig

Nylige merker

14

Nettsamfunnsomdømme

  1. Tusen takk for hjelpen! så enkelt var det. bruker nå hs.SetDeviceValueByRef.
  2. Mere feilsøking: Sub Main(Parm As Object) On Error Resume Next ' Declare result, max, and min as variables Dim result As Double Dim max As Double Dim min As Double ' Get max and min values from devices 140 and 141 max = hs.DeviceValue(140) min = hs.DeviceValue(141) ' Calculate the result of the expression result = hs.DeviceValue(138) - hs.DeviceValue(104) + hs.DeviceValue(137) ' Check if the result is less than min If result < min Then ' Set the result to min if it is less than min result = min End If ' Check if the result is greater than max If result > max Then ' Set the result to max if it is greater than max result = max End If ' Add a debug message to the event logs hs.WriteLog("Script", "Result: " & result) ' Set devices to the result hs.SetDeviceValue(143, CStr(result), true) If Err.Number <> 0 Then ' An error occurred hs.WriteLog("Script", "Error: " & Err.Number & " - " & Err.Description) End If On Error GoTo 0 End Sub nå vises: Error: 438 - Overbelastningsoppløsning mislyktes fordi ingen tilgjengelig SetDeviceValue godtar dette antallet argumenter. Finner forsatt ikke ut hva som er feilen. Det jeg ønsker er at verdien av "result" skal skrives på device 143
  3. En annen feil skulle det stå 😅 Fra log: "Error 0 Running script: Målet forårsaket et unntak under aktivering." Jeg forstår ikke hva som er feil. hs.SetDeviceValue(143, result, true) Jeg har prøvd å opprette ny annen virtual device og får samme feilen.
  4. Hei. Har endret innlegget etter og ha testet litt og har endret fra hs.SetDeviceString til hs.SetDeviceValue. Men nå kommer det andre feil. etter jeg kjørte hs.SetDeviceString "" for å nulle ut. ?? Takker og bukker for all hjelp jeg kan få
  5. Hei. Jeg sitter fast i et lite problem med skript. Først så kjøres denne. Sub Main(Parm As Object) ' Declare result, max, and min as variables Dim result As Double Dim max As Double Dim min As Double ' Get max and min values from devices 140 and 141 max = hs.DeviceValue(140) min = hs.DeviceValue(141) ' Calculate the result of the expression result = hs.DeviceValue(138) - hs.DeviceValue(104) + hs.DeviceValue(137) ' Check if the result is less than min If result < min Then ' Set the result to min if it is less than min result = min End If ' Check if the result is greater than max If result > max Then ' Set the result to max if it is greater than max result = max End If ' Set devices to the result hs.SetDeviceValue(143, result, true) End Sub Når jeg kjører dette scriptet så får jeg denne feilen: 30.12.2022 12:36:18 HomeSeer Error 0 Running script: Målet forårsaket et unntak under aktivering. 30.12.2022 12:36:18 HomeSeer Event Running script in background (Uteregluert shunt beregning): Shunt.vb Hva gjør jeg feil? 🤨
  6. Hei. jeg får ikke dette til å fungere. Håper noen kan hjelpe meg her?
  7. Flott plugin. Betaler gjerne for den når den er ferdig Grafen får ikke med seg topper som er over 100 øre PH
  8. Jeg fikk det til. Jeg manglet "Byval" og ", True" Slik måtte det se ut : Sub Main(Byval params as Object) hs.SetDeviceValueByRef(1587, (hs.DeviceValueEx(1587) + (hs.DeviceValueEx(1583)/60)), True) End Sub
  9. Det jeg prøver på er at dette skriptet kjøres 1 gang pr minutt Og ser noe slikt ut: Sub Main(parm As Object) hs.SetDeviceValueByRef(1587, (hs.DeviceValueEx(1587) + (hs.DeviceValueEx(1583)/60)) End Sub Hvordan får jeg dette til?
  10. 'Gang hs.SetDeviceValueByRef(1582, (1.162*(hs.DeviceValueEx(420)/255*3.6*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Sum alle kurser hs.SetDeviceValueByRef(1583, (hs.DeviceValueEx(1578)+hs.DeviceValueEx(1580)+hs.DeviceValueEx(1579)+hs.DeviceValueEx(1582)+hs.DeviceValueEx(1576)+hs.DeviceValueEx(1581)), True) Device 1582 viser Watt fra utregning fra Device 420 som er på(255) og av(0) gulvvarme kurs, dette er en lhc-5020. Device 188 og 189 er verdi fra Arduino API som er one wire temperaturføler. Device 1583 er summen i kW av alle kursene. Takk for svar
  11. Hei Jeg trenger litt dytt i riktig retning, da det er noe ikke jeg klarer å finne ut av. Jeg har laget et skript oppgir nåværende forbruk på vannbåren gulvvarme. (Jeg har trykkregulert pumpe og kan derfår oppgi fast liter pr min til de som lurte) Sub Main(Byval params as Object) 'Biblotek hs.SetDeviceValueByRef(1576, (1.162*(hs.DeviceValueEx(415)/255*1.8*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Stue hs.SetDeviceValueByRef(1578, (1.162*(hs.DeviceValueEx(417)/255*1.2*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Kjøkken hs.SetDeviceValueByRef(1579, (1.162*(hs.DeviceValueEx(416)/255*4.7*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Kontor hs.SetDeviceValueByRef(1580, (1.162*(hs.DeviceValueEx(418)/255*2.8*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Bad 1. etg hs.SetDeviceValueByRef(1581, (1.162*(hs.DeviceValueEx(419)/255*1.4*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Gang hs.SetDeviceValueByRef(1582, (1.162*(hs.DeviceValueEx(420)/255*3.6*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True) 'Sum alle kurser hs.SetDeviceValueByRef(1583, (hs.DeviceValueEx(1578)+hs.DeviceValueEx(1580)+hs.DeviceValueEx(1579)+hs.DeviceValueEx(1582)+hs.DeviceValueEx(1576)+hs.DeviceValueEx(1581)), True) End Sub Det jeg nå ønsker er at jeg kan se totalt i dag, i går, denne uken osv. Tusen takk for et flott forum.
  12. Heisann. Har noen dette skriptet til en noob?
  13. Nå har jeg montert opp varmeanlegget og fått testet det manuellt. og alt fungerer som det skal. Men nå har jeg tørket støv av arduinoen og begynner å se på arduino api så begynner jeg å bli litt svett jeg har glemt masse. Har noen et program eksempel med flere onewire DS18B20 som sender til HS og gi noen enkle kommandoer til feks et rele. Det vil være til stor hjelp Jeg har ikke brukt DS18B20 før. så det var litt nytt for meg.
  14. Beerpal

    NEO Z-wave

    Hei dere. Hva tenker dere om disse: https://www.banggood.com/search/z-wave.html Vurderer å bestille noen smart plug og kanskje leak alarmen
  15. Takk for svar. Jeg går for programmering i arduino. installerte min første pluging som var denne og du verden for en enkel sak og sette opp. Testet bare litt med ikke API versjonen og det gikk som en lek. Her er listen over komponenter: 1 stk Max31855 1 stk Termometer K-Type 2 stk PWM til 0-10V singal converter 8 stk DS18B20 termometer 1 stk D249 modul med 2 stk DPDT reler 2 stk CR05 ventilmotorer 1 stk Servo Håper dette vil fungerer.
×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.