vb程序游戲設(shè)計參考模板

1、摘要VisualBasic 6.0 是一款可視化的，面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā)windows 環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)，效率高，且功能強大，可以與Windows專業(yè)開發(fā)工具相媲美。在VisualBasic環(huán)境下，利用事出有因件驅(qū)動的編程機制，新穎易用的可視化工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口(API)函數(shù)，運用動態(tài)鏈接庫（DLL），對象的鏈接與嵌入（OLE）,開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效，可以快速地開發(fā)Windows環(huán)境不功能強大，圖形界面豐富的程序。為了適應(yīng)信息化時代的需求，各高校對大多數(shù)專業(yè)都開設(shè)了一定的計算機語言課程，

2、有的講授VisualBasic語言。VisualBasic以其語法簡單，可視化設(shè)計，功能強大，為許多學(xué)校計算機語言課程的首選語言。目前國內(nèi)各出版了大量的VisualBasic語言教程，它們都具有同樣的特點：介紹語言的語法等基本知識，再輔助一些簡單的示例。學(xué)生通過學(xué)習(xí)，可能能夠考一個不錯的成績，但所掌握的仍然是一些支離破碎的知識，不能將所有的知識融會貫通，遇到具體的程序設(shè)計，還是無從下手。這次我要做的是計算器，通過這樣程序設(shè)計，我們可以學(xué)到好多關(guān)于VB語言的使方法，熟悉VisualBasic 6.0的運行環(huán)境，快速掌握VB語言！小小的計算器是我們學(xué)VB初級語言的最好課程。1 / 44目錄一 功能

3、描述31功能32. 實驗?zāi)康?二 概要設(shè)計41.界面設(shè)計42.程序運行5三 設(shè)計結(jié)果6四 程序源代碼7五 設(shè)計總結(jié)40六 參考文獻41一 功能描述1功能可以簡單進行簡單的坦克大戰(zhàn)游戲，從而實現(xiàn)坦克戰(zhàn)爭的模擬。2.實驗?zāi)康倪@次我要做的是坦克大戰(zhàn)小游戲，通過這樣程序設(shè)計，我們可以學(xué)到好多關(guān)于VB語言的使方法，熟悉VisualBasic 6.0的運行環(huán)境，快速掌握VB語言！ 二 概要設(shè)計1.界面設(shè)計2.程序運行：三、設(shè)計結(jié)果生成可執(zhí)行程序運行結(jié)果四、程序源代碼：Dim CChange As BooleanDim OldX As LongDim OldY As LongDim WwW As LongD

4、im WwW2 As LongDim HP1 As LongDim HP2 As LongPrivate Declare Function sndPlaySound Lib winmm Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongPrivate Const SND_ASYNC = &H1Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As IntegerDim L(99999)

5、As erfDim L2(99999) As erfDim W(9999) As erf2Dim w2(9999) As erf2Dim P(9999) As erf2Dim P2(9999) As erf2Private Type Pos X As Integer Y As IntegerEnd TypePrivate Type erf Y As Integer Color As LongEnd TypePrivate Type erf2 Grow As Integer Damage As Integer X As Integer Y As Integer OldX As Integer O

6、ldY As Integer XF As Integer YF As Integer Color As Long type As Long tag As Long active As Boolean Size As Long Life As Integer Grav As IntegerEnd TypeDim Movement As IntegerDim Turn As BooleanPrivate Sub Command1_Click()Turn = TrueEnd SubPrivate Sub Form_Load()Dim Temp As IntegerPicks which layout

7、 Temp = MsgBox(Grass - Dirt - Mars, vbYesNoCancel, ?) If Temp = 7 Then Me.BackColor = RGB(40, 40, 40) End If If Temp = 2 Then Me.BackColor = RGB(100, 0, 0) End If Sets defaultsMovement = 50HP1 = 100HP2 = 100Me.Height = Screen.HeightMe.Width = Screen.WidthTurn = TrueMe.ClsMe.Picture = NothingMe.Refre

8、shMe.AutoRedraw = TrueSets wheel positionsFor i = 0 To 3 W(i).XF = 0 W(i).YF = 0 W(i).X = i * 10 + 100 W(i).Y = 2 W(i).Color = RGB(125, 125, 125) w2(i).XF = 0 w2(i).YF = 0 w2(i).X = i * 10 + Me.ScaleWidth - 200 w2(i).Y = 2 w2(i).Color = RGB(125, 125, 125)NextL(0).Y = Me.ScaleHeight / 4 * 3RandomizeM

