VB简单小游戏设计

目   录

第一章 游戏开发的现状分析 1
1.1游戏开发现状 1
1.2 游戏开发中存在的问题 2
第二章  游戏开发的技术基础 3
2.1 Visual Basic技术 3
2.1.1游戏开发软件的介绍 3
2.1.2 Visual Basic概述 3
2.2 Visual Basic的编程环境 4
2.2.1 Windows下的Visual Basic编程环境 4
2.2.2 面向对象的编程 4
2.2.3 VB在系统中的应用 6
2.3 小结 9
第三章  系统总体规划 10
3.1 系统功能简介 10
3.1.1 24点纸牌简介 10
3.1.2 拼拼图简介 10
3.2 系统开发方法 11
3.2.1 24点纸牌的开发 12
3.2.2 拼拼图的开发 21
3.3 系统开发环境 25
3.3.1 开发平台 25
3.3.2 运行平台 25
3.3.3 输入输出设计 25
3.4 小结 26
第四章  系统功能模块设计 27
4.1 24点纸牌游戏公共模块 27
4.2 拼拼图公共模块 29
4.3 小结 30
第五章 总结与展望 30
5.1 全文总结 30
5.2 展望 31
参考文献 31
致  谢 33
 

第一章 游戏开发的现状分析 copyright think58

[资料来源：www.THINK58.com]

