VB课程设计益智类算数小游戏.doc

《VB课程设计益智类算数小游戏.doc》由会员分享，可在线阅读，更多相关《VB课程设计益智类算数小游戏.doc（37页珍藏版）》请在三一文库上搜索。

1、吉林工程技术师范学院VB课程设计设计题目： 益智类算数小游戏 专 业： 信息管理与信息系统 班 级： X0841 学 号： 33 学生姓名： 刘忠宇 指导教师： 孟宇桥 高汝仪 2010年7月信息工程学院目 录摘 要 ： 02第 一章 绪 论 03第二章 系统分析 04第三章 总体设计 06第四章 编码实现 07第五章 调试与测试10总结： 14附录：1源代码 162参考资料 34摘要随着软件技术以及互联网技术的不断发展，游戏产业发展迅速，已经成为经济增民的一个亮点。实践是软件开发的核心，对代码要求精益求精，在开发的过程中，简单设计，用测试驱动，通过重构和迭代代码实现设计。Visual Bas

2、ic,其中主要地介绍了Visual Basic 6.0，以及Visual Basic的编程环境。同时通过小游戏简单介绍了利用Visual Basic 6.0开发游戏的处理过程。主要介绍了24点游戏的开发，包括界面的设计和相应的界面设计原则，还介绍了其开发环境。同时也对游戏系统的公共功能模块做了阐述。通过对该课题的研究设计，对如何运用Visual Basic来设计游戏有了一定程度的了解，并对如何设计游戏的构架有所掌握。关键词：编程 Visual Basic 模块 算法第一章 绪论 可视化前台编程的思想应用于软件开发过程中，指导开发活动的系统方法，它吸取了结构化程序设计的精华，以更接近人们通常思维

3、的方式来处理问题，是一种全新的软件开发技术。作为一种编程语言，Visual Basic很大程度推广了可视化窗体思想。随着计算机技术的发展，VB.NET的强大展现出它不可替代的作用，VB的功能不仅体现在网络方面的应用，对于应用程序设计、游戏设计等都能满足需求。本文针对的具体应用，设计了VB一个小游戏。根据游戏的规则，用户将可以和计算机进行简单对战。程序实现了友好的用户交互界面，让用户能很好地对游戏进行操作 计算机技术的应用正在朝着网络化的方向阔步前进。VB为其提供了简便并且功能强大的编程接口。开发人员生成独立于平台的应用程序，用VB编写的程序可以在许多硬件平台上运行而不需要重新编译。 VB最强大

4、的是网络方面的应用，本课程设计不涉及网络方面的应用。第二章 系统分析 程序用到了很多有关VB.NET的语法：Msgbox(Prompt,Buttons,Title)方法，这个方法主要用于弹出消息框，在这个程序中，你会经常看到这样的语法，主要用于提示玩家相关的信息。Prompt：消息框中的提示信息。Enabled语句，这个语句在程序里主要是用于控制按钮，标签等控件是否可用。Val语句，这个语句主要用于类型转换，TextBox.text只支持字符串格式，而加、减、乘、除等的运算需要时数字才可以，所以要通过Val将字符串类型转换为数字类型，让后进行运算。Buttons。显示按钮，是个枚举类型MsgB

5、oxStyle值。用来控制在对话框内显示的按钮类型、数目及图标样式。Title。消息框的标题。若省略，则默认为当前的应用程序的名称。 TrycatchEnd try语句。 这是个异常处理的语法，在本程序中主要用于判断玩家输入的是否为字母，如果是字母或者是不正确的数字，则会被该语句捕捉到错误，然后抛出异常。 Tostring语法 该语法主要用于类型转换。在次程序中，类似于x,n之类的数字类型变量无法被label.text的字符串类型接受，所以需要用到该语法进行强制的类型转换，将数字类型转换为字符串类型。 Inputbox(prompt,Title,Default,XPosYPos)（1） Pro

