开通了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的开发环境,相对于以前写的老虎机的程序来说,这个程序的稳定性更高、效果更好。

     程序下载地址:http://bbs.cfan.com.cn/thread-917368-1-1.html

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

  1. Pingback引用通告: 博客七周年纪念 – 刀之魂

发表评论

Fill in your details below or click an icon to log in:

WordPress.com 徽标

You are commenting using your WordPress.com account. Log Out /  更改 )

Google+ photo

You are commenting using your Google+ account. Log Out /  更改 )

Twitter picture

You are commenting using your Twitter account. Log Out /  更改 )

Facebook photo

You are commenting using your Facebook account. Log Out /  更改 )

Connecting to %s