Pagina 6 van 6

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 03 mei 2011, 22:03
door William
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:

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 05 mei 2011, 17:40
door William
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.

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 05 mei 2011, 21:18
door kockie
Mooi gemaakt. Wil je de broncode delen?

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 05 mei 2011, 21:35
door William
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: )

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 06 mei 2011, 00:06
door Paul
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

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 14 sep 2011, 08:01
door sathopper
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

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 19 jul 2018, 17:56
door William
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!

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 20 jul 2018, 00:01
door hanskraayeveld
1-12

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 22 jul 2018, 11:08
door William
Bedankt Hans.
Bestel ik er een via Amazon. Scheelt weer 30 euro.

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 22 jul 2018, 23:32
door Ruuben
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

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 23 jul 2018, 22:19
door hanskraayeveld
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.

Re: Hout cv in combinatie met boiler en cv ketel

Geplaatst: 24 jul 2018, 11:50
door Ruuben
hanskraayeveld schreef:
23 jul 2018, 22: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