如何自己编程做游戏vbs

1. 如何自制游戏

制作游戏步骤如下：步骤1：制作游戏前需要给自己的游戏定位。

在自己动手制作游戏前，需要先做下计划，给自己的游戏定位。是大型游戏还是小游戏，游戏的种类是那种，有动作、冒险、休闲等。这个设计好后，才能开始下一步的游戏剧情的设计。

步骤2：设计自己的游戏剧情。

每个游戏都有自己的剧情和人物背景，根据自己想法，设计自己的游戏剧情。比如可以从小说中查找一些情节进行改写，形成游戏的主线，游戏的分支线可以在后期补充。

步骤3：选择制作游戏的开发工具。

不同种类的游戏，可以用不同的开发游戏的工具，大的游戏可以用编程开发工具，小的游戏，用脚本的开发工具也能制作出来，需要选择一个自己熟悉的开发工具，这样制作时，难度就会降低。

步骤4：设计游戏人物的原画和场景画。

游戏中人物的原画和场景设计很重要，开发工具设计的代码是在后台，展示在台面的就是人物的形象和不同风格的游戏场景。可根据自已设计的游戏主线，画出主场景和主要人物的原画，后期补充分场景和次要人物的原画。

步骤5：把设计好的原画和场景画进行扫描和加工处理。

原画和场景设计花费的时间比较长，美好的人物形象在华丽的场景中出现，让人看了印象深刻。接着把设计好的原画和场景画进行扫描和加工处理。这样在游戏开发时就可以直接作为素材添加了。

步骤6：选择好的游戏背景和场景音乐。

在玩家玩游戏时，好的游戏背景和场景音乐，让人听了轻松又愉快，会体验到游戏的乐趣，制作自己的游戏时，可以选择自己喜欢的音乐来作为游戏的背景和场景音乐。

步骤7：制作自己的游戏的开发和测试。

游戏的开发就是花费时间长的阶段，如果学过编程的人，经过几个月的游戏开发工具学习就可以进行游戏开发了。如果想简单一点就可以制作一个Flash的小游戏开发。经过一段时间开发完成后，需要自己对游戏的主线和支线进行游戏的测试，避免游戏出错。

步骤8：把自己制作的游戏给朋友来玩，体验游戏设计和制作的乐趣。

游戏测试完成后，可以把自己制作的游戏给朋友来玩，体验游戏设计和制作的乐趣。

2. 如何自己制作游戏

制作游戏需要完成以下步骤
一、准备阶段1、首先，我们需要了解自己想做什么游戏。2、是小游戏、简单的独立游戏还是比较大型的手游、端游等。3、不同体量的游戏需要的准备是不一样的。4、简单的小游戏只要几个人就能完成，甚至技术力高的一个人就能制作。5、手游、网游等大型游戏，就需要复杂的准备过程。6、不仅要立项、招募制作团队，还需要寻求资金支持。7、大型游戏在准备阶段就需要有一定的雏形了。8、包括基本玩法、美术设计、剧情结构等，都需要有一个提前规划。
二、制作阶段1、做好前期的准备后，就需要开始着手制作了。2、小游戏可以直接通过编程软件制作，大型游戏就要用到游戏引擎。3、现在有很多开源的游戏引擎，Urho3D、O3DE、Irrlicht、GamePlay3D等等。4、选择引擎后，就正式进入制作阶段了。5、在这里我们需要将游戏制作到90%，甚至是99%。6、需要使用到的工具有ui设计软件：PS、AI、DW等。7、特效软件：3dsMax、ai等还有角色、场景等设计软件。8、还要程序设计软件，也就是常说的编程软件：unity、DirectX等。三、后期1、在制作完成后，就需要进行测试了。2、测试包含了游戏性测试、debug等环节，从而解决游戏中存在的一些问题。3、如果在测试阶段出现比较严重的问题，可能会导致重头再来，对于部分内容重做。4、处理完成后，就是后期宣传、发行等环节了，如果是长期运营游戏还要做更新、维护等。

3. 制作游戏代码

看完这几本书你就会了
1。《C程序设计》清华大学出版社，谭浩强写的那本。专
这个是最属基础的C语言教材。
2.《C++ Primer》
这个是学C++的经典。
有了C的基础你就可以去学C++了，当然如果你觉得你意志力很强的话可以直接学C++。
有人说先学C在学C++会对思维有一些舒服，但是C++比较难如果直接学的话很可能会坚持不下去。先学哪个要根据你自己情况决定。
3.《windows游戏编程大师技巧》，《3D游戏编程大师技巧》
心急的话，看完前面两本九看是看这个吧
这两本书是同一个作者的，先看第一本再看第二本。这两本是游戏编程的经典之作。学游戏编程必须看这两本。
程序编写和AI里面都有。基本上游戏编程的内容这两本书里都有。

