《VB+DX8从零开始轻松做游戏》游戏制作教程汇总
——Reity
VB+DX8从零开始轻松做游戏(第一章 熟悉VB)VB+DX8从零开始轻松做游戏(第一章 熟悉VB)写在前面的话
从2005年起，接触vb能有两年了吧，虽然也没做出什么像样的作品，不过上了大学以后实在没有心思去研究游戏制作了。回想当年，抱着对游戏制作那么大的热情，发疯了一样在网上搜索资源，现在要都抛弃了，还真不是滋味。不过人世间还有很多事情要去尝试，我还不能原地踏步，去寻找新的兴趣才是我的个性。（现在我的兴趣是乐器，我爱好实在太多了）但愿还能有你们将业余游戏事业发扬光大。不过请你们放心，我还会继续密切的关注着你们的进展，支持你们的。人最根本的就是记忆，而这段记忆是抹不去的。
不多说了，以上不过是我的一点心情，这篇教程只不过是我这两年的一点探索结果，写这篇教程就是希望拥有和我当年一样热情的、对游戏制作有浓厚兴趣的而又对游戏制作不太了解的朋友能够通过这篇教程鼓起勇气，做出属于自己的游戏。
关于这方面的教程比较少，如果你很想做自己的游戏，但你有什么都不会做，不知从何下手。那么请你往下看吧，我就是要告诉你们一种非常简单的游戏制作方法，从零开始。我记得我当时下载了许多代码，坐在电脑前边吃鸡翅边研究代码，（话说回来，初期研究代码就应该有这种从容的精神）一个下午，我就可以作出一个非常简单的游戏了，当然是那种拿不出手的，不过总算是做出来了一个啊。我应该可以讲解的很详细，当然你们如果看过了还是不懂可以直接问我或是咨询网上的朋友们。当然，***思考和自我熟练是最重要的，就像学吉他，老师什么都教了，剩下的就得自己练了，不练=白学。我的qq:411840329 推荐一个不错的论坛:www.vbgamediy.com
如果你还没有用过vb，那还是先来熟悉一下它吧。
一进去让你新建工程，什么都不用管，按回车就行。
进入后，如图所示。这就是你的舞台了。
你现在点上面的运行，就是那个三角号，就会出现一个窗口。看吧，你什么都没干，就已经设计出来了一个Windows窗口了，看出vb的强大了吧。
点旁边实心的方框，这个是中止程序运行，以后你就会用这两个按钮进行调试。
你现在可以随便试试各种功能，尽快熟悉它，不用害怕，不会损伤到机器的，你现在就是需要大胆的尝试，争取了解个大概。我当时是花了20分钟。vb大部分东西见名就知道用途，遇到不懂得单词，电脑里配个词典查一下就懂了。实在看不懂意思的，比如外接程序，先放一放，不管它。
当然，最好的办法是去找本教vb的书,或是到网上查一查vb的教程。
接下来我们要熟悉的是代码区，编程软件的精髓就在这里，甚至可以不用任何控件，只插入代码就可以完成编程。（搞过网页设计的朋友可能会理解得更深）
双击窗口的灰色部分就可以进入代码区了。（基本操作请大家自己多多尝试，这里就不多说了）
首先看到的是：
Private Sub Form_Load()
End Sub
这是一个完整的“过程”（所谓“过程”，就是一段小程序），这个过程开启程序后会第一个运行。（Form_Load，顾名思义，程序读取时候运行）
每种教材都有hello world，让初学者引以为自豪，我们也来一个吧，体验一下编程的轻松。
我们在这两行代码中加一点东西。（如果娴输入麻烦，可以直接复制过去覆盖掉）
变成：
Private Sub Form_Load()
MsgBox "我的第一个作品！"
End Sub
运行一下吧，会出现一个消息窗口。
下面我们扩展一下，做一个整人程序。
Private Sub Form_Load()
MsgBox "发现木马程序启动！"
MsgBox "木马无法删除，您的硬盘将被格式化！"
MsgBox "格式化开始......"
MsgBox "100%......"
MsgBox "50%......"
MsgBox "10%......"
MsgBox "格式化已完成。"
MsgBox "哈哈，开个玩笑，别害怕。"
End'end是结束程序的代码
End Sub
符号“'”后面绿色的内容是注释，不会影响程序的运行，只是做解说或做个标记用。
下面我们熟悉一下，条件语句If then 的应用。
看下面这个游戏猜数的源代码：（点击此处下载）
Private Sub Form_Load()
Dim a As Integer, b As Integer '定义a,b两个整型变量，变量类型主要用到的有string（字符串），single（实数型），integer（整型），boolean（逻辑判断，只有true和false两个值）。
Randomize Time '这个语句是让每次的随机值都不一样，如果不加，你测试的时候会发现，每次随机的值都是一样的。
b = Int(Rnd * 99) + 1'rnd是随机函数，游戏中非常常用,大家记住Int(Rnd * 99)这条语句是随机取0—98共99个数，而我们要1—99的数，所以后边要加1。
AAA:'这是放了一个标签，和后面的goto连用
a = InputBox("请猜一个数，此数为1-99之间。")'这条语句是让你输入一个数然后储存到变量a中。
If a <= 0 Or a > 99 Then
MsgBox "不许胡闹！"
End
End If
'If语句的结构
'If 条件 Then
'结果
'End If
'上边翻译一下就是，如果a<=0 或者 a>99两者之一成立，那么运行msgbox,提示"不许胡闹！"，然后结束程序。
'条件语句就这么简单。
'这段主要的意思是防止别人输入不是1-99的数，假如别人不按规则玩游戏，那么我们就要限制他一下，就是这个功能。
If a = b Then 'a=b自然就是猜对了，然后结束程序
MsgBox "猜对了！"
End
End If
If a > b Then MsgBox "大了" 'if语句写在一行之内可以省去结尾的end if
If a < b Then MsgBox "小了"
GoTo AAA 'goto 这条语句就是回到上边的AAA的地方开始执行程序，因为没有猜对，所以循环一下，让你继续猜。
End Sub
还算挺简单吧，如果读起来吃力的话就静下心来慢慢研究，或者尝试更改个别的语句，这样能加深理解。以上内容都是游戏中最常用到的语句，所以一定要熟悉它。
好了以上算是先开开胃，本章到此结束，好好熟悉一下吧，做个小游戏就是这么简单。
