VB课程设-55-.doc

此文档收集于网络，如有侵权，请联系网站删除掷骰子游戏设计报告学院 学院 班级 学号 姓名 成绩 一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、子过程和控件数 组等操作能力。 设计的掷骰子程序可以让您在休闲时间享受猜点数的乐趣。设计的掷骰子游戏程序能输入点数，也可以选择点数进行猜数。2.关键问题的解决使用Timer事件用于随机产生点数。使用Shape控件数组，通过改变其Visible属性显示点数图案，通过改变其Fillcolor改变点数的颜色。使用API函数SetCursor为Label添加手形光标。通过对Command的Caption属性判断和更改，使一个Command响应不同的事件。二、模块之间的调用关系，或程序流程图3、 部分程序关键源代码及注释Public num As Integer, vn As IntegerPrivate Sub Cmd_Click()Select Case Cmd.CaptionCase 开始Cmd.Caption = 停止 定义点击cmd按钮之后的caption属性Timer1.Enabled = True 触发timer1 Label2 = 产生的点数 确定label内文字信息 LblNumber2 = 正在产生 确定lblnumber2内文字信息 LblResult = 正在产生点数，请稍后. 确定lblresult内的文字信息Case 停止Cmd.Caption = 重新输入 定义点击停止按钮之后的cmd的caption属性Timer1.Enabled = False 使timer1停止 LblNumber2 = vn & 点 使lblnumber中显示产生的点数 Label2 = 产生的点数 确定label2显示的文字信息 If vn = num Then LblResult = 恭喜，您猜对了。 Else LblResult = 您猜错了。 利用if语句定义lblnumber的文字信息Case 重新输入 FrmInput.Show 定义点击重新输入按钮后的事件FrmInput.TxtInput.SelStart = 0FrmInput.TxtInput.SelLength = Len(FrmInput.TxtInput.Text)FrmInput.TxtInput.SetFocusUnload MeEnd SelectEnd SubPrivate Sub Cmd1_Click()Select Case Label3.CaptionCase 点数输入If Int(Val(TxtInput) 0 And Int(Val(TxtInput) 7 Then 定义输入字数的范围(1-6)FrmMain.Show 使frmmain显示ElseLabel3.Caption = 错误 确定label3的caption属性Label1.Caption = 您输入的数据不符合规定，请重新输入。 确定label1的caption属性TxtInput.Visible = False 使texinput隐藏For i = 0 To 5LblClick(i).Visible = FalseNextCmd1.Caption = 重新输入 定义cmd1的caption属性End If Case 错误 Cmd1.Caption = 确定 定义点击重新输入按钮后cmd1的caption属性For i = 0 To 5 循环结构LblClick(i).Visible = True Next Label3.Caption = 点数输入 确定label3的caption属性Label1.Caption = 请输入您猜测点数的数字： 确定label1的cap同属性TxtInput.Visible = True 定义点击确定按钮后textinput显示TxtInput.SelStart = 0TxtInput.SelLength = Len(TxtInput.Text)TxtInput.SetFocusEnd SelectEnd Sub四、设计方案的完善及目前存在的问题1设计方案要完善的地方骰子的点数未采用自定义图片。不能两个人同时竞猜，少了一些乐趣。当点击开始是骰子滚动的比较不美观。2. 目前存在的问题骰子点数变换的画面不够流畅。五、本次设计的收获及心得体会在上课的过程中要努力地认真的去听老师的教课，课下认真的消化老师所讲的内容。要多在图书馆和网上进行自学，拓宽自己的知识面才能更好地去完成每一次作业。增加练习vb的时间，把基础做扎实。理论学习也要应用实践，做几个自己力所能及的小程序。六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议可以在点击开始时增加音乐效果，使程序更加好玩。可以给骰子做一个外衣，使骰子更加美观。这种游戏太过简单，不是很经得起玩。2对本次设计