Hout cv in combinatie met boiler en cv ketel

verwarming, isolatie, huiselijk energieverbruik

Moderator: Moderators

William
Berichten: 124
Lid geworden op: 29 jun 2010, 14:36
Locatie: Zeeland

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door William » 03 mei 2011, 21:03

Paul schreef:Maar klopt het dat jij idd ook in het plaatsje Zeeland woont!? :D

Jazeker! Maar dan in de provincie :lol:
Ik fabriceer zelf wel wat denk ik... :lol:

William
Berichten: 124
Lid geworden op: 29 jun 2010, 14:36
Locatie: Zeeland

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door William » 05 mei 2011, 16:40

Realtime screenshot van mijn test programma.
-Buffer met 4 temp sensors (DS18S10)
-1 sensor op aanvoer net voor buffer.
-Kleuren afhankelijk van temperatuur. (Copyright :lol: )
Naamloos.jpg

Moest het even delen.
Laatst gewijzigd door William op 05 mei 2011, 20:20, 1 keer totaal gewijzigd.

Gebruikersavatar
kockie
Site Admin
Berichten: 7677
Lid geworden op: 28 jan 2006, 17:42
Locatie: Zeddam
Contacteer:

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door kockie » 05 mei 2011, 20:18

Mooi gemaakt. Wil je de broncode delen?
Mensen zeggen wel eens dat ik troep verzamel; ik noem mezelf liever een industrieel-amateur-archeoloog die probeert waardevolle artefacten te behouden.

William
Berichten: 124
Lid geworden op: 29 jun 2010, 14:36
Locatie: Zeeland

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door William » 05 mei 2011, 20:35

Het is gemaakt met Delphi 2010 en maakt gebruik van de WSocket component, om berichten verzonden over intranet te onvangen.
Deze berichten worden verzonden door het programma LogTemp van MRsoft via xAP protocol.
Dit draait op mijn Thin Client, waar ook de iButton adapter en sensors om aangesloten zijn.

Betreft de source;
Ik denk dat je meer doelt op de temperatuur kleuring of niet?
Zie hier:

Code: Selecteer alles

 procedure GradVertical(Canvas:TCanvas; Rect:TRect; FromColor, ToColor:TColor) ;
 var
   Y:integer;
   dr,dg,db:Extended;
   C1,C2:TColor;
   r1,r2,g1,g2,b1,b2:Byte;
   R,G,B:Byte;
   cnt:Integer;
 begin
    C1 := FromColor;
    R1 := GetRValue(C1) ;
    G1 := GetGValue(C1) ;
    B1 := GetBValue(C1) ;
 
    C2 := ToColor;
    R2 := GetRValue(C2) ;
    G2 := GetGValue(C2) ;
    B2 := GetBValue(C2) ;
 
    dr := (R2-R1) / Rect.Bottom-Rect.Top;
    dg := (G2-G1) / Rect.Bottom-Rect.Top;
    db := (B2-B1) / Rect.Bottom-Rect.Top;
 
    cnt := 0;
    for Y := Rect.Top to Rect.Bottom-1 do
    begin
       R := R1+Ceil(dr*cnt) ;
       G := G1+Ceil(dg*cnt) ;
       B := B1+Ceil(db*cnt) ;
 
       Canvas.Pen.Color := RGB(R,G,B) ;
       Canvas.MoveTo(Rect.Left,Y) ;
       Canvas.LineTo(Rect.Right,Y) ;
       Inc(cnt) ;
    end;
 end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  GradVertical(PaintBox1.Canvas, PaintBox1.ClientRect, Color1, Color2) ;
end;

procedure TForm1.PaintBox2Paint(Sender: TObject);
begin
  GradVertical(PaintBox2.Canvas, PaintBox1.ClientRect, Color2, Color3) ;
end;

procedure TForm1.PaintBox3Paint(Sender: TObject);
begin
  GradVertical(PaintBox3.Canvas, PaintBox1.ClientRect, Color3, Color4) ;
end;


Mijn bufferafbeelding bestaat namelijk uit 3 Paintboxes. De kleuren Color1 t/m 4 heb ik gedefineerd afhankelijk van de temperatuur:

Code: Selecteer alles

