如何自己編程做游戲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技能之後足夠優秀是有機會進入騰訊、阿里、網易等互聯網大廠高薪就業的，發展前景非常好，普通人也可以學習。

想要系統學習，你可以考察對比一下開設有相關專業的熱門學校，好的學校擁有根據當下企業需求自主研發課程的能力，能夠在校期間取得大專或本科學歷，中博軟體學院、南京課工場、南京北大青鳥等開設相關專業的學校都是不錯的，建議實地考察對比一下。

祝你學有所成，望採納。