9、e.Caption = Temp (DEBUG)Sets up groundFor i = 1 To Me.Width If Temp = 6 Then L(i).Y = L(i - 1).Y + Int(Rnd * 4) - Int(Rnd * 4) L(i).Color = RGB(0, 160 + Int(Rnd * 25), 0) Else If Temp = 7 Then L(i).Y = L(i - 1).Y + Int(Rnd * 6) - Int(Rnd * 6) L(i).Color = RGB(30 + Int(Rnd * 25) - Int(Rnd * 25), 30 +

10、 Int(Rnd * 25) - Int(Rnd * 25), 0) Else If Temp = 2 Then L(i).Y = L(i - 1).Y + Int(Rnd * 8) - Int(Rnd * 8) L(i).Color = RGB(160 + Int(Rnd * 25), 0, 0) End If End If End IfNextFor i = 0 To 10 If Temp = 6 Then ff = Int(Rnd * Screen.Width) Boom Int(ff), 0, 10, 15, 0, 0, 1 End If If Temp = 7 Then ff = I

11、nt(Rnd * Screen.Width) Boom Int(ff), 0, 20, 20, 0, 0, 1End If If Temp = 2 Then ff = Int(Rnd * Screen.Width) Boom Int(ff), 0, 30, 30, 0, 0, 1 ff = Int(Rnd * Screen.Width) Boom Int(ff), 0, 30, 30, 0, 0, 1 End IfNextFor i = 2 To Me.Width - 8 Step 1 L(i).Y = (L(i - 1).Y + L(i).Y + L(i + 1).Y + L(i - 2).

12、Y + L(i + 2).Y) / 5NextMe.AutoRedraw = TrueFor i = 2 To Me.Width Me.DrawWidth = 3 Me.Line (i - 2, L(i).Y)-(i - 2, Me.ScaleHeight), L(i).ColorNext Me.Refresh Me.AutoRedraw = False Timer1.Enabled = TrueEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Mov

13、ement = 50 Turn = Not Turn If Turn = True Then Shape1.Visible = True Else Shape2.Visible = True End IfLine1.Visible = TruelblStrength.Visible = TrueOldX = W(0).X xOldY = W(0).Y yIf Turn = True Then Line1.X1 = W(0).X + 20 Line1.Y1 = W(0).Y - 30Else Line1.X1 = w2(0).X + 20 Line1.Y1 = w2(0).Y - 30End I

14、fLine1.X2 = XLine1.Y2 = YIf Turn = True Then Shape1.Left = Line1.X2 - Shape1.Width / 2 Shape1.Top = Line1.Y2 - Shape1.Height / 2Else Shape2.Left = Line1.X2 - Shape1.Width / 2 Shape2.Top = Line1.Y2 - Shape1.Height / 2End IfDim Pos1 As PosDim Pos2 As PosPos1.X = Line1.X2Pos2.X = Line1.X1Pos1.Y = Line1

