vb小游戏制作.doc

Vb制作小游戏一、射击游戏Option ExplicitDim RandX As SingleDim RandY As SingleDim Score As SingleDim Thisscore As SingleDim Average As SingleDim Shot As IntegerDim Appear As BooleanDim Distance As SinglePrivate Sub Command1_Click()Timer1.Enabled = TrueCommand3.Enabled = TrueIf Command1.Enabled = True ThenCommand3.Caption = 暂停End IfCommand4.Enabled = TrueEnd SubPrivate Sub Command2_Click()If Command4.Enabled = True ThenMsgBox 请先结束游戏, 48, 警告ElseEndEnd IfEnd SubPrivate Sub Command3_Click()Command1.Enabled = FalseCommand3.Caption = 继续Timer1.Enabled = Not Timer1.EnabledIf Timer1.Enabled = True ThenCommand3.Caption = 暂停End IfEnd SubPrivate Sub Command4_Click()Timer1.Enabled = FalseCommand3.Enabled = FalseCommand1.Enabled = TruePicture1.ClsLabel1.Caption = 射击：Label2.Caption = 平均得分：Label3.Caption = 环数：Label4.Caption = 总分：Command4.Enabled = FalseCommand3.Caption = 暂停End SubPrivate Sub Form_Load()Appear = FalseTimer1.Enabled = FalseThisscore = 0Score = 0Shot = 0End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepShot = Shot + 1Picture1.DrawWidth = 4Picture1.PSet (X, Y), RGB(255, 0, 0)Distance = Sqr(X - RandX) * (X - RandX) + (Y - RandY) * (Y - RandY)If Appear And Timer1.Enabled ThenThisscore = 5 - Int(Distance / 10)If Thisscore =Home.Top)And_+Home.Width)And_=Home.Left)And_Then注释：子弹命中目标Shot.Visible=FalseHadShot=HadShot+1后可加入声音，与加分EndIfEndIf.Else注释：可加入声音Home.Picture=Home2.gif显示摧毁后的图象EndIfEndSub敌目标发射子弹的方式基本相同，此代码还可扩展至若干发子弹，不再熬诉。4、加入多媒体特征可使用API函数mciExecute实现多功能，语法为，先声明PrivateDeclareFunctionmciExecuteLibwinmm.dllAsLong然后在欲播放时加入下语句即可x=mciExecute还可使用Multimedia、MediaPlayerMediaPlayer多媒体控件，以Multimedia控件为例：在欲播放时加入下语句WithMultimedia控件名.Filename=欲播放的多媒体文件.command=Omand=PlayEndWith并在Multimedia控件名的Done事件中加入Multimedia控件名.Command=CloseMultimedia控件支持视频播放，可制作动画的启动封面，最简单的可在启动时隐藏其它控件，播放一视频文件，然后再关闭此视频文件，显示隐藏了的控件，有兴趣的话大可尝试一番。此外本程式还包括