一个使用多媒体定时器的简单例子

导读:

  1)新建一个工程,保存

  2)添加一个Button和一个Label

  3)修改unit1.h代码如下:

  // ---------------------------------------------------------------------------

  #ifndef Unit1H

  #define Unit1H

  // ---------------------------------------------------------------------------

  #include

  #include

  #include

  #include

  // ---------------------------------------------------------------------------

  class TForm1 : public TForm

  {

  __published: // IDE-managed Components

  TButton *Button1;

  TLabel *Label1;

  void __fastcall Button1Click(TObject *Sender);

  void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);

  private: // User declarations

  public: // User declarations

  __fastcall TForm1(TComponent* Owner);

  static void CALLBACK TimeProc(UINT uID,UINT uMsg,

  DWORD dwUser,DWORD dw1,DWORD dw2); // 定时器回调函数

  // 本文转自 C++Builder 研究 - http://www.ccrun.com/article.asp?i=600&d=g2i76i

  int TimerID; // 定时器ID

  };

  // ---------------------------------------------------------------------------

  extern PACKAGE TForm1 *Form1;

  // ---------------------------------------------------------------------------

  #endif

  4)unit1.cpp代码如下:

  // ---------------------------------------------------------------------------

  #include

  #include "mmsystem.h"

  #pragma hdrstop

  #include "Unit1.h"

  // ---------------------------------------------------------------------------

  #pragma package(smart_init)

  #pragma resource "*.dfm"

  TForm1 *Form1;

  // ---------------------------------------------------------------------------

  __fastcall TForm1::TForm1(TComponent* Owner)

  : TForm(Owner)

  {

  TimerID = 0;

  }

  // ---------------------------------------------------------------------------

  void CALLBACK TForm1::TimeProc(UINT uID,UINT uMsg, DWORD dwUser,DWORD dw1,DWORD dw2)

  {

  Form1->Label1->Caption = Now();

  }

  // ---------------------------------------------------------------------------

  void __fastcall TForm1::Button1Click(TObject *Sender)

  {

  TimerID = timeSetEvent(1000, 0, (LPTIMECALLBACK)TimeProc, 0,

  TIME_PERIODIC|TIME_CALLBACK_FUNCTION); // 设定多媒体定时器,1000ms

  if(TimerID == 0) {

  ShowMessage("创建失败");

  }

  }

  // ---------------------------------------------------------------------------

  void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)

  {

  if(TimerID != 0) {

  timeKillEvent(TimerID); // 释放定时器

  }

  }

  // ---------------------------------------------------------------------------

  运行效果:点击按钮后,Label1开始显示时间



本文转自

http://soa.5d6d.com/redirect.php?fid=11&tid=41&goto=nextnewset
可以精确到1毫秒的定时器——多媒体定时器 主要用于数据采集。VB、VC 混合编程! 1、HighResolutionTimer 2、HL_mmTimer2 两者几乎一样,精度高,但都有个问题:一个进程中只能用一个此种控件! mmTimer_source.rar 是 mmTimer 控件的原版。 可以精确到1毫秒的定时器——多媒体定时器 ' *********************************************************************************** ' 功 能:可以精确到1毫秒的定时器——多媒体定时器 ' 特别注意:(一个工程中只能添加一个控件实例!第二个不执行,但不会导致程序崩溃!) ' 使用方法:方法一: ' 1、在窗体上添加此控件。 ' 2、调用函数 Init,设置时间间隔,并开启计时器! ' 3、在 Timer() 事件中添加执行代码。 ' 4、调用函数 Destroy,停止计时器。 ' 方法二: ' 1、在窗体上添加此控件。 ' 2、设置 Interval 属性。 ' 3、设置 Enabled 属性,开启或关闭计时器。 ' 4、在 Timer() 事件中添加执行代码。 ' 作 者:鹤望兰·流 ' 发布日期:2010-05-27 ' 网 站:http://hewanglan.ys168.com ' E - mail:hewanglan34512@163.com ' 依 赖:(HighResolutionTimer.ctx,HighResolutionTimer.dll,MhrtCallBack.bas) ' 更 新: ' * (******* 复制请保留以上信息 *******) ' ************************************************************************************** 本控件采用多媒体定时器包装而成,注意打包时带上"winmm.dll"。 为使VB6能用上它,用VC6封装出DLL,提供API接口,通过发送WM_KEYUP消息到VB6的用户控件触发计时事件! 超强Timer—— 用于需要对时间精确控制或者消息队列很忙的情况 http://blog.csdn.net/godwater8/archive/2007/04/10/1559458.aspx
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值