Ämne: Datorstyrning av Poolen

[Poolnicke]

Startar en tråd om datorstyrning av poolen. Har inte kommit så långt själv ännu men eftersom flera i forumet redan har visat lite av sina lösningar för att logga värmepumpar samt styra motorventiler till solfångare så vore det kul att lära sig mer om ämnet.

Börjar därför med en fråga till Mikkola.

Du skrev i ett tidigare inlägg att du styr automatiken till dina solfångare med hjälp av programmet "Homeseer". Verkar vara en utbyggbar lösning som kanske kan täcka en "tekniknörds" behov  Hur ser kopplingen mellan dator, ventil och tempmätare ut? Vilken utrustning krävs?

/Poolnicke

[mikkola]

Det är en extremt utbyggbar lösning. Bara din fantasi som sätter gränserna

Hur kopplingen ser ut?

Datorn/Servern med Homeseer är kopplat till elnätet (x10) via ett interface http://www.ehem.se/product2.asp?pf_id=108

I homeseer lägger man upp sina "enheter" och programerar dem att göra saker efter tid/temperatur osv.http://www.homeseer.com

I mitt fall är 3-vägs ventilen en enhet som antingen kan vara på eller av. I läget på, är solvärmen inkopplad. I läget av, är solvärmen av. För att styra ventilen använder jag http://www.ehem.se/product2.asp?pf_id=92. Denna burk adresserar du med t.ex B3 (finns från huskod A- P och enhetskod 1-16)

Temperaturena kommer in via serieporten från en burk jag köpt från england. Finns massa olika alternativ till att få in temperaturer i datorn. Denna burk ska jag skrota och köpa Rickards värmepumpslogger istället. Hårdvaran jag har idag klara bara 4st givare.

För att sedan få dessa att fungera ihop har jag skrivit följande Visual Basic program: (I HS2 går det att skriva program i nästan vilket språk (VB, dotnet, java) du vill...

Kodstycke: [Välj]

'x55   - Solvärme i auto (Virtuel enhet)
'e4    - Hårdvarugivare som kollar att vattennivån är ok.
'x48   - Pooltemp (virtuel)
'x49   - Soltemp (virtuel)
'x53   - Börvärde

sub main()
if hs.IsOn("x55") then ' Värme i auto
'Om vatten nivå är under givare
if hs.IsOff("E4") then
hs.writelog"Pool", "Vattennivå ej ok"
exit sub
end if

SunOff = false
PoolTemp = hs.devicestring("x48")
SolTemp = hs.devicestring("x49")
PoolSolDiff = SolTemp - PoolTemp 'Differans mellan pooltemp och soltemp
TempSet = hs.devicestring("x53") 'Börvärde
BorVardeDiff = TempSet - PoolTemp

hs.setDeviceString"x50", BorVardeDiff
hs.setDeviceString"x53", "30,0"
hs.setDeviceString"x54", PoolSolDiff
'hs.writelog "Pool", "Pool: " & pooltemp & " * Sol: " & soltemp & " * Sol Pool Diff:  " & PoolSolDiff & " (min 2) *  Bör: " & TempSet & " * BörvärdeDiff: " & BorVardeDiff & " (min 0,8)"

'*************************************************************
'Om pool är 0,8 lägre än börvärde och sol är 2 varmare än pool
'******************Slå till värmen****************************

If BorVardeDiff > 0.8 then
If PoolSolDiff > 2 then
'hs.writelog "Pool", "Slår till värme"
hs.ExecX10 "E1", "on", 0, 0
hs.WaitSecs 5
hs.ExecX10 "E3", "on", 0, 0
hs.setDeviceString"x52", "Solvärme inkopplad"
end if
end if


'*************************************************************
'Pool = > Bör
'Diff = > 2grader
'******************Slå ifrån värmen****************************
if PoolTemp >= TempSet then
SunOff = true
LogText = LogText & "Börvärde för pool är uppnått. "
end if

if PoolSolDiff <= 2 then
SunOff = true
LogText = LogText & "För Kall solfångare. Minst 2 grader över Pooltemp krävs. "
end if

if SunOff = true then
'hs.writelog "Pool", LogText
hs.ExecX10 "E3", "off", 0, 0
hs.setDeviceString"x52", LogText 'Status till ML
end if

end if 'värme i auto
end sub

Lite svårt att förklara så att alla ska förstå 

Allt detta är ju specialanpassat efter min hårdvara/mjukvara och blir svårt för en som inte fattar ett dyft av programmering att köra. Men jag hjälper gärna till så gått jag kan och hinner =)

Denna sida på homeseers webplats finns många fler exempel på "ehemslösningar". http://www.homeseer.com/profiles/index.htm

Även denna har en del att titta på i ehemssvängen http://www.jon00.me.uk

[Poolnicke]

Tänk om jag hade vetat att X-10 protokollet och alla coola "gadgets" existerade innan jag köpte min automatik.

Att du kollar vattennivån är det för att fylla på med automatik?

Du har inte deklarerat några variabler. Innebär detta att koden du skrivit för automatiken är betydligt större eller att Homeseer inte kräver det?

Nu befinner jag mig "beyond" avundssjuk

Automatiken som jag köpte, och jag var så nöjd med, ligger och skräpar ner mitt hem i jämförelse med detta 

/Poolnicke

[mikkola]

Nivåvakten övervakar nivån så att pumpen inte riskerar att gå torr, ifall någon slang hoppar av eller får en fetläcka. Men det gav mig ännu en ide, tack  Ska bara koppla förbi vattenmätaren först 

Variabeldeklaration behövs inte i homeseer när man programmerar vanlig gammal herdelig VB =)

[mikkola]

Temporära bilden över poolregleringen som jag har på pekskärmen i hallen. Ska ju kompletteras med vvx till sommaren. Då blir det även lite mer programmering.

Lite tråkiga temperaturer bara 

En fråga: Hur ska man samköra vvx och solpanel? Låta vvx & solpanel samarbeta till t.ex. 27 grader och solpaneler till allt därovan?

[RLA]

En fråga: Hur ska man samköra vvx och solpanel? Låta vvx & solpanel samarbeta till t.ex. 27 grader och solpaneler till allt därovan?

Det är så jag ska göra, jag låter vxl göra en minimumtemp i poolen (25-27) sen får solfångarna göra resten!

[mikkola]

Hittade denna på blocket: http://www.blocket.se/vi/7655539.htm?ca=6_s

[Poolnicke]

Mikkola, Är Homeseer det bästa programmet för detta eller har du hittat något annat program som du hellre hade satsat på från början?

/Poolnicke

[mikkola]

Homeseer slår allt och alla på fingrarna. Finns en del olika på marknaden men dom är inte lika flexibla och användarvänliga. Jag testade en del demon innan jag köpte homeseer.

[Poolnicke]

Mäter du elförbrukning via Homeseer?

/Poolnicke