// Grenswaarden temperatuur naar kleur
if SensorTemp1 >= 70 then Color1:= clRed;
if SensorTemp2 >= 70 then Color2:= clRed;
if SensorTemp3 >= 70 then Color3:= clRed;
if SensorTemp4 >= 70 then Color4:= clRed;

if SensorTemp1 < 70  then Color1:= clPurple;
if SensorTemp2 < 70  then Color2:= clPurple;
if SensorTemp3 < 70  then Color3:= clPurple;
if SensorTemp4 < 70  then Color4:= clPurple;

if SensorTemp1 < 50  then Color1:= clNavy;
if SensorTemp2 < 50  then Color2:= clNavy;
if SensorTemp3 < 50  then Color3:= clNavy;
if SensorTemp4 < 50  then Color4:= clNavy;

if SensorTemp1 < 30  then Color1:= clBlue;
if SensorTemp2 < 30  then Color2:= clBlue;
if SensorTemp3 < 30  then Color3:= clBlue;
if SensorTemp4 < 30  then Color4:= clBlue;

// Paint
GradVertical(PaintBox1.Canvas, PaintBox1.ClientRect, Color1, Color2);
GradVertical(PaintBox2.Canvas, PaintBox1.ClientRect, Color2, Color3);
GradVertical(PaintBox3.Canvas, PaintBox1.ClientRect, Color3, Color4);

Image1.Repaint; //Bring Image (Buffertank) on top
Je mag ook de gehele source hoor, maar hij is nog erg slecht geoptimaliseerd en erg onleesbaar. (zoals bovenstaande code niet erg netjes is... :roll: )

Paul
Berichten: 77
Lid geworden op: 03 dec 2010, 03:45
Contacteer:

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door Paul » 05 mei 2011, 23:06

William schreef:Mijn bufferafbeelding bestaat namelijk uit 3 Paintboxes. De kleuren Color1 t/m 4 heb ik gedefineerd afhankelijk van de temperatuur:

Code: Selecteer alles

// Grenswaarden temperatuur naar kleur
if SensorTemp1 >= 70 then Color1:= clRed;
if SensorTemp2 >= 70 then Color2:= clRed;
if SensorTemp3 >= 70 then Color3:= clRed;
if SensorTemp4 >= 70 then Color4:= clRed;

if SensorTemp1 < 70  then Color1:= clPurple;
if SensorTemp2 < 70  then Color2:= clPurple;
if SensorTemp3 < 70  then Color3:= clPurple;
if SensorTemp4 < 70  then Color4:= clPurple;

if SensorTemp1 < 50  then Color1:= clNavy;
if SensorTemp2 < 50  then Color2:= clNavy;
if SensorTemp3 < 50  then Color3:= clNavy;
if SensorTemp4 < 50  then Color4:= clNavy;

if SensorTemp1 < 30  then Color1:= clBlue;
if SensorTemp2 < 30  then Color2:= clBlue;
if SensorTemp3 < 30  then Color3:= clBlue;
if SensorTemp4 < 30  then Color4:= clBlue;

// Paint
GradVertical(PaintBox1.Canvas, PaintBox1.ClientRect, Color1, Color2);
GradVertical(PaintBox2.Canvas, PaintBox1.ClientRect, Color2, Color3);
GradVertical(PaintBox3.Canvas, PaintBox1.ClientRect, Color3, Color4);

Image1.Repaint; //Bring Image (Buffertank) on top
Je mag ook de gehele source hoor, maar hij is nog erg slecht geoptimaliseerd en erg onleesbaar. (zoals bovenstaande code niet erg netjes is... :roll: )

Of zo (pseudo code, delphi is me te lang geleden)

Code: Selecteer alles

functie temperatuurKleuren(temp) {
    kleurenLijst = array(0 => clBlue, 1=>clNavy, 2=>clPurple, 3=> clRed);
    return kleurenLijst[floor((temp-30)/20)];
}

// Paint
GradVertical(PaintBox1.Canvas, PaintBox1.ClientRect, temperatuurKleuren(SensorTemp1), temperatuurKleuren(SensorTemp2));
GradVertical(PaintBox2.Canvas, PaintBox1.ClientRect, temperatuurKleuren(SensorTemp2), temperatuurKleuren(SensorTemp3));
GradVertical(PaintBox3.Canvas, PaintBox1.ClientRect, temperatuurKleuren(SensorTemp3), temperatuurKleuren(SensorTemp4));

