掷色子设计报告

学院 土木工程学院 班级 测绘C111 学号 117548 姓名 李景赛 成绩

一、设计思路

1.要达到的目的

①培养学生综合利用VB语言进行程序设计的能力。

②培养学生综合使用基本控件的、子过程和控件数组等操作能力。

③单击“开始”后，使时钟控件出发Timer事件，利用随机函数，产生一个1～6的随机数，将这个数作为“点数”在标签中显示，并调用子过程将Shape控件数组圆形按点数做相应的显示注意Visible和FillColor属性的使用。

2.关键问题的解决

①游戏启动过程中筛子从0~6做循环,需要设置"点"的样式

②过程用于根据显示0~6数字，显示相应的控件组合

③单击停止按钮,会停止骰子的滚动并显示一个随机生成的点数

二、模块之间的调用关系，或程序流程图

三、部分程序关键源代码及注释

程序运行起来,单击"开始"按钮,设Timer控件的Enabled属性为True,点数开始滚动,实现代码如下

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

当Timer控件可用时，会触发Timer控件的Timer事件,程序代码如下

Private Sub Timer1_Timer()

Randomize

num = Int(Rnd * 6) + 1

Label1.Caption = num & "点"

DisPlay (num)

End Sub

四、设计方案的完善及目前存在的问题

1．设计方案要完善的地方

①掷色子的界面过于单调，背景不够吸引人。

②有些代码过于繁琐，没有用更加简便的方法。

2. 目前存在的问题

①有一部分代码自己还是会出现逻辑上的问题

②时间仓促，本次设计还有好多地方不理想

5、本次设计的收获及心得体会

在本次课程设计中发现了自己存在好多问题，有些课本上的知识在课程设计中还是不能应用到课程设计当中。本来就对自己的能力感到不足，便找了个相对简单的题目，没想到一旦做起来还是相当的困难。对于编程语言来说，思维，联系，和动手能力的要求都是特别高，在课堂学习的过程中缺少了理论联系实际操作的的能力。

做这个课程，真的是翻了不少书，问了许多同学，在网上翻阅了好多资料，其实到现在还有一些问题搞不清楚。

真的很感谢老师，这门课程现在真正的培养了我们动手能力，独立思考能力。

六、对该题目和VB设计的意见和建议

1. 对该题目的意见和建议

掷色子的游戏虽然简单，但对于控件的应用确实是比较有点难度，可能对于我来说吧。请教了好多同学，在网上找了好多资料。

2．对本次设计的意见和建议

课程设计给的时间稍微有点紧张，再加上课程的时间段安排在将近期末考试的时间段，连上复习其他科目确实感觉时间有点不够用。建议把VB课程设计的时间与期末考试的时间拉开一段时间。总体来说这次设计还是很成功的，VB课程设计可以锻炼大家的动手能力和动脑能力。

掷骰子游戏设计报告