unit0604200132.pas

用Delphi写的计算器程序

unit Unit0604200132;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ButtonStart: TButton;
    Label2: TLabel;
    ButtonStop: TButton;
    ButtonCon: TButton;
    ButtonPause: TButton;
    Timer1: TTimer;
    edit: TEdit;
    Labelhour: TLabel;
    LabelSec: TLabel;
    LabelMin: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonConClick(Sender: TObject);
    procedure ButtonPauseClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hour,minute,second,hour1,tim:integer;
  time:integer=0;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     if(edit.text='') then
     begin
     timer1. enabled:=false;
     messageDlg('请输入时间',mtinformation,[mbOK],0);
     end;


     hour:=time div 3600;
     hour1:=time mod 3600;
     minute:=hour1 div 60;
     second:=hour1 mod 60;
     if(hour<=9)
      then  labelhour.caption:='0'+inttostr(hour)
     else labelhour.caption:=inttostr(hour);
     if(minute<=9)
       then labelmin.caption:='0'+inttostr(minute)
     else labelhour.caption:=inttostr(hour);
     if(second<=9)
       then labelsec.caption:='0'+inttostr(second)
     else labelsec.caption:=inttostr(second);

     if(time>tim)then
    begin
    timer1.enabled:=false;
    labelhour.caption:='00';
    labelmin.caption:='00';
    labelsec.caption:='00';
    messagedlg('计时结束',mtinformation,[mbOk],0);
    end  ;
    time:=time+1;
end;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
    tim:=strtoint(edit.Text);
    timer1.Enabled:=true;


end;

procedure TForm1.ButtonConClick(Sender: TObject);
begin
     Buttonstart.Enabled:=false;
     Buttonpause.Enabled:=true;
     Buttonstop.Enabled:=true;
     timer1.enabled:=true;
end;

procedure TForm1.ButtonPauseClick(Sender: TObject);
begin
 timer1.enabled:=false;
 Buttonstart.Enabled:=false;
 Buttoncon.Enabled:=true;
 Buttonstop.Enabled:=true;
end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
    timer1.enabled:=false ;
     Buttonstart.Enabled:=true;
     Buttonpause.Enabled:=false;
     Buttoncon.Enabled:=false;
     labelhour.caption:='00';
    labelmin.caption:='00';
    labelsec.caption:='00';
    time:=0;
end;

end.