很不错的VB格斗勇士游戏及源代码
很不错的VB格斗勇士游戏及源代码编程原理详解:
Image1是背景,Image2是人物(玩家),image3是子弹,image4是敌人,image5是敌人子弹,
Label1有来显示“START”和“GAMEOVER”的,Label2和Label3用来显示任务状态,
Label4和Label5显示生命值,label6显示关数,Label7显示是否发大招,
Label8和Label9是用来直观显示生命值的,算法为:Label8.Width = Label4 * 10,这几个Label控件在代码中起到间接判断的作用
Timer1控制人上升,Timer2控制人下降, Timer3和Timer4控制让玩家子弹移动,Timer5控制第一关敌人车和子弹移动
Timer6判断子弹与人是否相碰,并减小生命值,Timer7控制第二关大怪上下移动,Timer8控制第三关子弹机车的移动
所有Picture控件中的图片,都是用于人物发生动作时(有的图片没用上),进行与Image图片切换,图片切换时,让人感觉image内的图片真动了!
键盘控制说明一下,空格键负责“跳”动作,Shift键和回车键控制发大招,W、S、A、D与方向键命令一样
下面这段代码是延时代码,出现过很多次,作用是:让两张图片切换时能让我们看见,VB执行速度很快,不加入这个就会看不出来图片切换
Dim Savetime As Single
Savetime = Timer ‘记下开始的时间
While Timer < Savetime + 2 ‘循环等待
DoEvents ‘转让控制权,以便让操作系统处理其它的事件。
Wend
好了说到这里,这是我做的第二个游戏,还不是很完善,希望大家下载鼓励一下!游戏里有操作说明:空格键负责“跳”动作,回车键发招,Shift键和回车键组合发大招。W、S、A、D和方向键命令一样(会玩CS的用前者,会玩卡丁车的用后者)
让你做一个自己的DNF游戏吧 看不明白········
页:
[1]