1.1游戏开发现状 本文来自think58 [资料来源：http://THINK58.com]

近两年来中国游戏产业蓬勃发展，新作品不断问世。吸引了不少有志之士，他们很愿意加入到中国游戏软件开发者的行列中来，但真正能如愿者少之又少，所以现在我们的游戏产业呈很奇特的现象，一方面是急需新血加入，而另方面却是真正能动手开发游戏的人才却如凤毛麟角。造成这种现象的原因，是游戏制作这一新兴的学科在国内才刚刚兴起，而许多相关资料在国内还很缺乏。大多数抱有美好愿望的朋友正是因为缺少这些资料才无法如愿以偿。有鉴于国内大多数计算机刊物虽已经开办了游戏专栏，但登载游戏攻略的文章多，刊出的游戏制作文章少的局面。
自从世界上第一台电子计算机问世以来，电脑游戏就作为一种新生的特有的文化媒体而存在着，电脑游戏世界是一片五彩缤纷的世界，这个世界里每时每刻都发生着许多千奇百怪的故事，因此吸引着无数玩家去探寻、去寻觅。可能会有许多朋友这样问，这么好玩的游戏是谁做出来的呢?答案只有一个，当然是由人所做出来的。电脑游戏是由一群或一组想象力丰富并充满工作热情的小伙子们齐心合力做出来的。
说到电脑游戏制作业可算的上是一种新兴的产业，但随着近些年来计算机产业突飞猛进的发展，电脑游戏制作业在国外已经成为继电影娱乐业后的又一大娱乐产业，互动式的游戏参与过程与声光动画特技效果是传统电影业所难与之相匹敌的，一时间竟引无数“英雄”为之折腰，电脑游戏产业因此而受益非浅。例如著名的3D射击游戏《DOOM毁灭战士》从问世以来就深受玩者欢迎，风靡全球、久盛不衰。而这套游戏程序的制作者就以其所获收益为后盾，在一个月间买下了三辆名贵跑车，《好莱坞探奇报》在一篇评论文章中认为电脑游戏业将超过电影业成为第一大娱乐产业，并将前述事例作为其依据而引于报章。 本文来自think58

 眼见国外电脑游戏产业经过这几年的发展，取得长足的进步，已经日益壮大，而我国民族电脑游戏产业却因起步较晚，尚还仅处于萌芽阶段。一些有识之士不由得大声疾呼:“赶快觉醒吧!中国游戏。”面对此种情况，任何一位有民族心的朋友都希望中国游戏产业尽快成长壮大，能早日与其它游戏强国一道跻身于世界游戏之林。美好的想法终究也只是想法而已、与国外相比我们从人员素质到开发经验都很欠缺，如何在短期内赶上国外电脑游戏产业的发展水平，才是每位有爱国心并立志于游戏软件开发的仁人志士所应该共同面对的问题。
近年来在系统可靠性研究领域中兴起的“可靠性是极计出来的”的概念，在游戏设计工作中确实给人以实实在在的感受游戏系统的好与坏，从根本上说都是设计出来的，其它的多属于实现和质量保证方面的工作。在当前设计一部创造性的游戏产品越来越难的情况下，游戏设计工作和人选也就显得越来越重要了。

think58.com [资料来源：http://www.THINK58.com]

[来源：http://www.think58.com]

1.2 游戏开发中存在的问题 think58好，好think58

游戏制作是一门系统的开发工程，他需要多工种的配合，我们将游戏制作与盖高楼相比，参与盖楼的有蓝图设计师、建筑师、装磺制作师等工种，盖一幢高楼首先需要有一幅详细的制作蓝图，它说明了高楼所建的位置、高楼所表现的设计风格、每一层的建筑格局等，建筑师将根据设计蓝图的要求进行施工，当楼宇的基本构造已经完成后，装璜制作师则按照设计蓝图的指示，开始对建筑的外观进行装饰美化，经过以上几步，一幢美观的高楼就可以峻工交付使用了。游戏同样如此，制作一部游戏软件需要有策划、程序制作、美工音效等多工种的配合，策划如同蓝图设计师，它将决定一部游戏的内涵与外在表现方式，而程序制作则起到了建筑师的作用，它一样要根据策划的要求，将程序及数据结构如同建筑一样构造好，那美工音效呢?它同建筑高楼的装璜制作师一样要对整个游戏的外在表现讲行制作润色。
     当然，在游戏设计过程中，或多或少都会遇到一些问题。比如，各工程不能直接连接，要通过shell命令来连接各个工程；还有在算法的代码编写中经常会出现错误等。在这个设计制作过程中，让我知道了如何运用Visual Basic来设计游戏，同时也增强了解决问题的能力。

第二章  游戏开发的技术基础 本文来自think58

2.1 Visual Basic技术

think58好，好think58

[资料来源：www.THINK58.com]

2.1.1游戏开发软件的介绍
目前可以说进行游戏开发的软件很多，可以说每种软件都有其自身的优点，但是Visual Basic却因其许多优点越来越受到游戏开发程序员们的青睐。
2.1.2 Visual Basic概述
随着Visual Basic的发展，它已小仅是一种编程语言，而且可看成是一部生成应用程序的“机器”。没有一种开发环境能像Visual Basic(及Visual Studio)一样提供数晕庞大、种类繁多的功能。使用它单个程序开发人员能在几分钟内开发出一个简单的应用程序，而一个开发小组则能开发出一个结构复杂、功能齐全的应用程序来。Visual Basic能使使用者树立面向对象的编程思想，否则开发出的程序只能停留在几年前的水平上，虽然许多人声称BASIC语言不是面向对象的编程语言，或者至少不如其他语言那样纯粹，但无庸置疑，使用其他工具的编程效率都低于Visual Basic。
值得一提的是，由于使用Visual Basic开发应用程序时存在千变万化的编程方式，因此很容易出现拼凑的现象。这样的程序当然也能够运行，但绝对属于一种比较不完善的设计方法。尽管使用Visual Basic能获得比使用其他工具更高的编程效率，我们仍然需要遵循一些规则以开发出思路清晰的产品。提高编程技巧的一个关键在于尽量多地掌握Visual Basic用于创建类和ActiveX组件的功能，这种架构能使程序员进一步以面向对象的方式来思考问题。那么，为什么要使用Visual Basic呢?原因其实很简单，因为我们要解决问题。 copyright think58 [版权所有：http://think58.com]

2.2 Visual Basic的编程环境 本文来自think58

2.2.1  Windows下的Visual Basic编程环境
在Windows环境下，用户只需移动鼠标，单击一些按钮，或者选择菜单中的某些命令来实现某些操作，在程序运行过程中还会出现一些“对话框”，引导用户进行某些选择和操作。熟悉Windows的用户对此深有感触。
Microsoft于1991年推出了Visual Basic 1.0版本。既保留了BASIC语言简单易用的优点，又充分利用了Windows提供的图形环境，提供了崭新的可视化设计工具。 think58好，好think58

Microsoft的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的工具。Visual Basic提供了大量的AXTIVE控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效地提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对好的选择。
2.2.2 面向对象的编程
在面向对象的程序设计中，“对象”是系统中的基本运行实体，它封装了数据和操作。对象的性质和状态特征称为“属性”，同类型的对象具有相同的属性。当要特制某一具体的对象时，这些属性就有了具体的值。
不同对象的不同属性值描述了对象的特征。这些值就是对象的数据。同类对象的抽象称为“类”。
对象不会无缘无故地执行某个操作，只有在接受别的对象请求时，才会进行某一操作。这种请求对象执行某一操作或回答某些信息的要求称为“消息”或“事件”。
对象接到消息所执行的程序称为事件驱动程序。VB的事件驱动程序都表示为“过程”。事件驱动过程可以包括对象的调用和各种VB语言的语句。

[版权所有：http://think58.com]

第三章  系统总体规划

[资料来源：http://www.THINK58.com]

3.1 系统功能简介 本文来自think58

3.1.1 24点纸牌简介
任意给的四张扑克牌（不包括大小王），只能够用加、减、乘、除以及适当的括号连接着四张牌使得结果为24，或者宣布根本就是无解的。需要注意的是，每张牌必须且运算一次；J、Q、K可设置为11、12、13。
使用本程序其实很简单，按[Start]后，程序会任意给出四张牌，在左边的按钮中也能看到相应的数值，只要输入相应的表达式就可以了。如：6、5、4、1这四个数，输入表达式为：6/（5/4-1）即可；如果你认为本题无解，那么你不必输入任何数值直接按回车就可以，程序会验算答题是否准确。如果输入的数据有错，那么程序会自动定位到出错的地方，以方便用户修改。
本程序还有一个Test功能，用于自定义出牌值。即：可以自己任意给出四个（1-13）的整数，按[OK]键后由程序自动算出答案。
3.1.2 拼拼图简介
    根据右上角的小图片在大图中任意移动各分块，把图拼出来。按[新游戏]键重新开始游戏，按[设置]键出现设置游戏界面。在该界面中，用户可以从已有的图片中选出自己喜欢的图片进行游戏，也可以使用载入图片，到其他文档中挑自己喜欢的图片加载进去。点击[确定]即完成游戏设置。
按[退出]键直接退出游戏，按[关于]键显示版权信息。主要说明版权所有。 copyright think58 [资料来源：THINK58.com]

3.2 系统开发方法 think58.com [来源：http://think58.com]

3.2.1 游戏总界面设计 内容来自think58 [版权所有：http://think58.com]

 
图3-1 游戏主界面
该截面为游戏进入游戏的最初界面，按[欢迎进入游戏世界]键，则进入如下界面：

[版权所有：http://think58.com]

 
   图3-2 游戏分类界面

在该界面中分了4类游戏，按任意一个键即出现游戏选择界面，这4类中的界面大致相同，界面如下：
 
图3-3 选择游戏界面
按该界面上的键直接出来游戏窗口，其主要代码很简单，如下：
Private Sub Command1_Click()
Shell "f:/智能24"
End Sub
Private Sub Command2_Click()
Shell "f:/旋转"
End Sub
3.2.2 24点纸牌的开发
（1） 主界面设计
 
            图3-4 24点纸牌主界面
按[Start]后，程序会任意给出四张牌，在左边的按钮中也能看到相应的数值，只要输入相应的表达式就可以了。如：6、5、4、1这四个数，输入表达式为：6/（5/4-1）即可；如果你认为本题无解，那么你不必输入任何数值直接按回车就可以，程序会验算答题是否准确。如果输入的数据有错，那么程序会自动定位到出错的地方，以方便用户修改。
主要代码如下：
Private Sub AnswerButton_Click()
Dim iAnswer As Integer
     iAnswer=OperatorModule.Operator()   '调用24点表达式计算函数
    If iAnswer = 24
Then                             'operater函数能返回24的值说有解 think58

[资料来源：www.THINK58.com]

      Text1.Text = OperatorModule.OperateorString + "=24"
    Else                                    '答题错误所要做的动作
      Text1.Text = "本题无解 "
    End If
      OKButton.Enabled = False
      AnswerButton.Enabled = False
      TestButton.Enabled = True
      StartButton.Enabled = True
      TimeButton.Enabled = True
      StartButton.SetFocus
Timer1.Enabled = False                               '进程停止走动
If Trim$(Text1.Text) <> "" Then              '用户选择本题有解状态 copyright think58
以下if...then　中为有解状态所要做的动作
 If InputNumber(Text1.Text) = True And InputOperator(Text1.Text) = True Then
      If OperatorFunction(Text1.Text) <> "表达式出错"
Then  '调用表达式OperatorFunction 如果表达式没错则执行下面的步骤
          If OperatorFunction(Text1.Text) = 24
Then                                        '答题正确所要做的动作
         a = MsgBox("恭喜！你答对了 ^_^", 0 + 64 + 0, "正确")
               If CheckTop10("c:\top10.txt", 14) = True Then
                      frmUsr.Show 本文来自think58

[资料来源：http://www.THINK58.com]

                      WriteTop10 strUsrName, "c:\top10.txt", 14
               End If
               AnswerButton.Enabled = False
               TestButton.Enabled = True
               StartButton.Enabled = True
               TimeButton.Enabled = True
               StartButton.SetFocus
          Else                              '答题错误所要做的动作

本文来自think58 [资料来源：www.THINK58.com]

               a = MsgBox("对不起！你答错了", 0 + 16 + 0, "错误")
               StartButton.Enabled = False
               TimeButton.Enabled = False
               TestButton.Enabled = False
               AnswerButton.Enabled = True
               AnswerButton.ForeColor = &HFF&      '使字体变成红色
               AnswerButton.SetFocus
          End If
                                      '无论答题对与否都要做的动作
  Text1.Text = Text1.Text + "=" + OperatorFunction(Text1.Text)
     Else                                             '表达式出错
      Timer1.Enabled = True    '由于是用户输入出错所以进程续继走动
        a = MsgBox("操作符出错，请检查后重试", 0 + 16 + 0, "错误")
        Text1.SelStart = Len(Text1.Text)    
 '将光标定位在表达式的最后
        Text1.SetFocus 
'将焦点定位在文本框上的错误位置上，使用户能够方便地修改输入上的错误
        Exit Sub
本文来自think58 [资料来源：http://THINK58.com]