vb小游戏实验报告

《vb小游戏实验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、南京信息职业技术学院-----VB动画设计与制作VB动画设计与制作姓名：张晓红学号：41041X14南京信息职业技术学院-----VB动画设计与制作游戏题目：弹球游戏1．设计思想：设计一个弹球游戏，使其在向上或左右方向碰壁反弹，下部有一可左右水平移动的挡板，当小球接触挡板时，小球反弹，否则小球出界，即游戏失败，小球每接触次挡板，加十分，当得分是20的倍数时，挡板缩短，小球移动加快，致使难度增加。2．窗体设计的属性名称是窗体的标识名，代码中称它为Name值为：Form1　　BackColor：pink。　　BorderStyle：Button　　　　Caption：弹球游戏。　　

2、ControlBox：设置窗体标题栏上是否具有控制菜单栏及按钮。　　Enabled：true　　Height：200　　Width：150　　　　Visible：True。南京信息职业技术学院-----VB动画设计与制作　　WindowsState：原形。　　Icon：设置窗体标题栏上的图标。　　Picture：给窗体配上漂亮的位图。　特别要注意的是：窗体的Name和Caption属性，虽然缺省值相同，都是Form1，但实际意义却不一样。Caption指的窗体标题栏上的文字，Name指这个窗体的对象名,千万不能混淆。3．动画的代码Dimtime%,key%,score%,a#,

3、y#PrivateSubCommand2_Click()Line1.X1=1320Line1.X2=3000Timer1.Interval=100Label1.Caption=0Timer2.Enabled=FalseTimer1.Enabled=FalseLabel4.Caption=""score=-10time=0Shape1.Left=(Line1.X1+Line1.X2)/2'球位置初始化Shape1.Top=Line1.Y1-Shape1.Height南京信息职业技术学院-----VB动画设计与制作EndSubPrivateSubForm_Load()Line1.X

4、1=1320Line1.X2=3000Timer1.Interval=100Label1.Caption=""Timer2.Enabled=FalseLabel4.Caption=""score=-10time=0Shape1.Left=(Line1.X1+Line1.X2)/2Shape1.Top=Line1.Y1-Shape1.Height'游戏初始化EndSubPrivateSubPicture1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)key=KeyCodeSelectCaseKeyCodeCase37'如果按下左箭头,使板子向左

5、移动IfLine1.X1<=0ThenLine1.X1=0ElseLine1.X1=Line1.X1-90南京信息职业技术学院-----VB动画设计与制作Line1.X2=Line1.X2-90EndIfCase39'如果按下右箭头,使板子向右移动IfLine1.X2>=4575ThenLine1.X2=4575ElseLine1.X1=Line1.X1+90Line1.X2=Line1.X2+90EndIfEndSelectEndSubPrivateSubCommand1_Click()Dimm%,n%Picture1.SetFocusTimer1.Enabled=TrueT

6、imer2.Enabled=TrueRandomizem=Int(Rnd*1)+0Ifm=0ThenRandomizea=Int(Rnd*(46*3.1416/180))+30*3.1416/180y=100*Abs(Tan(a))南京信息职业技术学院-----VB动画设计与制作Else:Randomizea=Int(Rnd*(46*3.1416/180))+105*3.1416/180'平移移动动量和我竖直移动的夹角y=100*Abs(Tan(a))‘确定单位时间内水平移动量，求出竖直移动量EndIfEndSubPrivateSubCommand3_Click()IfComm

7、and3.Caption="暂停"ThenTimer1.Enabled=FalseTimer2.Enabled=FalseLabel5.Visible=TrueCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Caption="继续"ElsePicture1.SetFocusTimer1.Enabled=TrueTimer2.Enabled=True南京信息职业技术学院-----VB动画设计与制作Label5.Visible=False