4. 如何自己编程做游戏

自己学编程做游戏需要学习、了解以下几样东西：

1、知道自己想做什么类型的游戏，手游、主机、PC，明确后选择游戏引擎。

什么是编程：

编程是编定程序的中文简称，就是让计算机代码解决某个问题，对某个计算体系规定一定的运算方式，使计算体系按照该计算方式运行，并最终得到相应结果的过程。

为了使计算机能够理解人的意图，人类就必须将需解决的问题的思路、方法和手段通过计算机能够理解的形式告诉计算机，使得计算机能够根据人的指令一步一步去工作，完成某种特定的任务。这种人和计算体系之间交流的过程就是编程。

编程：设计具备逻辑流动作用的一种“可控体系”【注：编程不一定是针对计算机程序而言的，针对具备逻辑计算力的体系，都可以算编程。】

5. 求用vbs编写的贪吃蛇源代码

需用VB实现，代码如下

'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum

'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum

'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum

'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum

'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100

'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub

'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) \ 2
Me.Top = (Screen.Height - Height) \ 2
End If
End Sub

'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub

'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(&P)"
End If
End Sub

'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub

'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"由PigheadPrince设计制作" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub

'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub

'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub

'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)
Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Select Case Index
Case 0 '锁定窗体
If Me.chkWindowButton(0).Value = 1 Then
Me.imgWindowTop.BorderStyle = 0
Me.imgWindowTop.Enabled = False
Else
Me.imgWindowTop.BorderStyle = 1
Me.imgWindowTop.Enabled = True
End If
Case 1 '最小化
Me.WindowState = 1
Me.chkWindowButton(1).Value = 0
Me.Caption = "BS贪食蛇 — (V-" & App.Major & "." & App.Minor & "版本)"
Case 2 '退出
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Select
End Sub

'该过程用于设置蛇运动速度的快慢
Private Sub hsbGameSpeed_Change()
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
End Sub

'该过程用于通过键盘的方向键改变蛇的运动方向
Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case g_intDirection
Case D_UP
If KeyCode = D_DOWN Then Exit Sub
Case D_DOWN
If KeyCode = D_UP Then Exit Sub
Case D_LEFT
If KeyCode = D_RIGHT Then Exit Sub
Case D_RIGHT
If KeyCode = D_LEFT Then Exit Sub
End Select
g_intDirection = KeyCode
End Sub

'该计时循环过程用于计算游戏耗费的秒数并显示
Private Sub tmrGameTime_Timer()
g_lngGameTime = g_lngGameTime + 1
Me.lblGameTime.Caption = g_lngGameTime & "秒"
End Sub

'该计时循环过程用于控制蛇的行动轨迹
Private Sub tmrSnakeMove_Timer()
Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
Randomize
Me.picMoveArea.SetFocus
Me.picMoveArea.Cls
'确认蛇头的运动方向并获取新的位置
Select Case g_intDirection
Case D_UP '向上运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTH
Case D_DOWN '向下运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTH
Case D_LEFT '向左运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
Case D_RIGHT '向右运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
End Select
'根据新的位置绘制蛇头
lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurX
lngSnakeY = g_udtSnake(SNAKEONE).Snake_CurY
lngSnakeColor = g_udtSnake(SNAKEONE).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
'移动蛇身体其他部分的位置
For i = 2 To g_intSnakeLength
g_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldX
g_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldY
lngSnakeX = g_udtSnake(i).Snake_CurX
lngSnakeY = g_udtSnake(i).Snake_CurY
lngSnakeColor = g_udtSnake(i).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
Next i
'更新蛇旧的坐标位置
For j = 1 To g_intSnakeLength
g_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurX
g_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurY
Next j
'判断蛇在移动中是否到了禁区而导致游戏失败
If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇移动到了禁区，游戏失败！", 0 + 16, "BS贪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判断蛇在移动中是否碰到了自己的身体而导致游戏失败
If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇在移动中碰到了自己的身体，游戏失败！", 0 + 16, "BS贪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判断蛇是否吃到了果子
If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
'累加玩家的得分并刷新得分显示
g_intPlayerScore = g_intPlayerScore + 1
Me.lblYourScore.Caption = g_intPlayerScore & "分"
Call m_subAddSnake '加长蛇的身体
Call m_subGetPoint '获取下一个果子的位置和颜色
Else
'绘制果子
lngPointX = g_udtPoint.Point_X
lngPointY = g_udtPoint.Point_Y
lngPointColor = g_udtPoint.Point_Color
Me.picMoveArea.PSet (lngPointX, lngPointY), lngPointColor
End If
End Sub

