vb程序游戏设计

北京航空航天大学vb程序设计1摘要VisualBasic6.0是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows环境下的种类应用程序。它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。北京航空航天大学vb程序设计2目录一功能描述.................................................................................................................31．功能..................................................................................................................32.实验目的.........................................................................................................3二概要设计.................................................................................................................41.界面设计.............................................................................................................42.程序运行.............................................................................................................5三设计结果.................................................................................................................6四程序源代码.............................................................................................................7五设计总结...............................................................................................................40六参考文献...............................................................................................................41北京航空航天大学vb程序设计3一功能描述1．功能可以简单进行简单的坦克大战游戏，从而实现坦克战争的模拟。2.实验目的这次我要做的是坦克大战小游戏，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic6.0的运行环境，快速掌握VB语言！北京航空航天大学vb程序设计4二概要设计1.界面设计北京航空航天大学vb程序设计52.程序运行：北京航空航天大学vb程序设计6三、设计结果生成可执行程序运行结果北京航空航天大学vb程序设计7四、程序源代码：DimCChangeAsBooleanDimOldXAsLongDimOldYAsLongDim(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLongPrivateConstSND_ASYNC=&H1PrivateDeclareFunctionGetAsyncKeyStateLibuser32(ByValvKeyAsLong)AsIntegerDimL(99999)AserfDimL2(99999)AserfDimW(9999)Aserf2Dimw2(9999)Aserf2北京航空航天大学vb程序设计8DimP(9999)Aserf2DimP2(9999)Aserf2PrivateTypePosXAsIntegerYAsIntegerEndTypePrivateTypeerfYAsIntegerColorAsLongEndTypePrivateTypeerf2GrowAsIntegerDamageAsIntegerXAsIntegerYAsIntegerOldXAsIntegerOldYAsIntegerXFAsIntegerYFAsIntegerColorAsLongtypeAsLongtagAsLong北京航空航天大学vb程序设计9activeAsBooleanSizeAsLongLifeAsIntegerGravAsIntegerEndTypeDimMovementAsIntegerDimTurnAsBooleanPrivateSubCommand1_Click()Turn=TrueEndSubPrivateSubForm_Load()DimTempAsInteger'PickswhichlayoutTemp=MsgBox(Grass-Dirt-Mars,vbYesNoCancel,?)IfTemp=7ThenMe.BackColor=RGB(40,40,40)EndIfIfTemp=2ThenMe.BackColor=RGB(100,0,0)EndIf北京航空航天大学vb程序设计10'SetsdefaultsMovement=50HP1=100HP2=100Me.Height=Screen.HeightMe.Width=Screen.WidthTurn=TrueMe.ClsMe.Picture=NothingMe.RefreshMe.AutoRedraw=True'SetswheelpositionsFori=0To3W(i).XF=0W(i).YF=0W(i).X=i*10+100W(i).Y=2W(i).Color=RGB(125,125,125)w2(i).XF=0w2(i).YF=0w2(i).X=i*10+Me.ScaleWidth-200北京航空航天大学vb程序设计11w2(i).Y=2w2(i).Color=RGB(125,125,125)NextL(0).Y=Me.ScaleHeight/4*3Randomize'Me.Caption=Temp(DEBUG)'SetsupgroundFori=1ToMe.WidthIfTemp=6ThenL(i).Y=L(i-1).Y+Int(Rnd*4)-Int(Rnd*4)L(i).Color=RGB(0,160+Int(Rnd*25),0)ElseIfTemp=7ThenL(i).Y=L(i-1).Y+Int(Rnd*6)-Int(Rnd*6)L(i).Color=RGB(30+Int(Rnd*25)-Int(Rnd*25),30+Int(Rnd*25)-Int(Rnd*25),0)ElseIfTemp=2ThenL(i).Y=L(i-1).Y+Int(Rnd*8)-Int(Rnd*8)L(i).Color=RGB(160+Int(Rnd*25),0,0)EndIf北京航空航天大学vb程序设计12EndIfEndIfNextFori=0To10IfTemp=6Thenff=Int(Rnd*Screen.Width)BoomInt(ff),0,10,15,0,0,1EndIfIfTemp=7Thenff=Int(Rnd*Screen.Width)BoomInt(ff),0,20,20,0,0,1EndIfIfTemp=2Thenff=Int(Rnd*Screen.Width)BoomInt(ff),0,30,30,0,0,1ff=Int(Rnd*Screen.Width)BoomInt(ff),0,30,30,0,0,1EndIfNextFori=2ToMe.Width-8Step1L(i).Y=(L(i-1).Y+L(i).Y+L(i+1).Y+L(i-2).Y+L(i+2).Y)/5北京航空航天大学vb程序设计13NextMe.AutoRedraw=TrueFori=2ToMe.WidthMe.DrawWidth=3Me.Line(i-2,L(i).Y)-(i-2,Me.ScaleHeight),L(i).ColorNextMe.RefreshMe.AutoRedraw=FalseTimer1.Enabled=TrueEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Movement=50Turn=NotTurnIfTurn=TrueThenShape1.Visible=TrueElseShape2.Visible=TrueEndIfLine1.Visible=TruelblStrength.Visible=True北京航空航天大学vb程序设计14OldX=W(0).X'xOldY=W(0).Y'yIfTurn=TrueThenLine1.X1=W(0).X+20Line1.Y1=W(0).Y-30ElseLine1.X1=w2(0).X+20Line1.Y1=w2(0).Y-30EndIfLine1.X2=XLine1.Y2=YIfTurn=TrueThenShape1.Left=Line1.X2-Shape1.Width/2Shape1.Top=Line1.Y2-Shape1.Height/2ElseShape2.Left=Line1.X2-Shape1.Width/2Shape2.Top=Line1.Y2-Shape1.Height/2EndIfDimPos1AsPosDimPos2AsPosPos1.X=Line1.X2Pos2.X=Line1.X1北京航空航天大学vb程序设计15Pos1.Y=Line1.Y2Pos2.Y=Line1.Y1lblStrength.MoveShape1.Left,Shape1.Top-lblStrength.HeightlblStrength.Caption=Stren