开通了baidu博客+今天写的一个小程序

最近发现很有必要在一个地方比较“隐蔽”地记录自己的点点滴滴。将在这里记录的，不是自己的心情。而是我度过的碎琐时光，得到的一点收获，编写的一个程序，或者发生的一些小事。

今天下午上计算机导论课实验时，老师要我们用VB编写一个福利彩票的开奖程序。当时就想模拟一下街机游戏上的老虎机，可是编写的时候才发现自己原来已经渐渐地疏远了VB6，很多函数都忘记了（大概是用惯了.NET的缘故），这也使我联想到了一些事。

这个程序是一个规模非常小的程序。但是如果事先没有考虑清楚的话，编写时会出现一片混乱的状态，将会花费大量的时间在程序的调试上。下面介绍一下该程序的基本思路。

1.用PictureBox控件数组模拟游戏的彩灯。

2.本程序用了4个Timer控件，但在同一时刻只有一个Timer控件处于启用的状态，这4个Timer控件的功能分别是：（1）（2）前奏：摇每个号码前播放的一小段彩灯动画；（3）模拟彩灯摇号的过程；（4）高亮显示已摇出的号。

3.本程序最重要的部分是如何确定要摇出的下一个号，即确定彩灯甩多久停下来。这里主要要注意两个问题：（1）不能甩到已摇出的号；（2）甩过的路程要恰当，不能过长也不能过短。

我的做法如下：在第二个Timer控件结束时，确定彩灯需要甩过的步长。

s = 15 + Int(Rnd(1) * 35 + 1)

这样步长就限制在15~50之间，即不会甩一下就停止，也不会甩了很久也不停。

在计算彩灯已经经过了多少格时，本程序跳过了已选出号的方格，这样就保证了选号的唯一性。

4.本程序的4个Timer控件轮流运作，有关使用方法请参考完整的程序。程序没有注释，需要较高的智商才能理解。（因为过了N久后我自己也会看不懂那些代码是什么意思）

总的来说，编写这个程序使我重新熟悉了VB6的开发环境，相对于以前写的老虎机的程序来说，这个程序的稳定性更高、效果更好。