秒表实现（半小时内在线等）

alexchang0115 2006-07-12 12:46:13

我现在想在状态栏中显示一个秒表，通过一个按钮控制开始计时/停止计时，一个按钮负责清零，请问有现成的源代码么？半小时内等用，谢谢！

...全文

180 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

windsky0821 2006-07-12

打赏
举报

来晚了

alexchang0115 2006-07-12

打赏
举报

谢谢jaffy(小胖猫^_^笨猫先飞)和大家，我刚从外面回来

BlueDeepOcean 2006-07-12

打赏
举报

半小时都过去了，结帖了。

jaffy 2006-07-12

打赏
举报

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TDateTime Start,Last;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Button1->Caption == "开始")
{
Last = 0;
Timer1->Enabled = true;
Start = Now();
Button1->Caption = "停止";
}
else if (Button1->Caption == "停止")
{
Last = Now()-Start+Last;
Timer1->Enabled = false;
Button1->Caption = "继续";
}
else if (Button1->Caption == "继续")
{
Start = Now();
Timer1->Enabled = true;
Button1->Caption = "停止";
}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Label1->Caption = FormatDateTime("HH:NN:SS:ZZZ",Now()-Start + Last);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled = false;
Label1->Caption = "";
Button1->Caption = "开始";
}
//---------------------------------------------------------------------------