74161设计模10计数器 利用Delphi建立精确计数器[2]

利用Delphi建立精确计数器[2]  

　　下面是具体的检测程序

　　unit Unit ;

　　interface

　　uses

　　Windows Messages SysUtils Classes Graphics Controls Forms Dialogs

　　StdCtrls ExtCtrls mmSystem;

　　type

　　TForm = class(TForm)

    Edit : TEdit;

    Edit : TEdit;

    Edit : TEdit;

    Button : TButton;

    Button : TButton;

    Timer : TTimer;

    procedure FormCreate(Sender: TObject);

    procedure Button Click(Sender: TObject);

    procedure Timer Timer(Sender: TObject);

    procedure Button Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

　　var

  Form : TForm ;

  actTime actTime :Cardinal;

  smmCount sTimerCount sPCount:Single;

  hTimeID:Integer;

  iTen:Integer;

  proTimeCallBack:TFNTimeCallBack;

 　　procedure TimeProc(uTimerID uMessage: UINT;

    dwUser dw dw : DWORD) stdcall;

　　procedure proEndCount;

　　implementation

　　{$R * DFM}

　　//timeSetEvent的回调函数

　　procedure proEndCount;

　　begin

　　  actTime :=GetTickCount actTime ;　　 　　 Form Button Enabled :=False;

 　　 Form Button Enabled :=TRue;

 　　 Form Timer Enabled :=False;

 　　 smmCount:= ;

 　　 sTimerCount:= ;

 　　 spCount:= ;

 　　 timeKillEvent(hTimeID);

　　end;