利用VB制作可设定时间的倒计时器

电脑编程技巧与维护　

利用ＶＢ制作可设定时间的倒计时器　

王思刚。苏金丽　

（西北工业大学明德学院经济管理系，西安７１０１２４）　

摘要：利用ＶＢ软件中计时控件及其他控件开发出可设定时间的倒计时器，并给出相应的源代码。　

关键词：ＶＢ；可设定时间；倒计时器　

Ｕｓｉｎｇ　ＶＢ　Ｐｒｏｄｕｃｔｉｏｎ　Ｃａｎ　ｂｅ　Ｓｅｔ　Ｔｉｍｅ　Ｃｏｕｎｔｅｒ－ｄｏｗｎ　

ＷＡＮＧ　Ｓ／￣ｎｇ，ｓＵ　Ｊｉｎｌｉ　

（Ｎｏｒｔｈｗｅｓｔｅｍ　Ｐｏｌｙｔｅｃｈｎｉｃａｌ　Ｕｎｉｖｅｒｓｉｔｙ　Ｍｉｎｇ　Ｄｅ　Ｃｏｌｌｅｇｅ　Ｍａｎａｇｅｍｅｎｔ　ｏｆ　Ｅｃｏｎｏｍｙ　Ｄｅｐａｒｔｍｅｎｔ，Ｘｉ　ａｎ　７１０１２４）　

Ａｂｓｔｒａｃｔ：Ｕｓｉｎｇ　ＶＢ　ｓｏｆｔｗａｒｅ　ｔｉｍｅｒ　ｃｏｎｔｒｏｌ　ａｎｄ　ｏｔｈｅｒ　ｃｏｎｔｒｏｌ　ｄ　ｅｖｅｌｏｐｅｄ　ｃａｎ　ｂｅ　ｓｅｔ　ｔｉｍｅ　ｃｏｕｎｔｅｒ—ｄｏｗｎ．ａｎｄ　ｇｉｖｅｓ　ｔｈｅ　

ｃｏｒｒｅｓｐｏｎｄｉｎｇ　ｓｏｕｒｃｅ．　

Ｋｅｙ　ｗｏｒｄｓ：ＶＢ；Ｓｅｔ　ｔｉｍｅ；Ｃｏｕｎｔｅｒ－ｄｏｗｎ　

１前言　

ＶＢ是一门具有强大功能的可视化编程软件，随着计算机　

的普及，ＶＢ编程爱好者越来越多。利用ＶＢ中计时控件制作　

倒计时器应用于各种比赛计时具有良好效果，比如在各项演　

讲比赛、辩论赛等场合中都会使用倒计时器。　

Ｐｒｉｖａｔｅ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳｅｔＷｉｎｄｏｗＰｏｓ　Ｌｉｂ”ｕｓｅｒ３２”　

（ＢｙＶａｌ　ｈｗｎｄ　Ａｓ　Ｌｏｎｇ，　

．Ｊ３ｙＶａｌ　ｈＷｎｄｌｎｓｅｒｔＡｆｔｅｒ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　Ｘ　Ａｓ　Ｌｏｎｇ，　

＿ＢｙＶａｌ　Ｙ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　ＣＸ　Ａｓ　Ｌｏｎｇ，　

ＢｙＶａｌ　ｃｙ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　ｗＦｌａｇｓ　Ａｓ　Ｌｏｎｇ）Ａｓ　

Ｌｏｎｇ　

Ｃｏｎｓｔ　ＳＷＰＮＯＭＯＶＥ：＆Ｈ２　

＿

２界面概述　

该软件主要利用标签、按钮、计时器、图像框、文本框、　

框架等控件来制作。在程序的运行时，首先在文本框中输入　

要进行倒计时的时间再单击开始，否则提示重新输入；利用　

一

Ｃｏｎｓｔ　ＳＷＰ　ＮＯＳＩＺＥ＝＆ＨＩ　

Ｃｏｎｓｔ　ＨＷＮＤＪ０ＰＭ０ＳＴ＝一１　

Ｃｏｎｓｔ　ｆｌａｇｓ＝ＳＷＰ　ＮＯＭＯＶＥ　Ｏｒ　ＳＷＰ　ＮＯＳＩＺＥ　

个重置按钮可将程序整个运行过程重新开始，供多次重复　

４．２窗体加载　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ

Ｌｏａｄ　０　

使用。同时，在进行到最后３Ｏ秒时软件会发出一声警报声；　

最后１０秒，警报声每秒一次直至结束，用来提示参与者时　

间。　

Ｍｅ．Ｌｅｆｔ＝（Ｓｃｒｅｅｎ．Ｗｉｄｔｈ—Ｍｅ．Ｗｉｄｔｈ、／２　

Ｍｅ．Ｔｏｐ＝（Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ—Ｍｅ．Ｈｅｉｇｈｔ）／２　

ＳｅｔＷｉｎｄｏｗＰｏｓ　Ｆｏｒｍ１．ｈｗｎｄ，ＨＷＮＤＴＯＰＭＯＳＴ，０，０，Ｏ，　

３　窗体设计　

（１）在属性窗口设置Ｆｏｒｍ的ＢｏｒｄｅｒＳｔｙｌｅ为“０一Ｎｏｎｅ”，　

０，ｆｌａｇｓ　

Ｅｎｄ　Ｓｕｂ　

加载Ｐｉｃｔｕｒｅ属性设置背景图片。　

（２）添加ｉｍａｇｅ１用来存放学院图标，文本框ｔｘｔ１用来输　

入活动主题。　

４．３　Ｔｉｍｅｒ事件　

４．３．１设置Ｔｉｍｅｒｌ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒｌ　Ｔｉｍｅｒ　０　

ｎ＝ｎ——１　

Ｉｆ　ｎ＝－１　Ｔｈｅｎ　

Ｓ＝Ｓ——１‘ｎ＝９　

（３）添加两个框架，框架Ｆｒｌ用来显示倒计时时间，其中　

存放５个标签；Ｆｒ２用做时间输入框，其中存放２个文本框和　

２个标签。　

ＥｎｄＩｆ　

Ｉｆ　Ｓ＝－１　Ｔｈｅｎ　

（４）添加３个按钮，用作“开始”“重置”“退出”命　

令。　

ｍ＝ｍ一１：Ｓ＝５９　

ＥｎｄＩｆ　

（５）再添加１个标签，ｃａｐｔｉｏｎ为“请重新输入计时时　

间！”。添加ｉｍａｇｅ２中图片用来提示时间到。　

Ｌｂ１．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（ｍ，”００”）　

Ｌｂ３．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（Ｓ，”００”）　

（６）设置３个Ｔｉｍｅｒ控件。Ｔｉｍｅｒｌ用来控制倒计时，　

Ｔｉｍｅｒ２　ｆ３）用来激发警报声。　

Ｌｂ５．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（ｎ，”０”）　

最后ｌＯ秒显示　

Ｉｆ　ｍ＜１　Ａｎｄ　Ｓ＜＝１０　Ａｎｄ　ｎ＜１　Ｔｈｅｎ　

４　编写程序　

４．１通用声明　

定义变量　

Ｄｉｍ　ｍ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｓ　Ａｓ　Ｉｎｔｅｇｅｒ，ｎ　Ａｓ　Ｉｎｔｅｇｅｒ，ｉ　Ａｓ　Ｉｎｔｅｇｅｒ　

作者简介：　

王思刚（１９８８一），０７级学生；苏金丽（１９８８一），　

０７级学生。　

２０１０—０７一Ｏ９　

收稿日期：　

调用ＳｅｔＷｉｎｄｏｗＰｏｓ函数设置窗体位于最前面　

一

３８一　

Ｓ０ＦｒＷＡＲＥ　ＤＥＶＥＬＯＰＭＥＮＴ　ＡＮＤ　ＤＥＳＩＧＮ　软件开发与设计　

Ｆｒ１．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ：Ｔｉｍｅｒ２．Ｅｎａｂｌｅｄ＝Ｔｍｅ　

ｉ＝Ｌｂ３．Ｃａｐｔｉｏｎ：Ｌｂ８．Ｃａｐｔｉｏｎ＝ｉ　

Ｌｂ８．Ｖｉｓｉｂｌｅ＝ＴⅢｅ　

ＥｎｄＩｆ　

最后３Ｏ秒报警　

Ｉｆ　ｍ＝０　Ａｎｄ　Ｓ＝３０　Ａｎｄ　ｎ＝０　Ｔｈｅｎ　

Ｔｉｍｅｒ３．Ｅｎａｂｌｅｄ＝Ｔ＿ｎｌｅ：Ｔｉｍｅｒ３．Ｉｎｔｅｒｖａｌ＝０　

ＥｎｄＩｆ　

时间到　

Ｈ　ｍ＝０　Ａｎｄ　Ｓ＝０　Ａｎｄ　ｎ＝０　Ｔｈｅｎ　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ：Ｔｉｍｅｒ２．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

停止计时器　

Ｌｂ８．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ：Ｉｍａｇｅ２．Ｖｉｓｉｂｌｅ＝Ｔｍｅ　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

４．３．２设置Ｔｉｍｅｒ２（３）　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ２（３）＿Ｔｉｍｅｒ　０　

Ｂｅｅｐ　

Ｅｎｄ　Ｓｕｂ　

４．４设置命令按钮　

４．４．１“开始”　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｓｔａｒｔ　Ｃｒｉｃｋ　０　

Ｃｓｔａｒｔ．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ：Ｃｒｅｓｅｔ．Ｅ力ａｂｌｅｄ＝Ｔｍｅ　

提示重新输入　

Ｉｆ　Ｔｘｔ２．Ｔｅｘｔ＝…　Ａｎｄ　Ｔｘｔ３．Ｔｅｘｔ＝””Ｔｈｅｎ　

Ｆｌｒ１．Ｖｉｓｉｂｌｅ＝蹦ｓｅ：Ｌｂ９．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

Ｃｒｅｓｅｔ．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ：Ｔｘｔ２．ＳｅｔＦｏＣＵＳ　

Ｅ１ｓｅ　

获取倒计时时间　

ｍ＝Ｖａｌ（Ｔｘｔ２．Ｔｅｘｔ）：Ｓ＝Ｖａｌ（Ｔｘｔ３．Ｔｅｘｔ）：ｎ＝０　

Ｌｂ１．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（ｍ，”ｏ０”）　

Ｌｂ３．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（Ｓ，”００”）　

Ｌｂ５．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（ｎ，”０”）　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ‘将计时器激活　

Ｆ　２．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

４．４．２“重置”　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＣＲｅｓｅｔ　Ｃｌｉｃｋ　０　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｆｒ１．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ：Ｆｒ２．ｖｉｓｉｂｌｅ＝Ｔｍｅ　

返回初始值　

ｍ＝０：Ｓ＝０：ｎ＝０　

Ｌｂ１．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（ｍ，”０ＨＤ”）　

Ｌｂ３．Ｃａｐｄｏｎ＝Ｆｏｒｍａｔ（ｓ，”０ｏ”）　

Ｌｂ５．Ｃａｐｔｉｏｎ＝Ｆｏｒｍａｔ（ｎ，”０”）　

Ｔｘｔ２．Ｔｅｘｔ＝…’：Ｔｘｔ３．Ｔｅｘｔ＝””　

Ｔｘｔ２．ＳｅｔＦＯＣＵＳ：Ｃｓｔａｒｔ．Ｅｎａｂｌｅｄ＝Ｔｍｅ　

Ｉｆ　Ｔｉｍｅｒ２．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　Ｔｈｅｎ　

Ｔｉｍｅｒ２．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

ＥｎｄＩｆ　

Ｉｆ　Ｌｂ８．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　Ｔｈｅｎ　

Ｌｂ８．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

ＥｎｄＩｆ　

Ｉｆ　Ｉｍａｇｅ２．Ｖｉｓｉｂｌｅ＝Ｔ　ｅ　Ｔｈｅｎ　

Ｉｍａｇｅ２．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

４．４．３“退出”　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｖｅｒ

＿

Ｃｌｉｃｋ（）　

Ｅｎｄ　

Ｅｎｄ　Ｓｕｂ　

４．５文本框设置　

设置文本框键入限制　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｘｔ２（３）＿ＫｅｙＰｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）　

Ｃｓｔａｒｔ．Ｅｎａｂｌｅｄ：Ｔｒｕｅ：Ｆｒ１．Ｖｉｓｉｂｌｅ＝Ｔｍｅ　

Ｌｂ９．Ｖｉｓｉｂｌｅ：Ｆａｌｓｅ　

Ｉｆ　ＫｅｙＡｓｃｉｉ＜Ａｓｃ（”０”）Ｏｒ　ＫｅｙＡｓｃｉｉ＞Ａｓｃ（”９”）　

ｈＴｅｎ　

ＫｅｙＡｓｃｉｉ＝０　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

５　运行　

将所编写好的程序进行保存，同时生成为可执行文件。　

然后将这个文件打包成一个小软件，这样就可将打包好的文　

件安装到任何一台计算机上都可运行了。　

启动此倒计时程序时可按活动要求输入所用倒计时时间，　

运行的界面如图ｌ一图２所示。　

图１开始界面　

图２最后１０秒计时　

６　结语　

利用ＶＢ制作的可设定时间该倒计时器基本上能应用于学　

校组织的各项活动中去。其最大的特点就是它可自定义、可　

重复输入多次使用。但同时也有一些不足需要改进的地方，　

（下转到５９页）　

一

３９—　

ＤＡＴＡＢＡＳＥ　ＡＮＤ　ＩＮＦ０ＲＭＡＴ１０Ｎ　ＭＡＮＡＧＥＭＥＮＴ　

３：ＦｉｌｅＴｉｍｅＴｏＬｏｃａ　ｌｅＴｉｍｅ（ＷＦＤ．ｆｔＬａｓｔＷｒｉｔｅＴｉｍｅ，　

数据库与信息管理　

ｉｆ（ｎｏｔ　ｆｉｌｅｅｘｉｓｔｓ（ＤｅｓｔＦｉｌｅ））ｏｒ　ｎｅｅｄｂａｃｋｕｐ　ｔｈｅｎ　

ｉｆ　ｃｏｐｙｆｉｌｅ（ｐｃｈａｒ（ＳｏｕｒｃｅＦｉｌｅ），ｐｃｈａｒ（ＤｅｓｔＦｉｌｅ），ｆａｌｓｅ）　

ｈｅｎ　ｔ

ＦｉｌｅＴｉｍｅ）；　

ｅｎｄ；　

／／ＦｉｌｅＴｉｍｅＴｏＤｏｓＤａｔｅＴｉｍｅ函数把结构中６４位的文件时　

，，间转换成ＭＳ—ＤＯＳ格式的日期和时问值ＦｉｌｅＴｉｍｅＴｏ—　

ＤｏｓＤａｔｅＴｉｍｅ（ＦｉｌｅＴｉｍｅ，ＬｏｎｇＲｅｃ（ＤＰＴ）．ＨＩ，ＬｏｎｇＲｅｃ　

／／（ＤＰ＇Ｔ）．ＬＯ）；　

ｒｅｓｕｌｔ：＝ｌ｜｝备份成功　

ｅｌｓｅ　ｒｅｓｕｌｔ：＝一１；，，备份失败　

ｅｎｄ；　

ｅｘｐｏｒｔｓ　

