Category

Development Platform
Home > SourceCode/Document > Applications > Education soft system > View Code
u3.pas
Package: 辩论赛计时器.rar　[view]
Upload User: pegasus
Upload Date: 2013-04-14
Package Size: 3825k
Code Size: 3k
Category:

Education soft system

Development Platform:

Delphi

u3.pas：Code Content
  1. {****************************************************************** }
  2. {              第三阶段-自由辩论阶段                                }
  3. {                                                                   }
  4. {****************************************************************** }
  5. unit u3;
  7. interface
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, ExtCtrls, Buttons, StdCtrls, jpeg;
  12. type
  13.   TForm3 = class(TForm)
  14.     Label3: TLabel;
  15.     gbZh: TGroupBox;
  16.     sbtnZhStart: TSpeedButton;
  17.     ZhLeftTime: TLabel;
  18.     gbF: TGroupBox;
  19.     sbtnFStart: TSpeedButton;
  20.     FLeftTime: TLabel;
  21.     timerZh: TTimer;
  22.     TimerF: TTimer;
  23.     lb: TLabel;
  24.     Image1: TImage;
  25.     lbZh: TLabel;
  26.     lbF: TLabel;
  27.     procedure timerZhTimer(Sender: TObject);
  28.     procedure TimerFTimer(Sender: TObject);
  29.     procedure sbtnZhStartClick(Sender: TObject);
  30.     procedure sbtnFStartClick(Sender: TObject);
  31.     procedure FormKeyPress(Sender: TObject; var Key: Char);
  32.     procedure FormCreate(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.      tZh :integer; //正方时间
  36.     tF :integer;  //反方时间
  37.   public
  38.     { Public declarations }
  40.   end;
  41. var
  42.   Form3: TForm3;
  44. implementation
  45. uses
  46.   uMain;
  49. {$R *.dfm}
  51. procedure TForm3.timerZhTimer(Sender: TObject);
  52. begin
  53.   ZhleftTime.Caption:=IntToTime(tZh);
  54.   if tZh=300 then
  55.   begin
  56.     beep1;
  57.   end;
  58.   if tZh=0 then
  59.   begin
  60.    uMain.beep2;
  61.    timerZh.Enabled:=False;
  62.    sbtnZhStart.Enabled:=False;
  64.   //  sbtnFStart.Enabled:=False;          //考虑到主席要说：“正方时间到 ”
  65.   // if tF>0 then    timerF.Enabled:=True; //注释掉此两行
  67.   end;
  68.   tZh:=tZh-1;
  69. end;
  71. procedure TForm3.TimerFTimer(Sender: TObject);
  72. begin
  74.   FleftTime.Caption:=IntToTime(tF);
  75.   if tF=300 then
  76.   begin
  77.     beep1;
  78.   end;
  80.   if tF=0 then
  81.   begin
  82.    uMain.beep2;
  83.    sbtnFStart.Enabled:=False;
  84.    timerF.Enabled:=False;
  85.   end;
  86.    tF:=tF-1;
  87. end;
  89. procedure TForm3.sbtnZhStartClick(Sender: TObject);
  90. begin
  91.    sbtnZhStart.Enabled:=False;
  92.    sbtnFStart.Enabled:=True;
  93.    timerZh.Enabled:=True;
  94.    timerF.Enabled:=False;
  96.    lb.Caption:='正 方 计 时 中';
  97.    lb.Font:=sbtnZhStart.Font;
  98.    lb.Font.Size:=28;
  100.    if tF<1  then  sbtnFStart.Enabled:=False;
  103. end;
  105. procedure TForm3.sbtnFStartClick(Sender: TObject);
  106. begin
  107.    sbtnZhStart.Enabled:=True;
  108.    sbtnFStart.Enabled:=False;
  109.    timerZh.Enabled:=False;
  110.    timerF.Enabled:=True;
  112.    lb.Caption:='反 方 计 时 中';
  113.        lb.Font:=sbtnFStart.Font;
  114.     lb.Font.Size:=28;
  115.    if tZh<1 then  sbtnZhStart.Enabled:=False;
  117. end;
  119. procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
  120. begin
  121.   if (Key=#113) or (Key=#81) then
  122.     Close;
  123. end;
  125. procedure TForm3.FormCreate(Sender: TObject);
  126. begin
  127.    // tZh :=350; //正方时间
  128.    // tF :=350;  //反方时间
  130.   tZh :=3000; //正方时间
  131.   tF  :=3000;  //反方时间
  133.   lbZh.Font.Color:=uMain.ZhFontColor;
  134.   ZhLeftTime.Font.Color:= uMain.ZhFontColor;
  136.   lbF.Font.Color:=uMain.FFontColor;
  137.   FLeftTime.Font.Color:= uMain.FFontColor;
  139.   gbZh.Color:=uMain.ZhBackgroundColor;
  140.   gbF.Color:=uMain.FBackgroundColor;
  142. end;
  144. end.