赛马游戏VB课设报告.docx

1、赛马游戏VB课设报告沈 阳 航 空 航 天 大 学 课程设计学 号 _2013040601458_班 级 _34060110_ 姓 名 周兴义_ 指导教师 _杨煦_ 2014年 10 月 24 日沈阳航空航天大学课程设计任务书学院：机电工程学院 专业：机械设计制造及其自动化 班级：34060110学号：2013040601458 题目：“赛马”游戏一、课程设计时间201415第1学期第8周，共计1周，20学时。二、课程设计内容用VB编写一个简单的“赛马”小游戏，运行程序后，先选择相应的赛马进行投注，然后单击“开始”菜单，开始赛马。当有一只赛马先跑到终点时，则比赛结束，并提示用户输赢结果。程序界

2、面可参考右图，用户也可在实现功能要求的前提下自行设计操作界面，参考界面中用到的相关图片由教师提供。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析 4设计分析 4技术要点 5主要界面截图 6总结 7完整的源程序 8参考文献 9需求分析赛马游戏需求：此游戏实质上是按照以前的赌马游戏编写而得，现在有了这

3、个赛马的小游戏可以让玩家体验到赌马游戏的玩法与乐趣，此游戏纯属娱乐，放松心情。设计分析（1）概述：对于“赛马”游戏的设计主要运用到了对command，label，form，timer，image等控件的属性的使用；对数组的运用；以及对case语句，循环语句随机数等程序的灵活使用。我的软件主要做到了对“比赛”中的每一匹马赢的概率都是随机的，也就相当于概率相等的。（2）总体设计：（3）详细设计：技术要点赛马游戏中最重要的部份首先就是：1.“赛马”时的马匹的动作要时刻在变幻，这样才让人感觉到赛马在奔跑。2.“赛马”时的马匹奔跑的速度要是随机的，要做到每一匹马都是公平的。（这就主要运用到了vb是上随机

4、数的产生）1关于数据库的连接无2 SQL语句的应用略。（等等）主要界面截图图片部分。以图片来展示程序的运行情况。程序主界面必须有，然后是一些关键功能的界面。每张图片应标注编号和主题。图1.所用到的控件图2.主界面图3.选马下注图4.下注金额图5.游戏规则图6.比赛中图7.比赛结束以及名次单总结 经过大一下一学期的vb学习，对vb有了初步的了解后，如今在大二为期一周的vb课设中，通过自己的不断努力，自己不仅对vb熟练了许多，而且在这次课设中，最终在完成老师的任务的同时自己还学到了不少以前从未接触到的知识。完整的源程序Dim jine As Integer, beilv As IntegerDim

5、 order(0 To 3) As Integer, mingci As Integer, m As Integer, xiazhu As IntegerDim v1 As Integer, v2 As Integer, v3 As Integer, v4 As IntegerDim n1 As Integer, n2 As Integer, n3 As Integer, n4 As IntegerPrivate Sub form_load()Form1.Height = 8400Form1.Width = 15360Image1.Top = 0Image1.Left = 0Image2.He

6、ight = 180 * 4Image2.Width = 195 * 4Image2.Top = 3700Image2.Left = 2000Image3.Height = 180 * 4Image3.Width = 195 * 4Image3.Top = 4700Image3.Left = 2000Image4.Height = 180 * 4Image4.Width = 195 * 4Image4.Top = 5700Image4.Left = 2000Image5.Height = 180 * 4Image5.Width = 195 * 4Image5.Top = 6700Image5.

7、Left = 2000For n = 0 To 3 Option1(n).Left = 800Option1(n).Top = 3700 + n * 1000Option1(n).Height = 180 * 4Option1(n).Width = 250 * 4Option1(n).Caption = n + 1 & 号马Next n For n = 0 To 3 Option1(n).BackColor = vbGreen Next nLabel1.Width = 80Label1.Height = 5000Label1.BackColor = vbWhiteLabel1.Caption