'该私有子过程用于初始化游戏
Private Sub m_subGameInitialize()
Erase g_udtSnake '清空蛇的结构数组
g_intPlayerScore = 0 '清空玩家的得分
g_lngGameTime = 0 '清空游戏耗费的秒数
g_intDirection = D_DOWN '设定蛇的初始运动方向为下
g_intSnakeLength = 4 '设定蛇的初始长度
ReDim g_udtSnake(1 To g_intSnakeLength) '重新定义蛇的长度
'定义蛇头部的数据
With g_udtSnake(SNAKEONE)
.Snake_OldX = 530
.Snake_OldY = 530
.Snake_Color = vbBlack
End With
'定义蛇身第2节的数据
With g_udtSnake(SNAKETWO)
.Snake_OldX = 530
.Snake_OldY = 430
.Snake_Color = vbGreen
End With
'定义蛇身第3节的数据
With g_udtSnake(SNAKETHREE)
.Snake_OldX = 530
.Snake_OldY = 330
.Snake_Color = vbYellow
End With
'定义蛇身第4节的数据
With g_udtSnake(SNAKEFOUR)
.Snake_OldX = 530
.Snake_OldY = 230
.Snake_Color = vbRed
End With
Me.picMoveArea.Visible = True
Me.lblYourScore.Caption = g_intPlayerScore & "分"
Me.lblGameTime.Caption = g_lngGameTime & "秒"
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Call m_subGetPoint '获取第一个果子的位置和颜色
End Sub

接下面的

6. 如何自己制作游戏

制作游戏有制作的游戏的剧情和脚本、绘制游戏人物的图形和背景、游戏建模、学会游戏制作软件的操作、创建一个游戏的项目工程等五方面的内容。

1、通过参考不同的游戏，写出想要制作的游戏的剧情和脚本。游戏的种类有多种，根据自己喜欢的游戏种类，通过参考不同的游戏，写出要制作游戏的剧情。

2、根据游戏的剧情和脚本，使用手绘软件绘制游戏人物的图形和背景。

3、通过建模的软件把平面图形创建为立体模型效果。有多种建模软件，可以通过建模的软件把平面图形创建为立体模型效果。比如使用常用的建模软件3dmax。

4、学会游戏制作软件的操作，这样制作游戏的效率高些。游戏制作的软件有多种，比如用Unity3D开发游戏，熟悉游戏制作软件的操作，这样制作更快捷。

5、创建一个游戏的项目工程，在制作游戏时方便查找。根据游戏的设计，创建一个游戏的项目工程。这样把游戏中所使用的资源文件和模型都放在一个目录便于修改。

/iknow-pic.cdn.bcebos.com/29381f30e924b8998db9a54561061d950b7bf6c2"target="_blank"title="点击查看大图"class="illustration_alink">/iknow-pic.cdn.bcebos.com/29381f30e924b8998db9a54561061d950b7bf6c2?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="//www.zymseo.com/kj_29381f30e924b8998db9a54561061d950b7bf6c2"/>

注意事项：

1、游戏制作，是一个很花费时间的过程，不是写写代码就结束了。可玩性，难度调整，美工，等等。即使是小游戏，也会花大量的时间。

2、大型游戏不推荐一个人单独制作，但是不是说只有大公司大企业才能做出大型游戏。游戏规模越大，内容整理起来越复杂，团队非常重要。

7. 如何编程游戏

当下互联网行业发展迅速，与之相关的产业大多发展都很好，游戏设计的前景自然也是相当不错的。一个游戏问世要经历很多环节，剧本设计，原画创作，场景建模，但核心部分还是编程语言开发。

主要学的内容如下：

1.游戏程序设计：C++程序设计入门；基本数据类型和输入输出；流程控制语句；数组、指针和引用、函数；程序结构和书写规；范结构体和联合体、类；继承与多态；异常处理与程序调试。

2.算法与数据结构：算法分析；数据结构；基本算法；STL的概念与使用；静态库与动态库；XML库的使用。

3.Win32程序设计：Windows程序入门；Windows消息；GDI绘图游戏工具与MFC；网络编程基础。

4.游戏数学和智能应用：游戏中的坐标系；矢量、矩阵；几何碰撞；物理模拟；人工智能与寻路算法。

5.2D游戏技术与应用：2D游戏技术概论；游戏地图系统；GUI系统；战斗系统设计；任务系统；优秀的声音引擎BASS；Cocos2D-X引擎；Box2D物理引擎。

互联网行业目前还是最热门的行业之一，学习IT技能之后足够优秀是有机会进入腾讯、阿里、网易等互联网大厂高薪就业的，发展前景非常好，普通人也可以学习。

想要系统学习，你可以考察对比一下开设有相关专业的热门学校，好的学校拥有根据当下企业需求自主研发课程的能力，能够在校期间取得大专或本科学历，中博软件学院、南京课工场、南京北大青鸟等开设相关专业的学校都是不错的，建议实地考察对比一下。

祝你学有所成，望采纳。