6、mpt。输入框中的提示文字。（2） Title。输入框的标题。（3） Default。显示在输入文本框中的默认内容，省略则显示空串。（4） XPos。指定对话框左边界和屏幕左边界的间距。省略时对话框位于水平方向中心。（5） YPos。指定对话框上边界和屏幕上边界的间距。省略时对话框位于竖直方向，大约在屏幕上边界往下三分之一的地方If else语法主要用语判断玩家的余额和输入的数字是否超出规定的范围。Me.width的意思是该窗体的宽度。在此程序中主要是调整欢迎语句的位置。Backcolor 用于改边背景颜色。此程序主要用来改变标签的背景颜色。在此程序中我用到了Rnd()方法，它的功能主要是在0

7、到1之间随机的生成个小数，再通过Int()方法强制转换为整型，就实现了所有数字的随机产生。在设计Sub过程的时候，考虑到简单明了，Sub开始 End Sub 结束方法都是在默认属性中创建和实现的。我们设计的优点是：条理清晰，容易理解，容易修改。第三章 总体设计一对Form1 窗体的设定,在窗体中添加LableBox,Button按钮的添加,及对整个界面布局!二 在相应的控件中添加程序,在 Button1中赋予点击按钮将加号给指定的标签label5，Button2中赋予点击按钮将减号给指定的标签label6,Button3中赋予点击按钮将除号给指定的标签label7.这样可以实现符号的操作， 三

8、 在开始按钮中设置默认值 ，并将控件中的数据清空，设置按钮不可用，及在开始按钮中随机给一组数字在1到13之间的数，这是通过Rnd来实现的在这其中还需要考虑不出现零的情况，避免带来不必要的麻烦。四 在确认按钮中设置程序实现的过程，最主要的算法，是通过select语句来实现的 ，通过select语句分情况逐个实现可能遇到的问题 并将其成功的解决。五 最后通过MsgBox语句来实现 输出实现的运行结果。这是通过If Else语句来实现判断的过程。六 在找不到答案的情况下或一时想不起的时候可以放弃此组数据，可以选择放弃按钮，放弃按钮主要是对数据清空工作。第四章 编码实现一 加法button1按钮中设置

9、If Label5.Text = Then Label5.Text = + ElseIf Label6.Text = Then Label6.Text = + ElseIf Label7.Text = Then Label7.Text = + ElseIf Button1.Enabled = False Then End If减法Button2按钮中设置 If Label5.Text = Then Label5.Text = - ElseIf Label6.Text = Then Label6.Text = - ElseIf Label7.Text = Then Label7.Text = -

10、 ElseIf Button1.Enabled = False Then End If除法Button3按钮中设置 If Label5.Text = Then Label5.Text = / ElseIf Label6.Text = Then Label6.Text = / ElseIf Label7.Text = Then Label7.Text = / ElseIf Button1.Enabled = False Then End If乘法Button4按钮中设置If Label5.Text = Then Label5.Text = * ElseIf Label6.Text = Then

11、Label6.Text = * ElseIf Label7.Text = Then Label7.Text = * ElseIf Button1.Enabled = False Then End If二 开始按钮中设置Label1.Text = Int(13 * Rnd() + 1) Label2.Text = Int(13 * Rnd() + 1) Label3.Text = Int(13 * Rnd() + 1) Label4.Text = Int(13 * Rnd() + 1) Button4.Enabled = True Button3.Enabled = True Button2.E

12、nabled = True Button1.Enabled = True Button8.Enabled = True Button9.Enabled = True Label5.Text = Label6.Text = Label7.Text = 三 在确认按钮中设置Dim a As Integer Select Case Label5.Text Case + a = Val(Label1.Text) + Val(Label2.Text) + Val(Label3.Text) + Val(Label4.Text)Case - a = Val(Label1.Text) + Val(Label2

13、.Text) + Val(Label3.Text) - Val(Label4.Text) Case / a = Val(Label1.Text) + Val(Label2.Text) + Val(Label3.Text) / Val(Label4.Text) Case * a = Val(Label1.Text) + Val(Label2.Text) + Val(Label3.Text) * Val(Label4.Text) End Select 四 在放弃按钮中设置 Button9.Enabled = False Button8.Enabled = False Button4.Enabled

