VB编写的格斗勇士游戏源代码免费放出.rar
作者:星光 编程原理详解: 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和方向键命令一样(会玩的用前者,会玩卡丁车的用后者)
- 粉丝: 451
- 资源: 1万+
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助