|
共有评论6条
当前显示最后6条评论
|
| lovezyp |
2006/8/17 1:11:50 |
程序有个bug,不论我设置为多少分钟，单击开始，总是5分钟！
虽然简单，但是鼓励一下 |
| hdwhl |
2006/8/17 10:52:28 |
| 谢谢支持！因为时间仓促。不完善 |
| lvbu |
2006/8/24 14:22:35 |
修改过的软件放到FTP里了.你用了好多第三方控件,其实对于共享代码来说不太方便.因为别人要装这个控才行.当然了,你的好看多了.
我改了一下,把定时不准的BUG去掉了. |
| hdwhl |
2006/8/24 19:40:35 |
| 谢谢支持！因为我要上大学了。最近要没有时间。 |
| zizii |
2006/8/24 22:33:30 |
lvbu的代码我看过了,代码中问题还是挺多,例如时间到了出现负数还在计时等.
----------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, mmsystem, Menus;
type
TFrmMain = class(TForm)
tmr: TTimer;
RzLED: TLabel;
pm1: TPopupMenu;
N2: TMenuItem;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure tmrTimer(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure RzLEDDblClick(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure PlayWave(wavename: string);
procedure N3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
function GetCurTime(CurSecond: integer): string;
end;
var
FrmMain: TFrmMain;
H, S, F: string;
HF, SF: boolean;
CurSecond: integer;
hh, mm, ss: Integer;
implementation
{$R *.dfm}
function TFrmMain.GetCurTime(CurSecond: integer): string;
var
m, s: string;
begin
mm := CurSecond div 60;
if mm < 10 then
m := '0' + inttostr(mm)
else
m := inttostr(mm);
ss := CurSecond mod 60;
if ss < 10 then
s := '0' + inttostr(ss)
else
s := inttostr(ss);
Result := m + ':' + s;
end;
procedure TFrmMain.PlayWave(wavename: string);
begin
wavename := ExtractFilePath(Application.Exename) + '\wave\' + wavename;
PlaySound(PChar(wavename), 0, 0);
end;
procedure TFrmMain.tmrTimer(Sender: TObject);
begin
RzLED.Caption := GetCurTime(CurSecond);
dec(CurSecond);
end;
procedure TFrmMain.N1Click(Sender: TObject);
begin
// PlayWave('Email.wav');
tmr.Enabled := True;
end;
procedure TFrmMain.N2Click(Sender: TObject);
begin
if N2.Caption = '继续' then
begin
tmr.Enabled := True;
N2.Caption := '暂停';
end
else
begin
N2.Caption := '继续';
tmr.Enabled := False;
end;
end;
procedure TFrmMain.RzLEDDblClick(Sender: TObject);
begin
if RzLED.Caption = ' END' then RzLED.Caption := '05:00';
tmr.Enabled := not tmr.Enabled;
PlayWave('Email.wav');
end;
procedure TFrmMain.N4Click(Sender: TObject);
var
T: string;
begin
tmr.Enabled := False;
T := InputBox('时间设置', '倒计时的时间(分钟)', '5');
CurSecond := StrToInt(T) * 60;
end;
procedure TFrmMain.N3Click(Sender: TObject);
begin
close;
end;
procedure TFrmMain.FormCreate(Sender: TObject);
begin
CurSecond := 5 * 60;
RzLED.Caption := GetCurTime(CurSecond);
end;
end. |
| dunlee |
2006/9/1 11:22:18 |
| 兄弟，搞个画圆圈的倒计时的东东看看。 |
| 我要发表评论 |
查看全部评论 |
![]() |
|
