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

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

教育系统应用

开发平台：

Delphi

uMain.pas：源码内容
  1. unit uMain;
  3. interface
  4. uses
  5.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  6.   Dialogs, StdCtrls, MPlayer, ExtCtrls, ComCtrls, jpeg, Menus;
  8. type
  9.   TMainForm = class(TForm)
  10.     mp: TMediaPlayer;
  11.     Image1: TImage;
  12.     MainMenu1: TMainMenu;
  13.     N1: TMenuItem;
  14.     mmiphase1: TMenuItem;
  15.     mmiPhase2: TMenuItem;
  16.     mmiPhase3: TMenuItem;
  17.     mmiPhase4: TMenuItem;
  18.     mmiExit: TMenuItem;
  19.     N7: TMenuItem;
  20.     mmiAbout: TMenuItem;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure mmiAboutClick(Sender: TObject);
  23.     procedure mmiphase1Click(Sender: TObject);
  24.     procedure mmiPhase2Click(Sender: TObject);
  25.     procedure mmiPhase3Click(Sender: TObject);
  26.     procedure mmiPhase4Click(Sender: TObject);
  27.     procedure mmiExitClick(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   MainForm: TMainForm;
  37.   ZhFontColor:TColor;  //正方计时字体颜色
  38.   FFontColor:TColor;   //反方计时字体颜色
  39.   ZhBackgroundColor:TColor; //正方计时字体背景颜色
  40.   FBackgroundColor:TColor; //反方计时字体背景颜色
  42.   procedure beep2; //响两次
  43.   procedure beep1;  //响一次
  44.   function IntToTime (IntNum : integer): string;   //类型转换
  46. implementation
  47. uses
  48.   u1,u2,u3,u4,uAbout;
  49. {$R *.dfm}
  52. /////////////////////////////////////////
  53. //////////////////////////////////////////
  54. ////   响两声
  55. //   用TMidiaPlayer播放
  56. ////////////////////////////////////
  57. procedure beep2;
  58. begin
  59.   MainForm.mp.Open;
  60.   MainForm.mp.Play;
  62.   sleep(200);     //延时0.2秒
  63.   MainForm.mp.Open ;
  64.   MainForm.mp.Play;
  65. end;
  69. /////////////////////////////////////////
  70. //////////////////////////////////////////
  71. ////   响一声
  72. //   用TMidiaPlayer播放
  73. ////////////////////////////////////
  74. procedure beep1;
  75. begin
  76.   MainForm.mp.Open;
  77.   MainForm.mp.Play;
  78. end;
  82. //////////////////////////////////////////////
  83. /////////////////////////////////////////////
  84. ////  整数转换为时间
  85. //  IntNum :integer    单位为：0.1秒
  86. //  返回格式： XX分XX秒X
  87. ////////////////////////////////////////
  88. function IntToTime (IntNum : integer): string;
  89. var
  90.   str : string;
  91.   f : integer;
  92.   t : integer;
  93. begin
  94.   str:= '';
  96.   if intnum > 0 then
  97.   begin
  99.   // first
  100.     f := IntNum div 600;
  101.     t := IntNum mod 600;
  102.     if f > 0 then
  103.        str := str + inttostr( f ) + '分';
  104.   // second
  105.     f := t div 10;
  106.     t := t mod 10;
  107.     if f > 0 then
  108.        str := str + inttostr( f ) + '秒'
  109.     else
  110.        str := str + '00' + '秒';
  111.   //third
  112.     f := t ;
  113.     str := str + inttostr( f ) ;
  114.   end else
  115.   begin
  116.      t := -IntNum ;
  117.      str := ' - '; 
  118.    // first
  119.     f := t div 600;
  120.     t := t mod 600;
  121.     if f > 0 then
  122.        str := str + inttostr( f ) + '分';
  123.   // second
  125.     f := t div 10;
  126.     t := t mod 10; 
  127.     if f > 0 then
  128.        str := str + inttostr( f ) + '秒'
  129.     else
  130.        str := str + '00' + '秒';
  131.   //third
  132.     f := t ;
  133.   //  f := t div 6000;
  134.     str := str + inttostr( f ) ;
  135.   end;
  136.   result := str;
  137. end;
  139. ////////////////////////////////////////////////
  140. ////////////////////////////////////////////////
  141. ////      读取声音文件
  142. //       初始化计时字体及背景颜色
  143. ///////////////////////////////////////////////
  144. procedure TMainForm.FormCreate(Sender: TObject);
  145. begin
  146.    if FileExists('ding.wav' )  then
  147.    begin
  148.     mp.FileName:='ding.wav';
  149.    end;
  151.   ZhFontColor:=clRed;  //正方计时字体颜色
  152.   FFontColor:=clBlue;   //反方计时字体颜色
  153.   ZhBackgroundColor:=clSkyBlue; //正方计时字体背景颜色
  154.   FBackgroundColor:=clYellow;
  155. end;
  158. procedure TMainForm.mmiAboutClick(Sender: TObject);
  159. begin
  160.    with TFormAbout.Create(self) do
  161.     try
  162.       ShowModal;
  163.     finally
  164.       Free;
  165.     end;
  166. end;
  168. procedure TMainForm.mmiphase1Click(Sender: TObject);
  169. begin
  170.   with TForm1.Create(self) do
  171.     try
  172.       ShowModal;
  173.     finally
  174.       Free;
  175.     end;
  176. end;
  178. procedure TMainForm.mmiPhase2Click(Sender: TObject);
  179. begin
  180.    with TForm2.Create(self) do
  181.     try
  182.       ShowModal;
  183.     finally
  184.       Free;
  185.     end;
  186. end;
  188. procedure TMainForm.mmiPhase3Click(Sender: TObject);
  189. begin
  190.    with TForm3.Create(self) do
  191.     try
  192.       ShowModal;
  193.     finally
  194.       Free;
  195.     end;
  196. end;
  198. procedure TMainForm.mmiPhase4Click(Sender: TObject);
  199. begin
  200.    with TForm4.Create(self) do
  201.     try
  202.       ShowModal;
  203.     finally
  204.       Free;
  205.     end;
  206. end;
  208. procedure TMainForm.mmiExitClick(Sender: TObject);
  209. begin
  210.   close;
  211. end;
  213. end.