Archivio

Archive for ottobre 2012

Programma domestico

Il freddo ormai ha bussato alla porta… quindi serve un metodo per far fronte all’evento!

unit UFCasa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base, StdCtrls, RVEnvironment, ActnList, RVActionList, RVRegCtrl;

type
  TFCasa = class(TFBase)
    ...
    procedure FormCreate(Sender: TObject);
    procedure InizioInverno(Sender: TObject);
    procedure FineInverno(Sender: TObject);
  private
    Caldaia: TCaldaia;
  public
  end;

var
  FCasa: TFCasa;

implementation

{$R *.DFM}
...
procedure TFCasa.InizioInverno(Sender: TObject);
begin
    Caldaia:= TCaldaia.Creeate(Self);
    if (Self.Temperatura < 16.5) then
        Caldaia.MinTemperature:= 18;
        Caldaia.MaxTemperature:= 19.5;
        Caldaia.Inizialize;
        Caldaia.Startup;
    end;
end;

procedure TFCasa.FineInverno(Sender: TObject);
begin
    if (Caldaia <> nil) and (Self.Temperatura > 17.5) then
        Caldaia.Shutdown;
        FreeAndNil(Caldaia);
    end;
end;
...
end.

Ho giocato un poco sulle mie competenze, non pretendo di essere compreso in questa uscita da “neurone-sano-bloccato-dal-freddo” A bocca aperta

Buon fine autunno a tutti!!!!

Annunci
Categorie:Varie
%d blogger hanno fatto clic su Mi Piace per questo: