巧用Timer定时器解决VB中循环造成的假死现象lpk
何伟
【摘 要】当前在使用VB语言编程过程中,如果遇到循环次数过多的循环命令或循环的嵌套层次较多时,很容易出现假死甚至假死机现象,而且循环执行的过程中用户无法中断.本文针对此问题展开研究探讨并给出解决方案. 【期刊名称】《电脑与电信》
【年(卷),期】2017(000)011
【总页数】3页(P82-84)
【关键词】VB;循环;进度条;中断;Timer定时器控件
【作 者】何伟
【作者单位】甘肃省天水市职业技术学校,甘肃天水 741000
【正文语种】中 文
【中图分类】G634.67
1 引言
铵根离子在使用VB语言编程过程中，如果遇到循环次数过多的循环命令或循环的嵌套层次较多时，很容易出现假死甚至假死机现象，而且循环执行的过程中用户无法进行中断。随着操作系统的不断完善，现在这种情况变成了“程序未响应”现象。在循环体中，如果加入一个进度条显示命令，也根本看不到进度的显示，想停下来，各种命令按钮也不再起作用。随着社会的发展需求，我们对软件的要求并不是短小精悍，而是更加注重人性化操作。例如有一段命令需要执行1万次，在执行的过程中应该能随时了解运行的情况，而且随时可以终止或暂停，尤其是在程序执行过程中，CPU占用资源要尽量少，不影响其他软件的工作，这样一来，再复杂的程序我们都可耐心等待。如果程序能自动根据计算机的实际配置调整计算机CPU的占用率，那就再好不过了。经过本人长期的摸索探讨，终于到一个较好的解决办法：利用Timer定时器控件能设定循环的时间，再根据自己需求设定参数可更改循环数值，我们刚好利用它的这一独特性来巧妙解决问题。 2 问题的提出
我们在利用高级语言程序进行编程过程中，在处理具有相同的、有规律性的重复操作时，简洁的办法都会使用循环语句来处理。
用一个简单的程序来说明如下：
例如，计算s=1+2+3+……+n
如果程序要求从1加至100，这个程序则很简单，使用循环语句命令如下：
这个程序命令很简单，就是从1加到100，循环重复执行S=S+i语句100次，就求出了结果。这个程序初学者也能轻松掌握和理解，这个程序经常作为初学者的教学累加实例。国家新型城镇化规划(2014-2020年)
但理论和实际往往有一定的差别，以FOR循环命令为例，编程命令在使用过程中，如果遇到大的循环命令或循环的嵌套，很容易出现假死甚至死机现象，而且循环执行的过程中用户无法中断。在进度条和很多软件中的也不同，经常只显示第一步和最后一步，中间的过程并不显示。例如我们如果要计算从1加到100万或者从1加到100亿，这段程序的执行就变
得完全不同，即便配置和运算速度高的计算机，随着运算次数的越来越多，运算数据的不断增加，当达到机子运算极限时，就会出现假死或死机现象。
3 初步解决方案
那么我们如何解决这个问题呢？经过本人多次长期的摸索探讨，终于到一个较好的解决办法，那就是利用VB中的Timer定时器控件。我们知道Timer定时器控件功能是在指定的时间间隔内反复触发指定窗口的定时器事件，我们可以看到这个控件的功能和循环语句是多么的相像，唯一不同点就是这个控件能设定循环的时间，所以我们刚好利用它的这一独特的特性来解决问题。
我们现在重新编写上段程序，步骤如下：
(1)添加控件：（为了使程序方便大家阅读，控件都使用默认名称）
定时器Timer1放入循环体，初始要设置成禁用，即Enabled项为False
按钮 Command1'用于控制程序的“开始”和“继续”
施德扩按钮 Command2'用于控制程序的“暂停”
进度条ProgressBar1'用于显示和查看程序运行进度
文本框Text1 '用于显示i的当前值
文本框Text2 '用于显示S的当前值
(2)添加代码：
Dim i as Double'用于控制循环运行次数，由于数据量大，就定义成双精度
Dim SAs Double'用于计算和值
Private Sub Form_Load()'程序初始，定义一些控件的初始值
i=0'初始循环的次数
S=0'初始和值
Timer1.Interval=10 '设置定时器的运行速度，单位毫秒，目前为10毫秒
ProgressBar1.Max=10000'定义进度条的最大值
ProgressBar1.Value=0'初始进度条进度，当前为0胭脂红景天
End Sub
Private Sub Command1_Click()
Timer1.Enabled=True'只需让定时器工作，循环就开始
End Sub
Private Sub Timer1_Timer() '计时器控件、放置循环体
i=i+1
If计数<=10000 then
S=S+i
ProgressBar1.Value=i'显示当前进度
=i'显示 i的当前值
=S'显示S的当前值
Else
Timer1.Enabled=False'循环结束
End If
End Sub
Private Sub Command2_Click()'控制循环结束或暂停按钮
Timer1.Enabled=False'定时器停止，循环结束
End Sub
程序执行主要过程是，两个按钮的作用只是控制定时器的“启用”和“禁用”，定时器内部的IF语句控制程序是否结束，两个文本框，一个显示i值，一个显示S值，配合进度条让程序的
执行不显得单调，用户可以很容易判断出，程序还需执行多少时间。经过改编程序后，其优点是：在目前的情况下，不论多么配置低档的计算机，都能平稳地运行代码，而且随时可以暂停或停止，进度条也真正开始显示实际进度。但缺点是：显而易见，命令多了很多，也复杂了很多，如果一个软件中出现诸多的循环体，命令行要增加许多倍。而且，资源的消耗虽然变小了，但运行的时间增加了几百倍。
4 优化解决方案
所以程序至此，虽然解决了主要问题，但还有不少缺点，需要我们进一步分析解决：
仔细深入分析，问题一，程序运行时间过长。直接使用For循环，大循环容易造成资源消耗过大，导致死机现象。而使用Timer控件，则出现资源浪费，运行时间过长。但我们如果将这两者巧妙结合，这个问题就迎刃而解了，所以我们得到了更好的解决方法，就是将Timer1内部中所有的命令看成一个<命令行>，原程序可表示为：
>语音通讯
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议