14、 = False Button3.Enabled = False Button2.Enabled = False Button1.Enabled = False Label1.Text = Label2.Text = Label3.Text = Label4.Text = Label5.Text = Label6.Text = Label7.Text = 第五章 调试与测试一 控件布置及相关的设置：二 控件中的源代码的实现三 程序的试运行总结语：作为率先推广前台编程思想的语言，VB却不是革命性的东西，所有现有的 VB 的思想都是继承自其他的语言和技术，没有什么革命的地方。但是 VB 在真正推动

15、可视化前台编程思想方面是功不可没的。使用 VB 编程，你无需考虑到向后兼容什么语言的问题，它是重新建立的语言，你在掌握这门语言之前，你必须将自己的编程思想由过程编程彻底转向编程，因为每个 VB 程序，你编写任何 VB 程序，你都不自觉的在构造一个模块，过程。相对于另一门面向对象的语言C+而言，VB 在面向对象的贯彻方面要比 C+ 彻底。有人说“C+ 是打着面向对象的幌子，干着过程编程的勾当”或许不是言过其辞，C+继承了C的面向过程的一些特性，而VB几乎都用了面向对象的思想来实现程序。但是无论是 c+ 还是 VB都有可能走过程编程的老路， VB 降低的过程编写的可能性，但是如果你没有具备面编程思

16、想，你还是可能走面向过程的老路的。程序中生成了几个对象，均为较简单的对象，而却难免会步入面向过程的老路，但这看似是却是难免的：实现游戏规则，就要把过程写出来。最近接触了许多软件工程方面的知识，深深感到程序设计要走的路之漫长。理解课程设计如果想要做好，绝不是一朝一夕的事。本次设计的每一个阶段：系统分析、总体设计、编码实现、调试与测试，都是我在不断学习的情况下完成的。而在这些过程中不断体会软件设计的各个步骤、各个环节，又转到不断学习中去。古语有云“工欲善其事，必先利其器”，当初朦朦胧胧地写了代码，就体会到学习VB仍然是处于初步阶段，远远不够“善其事”。只是VB的学习是要不断把所学和所用结合的，一次

17、课程设计可以体会到知识的不足，而后补充所需的知识，再进行实践，再发现不足，如此不断，才能慢慢体会这门语言的精髓。再如软件设计。毋庸置疑，本次课程设计只是让我“摸一下软件设计”。如专家所说，软件文档的编写是应当占了软件设计的90%的时间精力的，文档写好了，随便一个程序员都能做出软件来。可见软件文档的重要性。对于只是“了解软件工程” 的我们来说，编写文档莫过于一件痛苦的事并没有系统地学习过，却要一点一点地用出来。洋洋洒洒的一本书，不禁为要走的路之漫长艰辛感慨不已。但是倘若是真的有兴趣有毅力，这些应当不在话下。是故，本次课程设计带给我的不仅仅是为未来打基础这么简单的收获，更多的是一种认识。小至一门课

18、程、一门语言，大至一门专业、一段人生，若不是热情主动刻苦地学习，将一无所获。附录：1源代码 Public Class Form1 Inherits System.Windows.Forms.Form#Region Windows 窗体设计器生成的代码 Public Sub New() MyBase.New() 该调用是 Windows 窗体设计器所必需的。 InitializeComponent() 在 InitializeComponent() 调用之后添加任何初始化 End Sub 窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Su

19、b Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer 注意: 以下过程是 Windows 窗体设计器所必需的 可以使用 Windows 窗体设计器修改此过程。 不要使用代码编辑器修改它。

20、 Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6

21、 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.

22、Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Button9 As System.Windows.Forms.Button Friend WithEvents Label8 As System.Windows.Forms.Label Priv

23、ate Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1) Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.

24、Label Me.Label5 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label Me.Label16 = New System.Windows.Forms.Label Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.Button3 = New System.Windows

25、.Forms.Button Me.Button4 = New System.Windows.Forms.Button Me.Button7 = New System.Windows.Forms.Button Me.Button8 = New System.Windows.Forms.Button Me.Button9 = New System.Windows.Forms.Button Me.Label8 = New System.Windows.Forms.Label Me.SuspendLayout() Label1 Me.Label1.BackColor = System.Drawing.