，，把ＭＳ—ＤＯＳ格式的日期和时间值再次转换成ＴＤａｔｅ　

／／Ｔｉｍｅ类型的值返回　

Ｒｅｓｕｌｔ：＝ＦｉｌｅＤ￣ｅＴｏＤａｔｅＴｉｍｅ（ＤＦｒ）；　

ｅｎｄ；　

Ｂａｃｋｕｐ；　

ｂｅｇｉｎ　

ｅｎｄ．　

把编译后生成的ＢａｃｋｕｐＩＴ．ＤＬＬ复制到Ｗｉｎｄｏｗｓ系统的　

ｅｎｄ；　

ｆ　菱函数实现文件的智能备份，参数两个：源文件和目　

Ｓｙｓｔｅｍ３２文件夹下，就可以调用了。　

，，标文件。　

３　调用智能备份函数　

ｌ　

源文件和目标文件名（可包含所在路径）作为参数由调　

ｆｕｎｃｔｉｏｎ　Ｂａｃｋｕｐ（ＳｏｕｒｃｅＦｉｌｅ，ＤｅｓｔＦｉｌｅ：ＰＣｈａｒ）：ｉｎｔｅｇｅｒ；　

用者给出，假设源文件位于程序所在文件夹的ｄａｔａ子目录下，　

Ｖａｒ　

目标文件存放在ＤＡｘｓｇｌｂａｃｋｕｐ下的以系统日期命名的目录下。　

ｄａｔｅｌ，ｄａｔｅ２：ＴＤａｔｅｔｉｍｅ；　

ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　

ｎｅｅｄＢａｃｋｕｐ：ｂｏＯｌｅａｎ；　

｛ＳＲ　．ｄｆｍｌ　

ｄｅｓｔＰａｔｈ：ｓｔｒｉｎｇ；　

ｆ／，夕　部声明必须和ＤＬＬ中的参数列表一致，否则会运　

ｂｅｇｉｎ　

｝婀时错误　

ｎｅｅｄｂａｃｋｕｐ：＝ｆａｌｓｅ；　

ｌ　

ｉｆ　ｎｏｔ　ｆｉｌｅｅｘｉｓｔｓ（Ｓｏｕｒｃｅｆｉｌｅ）ｔｈｅｎ　

ｆｕｎｃｔｉｏｎ　Ｂａｃｋｕｐ（ＳｏｕｒｃｅＦｉｌｅ，ＤｅｓｔＦｉｌｅ：ＰＣｈａｒ）：Ｉｎｔｅｇｅｒ；ｅｘｔｅｒ－　

ｂｅｇｉｎ　

ｎａｌ＂ＢａｃｋｕｐｌＴ．ｄｎ　：　

ｒｅｓｕｌｔ：＝一２；｛，／源文件不存在　

ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍ１．ＢｕｔｔｏｎｌＣｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　

）　

Ｖａｒ　

ｅｘｉｔ；　ＳｏｕｒｃｅＦｉｌｅ，ＤｅｓｔＦｉｌｅ：ｓｔｒｉｎｇ；　

ｅｎｄ　ｂｅｇｉｎ　

ｅｌｓｅ　ｄａｔｅｌ：＝ＧｅｔＦｉｌｅＬａｓｔＡｃｃｅｓｓＴｉｍｅ（ＳｏｕｒｃｅＦｉｌｅ，３）；　

，／源文件路径以及文件名　

，，获得文件最后修改时间　

ＳｏｕｒｃｅＦｉｌｅ：＝ＥｘｔｒａｃｔＦｉｌｅＰａｔｈ（Ａｐｐｌｉｃａｔｉｏｎ．ＥｘｅＮａｍｅ）＋　ｄａ－　

艏先判断目标文件路径是否已经存在，若已经存在证　

ｔａ　＋＂￣ｅｘｅｒｃｉｓｅ．ｍｄｂ　：　

，／明目标路径是合法的　

