settemp.~pas

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

unit SetTemp;

interface

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

type
  TfrmSetTemp = class(TForm)
    lbl2: TLabel;
    edtSetTemp: TEdit;
    btnSetTemp: TButton;
    procedure btnSetTempClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    add:string;
  end;

var
  frmSetTemp: TfrmSetTemp;

implementation

uses Main;

{$R *.dfm}


function chk(strChk:string):string;
var
  i:Integer;
  sum,WLen:Word;
  strSum,strReturn:string;
begin
     sum := 0;
     //ShowMessage(strChk);
     for i := 1 to Length(strChk) do
     begin
       sum := sum + Ord(strChk[i]) ;
     end;
     //有可能时取反加一
     sum := sum xor $FFFF + 1;
     strSum := IntToHex(sum,4);
     WLen := Length(strSum);
     if WLen = 4 then
        strReturn := strSum
     else
     if WLen = 3 then
        strReturn := '0'+ strSum
     else
     if WLen = 2 then
        strReturn := '00'+strSum
     else
     if WLen = 1 then
        strReturn := '000'+strSum
     else
     if  WLen = 0 then
        strReturn := '0000';
      Result := strReturn;   
end;
procedure TfrmSetTemp.btnSetTempClick(Sender: TObject);
var
  strtemp:string;
  ss:string;
  iTemp:Integer;
  TEMP:STRING;
begin
  //调试时，有可能需要该LINE NO的值
  TEMP := Trim(edtSetTemp.Text);
  if Length(TEMP) = 1 then
     TEMP := '00'+TEMP
  else
  if  Length(TEMP) = 2 then
     TEMP := '0'+TEMP;
  iTemp := StrToInt(TEMP);
  if (iTemp < 0 ) or (iTemp > 127) then
    ShowMessage('不能设定为系统无法实现的设定温度值，其范围为0——127摄氏度!');
  strTemp :='~20'+add+'60E0'+'600A'+'630'+ '0'+ TEMP + TEMP;   //1号空调 收集运转状态数据
  ss:=chk(Copy(strTemp,2,(Length(strTemp)-1) ) );
  strTemp := strTemp + ss + #13;
  Inc(iSendCount);
  strSend[iSendCount] := strTemp;
  ShowMessage(strTemp+'改变风量的命令,发送成功');

end;

procedure TfrmSetTemp.FormPaint(Sender: TObject);
begin
   //  add := '01';
   if frmain.iClick = 1 then
   begin
     add := '01';
     frmSetTemp.Caption := '改变1号空调设置温度      ';
   end
   else
   if frmain.iClick = 2 then
   begin
     add := '02';
     frmSetTemp.Caption := '改变2号空调设置温度      ';
   end
   else
   if frmain.iClick = 3 then
   begin
     add := '03';
     frmSetTemp.Caption := '改变3号空调设置温度      ';
   end
   else
   if frmain.iClick = 4 then
   begin
     add := '04';
     frmSetTemp.Caption := '改变4号空调设置温度      ';
   end
   else
    if frmain.iClick = 5 then
   begin
     add := '05';
     frmSetTemp.Caption := '改变5号空调设置温度      ';
   end
   else
   if frmain.iClick = 6 then
   begin
     add := '06';
     frmSetTemp.Caption := '改变6号空调设置温度      ';
   end
   else
   if frmain.iClick = 7 then
   begin
     add := '07';
     frmSetTemp.Caption := '改变7号空调设置温度      ';
   end
   else
   if frmain.iClick = 8 then
   begin
     add := '08';
     frmSetTemp.Caption := '改变8号空调设置温度      ';
   end ;
end;

end.