Image1.Repaint; //Bring Image (Buffertank) on top


:fff

Gebruikersavatar
sathopper
Berichten: 214
Lid geworden op: 14 sep 2011, 06:48
Locatie: Friesland
Contacteer:

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door sathopper » 14 sep 2011, 07:01

Ik heb inmiddels ook de combinatie draaien (Hout cv, Boiler en CV ketel).

Ik heb zelf de besturing gebouwd en geprogrameerd.
Zie filmpje van de bouw:
http://www.youtube.com/watch?v=DPGHqhgndME

Ik regel de retour temperatuur doormiddel van een PID regeling en een omgebouwde 3 weg klep.

Mijn vraag is nu om het systeem te optimaliseren of ik wanneer de ketel is uitgebrand
de retour watertemperatuur mag laten zakken onder de 60 graden omdat ik de pomp wil laten nadraaien
om de laatste (rest) warmte van de ketel te benutten of loop ik dan ook nog steeds het risico van condensvorming?

t.z.t zal ik wat foto's posten maar wegens tijdgebrek heb ik nog geen foto's gemaakt.

:D
--- 100L Solesta zonneboiler en 120L boiler verwarmt door Hout CV ---
--- Arduino controlled PER EKO Hout CV + 1000L buffer ---
--- Evergreen Solar Zonnepanelen (10x215Wp) AEG Protect PV2000 inverter ---
--- Een niet ecologisch maar wel leuk project ---

William
Berichten: 124
Lid geworden op: 29 jun 2010, 14:36
Locatie: Zeeland

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door William » 19 jul 2018, 16:56

Ik wil nu een flowmeter installeren op de aanvoer van hout-CV naar CV-systeem. Heb keuze uit 2 bereiken, namelelijk:

1-12 l/min of 2-40 l/min.

Wie kan inschatten wat in mijn geval bruikbaar is?

Ben nu overigens al dagen aan het lezen over de rocket 177. Super interessant!

hanskraayeveld
Berichten: 709
Lid geworden op: 04 okt 2015, 13:49

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door hanskraayeveld » 19 jul 2018, 23:01

1-12

William
Berichten: 124
Lid geworden op: 29 jun 2010, 14:36
Locatie: Zeeland

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door William » 22 jul 2018, 10:08

Bedankt Hans.
Bestel ik er een via Amazon. Scheelt weer 30 euro.

Ruuben
Berichten: 1374
Lid geworden op: 14 okt 2012, 17:42

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door Ruuben » 22 jul 2018, 22:32

Doe gelijk een electrische pulsgever in serie. Kost paar euro uit China. Kun je later ook besluiten electrische liters flow weer te geven


http://www.ultisolar.com/catalog.asp?cate=10

https://www.aliexpress.com/item/New-Arr ... autifyAB=0

compleet setje

hanskraayeveld
Berichten: 709
Lid geworden op: 04 okt 2015, 13:49

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door hanskraayeveld » 23 jul 2018, 21:19

Ik zou dan een "wärmezähler" kopen.

Op eBay.de een paar tientjes gebruikt.
Werken volgens hetzelfde principe. Je ziet de aanvoer temp, afvoertemp, flow in liters, en vermogen in kW, opbrengst in kWh of mWh.

Veel completer.

Ruuben
Berichten: 1374
Lid geworden op: 14 okt 2012, 17:42

Re: Hout cv in combinatie met boiler en cv ketel

Bericht door Ruuben » 24 jul 2018, 10:50

hanskraayeveld schreef:
23 jul 2018, 21:19
Ik zou dan een "wärmezähler" kopen.

Op eBay.de een paar tientjes gebruikt.
Werken volgens hetzelfde principe. Je ziet de aanvoer temp, afvoertemp, flow in liters, en vermogen in kW, opbrengst in kWh of mWh.

Veel completer.
Dat vind ook ook supertip voor mezelf

https://www.ebay.de/itm/Warmezahler-Kun ... 02W4Ybe_jg

Plaats reactie