vfp设计倒计时.docVIP

VFP中倒计时器的设计 摘　要：本文介绍了利用Visual FoxPro 6．0设计倒计时器的两种方法，给出了程序，并比较了两种方法的优劣。关键词：倒计时器；Visual FoxPro；程序设计 1　引　言　　在程序设计和软件开发中，经常需要设计计时器，如：秒表、正计时器、倒计时器等。这些计时器的设计方法大同小异，本文以倒计时器设计为例介绍两种设计倒计时器的方法。　　Visual FoxPro中的计时器控件有一个Timer事件，每经过Interval（单位为毫秒）属性指定的时间就执行该事件一次。利用该控件的这一特点再配合一些程序可设计各种计时器，包括倒计时器。2　利用计时器控件和设置计数变量设计倒计时器2．1　设计思想　　程序中用一个计数变量t来实现计时，在表单的Init事件中给t赋初值5400（本例中倒计时时间设为90分钟，即5400秒）。程序中用到一个计时器控件，设置计时器控件的Interval属性为1000（即1秒），则它每秒钟被触发一次。在计时器的Timer事件代码中加入t＝t－1，则每隔1秒钟t递减1，5400秒后t减到0，定时时间到。程序中还用到3个变量th、tm、ts，分别用来表示剩余时间的时、分、秒，用于将剩余时间t用时分秒的格式显示。　　在表单的Init事件代码中包含thisform．timer1．enabled＝．F．，再在“开始”按钮的Click事件代码中加入代码：thisform．timer1．enabled＝．T．。这样当单击“开始”按钮时才开始计时。2．2　程序清单⑴表单Form1的Init事件代码：thisform．timer1．enabled＝．F．public tt＝5400⑵标签Label1的属性Caption：剩余时间⑶标签Label2的属性Caption：90分钟⑷计时器Timer1的属性Interval：1000计时器Timer1的timer事件代码：if t＜＝0　　 messagebox（″定时时间到！″）elseth＝int（t／3600）tm＝int（（t－th＊3600）／60）ts＝t－th＊3600－tm＊60thisfor m．label2．caption＝str（th，2）＋″：″＋str（tm，2）　　＋″：″＋str（ts，2）endift＝t－1⑸命令按钮Command1的属性Caption： 命令按钮Command1的Click事件代码：thisform．timer1．enabled＝．T．⑹命令按钮Command2的属性Caption：退出命令按钮Command2的Click事件代码：release thisform2．3　表单运行结果　　本表单包含两个标签控件和两个命令按钮，运行结果如图1所示。 ? 3　利用计时器控件和时间函数设计倒计时器3．1　设计思想　　本程序通过计时器控件和时间函数seconds（）来设计倒计时器。seconds（）函数可以以秒为单位返回自午夜以来经过的时间。在“开始”按钮的Click事件中加入代码：t0＝seconds（）。在计时器控件的Timer事件代码中加入：t1＝seconds（）、t2＝5400＋t0、t3＝t2－t1。t0为单击“开始”按钮时离午夜的时间，t1为计时器每次触发时距午夜的时间，t2为定时结束时距午夜的时间，t3为剩余时间。3．2　程序清单⑴表单Form1的Init事件代码：thisform．timer1．enabled＝．F．⑵标签Label1的属性Caption：剩余时间⑶标签Label2的属性Caption：90分钟⑷计时器Timer1的属性Interval：500计时器Timer1的timer事件代码：t1＝seconds（）t2＝5400＋t0t3＝t2－t1if t3＜＝0　　messagebox（″定时时间到！″）elseth＝int（t3／3600）tm＝int（（t3－th＊3600）／60）ts＝t3－th＊3600－tm＊60thisform．label5．caption＝str（th，2）＋″：″＋str（tm，2）＋″：″＋str（ts，2）endif⑸命令按钮Command1的属性Caption：开始命令按钮Command1的Click事件代码：public t0t0＝seconds（）thisform．timer1．enabled＝．t．this．enabled＝．f．⑹命令按钮Command2的属性Caption：退出命令按钮Command2的Click事件代码：　　release thisfo