最简单的游戏制作教程

《最简单的游戏制作教程》由会员分享，可在线阅读，更多相关《最简单的游戏制作教程（8页珍藏版）》请在金锄头文库上搜索。

1、最简单的游戏制作教程最简单的游戏制作教程 首先声明，如果你是编程高手 那么没有必要看如此幼稚的帖子。 如果你不太会编程，而又对游戏制作很感兴趣，而且有耐心和意志，那么请往 下看。 游戏制作是一类特殊的软件制作过程，它很复杂，需要各方面的知识和努力， 而且对策 划要求很高好了废话少说，进入正题。 这次我们要动真格的编一个真正属于自己的程序，作为游戏虽然很幼稚，但是 却是编程的基础。 编程首先得有专门的编程工具，这次我们选用的开发工具是VB，也就是Visual Basic 6 哎，别走呀，我保证你这次不用买专门的软件，你有Word 吧?有它就行啦!(什 么，没有?晕) 打开你的Word，(本文中是

2、以OfficeXP 为准，其他版本的大同小异)你很快就 会体会到VB 的强大和应用的广泛，连Word 中都集成着他的部分。 单击“工具”菜单，选择 宏-Visual Basic 编辑器，怎么样，一个简化的VB 就出现在你的眼前。 现在在这个崭新的界面中进入正式的 软件开发 单击“插入”菜单，选择“用户窗体”，ok，看见了么?一个编辑状态的窗口出 现了。 单击它，窗体四周会出现调整点，拖动他们就可以调整窗口的大小，很简单吧? 好了右键单击这个窗体，选择“属性”，屏幕左边应该出现一个属性窗口吧?下 面列了 很长一串不知什么东西?这些都是这个窗体的属性啦。 在里面找，有一个Caption 一栏看见没

3、有?它的右边是什么呢?如果没错应该 是 UserForm1 吧!将它改为“石头剪子布”。 回头看看你的窗体，它的标题栏上已经是“石头剪子布”了，现在明白Caption 属性是控 制什么的了吧?你也可以将它改成你喜欢的名字。 好了让我们接触VB 中的另一概念-控件吧!你能找到工具箱吗?它里面盛的 事很多很 好用的控件哟!(没找到?单击“视图”菜单，选择“工具箱”) 我们选择一个名叫“框架”的控件(就是画了一个方框上面有XYZ 的那个，鼠 标悬停会显 示“框架”)，单击它，回头来再你的窗体上拉出一个矩形，就像在画图板里面 画画一 样，这个“框架”就出现在你的窗体上了，顶部还有一个Frame1，我们

4、下一步 就是改掉 这个Frame1。单击这个框架，它的四周出现控制点说明已经被选中，先把它的 大小调整 合适(你看着顺眼就行)，回来在属性窗口把它的Caption 属性从Frame1 改成 “我的选择 ”(你选中哪个属性窗口就显示哪个的属性，所以改属性时确保你选中的是那个 框架) 。 接下来我们要认识第二个控件，“选项按钮”，首先保证你的框架处于被选择状 态，在 工具箱上选择它后(就是那个圆圈里面一个点)，在框架中把它画出来，同样将 它的 Caption 属性由“OptionButton1”改为“石头” 调整好大小和位置，不要让 它独占了整 个框架，因为你已经猜到了，接下来我们还要给它的下方再

5、添上两个选项按钮， 分别是 “剪子”和“布”。注意，本文中是将名称为“OptionButton2”的Caption 改 为“剪子 ”，将“OptionButton3”的Caption 改为“布”，它涉及下面的代码，所以不要 弄错。 把他们摆得整齐些。 好了，这次保证整个窗体处于被选择状态，然后再那个“我的选择”框架右边 另画一个 小点的框架，Caption 属性改为“电脑的选择”。 保证这个新框架处于被选择状态，在工具栏里面单击一个新的控件-“标签” (就是 那个大写字母 A)，把它画在“电脑的选择”框架里面。它的 Caption 属性是 “Label1” 吧?将它删掉，也就是Caption

6、属性为空，提前不能知道人家的选择嘛! 在那个框架的外面下方放一个标签，这个没错应该是 Label2 吧，也将它的 Caption 属性改 为空，这个是用来显示结果的，最好醒目一点，在属性窗口中找，Font，找到 了吗?右 边还是一个“宋体”对不?单击它，看见“宋体”右边的那个戴省略号的小按 钮了吗? 单击它，出现一个新的“字体”设置窗口，把字号改大一点吧，再来个粗体， 这下醒目 了。 好了，再在它下面添加一个新控件-“命令按钮”，调整好大小，Caption 属 性改为“ OK”(你现在应该知道Caption 代表什么了吧) 这样，我们的界面设计就完成了! 现在我们的程序还只有一个壳子，没有灵魂

7、，代码才是一个程序的主体。 要学好代码并非一朝一夕就可以完成，这需要长时间的努力，不过这次程序的 代码十分 简单，相信你一下就可以悟通的。 接下来就是代码编辑了，选择窗体，右键单击选择“察看代码”，你会看到一个 新的窗 口。是不是已经有了这么几行: Private Sub UserForm_Click End Sub 不要他，全部删除，直到你看到左上方的选项栏里面变成“通用”，右上方的变 成“声 明”为止。 好了我们现在就要“声明”了(以下三行): Dim MySelection1 As Integer Dim ComputerSelection1 As Integer Dim Result1

8、 As String 最好不要粘贴过去，自己手动输入一下你会体会到VB 的一些特性。 你看到“Dim”“As”等变成了蓝色，这些都是VB 的保留字，保留字是什么?暂 时不用搞 得太深，你只要知道保留字时VB“认得”的字就行了。 Dim 是什么意思呢?它的作用是定义变量。(变量是什么你应该知道吧，不然你 拿你初中 的数学书翻一下) Dim MySelection1 As Integer 的意思是:定义一个名叫“MySelection1”的 Integer 类 型的变量。 Integer 是什么类型呢?它叫做 整型 ，也就是只能存储整数，占用两个字节， 但不是任 何整数都能存储，必须是-32768

