VB课程设计益智类算数小游戏Word文档格式.docx
《VB课程设计益智类算数小游戏Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB课程设计益智类算数小游戏Word文档格式.docx（37页珍藏版）》请在冰豆网上搜索。
2参考资料………………………34
摘要
随着软件技术以及互联网技术的不断发展，游戏产业发展迅速，已经成为经济增民的一个亮点。
实践是软件开发的核心，对代码要求精益求精，在开发的过程中，简单设计，用测试驱动，通过重构和迭代代码实现设计。
VisualBasic,其中主要地介绍了VisualBasic6.0，以及VisualBasic的编程环境。
同时通过小游戏简单介绍了利用VisualBasic6.0开发游戏的处理过程。
主要介绍了24点游戏的开发，包括界面的设计和相应的界面设计原则，还介绍了其开发环境。
同时也对游戏系统的公共功能模块做了阐述。
通过对该课题的研究设计，对如何运用VisualBasic来设计游戏有了一定程度的了解，并对如何设计游戏的构架有所掌握。
关键词：
编程VisualBasic模块算法
第一章绪论
可视化前台编程的思想应用于软件开发过程中，指导开发活动的系统方法，它吸取了结构化程序设计的精华，以更接近人们通常思维的方式来处理问题，是一种全新的软件开发技术。
作为一种编程语言，VisualBasic很大程度推广了可视化窗体思想。
随着计算机技术的发展，VB.NET的强大展现出它不可替代的作用，VB的功能不仅体现在网络方面的应用，对于应用程序设计、游戏设计等都能满足需求。
本文针对的具体应用，设计了VB一个小游戏。
根据游戏的规则，用户将可以和计算机进行简单对战。
程序实现了友好的用户交互界面，让用户能很好地对游戏进行操作
计算机技术的应用正在朝着网络化的方向阔步前进。
VB为其提供了简便并且功能强大的编程接口。
开发人员生成独立于平台的应用程序，用VB编写的程序可以在许多硬件平台上运行而不需要重新编译。
VB最强大的是网络方面的应用，本课程设计不涉及网络方面的应用。
第二章系统分析
程序用到了很多有关VB.NET的语法：
Msgbox（Prompt[,Buttons][,Title]）方法，这个方法主要用于弹出消息框，在这个程序中，你会经常看到这样的语法，主要用于提示玩家相关的信息。
Prompt：
消息框中的提示信息。
Enabled语句，这个语句在程序里主要是用于控制按钮，标签等控件是否可用。
Val语句，这个语句主要用于类型转换，TextBox.text只支持字符串格式，而加、减、乘、除等的运算需要时数字才可以，所以要通过Val将字符串类型转换为数字类型，让后进行运算。
Buttons。
显示按钮，是个枚举类型MsgBoxStyle值。
用来控制在对话框内显示的按钮类型、数目及图标样式。
Title。
消息框的标题。
若省略，则默认为当前的应用程序的名称。
Try…catch…Endtry语句。
这是个异常处理的语法，在本程序中主要用于判断玩家输入的是否为字母，如果是字母或者是不正确的数字，则会被该语句捕捉到错误，然后抛出异常。
Tostring语法
该语法主要用于类型转换。
在次程序中，类似于x,n之类的数字类型变量无法被label.text的字符串类型接受，所以需要用到该语法进行强制的类型转换，将数字类型转换为字符串类型。
Inputbox（prompt[,Title][,Default][,XPos][YPos]）
（1）Prompt。
输入框中的提示文字。
（2）Title。
输入框的标题。
（3）Default。
显示在输入文本框中的默认内容，省略则显示空串。
（4）XPos。
指定对话框左边界和屏幕左边界的间距。
省略时对话框位于水平方向中心。
（5）YPos。
指定对话框上边界和屏幕上边界的间距。
省略时对话框位于竖直方向，大约在屏幕上边界往下三分之一的地方
If…else语法
主要用语判断玩家的余额和输入的数字是否超出规定的范围。
Me.width的意思是该窗体的宽度。
在此程序中主要是调整欢迎语句的位置。
Backcolor用于改边背景颜色。
此程序主要用来改变标签的背景颜色。
在此程序中我用到了Rnd（）方法，它的功能主要是在0到1之间随机的生成个小数，再通过Int（）方法强制转换为整型，就实现了所有数字的随机产生。
。
在设计Sub过程的时候，考虑到简单明了，Sub开始EndSub结束方法都是在默认属性中创建和实现的。
我们设计的优点是：
条理清晰，容易理解，容易修改。
第三章总体设计
一对Form1窗体的设定,在窗体中添加LableBox,Button按钮的添加,及对整个界面布局!
二在相应的控件中添加程序,在Button1中赋予点击按钮将加号给指定的标签label5，Button2中赋予点击按钮将减号给指定的标签label6,Button3中赋予点击按钮将除号给指定的标签label7.这样可以实现符号的操作，
三在开始按钮中设置默认值，并将控件中的数据清空，设置按钮不可用，及在开始按钮中随机给一组数字在1到13之间的数，这是通过Rnd来实现的在这其中还需要考虑不出现零的情况，避免带来不必要的麻烦。
四在确认按钮中设置程序实现的过程，最主要的算法，是通过select语句来实现的，通过select语句分情况逐个实现可能遇到的问题并将其成功的解决。
五最后通过MsgBox语句来实现输出实现的运行结果。
这是通过IfElse语句来实现判断的过程。
六在找不到答案的情况下或一时想不起的时候可以放弃此组数据，可以选择放弃按钮，放弃按钮主要是对数据清空工作。
第四章编码实现
一加法button1按钮中设置
IfLabel5.Text="
"
Then
Label5.Text="
+"
ElseIfLabel6.Text="
Label6.Text="
ElseIfLabel7.Text="
Label7.Text="
ElseIfButton1.Enabled=FalseThen
EndIf
减法Button2按钮中设置
-"
除法Button3按钮中设置
/"
乘法Button4按钮中设置
*"
二开始按钮中设置
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.Enabled=True
Button1.Enabled=True
Button8.Enabled=True
Button9.Enabled=True
三在确认按钮中设置
DimaAsInteger
SelectCaseLabel5.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）
a=Val（Label1.Text）+Val（Label2.Text）+Val（Label3.Text）/Val（Label4.Text）
a=Val（Label1.Text）+Val（Label2.Text）+Val（Label3.Text）*Val（Label4.Text）
EndSelect
四在放弃按钮中设置
Button9.Enabled=False
Button8.Enabled=False
Button4.Enabled=False
Button3.Enabled=False
Button2.Enabled=False
Button1.Enabled=False
Label1.Text="
Label2.Text="
Label3.Text="
Label4.Text="
第五章调试与测试
一控件布置及相关的设置：
二控件中的源代码的实现
三程序的试运行
总结语：
作为率先推广前台编程思想的语言，VB却不是革命性的东西，所有现有的VB的思想都是继承自其他的语言和技术，没有什么革命的地方。
但是VB在真正推动可视化前台编程思想方面是功不可没的。
使用VB编程，你无需考虑到向后兼容什么语言的问题，它是重新建立的语言，你在掌握这门语言之前，你必须将自己的编程思想由过程编程彻底转向编程，因为每个VB程序，你编写任何VB程序，你都不自觉的在构造一个模块，过程。
相对于另一门面向对象的语言C++而言，VB在面向对象的贯彻方面要比C++彻底。
有人说“C++是打着面向对象的幌子，干着过程编程的勾当”或许不是言过其辞，C++继承了C的面向过程的一些特性，而VB几乎都用了面向对象的思想来实现程序。
但是无论是c++还是VB都有可能走过程编程的老路，VB降低的过程编写的可能性，但是如果你没有具备面编程思想，你还是可能走面向过程的老路的。
程序中生成了几个对象，均为较简单的对象，而却难免会步入面向过程的老路，但这看似是却是难免的：
实现游戏规则，就要把过程写出来。
最近接触了许多软件工程方面的知识，深深感到程序设计要走的路之漫长。
理解课程设计如果想要做好，绝不是一朝一夕的事。
本次设计的每一个阶段：
系统分析、总体设计、编码实现、调试与测试，都是我在不断学习的情况下完成的。
而在这些过程中不断体会软件设计的各个步骤、各个环节，又转到不断学习中去。
古语有云“工欲善其事，必先利其器”，当初朦朦胧胧地写了代码，就体会到学习VB仍然是处于初步阶段，远远不够“善其事”。
只是VB的学习是要不断把所学和所用结合的，一次课程设计可以体会到知识的不足，而后补充所需的知识，再进行实践，再发现不足，如此不断，才能慢慢体会这门语言的精髓。
再如软件设计。
毋庸置疑，本次课程设计只是让我“摸一下软件设计”。
如专家所说，软件文档的编写是应当占了软件设计的90%的时间精力的，文档写好了，随便一个程序员都能做出软件来。
可见软件文档的重要性。
对于只是“了解软件工程”的我们来说，编写文档莫过于一件痛苦的事――并没有系统地学习过，却要一点一点地用出来。
洋洋洒洒的一本书，不禁为要走的路之漫长艰辛感慨不已。
但是倘若是真的有兴趣有毅力，这些应当不在话下。
是故，本次课程设计带给我的不仅仅是为未来打基础这么简单的收获，更多的是一种认识。
小至一门课程、一门语言，大至一门专业、一段人生，若不是热情主动刻苦地学习，将一无所获。
1源代码
PublicClassForm1
InheritsSystem.Windows.Forms.Form
#Region"
Windows窗体设计器生成的代码"
PublicSubNew（）
MyBase.New（）
'
该调用是Windows窗体设计器所必需的。
InitializeComponent（）
在InitializeComponent（）调用之后添加任何初始化
EndSub
窗体重写dispose以清理组件列表。
ProtectedOverloadsOverridesSubDispose（ByValdisposingAsBoolean）
IfdisposingThen
IfNot（componentsIsNothing）Then
components.Dispose（）
MyBase.Dispose（disposing）
Windows窗体设计器所必需的
PrivatecomponentsAsSystem.ComponentModel.IContainer
注意:
以下过程是Windows窗体设计器所必需的
可以使用Windows窗体设计器修改此过程。
不要使用代码编辑器修改它。
FriendWithEventsLabel1AsSystem.Windows.Forms.Label
FriendWithEventsLabel2AsSystem.Windows.Forms.Label
FriendWithEventsLabel3AsSystem.Windows.Forms.Label
FriendWithEventsLabel4AsSystem.Windows.Forms.Label
FriendWithEventsLabel5AsSystem.Windows.Forms.Label
FriendWithEventsLabel6AsSystem.Windows.Forms.Label
FriendWithEventsLabel7AsSystem.Windows.Forms.Label
FriendWithEventsLabel16AsSystem.Windows.Forms.Label
FriendWithEventsButton1AsSystem.Windows.Forms.Button
FriendWithEventsButton2AsSystem.Windows.Forms.Button
FriendWithEventsButton3AsSystem.Windows.Forms.Button
FriendWithEventsButton4AsSystem.Windows.Forms.Button
FriendWithEventsButton7AsSystem.Windows.Forms.Button
FriendWithEventsButton8AsSystem.Windows.Forms.Button
FriendWithEventsButton9AsSystem.Windows.Forms.Button
FriendWithEventsLabel8AsSystem.Windows.Forms.Label
<
System.Diagnostics.DebuggerStepThrough（）>
PrivateSubInitializeComponent（）
DimresourcesAsSystem.Resources.ResourceManager=NewSystem.Resources.ResourceManager（GetType（Form1））
Me.Label1=NewSystem.Windows.Forms.Label
Me.Label2=NewSystem.Windows.Forms.Label
Me.Label3=NewSystem.Windows.Forms.Label
Me.Label4=NewSystem.Windows.Forms.Label
Me.Label5=NewSystem.Windows.Forms.Label
Me.Label6=NewSystem.Windows.Forms.Label
Me.Label7=NewSystem.Windows.Forms.Label
Me.Label16=NewSystem.Windows.Forms.Label
Me.Button1=NewSystem.Windows.Forms.Button
Me.Button2=NewSystem.Windows.Forms.Button
Me.Button3=NewSystem.Windows.Forms.Button
Me.Button4=NewSystem.Windows.Forms.Button
Me.Button7=NewSystem.Windows.Forms.Button
Me.Button8=NewSystem.Windows.Forms.Button
Me.Button9=NewSystem.Windows.Forms.Button
Me.Label8=NewSystem.Windows.Forms.Label
Me.SuspendLayout（）
Label1
Me.Label1.BackColor=System.Drawing.Color.Transparent
Me.Label1.Font=NewSystem.Drawing.Font（"
宋体"
24.0!
System.Drawing.FontStyle.Bold,System.Drawing.GraphicsUnit.Point,CType（134,Byte））
Me.Label1.Location=NewSystem.Drawing.Point（56,56）
Me.Label1.Name="
Label1"
Me.Label1.Size=NewSystem.Drawing.Size（56,56）
Me.Label1.TabIndex=0
Me.Label1.Text="
Me.Label1.TextAlign=System.Drawing.ContentAlignment.MiddleCenter
Label2
Me.Label2.BackColor=System.Drawing.Color.Transparent
Me.Label2.Font=NewSystem.Drawing.Font（"
Me.Label2.Location=NewSystem.Drawing.Point（168,56）
Me.Label2.Name="
Label2"
Me.Label2.Size=NewSystem.Drawing.Size（56,56）
Me.Label2.TabIndex=1
Me.Label2.Text="
Me.Label2.TextAlign=System.Drawing.ContentAlignment.MiddleCenter
Label3
Me.Label3.BackColor=System.Drawing.Color.Transparent
Me.Label3.Font=NewSystem.Drawing.Font（"
Me.Label3.Location=NewSystem.Drawing.Point（272,56）
Me.Label3.Name="
Label3"
Me.Label3.Size=NewSystem.Drawing.Size（56,48）
Me.Label3.TabIndex=2
Me.Label3.Text="
Me.Label3.TextAlign=System.Drawing.ContentAlignment.MiddleCenter
Label4
Me.Label4.BackColor=System.Drawing.Color.Transparent
Me.Label4.Font=NewSystem.Drawing.Font（"
Me.Label4.Location=NewSystem.Drawing.Point（392,56）
Me.Label4.Name="
Label4"
Me.Label4.Size=NewSystem.Drawing.Size（56,48）
Me.Label4.Tab
升级会员 