ac.~pas

使用Delphi 6.0开发用于控制空调的程序

unit AC;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mxOutlookBarPro, Menus;

type TAC = class

protected


public

  strAddress:string;                   //空调地址
  IP:string;
  ID:Integer;
  iSetTemp,iRTTemp:Integer;              //设定温度和回风温度
  strFan1,strFan2:string;                      //风量1,和风量2
  Remarks:string;                     //备注
  iDataTemp:array[1..12] of Integer;   //代表数据
  strRunState:array[1..10] of string; //运行状态数据
  strWaringState:array[1..11] of string; //警告状态数据
  bRunStopState:Byte;         //停止、运行
  iOpenTemp:Integer;           //空调开机温度
  iCloseTemp:Integer;          //空调关机温度
  iReturnTempCeiling:Integer;   //回风温度上限
  iReturnTempLimit:Integer;      //回风温度下限
  iReturnHumidityCeiling:Integer;  //回风湿度上限
  iReturnHumidityLimit:Integer;    //回风湿度下限
  iVersion:Integer;                //版本号
   constructor Create(iid:Integer;strAdd:string;iip:string = '127.0.0.1'; remak:string = '为空'); overload;
   constructor Create();overload;
   procedure refresh;
end;
implementation

{ TAC }

constructor TAC.Create(iid: Integer; strAdd:string;iip:string = '127.0.0.1'; remak:string = '为空');
begin
   ID := iid;
   strAddress := strAdd;
   IP := iip;
   Remarks := IntToStr(ID) + '号空调，地址为：'+strAddress+ '其他信息：' +remak;

end;

constructor TAC.Create;
begin
   ID := 0;
   strAddress := '00';
   IP := '127.0.0.1';
   Remarks := IntToStr(ID) + '号空调，地址为：'+strAddress;
end;

procedure TAC.refresh;
begin
   Remarks := IntToStr(ID) + '号空调，地址为：'+strAddress;
end;

end.