，，目标文件路径以及文件名　

／，若不存在就创建　

ＤｅｓｔＦｉｌｅ：＝＇ＤＡｘｓｇｌｂａｃｋｕｐ＼　＋ＤａｔｅＴｏＳｔｒ（Ｄａｔｅ）＋＇ｋｅｘｅｒｃｉｓｅ．　

ｄｅｓｔＰａｔｈ：＝ＥｘｔｒａｃｔＦｉｌｅＤｉｒ（ＤｅｓｔＦｉｌｅ）；　

ｍｄｂ　；　

ｉｆ　ｎｏｔ　ｄｉｒｅｃｔｏｒｙｅｘｉｓｔｓ（ｄｅｓｔＰａｔｈ）ｔｈｅｎ　

ｃａｓｅ　Ｂａｃｋｕｐ（ＰＣｈａｒ（ＳｏｕｒｃｅＦｉｌｅ），ＰＣｈａｒ（ＤｅｓｔＦｉｌｅ））ｏｆ　

｛，，可一次建立多级目录Ｊ　

－

３：Ｆｏｒｍ１．ｃａｐｔｉｏｎ：＝　目标文件路径错误　；　

ｉｆ　ｎｏｔ　ｆｏｒｃｅＤｉｒｅｃｔｏｒｉｅｓ（ＤｅｓｔＰａｔｈ）ｔｈｅｎ　

－

２：Ｆｏｒｍ１．ｃａｐｔｉｏｎ：＝　源文件不存在　：　

一

ｂｅｇｉｎ　

ｌ：Ｆｏｒｍｉ．ｃａｐｔｉｏｎ：＝　备份失败，请检查目标文件名！　：　

ｒｅｓｕｌｔ：＝一３；ｆ如创建失败则给出的目标文件路径有错误｝　

Ｏ：Ｆｏｒｍ１．ｃａｐｔｉｏｎ：＝　无需备份　；　

ｅｘｉｔ；　

ｌ：Ｆｏｒｍ１．ｃａｐｔｉｏｎ：＝　备份成功　：　

ｅｎｄ；　

ｅｎｄ；　

｛，，如果目标文件已经存在，则比较文件最后修改时间ｌ　

ｅｎｄ；　

ｉｆ　ｉｆｌｅｅｘｉｓｔｓ（ＤｅｓｔＦｉｌｅ）ｔｈｅｎ　

４　结语　

ｂｅｇｉｎ　

该智能备份函数既可以在Ｄｅｌｐｈｉ中直接定义后调用，也　

ｄａｔｅ２：＝ＧｅｔＦｉｌｅＬａｓｔＡｃｃｅｓｓＴｉｍｅ（ＤｅｓｔＦｉｌｅ，３）；　

可以写成ＤＬＬ调用或供其他语言调用。其好处是通过比较数　

ｉｆ　ｄａｔｅｌ＞ｄａｔｅ２　ｔｈｅｎ　ｎｅｅｄｂａｃｋｕｐ：＝ｔｒｕｅ　

ｅｌｓｅ　ｒｅｓｕｌｔ：－０；　

据文件的最后修改时间来判断是否需要备份，避免了盲目备　

，，目标文件更新或最后修改时间相同则无需备份　

份，提高了备份效率。代码在Ｗｉｎｄｏｗｓ　ＸＰ＋Ｄｅｌｐｈｉ７．０下调试　

ｅｎｄ；　

通过。　

（上接第３９页）　

例如可以在程序中添加多媒体控件来制作更加人性化的报警　疆师范大学学报（自然科学版），２００７，２６（３）：１１８．　

器等，所以本软件还有待于进一步完善。　［２】宋哨兵．面向任务的Ｖｉｓｕａｌ　Ｂａｓｉｃ程序设计教程．北京：清　

参考文献　华大学出版社，２０１０．　

［１１胡晓娟，王兰．利用ＶＢ实现可重复使用的倒计时器．新　】

一

５９—