vb程序设计简单小游戏，如何用vb制作小游戏
大家好，关于vb程序设计简单小游戏很多朋友都还不太明白，今天小编就来为大家分享关于如何用vb制作小游戏的知识，希望对各位有所帮助！
如何用VB程序设计打地鼠游戏
下面是源代码：
Form1:
Private Sub Form_Load() Dim temp As Integer Randomize
temp= Int(Rnd* 3)+ 1
Form1.Picture= LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture"& temp&".jpg") WindowsMediaPlayer1.URL="C:\Users\Administrator\Desktop\打地鼠\Heaven's Devils.wma" End Sub
Private Sub Label1_Click() Form2.Show Form2.num=-1 Form1.Hide
WindowsMediaPlayer1.URL=""
Open"C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As#1'写操作 Close#1
Open"C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As#2 Close#2
Open"C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As#3 Close#3 End Sub
Private Sub Label2_Click() End End Sub
Form2:
Dim allnum As Integer, oknum As Integer'定义变化次数打中次数 Public num As Integer'判别是否第一次开始游戏 Dim flags1 As Boolean'判别文件是否保存 Public flags As Boolean'判别是否播放声音 Private Sub countine_Click() pause.Enabled= True Timer1.Enabled= True countine.Enabled= False WLXZ.Enabled= True End Sub
Private Sub exit_Click() Dim X As Integer Dim tt As Integer
X= MsgBox("是否真的退出？", vbYesNo,"退出游戏框")
If X= 6 Then
tt= MsgBox("退出游戏之前,是否保存", vbYesNo,"保存提示") If tt= 6 Then
If flags1= True Then End Else
If Timer1.Interval= 1000 Then
Open"C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As#1'写操作
Print#1, Text1.Text+""+ Format(Date,"M/d/yy") Close#1
ElseIf Timer1.Interval= 500 Then
Open"C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As#2
Print#2, Text1.Text+""+ Format(Date,"M/d/yy") Close#2 Else
Open"C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As#3
Print#3, Text1.Text+""+ Format(Date,"M/d/yy") Close#3 End If End If End If End End If End Sub
Private Sub Form_Load() Form4.Check1.Value= 1
WindowsMediaPlayer1.Controls.stop countine.Enabled= False pause.Enabled= False WLXZ.Enabled= False
Form5.Top= Form2.Top+ 700 Form5.Left= Form2.Left flags1= False flags= True End Sub
Private Sub help_Click() Form3.Show End Sub
Private Sub new_game_Click() num= num+ 1 Dim t As Integer
If(num> 0) Then
t= MsgBox("新游戏开始之前,是否保存", vbYesNo,"保存提示") If t= 6 Then
flags1= True
If Timer1.Interval= 1000 Then
Open"C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As#1'写操作
Print#1, Text1.Text+""+ Format(Date,"M/d/yy") Close#1
ElseIf Timer1.Interval= 500 Then
Open"C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As#2
Print#2, Text1.Text+""+ Format(Date,"M/d/yy") Close#2 Else
Open"C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As#3
Print#3, Text1.Text+""+ Format(Date,"M/d/yy") Close#3 End If End If End If
Call Form_Load
allnum= 0'变化次数初始为0 oknum= 0'打中次数初始为0 Timer1.Enabled= True pause.Enabled= True WLXZ.Enabled= True End Sub
Private Sub options_Click() Timer1.Enabled= False Form4.Show
WLXZ.Enabled= False countine.Enabled= True End Sub
Private Sub pause_Click() Dim r, g, b As Integer Timer1.Enabled= False countine.Enabled= True pause.Enabled= False WLXZ.Enabled= False
Form5.Top= Form2.Top+ 700 Form5.Left= Form2.Left Form5.Show
VB编写小游戏的全过程谁告诉我
开始学vb时,并不知道vb可以做出动画,后来知道通过自编的子函数delay(c的库函数中的该函数)和cls可以做出许多动画,但有一个缺点就是太耗内存,就我个人认为构思应该比编程重要，因为一旦有了一个很好的构思剩下的问题都是技术问题，而我就是喜欢发现新的问题然后再想方设法解决它，通过发现问题和解决问题我可以学到许多很有用的知识和技巧。好了，现在有了一个好的构思就开始进入程序的编制。
第一步，要做成这个游戏的话必须能使小球有一个判断性的运动，然而如何处理小球的运动呢，很显然delay&cls的方法不再适用，因为整个程序运行时不停的清屏效果将很差，所以我想到了用shape控件来替代用circle命令画的小球，接着要使小球运动起来，这个问题很简单，因为 shape控件有left和top的属性，可以通过对这两个属性的控制可以很轻松的解决小球运动问题。
第二步，将对小球进行角度控制，角度可以通过shape的属性left和top来反映，通过timer控件使小球的left和top值不断加上一个值或减去一个值，小球的left和top同时改变之后就可以对小球的角度进行控制。到这里已经可以使小球运动起来，接下来的问题就是使小球能进行判断性运动。
第三步，可以这样对小球进行判断性控制，当小球的left大于窗体的scaleleft时小球的left改变成减去一个值,以此类推,小球的高度也可以进行类似的控制,现在已经很方便的对小球进行判断性运动，到这一步程序已经算是完成了一半。
第四步，既然小球可以自由的运动了，那就可以产生这样一个想法，当小球的top和left的砖块的top和left值接近到一定的范围的条件成立时使砖块的visible为false，然后小球的top和left加上接触前相应相反的值，就可以使砖块消失同时小球改变运动轨迹，这一步的实现需要解决很多技术性问题，可以在form的load事件里定义两个变量Dwd和Dhd以及两个Boolean量为Dw和Dh，通过Dwd和Dhd来控制小球向左和向上运动，当小球和窗体的边界或和砖块的的边界接触时使Dw和Dh的值进行相应的变化，通过对该两个值的控制可以使小球进行合乎反弹角度的运动，现在程序已经初步成型。
第五步，要做成这样的一个游戏，必须有一个良好的用户界面，为了使小球能接受用户的控制，我在窗体的下边界放置了一个命令按钮，该命令按钮可以通过方向键来控制，然后再加上一些判断语句使得小球command接触时产生相应的运动，这样一个用户界面就解决了。
第六步，现在只剩下程序的最后一步，就是生成砖块的排列，砖块可以用命令按钮来替代，然后用循环语句将设置好的command控件数组在程序运行时加载进来，好了，现在已经一切完成.
急!求高手制作VB连连看小游戏
15分…………
提供个思路吧！
1、图标没多大关系，把图片裁成统一尺寸，每张图用一个picturebox装起来，就是一个图标了。
2、倒计时用timer稳定性，但不好写，可以用timer控件，结合一个进度条，每次循环进度条长度减少，当长度为零时提示timer over，也可长度为某某值事提示“加油”等等
3、音效如果要求不高就弄一点喜欢的轻音乐用会声会影编辑一下就好，要是要求高的话建议找专业团队制作。
4、每次通关或者game over记录分数和用户名到文件，查看排行榜时调出文件把分数做从大到小排列，然后显示用户名，就成排行榜了。
5、难度体现在图标的个数、限制时间的长短等
6、两个图标能否消除的判断在于：是否相同图案、连线中间是否有其它图标隔着。
以上思路希望给你启发，自娱自乐够了，要做高端游戏还需具体讨论，留个QQ吧：598374334（注明：讨论连连看）
OK，关于vb程序设计简单小游戏和如何用vb制作小游戏的内容到此结束了，希望对大家有所帮助。