9、 到32767 的整数。过大获过小都会造成数据溢 出。 类似地，还有长整型(Long),它占用四个字节，存储范围-2147483648 到 2147483647， 如果你喜欢，你也可以将上面两行代码中的Integer 改为Long，只是本程序没 必要用那么 多，多占了点内存而已。 有存储数的，也就有存储其他的，比如字符。String 型变量就是存储字符的， 它叫做字 符串。它的长度可以变化，可以存一个或多个字符，比如“A”、“Hello!”、“大 家好 ”等等，在VB 中每个字符占两个字节。 好了，我们声明了3 个变量，下来就要对他们进行操作了。 在左上方写着“通用”的选项栏中选择 Optio

10、nButton1，如果不出所料右边的 选项栏也由 声明变成“Click”，而代码中则出现了这些: Private Sub OptionButton1_Click End Sub 而且还多了一条横线隔开了我们刚才输入的代码，好了，在这两行中间加入: MySelection1 = 1 这样就变成了 Private Sub OptionButton1_Click MySelection1 = 1 End Sub 这是什么意思呢?Click 是什么你知道吧?是单击的意思。这代码的意思是， 如果一旦单 击名称为OptionButton1 的控件，就执行中间夹着的代码 MySelection1 = 1 。

11、 也就是说，你在 Private Sub OptionButton1_Click和 End Sub 中间写的任 何代码都会 在有人单击名称为OptionButton1 的控件后执行。 至于MySelection1 = 1，确切地写应该是 Let MySelection1 = 1 ，现在清楚 意思了吧 ，就是让这个名为MySelection1 的变量里面保存的数据为1。而Let 在这种情 况下可以省 略。 现在抛开我们的程序，看看这句代码:n=n+1，这在数学上是永远也不会成立的， 但是在 代码中却是正确的，你给它的前面加上一个Let，现在清楚多了吧，Let n=n+1， 意思是 说让现在的n

12、这个变量的值等于过去的n 里的值加上1，作用就是让n 这个变 量里的值增加 一，所以这里的“=”不是相等的意思，而是“赋值”，要搞清楚。 好了，回到程序，用同样的方法添入以下代码: Private Sub OptionButton2_Click MySelection1 = 2 End Sub Private Sub OptionButton3_Click MySelection1 = 3 End Sub 成功的话应该有好几条横线把他们隔开了吧?这就是说，它们之间是相互独立 的，每一 个在执行到End Sub 之后就完了，不会接着执行其他的代码。 3 个选项按钮的代码已经全部搞定，接下来是控制

13、按钮的代码，同样的方法: Private Sub CommandButton1_Click If MySelection1 = 0 Then MsgBox 请先选择! ComputerSelection1 = Int(Rnd * 3) + 1 End Sub 下来解释一下，第一行和最后一行不用说了吧，一样的道理。 If MySelection1 = 0 Then MsgBox 请先选择! 这一句其实很好理解，就是当 MySelection1 = 0 时，执行 MsgBox 请先选择! 这个语句，Msgbox 请先选择! 的意思是，弹出一个上面写有“请先选择!” 字样的 对话框。 这里要注意的是

14、，这次的“=”不再是“赋值”的意思，而就是“相等”的意思。 如果你 是在搞不清，以后赋值的语句前都写上 Let。 下面的一句:ComputerSelection1 = Int(Rnd * 3) + 1 涉及两个函数:Int和Rnd。 Int的做用是取整，即得到一个不大于原来数字的整数，如:Int(4)的结果是 4，Int (4.1)的结果也是4，Int(4.8)的结果还是4。注意:这里取整是取“不大于” 原来数字的 整数，如果Int(-4.5)得到的结果是-5。 Rnd函数的作用是得到一个随机数(也就是随便得到一个数)，不过范围是 0 到1 之间的 一个小数。(但是不包括0 或1) 所以Rnd

15、*3 的结果是随便得到一个0 到3 之间的小数，外面套个Int后结果 就成了0 到2 之 间的整数(当然包括0 和2)，在加上个1，所以整个语句的作用就是随便得到 1、2、3 之 中的一个数，储存在名叫ComputerSelection1 的变量中。 你现在明白了吧，MySelection1 和ComputerSelection1 着两个变量分别存储 着你和电脑 的选择，1 代表“石头”，2 代表“剪子”，3 代表“布” 。程序就是把感性化 的东西用 数字表示出来。 下来我们要判断你和电脑到底谁赢了。 在所有过程(在 Private Sub 和 End Sub 以及之间的代码称为一个子程序，

16、算是一个过 程)外，也就是找最下面空的地方输入: Function Judge1 回车，你看看效果，你的输入自动变成了: Function Judge1 End Function 这是什么呢?这是一个你自己定义的函数，名叫Judge1。它和上面的那些子程 序一样， 也算作一个过程，也就是说它和上面的那些代码之间也是相互独立的，不然为 什么又会 多出一条横线把它和上面的代码隔开?呵呵。 现在你定义了一个名叫Judge1 的函数，当然要有用。“Function”这个单词有 “函数” 的意思，也有“功能”的意思，你要让它实现一个功能，才是创建它的目的。 在这里我们要让它判断到底谁赢了。 把下面的代码一股脑放到你的函数中去 (即 Function Judge1和 End Function 之间) If ComputerSelection1 = 1 Then If MySelection1 = 1 Then Result1 = 平局 ElseIf MySelection1 = 2 Then Result1 = 你输了 El