开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 教育系统应用 > 查看源码
u4.pas
资源名称：辩论赛计时器.rar　[点击查看]
上传用户：pegasus
上传日期：2013-04-14
资源大小：3825k
文件大小：3k
源码类别：

教育系统应用

开发平台：

Delphi

u4.pas：源码内容
  1. {****************************************************************** }
  2. {              第四阶段-总结陈辞阶段                                }
  3. {                                                                   }
  4. {****************************************************************** }
  5. unit u4;
  7. interface
  9. uses
  10.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  11.   Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;
  13. type
  14.   TForm4 = class(TForm)
  15.     Label1: TLabel;
  16.     timer1: TTimer;
  17.     gbZh: TGroupBox;
  18.     sbtnZhStart: TSpeedButton;
  19.     gbF: TGroupBox;
  20.     sbtnFStart: TSpeedButton;
  21.     Timer2: TTimer;
  22.     Image3: TImage;
  23.     lbZh: TLabel;
  24.     ZhLeftTime: TLabel;
  25.     FLeftTime: TLabel;
  26.     lbF: TLabel;
  27.     procedure timer1Timer(Sender: TObject);
  28.     procedure sbtnZhStartClick(Sender: TObject);
  29.     procedure sbtnFStartClick(Sender: TObject);
  30.     procedure Timer2Timer(Sender: TObject);
  31.     procedure FormKeyPress(Sender: TObject; var Key: Char);
  32.     procedure FormCreate(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.     it :integer;
  36.   public
  37.     { Public declarations }
  39.   end;
  41. var
  42.   Form4: TForm4;
  44. implementation
  45. uses
  46.   uMain;
  47. const
  48.   TM:integer=1800;
  49.   //TM:integer=350;
  52. {$R *.dfm}
  54. procedure TForm4.timer1Timer(Sender: TObject);
  55. begin
  57.   ZhleftTime.Caption:=IntToTime(it);
  59.   if it=300 then
  60.   begin
  61.     beep;
  62.   end;
  64.   if it=0 then
  65.   begin
  66.    uMain.beep2;
  67.   end;
  70.   it:=it-1;
  73. end;
  75. procedure TForm4.sbtnZhStartClick(Sender: TObject);
  76. begin
  77.    case    sbtnZhStart.Tag of
  78.      0:
  79.      begin
  80.        sbtnZhStart.Caption:='停止计时';
  81.        it:=TM;
  82.        timer1.Enabled:=True;
  83.        sbtnZhStart.Tag:=1;
  84.      end;
  86.     1:
  87.      begin
  88.        timer1.Enabled:=False;
  89.        sbtnZhStart.Enabled:=False;
  90.      end;
  91.   end;
  93. end;
  95. procedure TForm4.sbtnFStartClick(Sender: TObject);
  96. begin
  97.   case sbtnFStart.Tag of
  98.     0:
  99.      begin
  100.        sbtnFStart.Caption:='停止计时';
  101.        timer2.Enabled:=True;
  102.        it:=TM;
  103.        sbtnFStart.Tag:=1;
  104.      end;
  105.     1:
  106.      begin
  107.         timer2.Enabled:=False;
  108.         sbtnFStart.Enabled:=False;
  109.          sbtnZhStart.Enabled:=True;
  110.      end;
  111.   end;
  112. end;
  114. procedure TForm4.Timer2Timer(Sender: TObject);
  115. begin
  117.    FleftTime.Caption:=IntToTime(it);
  118.   if it=300 then
  119.   begin
  120.     beep1;
  121.   end;
  123.   if it=0 then
  124.   begin
  125.    uMain.beep2;
  126.   end;
  128.   it:=it-1;
  131. end;
  136. procedure TForm4.FormKeyPress(Sender: TObject; var Key: Char);
  137. begin
  138.  if (Key=#113) or (Key=#81) then
  139.     Close;
  140. end;
  142. procedure TForm4.FormCreate(Sender: TObject);
  143. begin
  144.   it :=1800;
  146.   lbZh.Font.Color:=uMain.ZhFontColor;
  147.   ZhLeftTime.Font.Color:= uMain.ZhFontColor;
  149.   lbF.Font.Color:=uMain.FFontColor;
  150.   FLeftTime.Font.Color:= uMain.FFontColor;
  152.   gbZh.Color:=uMain.ZhBackgroundColor;
  153.   gbF.Color:=uMain.FBackgroundColor;
  154. end;
  156. end.