红玫瑰打砖块

《红玫瑰打砖块》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、红玫瑰打砖块【实验名称】　　红玫瑰打砖块　V1.0【实验目的】　　利用VisualBasic.NET强大的图形特性和MicrosoftVisualStudio2010可视化开发工具来开发红玫瑰打砖块这款简单的小游戏，旨在加强我们对VisualBasic.NET基本语法、控件的动态生成与添加、事件的添加与控制等的掌握。【掌握内容】　　通过完成红玫瑰打砖块的实验，我进一步掌握了VisualBasic.NET的基本语法、窗体的布局、控件的动态生成与添加、事件的控制、碰撞的检验，最重要的是了解了一个小游戏的开发过程，

2、以及在开发的过程中我们要更多的去考虑怎样才能满足用户的需求。【问题描述及基本要求】　　红玫瑰打砖块这款小游戏基本上满足用户的基本要求。该游戏有三个级别，即初级、中级、高级，用户只有过了每一级之后才能进入下一级，并且每一级如果没有通过都有重玩的机会。控制功能全面，有开始按钮、暂停按钮、向左移按钮、向右移按钮可以给用户很好的体验度，完全符合以人为本的思想，用户控制度更高。【调试结果及说明】（1）本程序的运行环境为MicrosoftVisualStudio2010。（2）进入演示程序后显示如下图主界面，单击开始按钮

3、开始游戏。（3）游戏时单击暂停按钮可以暂停。如下图所示：（4）游戏时单击左右按钮可以自己控制小球的路线。（5）游戏时右下角记录着分数和级数。（6）没一级不通过可以重玩。如下图所示：（7）依次单击“文件“，“退出”可以退出系统。如下图所示：（8）关于窗体如下图所示：【程序清单】1.PublicClassForm12.DimxAsInteger=23.DimyAsInteger=24.DimfenShuAsInteger=05.DimguanShuAsInteger=16.DimjiShuAsInteger=27

4、.Dimrs1AsDialogResult8.Dimrs2AsDialogResult9.Dimrs3AsDialogResult10.PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick11.yuan.Left=yuan.Left+x12.yuan.Top=yuan.Top+y13.Ifyuan.Top>=330Andyuan.Top<=332Then14.If(yuan.Le

5、ft>=L.Left-3)And(yuan.Left<=L.Left+58)Then1.y=-y2.EndIf3.EndIf4.If(yuan.Left>=648Andyuan.Left<=650)Or(yuan.Left>=2Andyuan.Left<=4)Then5.x=-x6.EndIf7.Ifyuan.Top>=18Andyuan.Top<=20Then8.y=-y9.EndIf10.Ifyuan.Top>=338Then11.Timer1.Enabled=False12.rs1=MessageBox

6、.Show("游戏结束，是否再来一次？","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)13.If(rs1=Windows.Forms.DialogResult.Yes)Then14.IfTimer1.Enabled=FalseThen15.yuan.Left=Me.youXiQu.ClientSize.Width/2-yuan.Width/216.yuan.Top=Me.youXiQu.ClientSize.Height-yuan.Height-5

7、017.qingChu()18.sheZhi()19.zaiWan()20.fenShu=021.Label3.Text=fenShu.ToString22.Timer1.Enabled=True23.EndIf24.ElseIf(rs1=Windows.Forms.DialogResult.No)Then25.Me.Close()26.EndIf27.EndIf28.EndSub29.PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSys

8、tem.EventArgs)HandlesButton5.Click30.Timer1.Enabled=True31.Timer2.Enabled=True32.L.Focus()33.EndSub34.PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click35.