26、Color.Transparent Me.Label1.Font = New System.Drawing.Font(宋体, 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label1.Location = New System.Drawing.Point(56, 56) Me.Label1.Name = Label1 Me.Label1.Size = New System.Drawing.Size(56, 56) Me.Label1.TabIndex =

27、 0 Me.Label1.Text = Label1 Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Label2 Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.Font = New System.Drawing.Font(宋体, 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label2

28、.Location = New System.Drawing.Point(168, 56) Me.Label2.Name = Label2 Me.Label2.Size = New System.Drawing.Size(56, 56) Me.Label2.TabIndex = 1 Me.Label2.Text = Label2 Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Label3 Me.Label3.BackColor = System.Drawing.Color.Transparent Me.La

29、bel3.Font = New System.Drawing.Font(宋体, 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label3.Location = New System.Drawing.Point(272, 56) Me.Label3.Name = Label3 Me.Label3.Size = New System.Drawing.Size(56, 48) Me.Label3.TabIndex = 2 Me.Label3.Text = La

30、bel3 Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Label4 Me.Label4.BackColor = System.Drawing.Color.Transparent Me.Label4.Font = New System.Drawing.Font(宋体, 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label4.Location = New System

31、.Drawing.Point(392, 56) Me.Label4.Name = Label4 Me.Label4.Size = New System.Drawing.Size(56, 48) Me.Label4.TabIndex = 3 Me.Label4.Text = Label4 Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Label5 Me.Label5.BackColor = System.Drawing.Color.Transparent Me.Label5.Font = New System

32、.Drawing.Font(宋体, 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label5.Location = New System.Drawing.Point(128, 72) Me.Label5.Name = Label5 Me.Label5.Size = New System.Drawing.Size(24, 23) Me.Label5.TabIndex = 4 Me.Label5.Text = Label5 Me.Label5.TextAl

33、ign = System.Drawing.ContentAlignment.MiddleCenter Label6 Me.Label6.BackColor = System.Drawing.Color.Transparent Me.Label6.Font = New System.Drawing.Font(宋体, 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label6.Location = New System.Drawing.Point(232,

34、72) Me.Label6.Name = Label6 Me.Label6.Size = New System.Drawing.Size(24, 23) Me.Label6.TabIndex = 5 Me.Label6.Text = Label6 Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Label7 Me.Label7.BackColor = System.Drawing.Color.Transparent Me.Label7.Font = New System.Drawing.Font(宋体, 21

35、.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label7.Location = New System.Drawing.Point(344, 72) Me.Label7.Name = Label7 Me.Label7.Size = New System.Drawing.Size(24, 23) Me.Label7.TabIndex = 6 Me.Label7.Text = Label7 Me.Label7.TextAlign = System.Drawing

36、.ContentAlignment.MiddleCenter Label16 Me.Label16.BackColor = System.Drawing.Color.Transparent Me.Label16.Font = New System.Drawing.Font(宋体, 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label16.Location = New System.Drawing.Point(480, 56) Me.Label16.Na

37、me = Label16 Me.Label16.Size = New System.Drawing.Size(80, 48) Me.Label16.TabIndex = 15 Me.Label16.Text = =24 Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Button1 Me.Button1.BackColor = System.Drawing.Color.Transparent Me.Button1.Font = New System.Drawing.Font(宋体, 21.75!, Syst

38、em.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Button1.Location = New System.Drawing.Point(96, 176) Me.Button1.Name = Button1 Me.Button1.Size = New System.Drawing.Size(56, 32) Me.Button1.TabIndex = 16 Me.Button1.Text = + Button2 Me.Button2.BackColor = System.Drawin

39、g.Color.Transparent Me.Button2.Font = New System.Drawing.Font(宋体, 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Button2.Location = New System.Drawing.Point(184, 176) Me.Button2.Name = Button2 Me.Button2.Size = New System.Drawing.Size(56, 32) Me.Button2.TabIndex = 17 Me.Button2.Text = - Button3 Me.Button3.BackColor = System.Drawing.Color.Transparent Me.Button3.Font = New System.Drawing.Font(宋体, 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Button3.Location = New System.Drawing.Point(272, 1