15、.Y2Pos2.Y = Line1.Y1lblStrength.Move Shape1.Left, Shape1.Top - lblStrength.HeightlblStrength.Caption = Strength: & (Abs(Line1.X1 - Line1.X2) + Abs(Line1.Y1 - Line1.Y2) / 2 & | Angle & GetAngle(Pos1, Pos2)End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

16、If Button 0 Then Line1.X2 = X Line1.Y2 = YIf 1 = 1 Then (Abs(Line1.X1 - Line1.X2) + Abs(Line1.Y1 - Line1.Y2) / 2) 0 ThenTypeR = 2Label2(z).Caption = Label2(z).Caption - 1ElseOption1.Value = TrueEnd IfEnd IfIf Option3.Value = True ThenIf Label3(z).Caption 0 ThenTypeR = 3Label3(z).Caption = Label3(z).

17、Caption - 1ElseOption1.Value = TrueEnd IfEnd IfIf Option4.Value = True ThenIf Label4(z).Caption 0 ThenTypeR = 4Label4(z).Caption = Label4(z).Caption - 1ElseOption1.Value = TrueEnd IfEnd IfIf Option5.Value = True ThenIf Label5(z).Caption 0 ThenTypeR = 5Label5(z).Caption = Label5(z).Caption - 1ElseOpt

18、ion1.Value = TrueEnd IfEnd IfIf Option6.Value = True ThenIf Label6(z).Caption 0 ThenTypeR = 6Label6(z).Caption = Label6(z).Caption - 1ElseOption1.Value = TrueEnd IfEnd IfTurn = FalseWwW = 6If Turn = True ThenNewMissle W(0).X + 20, W(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10, (Line1.Y2 - Li

19、ne1.Y1) / 10If TypeR = 4 ThenNewMissle W(0).X + 20, W(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)NewMissle W(0).X + 20, W(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10 + Int(Rnd * 10) - Int(Rnd

20、* 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)NewMissle W(0).X + 20, W(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)NewMissle W(0).X + 20, W(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1

21、.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)End IfElseNewMissle w2(0).X + 20, w2(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10, (Line1.Y2 - Line1.Y1) / 10If TypeR = 4 ThenNewMissle w2(0).X + 20, w2(0).Y - 10, vbRed, TypeR, (Line1.X2 - Li

22、ne1.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)NewMissle w2(0).X + 20, w2(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)NewMissle w2(0).X + 20, w2

23、(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) - Int(Rnd * 10)NewMissle w2(0).X + 20, w2(0).Y - 10, vbRed, TypeR, (Line1.X2 - Line1.X1) / 10 + Int(Rnd * 10) - Int(Rnd * 10), (Line1.Y2 - Line1.Y1) / 10 + Int(Rnd * 10) -

24、 Int(Rnd * 10)End IfEnd IfEnd SubPrivate Sub Boom(X As Integer, Y As Integer, Size As Integer, dig As Integer, Dam As Integer, Optional Invert As Integer, Optional NoDraw As Integer)If X w2(0).X And X - Size / 2 W(0).X And X - Size / 2 W(3).X ThenHP1 = HP1 - DamCall sndPlaySound(ByVal App.Path & /hi

25、t.wav, SND_ASYNC)End IfMe.DrawWidth = 1For i = 0 To Screen.WidthL2(i).Y = L(i).YNextFor i = 0 To SizeIf Invert = 1 ThenL(X + i).Y = L(X + i).Y - digElseL(X + i).Y = L(X + i).Y + dig - iEnd IfNextFor i = 1 To SizeIf Invert = 1 ThenL(X - i).Y = L(X - i).Y - digElseL(X - i).Y = L(X - i).Y + dig - iEnd

26、IfNextMe.AutoRedraw = FalseMe.ClsMe.Picture = NothingMe.RefreshMe.AutoRedraw = TrueIf NoDraw 1 ThenFor i = 2 To Me.Width Step 1If L2(i).Y L(i).Y ThenL2(i).Y = (L2(i - 1).Y + L2(i).Y + L2(i + 1).Y + L2(i - 2).Y + L2(i + 2).Y) / 5Me.Line (i - 2, 0)-(i - 2, Me.ScaleHeight), Me.BackColorMe.Line (i - 2,

27、L(i).Y)-(i - 2, Me.ScaleHeight), L(i).ColorEnd IfNextEnd IfMe.AutoRedraw = FalseEnd SubPrivate Sub NewPart(Sizee As Integer, X As Integer, Y As Integer, OX As Integer, OY As Integer, Grow As Integer, Color As Long, XF As Long, YF As Long, Life As Integer, Grav As Integer)For i = 0 To 900If P2(i).act

28、ive = False ThenP2(i).active = TrueP2(i).Size = SizeeP2(i).X = XP2(i).Y = YP2(i).XF = XFP2(i).YF = YFP2(i).OldX = OXP2(i).OldY = OYP2(i).Grow = GrowP2(i).Color = ColorP2(i).Life = LifeP2(i).Grav = GravExit ForEnd IfNextEnd SubPrivate Sub Timer1_Timer()If HP1 0 ThenMsgBox Player 2 Wins!HP1 = 0EndEnd

29、IfIf HP2 0 ThenMsgBox Player 1 Wins!HP2 = 0EndEnd IfL(2).Y = 999If hp11.Caption Health: & HP1 Thenhp11.Caption = Health: & HP1End IfIf hp22.Caption Health: & HP2 Thenhp22.Caption = Health: & HP2End IfIf CChange = True ThenMe.RefreshEnd IfCChange = FalseIf HP1 0 ThenIf GetAsyncKeyState(vbKeyRight) Th

30、enMovement = Movement - 1CChange = TrueIf Movement 0 ThenIf Turn = False ThenFor i = 0 To 3If L(W(3).X - 2).Y - 10 L(W(i).X - 2).Y ThenW(i).Y = L(W(i).X - 2).Y - 1End IfNextElseFor i = 0 To 3If L(w2(3).X - 2).Y - 10 L(w2(i).X - 2).Y Thenw2(i).Y = L(w2(i).X - 2).Y - 1End IfNextEnd IfEnd IfEnd IfIf Ge

31、tAsyncKeyState(vbKeyLeft) ThenMovement = Movement - 1CChange = TrueIf Movement 0 ThenIf Turn = False ThenFor i = 0 To 3On Error Resume NextIf L(W(0).X - 2).Y - 8 L(W(i).X - 2).Y ThenW(i).Y = L(W(i).X - 2).Y - 1End IfNextElseFor i = 0 To 3On Error Resume NextIf L(w2(0).X - 2).Y - 8 L(w2(i).X - 2).Y T

32、henw2(i).Y = L(w2(i).X - 2).Y - 1End IfNextEnd IfEnd IfEnd IfEnd IfFor i = 0 To 3W(i).X = W(i).X + W(i).XF / 2W(i).XF = W(i).XF * 0.5If i = 1 ThenIf W(i).Y - 20 W(0).Y ThenW(i).Y = W(0).Y + 20W(i).YF = 0 W(i).Yf / 2W(i).Y = (W(i).Y + W(i + 1).Y) / 2End IfEnd IfIf i = 2 ThenIf W(i).Y - 20 W(3).Y Then

33、W(i).Y = W(3).Y + 20W(i).YF = 0 W(i).Yf / 2End IfEnd IfOn Error Resume NextIf W(i).Y + W(i).YF 3 ThenW(i).Y = L(W(i).X - 2).Y - 1W(i).YF = -W(i).YF * 0.5CChange = TrueEnd IfEnd IfMe.DrawWidth = 8Me.Line (W(i).X, W(i).Y)-(W(i).X, W(i).Y), W(i).Colorw2(i).X = w2(i).X + w2(i).XF / 2w2(i).XF = w2(i).XF

34、* 0.5If w2(i).Y + w2(i).YF 3 Thenw2(i).Y = L(w2(i).X - 2).Y - 1w2(i).YF = -w2(i).YF * 0.5End IfEnd IfMe.DrawWidth = 8Me.Line (w2(i).X, w2(i).Y)-(w2(i).X, w2(i).Y), w2(i).ColorNextMe.DrawWidth = 1For i = 0 To 2For z = 0 To 2If HP1 0 ThenMe.Line (W(i).X, W(i).Y)-(W(i + 1).X, W(i + 1).Y), vbBlackEnd If

35、Me.Line (w2(i).X, w2(i).Y)-(w2(i + 1).X, w2(i + 1).Y), vbBlackNextNextIf HP1 0 ThenMe.Line (W(0).X, W(0).Y)-(W(0).X, W(0).Y - 15), vbBlackMe.Line (W(3).X, W(3).Y)-(W(3).X, W(3).Y - 15), vbBlackMe.Line (W(0).X, W(0).Y - 5)-(W(3).X, W(3).Y - 5), vbBlackEnd IfMe.Line (w2(0).X, w2(0).Y)-(w2(0).X, w2(0).

36、Y - 15), vbBlackMe.Line (w2(3).X, w2(3).Y)-(w2(3).X, w2(3).Y - 15), vbBlackMe.Line (w2(0).X, w2(0).Y - 5)-(w2(3).X, w2(3).Y - 5), vbBlackFor F = 0 To 15 Step 2If HP1 0 ThenMe.Line (W(0).X, W(0).Y - F)-(W(3).X, W(3).Y - F), RGB(122, 122, 122)End IfMe.Line (w2(0).X, w2(0).Y - F)-(w2(3).X, w2(3).Y - F)

37、, RGB(122, 122, 122)NextF = 15If HP1 0 ThenMe.Line (W(0).X, W(0).Y - F)-(W(3).X, W(3).Y - F), vbBlackEnd IfMe.Line (w2(0).X, w2(0).Y - F)-(w2(3).X, w2(3).Y - F), vbBlackddddddddddddddFor i = 0 To 300If P2(i).active = True ThenCChange = TrueMe.DrawWidth = P2(i).SizeIf Check1.Value = 1 ThenMe.Line (P2

38、(i).X, P2(i).Y)-(P2(i).OldX, P2(i).OldY), P2(i).ColorEnd IfP2(i).OldX = P2(i).XP2(i).OldY = P2(i).YP2(i).Life = P2(i).Life - 1P2(i).Size = P2(i).Size + P2(i).GrowP2(i).X = P2(i).X + P2(i).XFP2(i).YF = P2(i).YF + P2(i).GravP2(i).Y = P2(i).Y + P2(i).YFIf P2(i).Life 3 Or Abs(W(i).XF) 3 ThenCChange = Tr

39、ueEnd IfIf Abs(w2(i).YF) 3 Or Abs(w2(i).XF) 3 ThenCChange = TrueEnd IfNextFor i = 0 To 90If P(i).active = True Thenttt = 100 + Int(Rnd * 40)NewPart 5, P(i).X + Int(Rnd * 10) - Int(Rnd * 10), P(i).Y + Int(Rnd * 10) - Int(Rnd * 10), P(i).X, P(i).Y, 7, RGB(ttt, ttt, ttt), 0, 0, 8, 0CChange = TrueMe.Dra

40、wWidth = 3P(i).YF = P(i).YF + 1P(i).OldX = P(i).XP(i).OldY = P(i).YP(i).X = P(i).X + P(i).XFP(i).Y = P(i).Y + P(i).YFOn Error Resume NextIf P(i).Y + P(i).YF L(P(i).X - 2).Y ThenP(i).active = FalseIf P(i).type 5 ThenIf P(i).X 0 ThenNewPart 40, P(i).X, P(i).Y + 20, P(i).X, P(i).Y + 20, 5, RGB(200 + In

41、t(Rnd * 10), 0, 0), 0, 0, 30, 0NewPart 20, P(i).X, P(i).Y + 20, P(i).X, P(i).Y + 20, 5, RGB(190 + Int(Rnd * 50), 30 + Int(Rnd * 50), 0), 0, 0, 30, 0NewPart 5, P(i).X, P(i).Y + 20, P(i).X, P(i).Y + 20, 4, RGB(200 + Int(Rnd * 55), 200 + Int(Rnd * 55), 0), 0, 0, 30, 0End IfEnd IfIf P(i).X 0 ThenNewPart

42、 8 + Int(Rnd * 3) - Int(Rnd * 3), P(i).X, P(i).Y, P(i).X, P(i).Y, 0, L(P(i).X - 2).Color, Int(Rnd * 10) - Int(Rnd * 10), -10 + -Int(Rnd * 10), 30 + Int(Rnd * 6) - Int(Rnd * 6), 1NewPart 8 + Int(Rnd * 3) - Int(Rnd * 3), P(i).X, P(i).Y, P(i).X, P(i).Y, 0, L(P(i).X - 2).Color, Int(Rnd * 10) - Int(Rnd *

43、 10), -10 + -Int(Rnd * 10), 30 + Int(Rnd * 6) - Int(Rnd * 6), 1NewPart 8 + Int(Rnd * 3) - Int(Rnd * 3), P(i).X, P(i).Y, P(i).X, P(i).Y, 0, L(P(i).X - 2).Color, Int(Rnd * 10) - Int(Rnd * 10), -10 + -Int(Rnd * 10), 30 + Int(Rnd * 6) - Int(Rnd * 6), 1NewPart 8 + Int(Rnd * 3) - Int(Rnd * 3), P(i).X, P(i

44、).Y, P(i).X, P(i).Y, 0, L(P(i).X - 2).Color, Int(Rnd * 10) - Int(Rnd * 10), -10 + -Int(Rnd * 10), 30 + Int(Rnd * 6) - Int(Rnd * 6), 1NewPart 8 + Int(Rnd * 3) - Int(Rnd * 3), P(i).X, P(i).Y, P(i).X, P(i).Y, 0, L(P(i).X - 2).Color, Int(Rnd * 10) - Int(Rnd * 10), -10 + -Int(Rnd * 10), 30 + Int(Rnd * 6) - Int(Rnd * 6), 1End IfIf P(i).type = 1 ThenBoom P(i).X - 2, P(i).Y, 30, 35, P(i).DamageEnd IfIf P(i)