8、= Label1.Left = 14000Label1.Top = 3480Image1.Picture = LoadPicture(E:vb课设周兴义.bmp) Image2.Picture = LoadPicture(E:vb课设1(1).jpg)Image3.Picture = LoadPicture(E:vb课设2(1).jpg)Image4.Picture = LoadPicture(E:vb课设3(1).jpg)Image5.Picture = LoadPicture(E:vb课设4(1).jpg)Frame1.Caption = Frame1.Left = 6180Frame1.

9、Height = 4000Frame1.Width = 3000Frame1.Top = -5000Label2.Caption = 第一名Label3.Caption = 第二名Label4.Caption = 第三名Label5.Caption = 第四名For n = 0 To 5Label11(n).Top = 100Label11(n).Left = 100 + n * 1200Label11(n).Width = 1000Label11(n).Height = 500Label11(n).FontSize = 11Label11(n).Caption = Next nbeilv =

10、 Int(Rnd * 9 + 1) Label11(0).Caption = 下注马号Label11(2).Caption = 下注金额Label11(4).Caption = 倍率Label11(5).Caption = beilvCommand3.Caption = 继续游戏End SubPrivate Sub money_Click() jine = Val(InputBox(请下注, 下注金额)Label11(3).Caption = jineEnd SubPrivate Sub music_Click()WindowsMediaPlayer1.URL = Queen - We Wil

11、l Rock You.mp3End SubPrivate Sub rule_Click()Shell c:windowssystem32notepad.exe + + 游戏说明.txt, 1End SubPrivate Sub start_Click()If xiazhu = 0 Then MsgBox 请下注, 0, 提示End IfIf jine = 0 Then MsgBox 请输入下注金额, 0, 提示End IfIf xiazhu 0 And jine 0 Then Timer1.Enabled = Truema1donghua.Enabled = Truema2donghua.En

12、abled = Truema3donghua.Enabled = Truema4donghua.Enabled = TrueEnd IfRandomizeLabel11(1).Caption = xiazhuLabel11(3).Caption = jine End SubPrivate Sub end_Click()likai = MsgBox(你真的要离开游戏？, 4 + 32)If likai = 6 ThenEndEnd IfEnd SubPrivate Sub option1_Click(Index As Integer) Select Case Index Case 0 xiazh

13、u = 1 Case 1 xiazhu = 2 Case 2 xiazhu = 3 Case 3 xiazhu = 4End SelectLabel11(1).Caption = xiazhuEnd SubPrivate Sub ma1donghua_Timer() If n1 = 0 ThenImage2.Picture = LoadPicture(E:vb课设1(1).jpg)n1 = 1ElseIf n1 = 1 ThenImage2.Picture = LoadPicture(E:vb课设1(2).jpg)n1 = 2ElseIf n1 = 2 ThenImage2.Picture =

14、 LoadPicture(E:vb课设1(3).jpg)n1 = 0End IfEnd SubPrivate Sub ma2donghua_Timer()If n2 = 0 ThenImage3.Picture = LoadPicture(E:vb课设2(1).jpg)n2 = 1ElseIf n2 = 1 ThenImage3.Picture = LoadPicture(E:vb课设2(2).jpg)n2 = 2ElseIf n2 = 2 ThenImage3.Picture = LoadPicture(E:vb课设2(3).jpg)n2 = 0End IfEnd SubPrivate Su

15、b ma3donghua_Timer()If n3 = 0 ThenImage4.Picture = LoadPicture(E:vb课设3(1).jpg)n3 = 1ElseIf n3 = 1 ThenImage4.Picture = LoadPicture(E:vb课设3(2).jpg)n3 = 2ElseIf n3 = 2 ThenImage4.Picture = LoadPicture(E:vb课设3(3).jpg)n3 = 0End IfEnd SubPrivate Sub ma4donghua_Timer()If n4 = 0 ThenImage5.Picture = LoadPi

16、cture(E:vb课设4(1).jpg)n4 = 1ElseIf n4 = 1 ThenImage5.Picture = LoadPicture(E:vb课设4(2).jpg)n4 = 2ElseIf n4 = 2 ThenImage5.Picture = LoadPicture(E:vb课设4(3).jpg)n4 = 0End IfEnd SubPrivate Sub Command3_Click()Image2.Height = 180 * 4Image2.Width = 195 * 4Image2.Top = 3700Image2.Left = 2000Image3.Height =

17、180 * 4Image3.Width = 195 * 4Image3.Top = 4700Image3.Left = 2000Image4.Height = 180 * 4Image4.Width = 195 * 4Image4.Top = 5700Image4.Left = 2000Image5.Height = 180 * 4Image5.Width = 195 * 4Image5.Top = 6700Image5.Left = 2000Frame1.Caption = Frame1.Left = 6180Frame1.Height = 4000Frame1.Width = 3000Fr

18、ame1.Top = -5000xiazhu = 0jine = 0beilv = Int(Rnd * 9 + 1)Label11(5).Caption = beilvFor n = 0 To 3 order(n) = 0Next nmingci = 0Label11(1).Caption = Label11(3).Caption = End SubPrivate Sub chengjidan_Timer() For m = 0 To 3 Select Case order(m) Case 1 Label6.Caption = (m + 1) & 号 If xiazhu = m + 1 The

19、n Label10.Caption = 你赢了 Label12.Caption = jine * beilv & 元 Else Label10.Caption = 你输了 Label12.Caption = jine & 元 End If Case 2 Label7.Caption = (m + 1) & 号 Case 3 Label8.Caption = (m + 1) & 号 Case 4 Label9.Caption = (m + 1) & 号 End Select Next m Frame1.Top = Frame1.Top + 20 Command3.Enabled = FalseI

20、f Frame1.Top = 1000 ThenCommand3.Enabled = Truechengjidan.Enabled = FalseEnd IfEnd SubPrivate Sub Timer1_Timer() Randomizev1 = Int(Rnd * 50 + 10)Image2.Left = Image2.Left + v1ma1donghua.Interval = v1 * 2Randomizev2 = Int(Rnd * 50 + 10)Image3.Left = Image3.Left + v2ma2donghua.Interval = v1 * 2Randomi

21、zev3 = Int(Rnd * 50 + 10)Image4.Left = Image4.Left + v3ma3donghua.Interval = v1 * 2Randomizev4 = Int(Rnd * 50 + 10)Image5.Left = Image5.Left + v4ma4donghua.Interval = v1 * 2If order(0) = 0 Then If Image2.Left = 13220 Then mingci = mingci + 1 order(0) = mingci If mingci = 4 Then ma1donghua.Enabled =

22、False ma2donghua.Enabled = False ma3donghua.Enabled = False ma4donghua.Enabled = False Timer1.Enabled = False chengjidan.Enabled = True End If End IfEnd IfIf order(1) = 0 Then If Image3.Left = 13220 Then mingci = mingci + 1 order(1) = mingci If mingci = 4 Then ma1donghua.Enabled = False ma2donghua.E

23、nabled = False ma3donghua.Enabled = False ma4donghua.Enabled = False Timer1.Enabled = False chengjidan.Enabled = True End If End IfEnd IfIf order(2) = 0 Then If Image4.Left = 13220 Then mingci = mingci + 1 order(2) = mingci If mingci = 4 Then ma1donghua.Enabled = False ma2donghua.Enabled = False ma3

24、donghua.Enabled = False ma4donghua.Enabled = False Timer1.Enabled = False chengjidan.Enabled = True 成绩单的显示 End If End IfEnd IfIf order(3) = 0 Then If Image5.Left = 13220 Then mingci = mingci + 1 order(3) = mingci If mingci = 4 Then ma1donghua.Enabled = False ma2donghua.Enabled = False ma3donghua.Enabled = False ma4donghua.Enabled = False Timer1.Enabled = False chengjidan.Enabled = True End If End IfEnd IfEnd Sub参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，2003（等等）