闹钟提醒程序,主要用OnTimer进行控制.
上传时间: 2015-11-22
上传用户:894898248
本实例中将利用 SetTimer、OnTimer 和 KillTimer 这三个函数实现可调节计时器程序。 本实例编写的计时器有倒计时和正常计时两种计时方式,还可以水平滑块调节计时的快 慢。
标签: KillTimer SetTimer OnTimer 计时
上传时间: 2013-12-19
上传用户:koulian
实现动态显示效果的方法和以上几种基本类似,这里以滚动显示为例作一说明。对于需要滚动的文字,可以将其设置为位图格式,暂存于内存中,然后利用VC 提供的位图拷贝函数BitBlt将位图复制到显示位置。对于特殊字符或图形,则可以直接利用BitBlt函数调用到显示位置。然后在类CLEDDlg的 OnTimer函数中调用该函数,以实现文字的滚动显示。另外,也可以通过设定不同的响应时间间隔来改变文字的滚动速度。 程序清单: ORG 00H LOOP: MOV A,#0FFH ;开机初始化,清除画面 MOV P0,A ;清除P0口 ANL P2,#00 ;清除P2口 MOV R2,#200 D100MS: MOV R3,#250 ;延时100毫秒 DJNZ R3,$ DJNZ R2,D100MS MOV 20H,#00H ;取码指针的初值 l100: MOV R1,#100 ;每个字的停留时间 L16: MOV R6,#16 ;每个字16个码
上传时间: 2013-11-06
上传用户:zl520l
JavaScript倒计时代码:新建一个文本文件(后缀名是TXT),然后将下面的源代码全部复制/粘贴到这个文本文件中,保存后改变这个文本文件的后缀名为HTML,然后在IE浏览器中打开并运行。考虑到OnTimer函数中执行语句的延迟,实际中你可以减少elapse的值,使得倒计数秒更为精确!欢迎大家指点!
标签: JavaScript TXT 计时 代码
上传时间: 2013-12-02
上传用户:yzhl1988
先运行力控应用程序(如演示工程——反应釜),实时数据库系统亦随之启动。 然后启动delphi6.0,创建一个新的工程。 在form1窗体中,放置DdeClientConv控件(system标签页),设置ConnectMode属性值为ddeAutomatic、DdeService属性值为db、DdeTopic属性值为db; 接下来放置DdeClientItem控件(system标签页),设置DdeConv为DdeClientConv1,设置DdeItem属性值为所要读取的数据库点参数值如dbmixvol.pv; 放置一个edit控件; 放置一个timer控件,设置interval属性值为100;在OnTimer脚本中加入: procedure TForm1.Timer1Timer(Sender: TObject) begin edit1.text:=form1.DdeClientItem1.Text end
上传时间: 2014-01-22
上传用户:lwwhust