当前位置:首页 >> 信息与通信 >>

BCB中实现延时


中实现延时(不依赖机器的速度 不依赖机器的速度) 如何在 BCB 中实现延时 不依赖机器的速度
因为 Sleep 的作用是把当前线程转为休眠状态(暂时失去 CPU 资源)一段时间,而不是仅仅“延时”。 所以,你的程序在使用 Sleep 后,整个线程,包括消息循环都没有执行的机会。在 GUI 主线程里面要 慎重使用这个函数,因为整个界面都会被“Sleep”。你可以使用 T

imer,或者自己在循环里面判断时间 流逝,同时使用 Application->ProcessMessages(),以保证消息队列的及时处理。
Sleep( 我常用: 用两个 GetTickCount( )函数相减得到时钟数, )的缺点是延时时,不再响应消息,若时间较长,象死了一样,所以,

void {

delay(unsigned

int

n);

//

延长 n 毫秒

int

t0=GetTickCount(

);

while

(GetTickCount()-t0<n) Application->ProcessMessages(); // 响应消息

}

本文主要介绍了分别用 TTtimer 控件,Sleep 函数,GetTickCount 函数来实现延时的方法: 1)TTtimer 控件 TTtimer 控件的实质是调用 Windows API 定时函数 SetTimer 和 KillTimer 来实现的,并简 化了对 WM_TIMER 消息的处理过程。通过设置 OnTimer 事件和 Interval 属性,我们可以很方便的产 生一些简单的定时事件。 2)Sleep 函数 Sleep 函数用来使程序的执行延时给定的时间值。Sleep 的调用形式为 Sleep(milliseconds), 暂停当前的进程 milliseconds 毫秒。Sleep 的实现方法其实也是调用 Windows API 的 Sleep 函数。例 如: sleep(1000); //延迟 1000 毫秒

Sleep 会引起程序停滞,如果你延迟的时间较长的话,你的程序将不能够响应延时期间的发生的其 他消息,所以程序看起来好像暂时死机。 3)GetTickCount 函数 在主程序中延时,为了达到延时和响应消息这两个目的,GetTickCount()构成的循环就是一种 广为流传的方法。例如: procedure Delay(MSecs: Longint); //延时函数,MSecs 单位为毫秒(千分之 1 秒) var

FirstTickCount, Now: Longint; begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now := GetTickCount(); until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount); end;


相关文章:
delphi 三种常用的延时方法
delphi 三种常用的延时方法_计算机软件及应用_IT/计算机_专业资料。在 Delphi 中,通常可以用以下三种方法来实现程序的延时,即 TTtimer 控件,Sleep 函数,GetTickCount...
VB实现延时的方法及程序
在VB 中实现延时(等待)的几种方法 在程序流程中经常要延时一段时间后再继续往下执行,在 VB 中常用的有以下几种方法(因为 Timer 控件 打乱了程序的流程所以一般...
C及汇编延时程序
延时,利用定 时器来实现延时, 如果非得用循环延时,在 C 中也通常嵌入汇编实现,这样误差比 较小 在论坛上看到不少不错的延时程序,整理如下共同分享: 精确延时...
BCB中实现动态创建组件
BCB中实现动态创建组件_计算机软件及应用_IT/计算机_专业资料。动态创建组件BCB 中实现动态创建组件 另外由于 BCB 对内存管理或与系统、硬件的冲突,你的动态创建程序...
关于各种延时
DispatchMessage(&msg); //以上四行是实现延时或定时期间能处理其他的消息, //虽然这样可以降低 CPU 的占有率, //但降低了延时或定时精度,实际应用中可以去掉。...
STM32的几种延时方法
这里面也有两种方式实现: a.中断方式 如下,定义延时时间 time_delay,SysTick_Config()定义中断时间段,在中断中 递减 time_delay,从而实现延时。 volatile unsigned...
在VB中实现延时(等待)的几种方法
中实现延时(等待) 在 VB 中实现延时(等待)的几种方法在程序流程中经常要延时一段时间后再继续往下执行,在 VB 中常用的有以下几种方法(因为 Timer 控件 控件...
vxWorks几种常用的延时方法
watchDog vxWorks 提供了一个通用的看门狗定时器机制,利用提供的函数,任何任务都可以创建 一个看门狗定时器,经过指定的延时后,实现在系统时钟 ISR 的上下文中运行指定...
vb中timer实现简单延时功能
vb中timer实现简单延时功能_计算机软件及应用_IT/计算机_专业资料。Vb 中用timer实现简单的延时执行的实例.本实例是一个非常简单的延时功能;实现的功能是:点击按钮后...
VxWorks几种常用的延时方法
VxWorks 几种常用的延时方法 关键字: 关键字:taskDelay 函数 VxWorks 基准频率 实时嵌入式系统 sysTimes-tampLock 串口通信 skep 延时时间 tick 嵌入式系统中,一...
更多相关标签: