用VB编写的弹球游戏

用VB编写的弹球游戏

整理编写：西贝一哲QQ：710886275 一、功能描述：

用VB设计编写一个弹球游戏，使球在向上或左右方向碰壁反弹，下部有一可左右水平移动的挡板，当小球接触挡板时，小球反弹，否则小球出界，即游戏失败，小球每接触次挡板，加10分，当得分是10的倍数时，挡板缩短，小球移动加快，致使难度增加，得分90时游戏结束。

二、使用的控件

只列出控件数目、Name及功能，具体的属性设置请对照代码自行确定和修改。

Picture：游戏窗口，里面画小球和挡板，Name为PicGameWindow

Shape：画小球，Name为Ball

Line：画挡板，Name为Plate

Lable:三个标签，分别显示“得分”、“用时”和“点击‘继续’恢复游戏”

(Name为LabPause)

Textbox:两个，分别用于显示得分（ScoresGet）和用时（TimeUse）Timer：两个，Timer1控制球的移动，Timer2用于计时

Command:三个，开始（BeginGame）、暂停(PauseGame)和结束(OverGame)

三、程序窗口和代码

Dim Time%, key%, Score%, a#, y#, PicWinWit%, PlaLonger% Private Sub Form_Load()

'游戏初始化

PicWinWit = PicGameWindow.Width

PlaLonger = Plate.X2 - Plate.X1

Plate.X1 = PicWinWit / 2 - PlaLonger / 2

Plate.X2 = PicWinWit / 2 + PlaLonger / 2

Timer1.Interval = False

Timer2.Enabled = False

Score = -10

Time = 0

Shape1.Left = (Plate.X1 + Plate.X2) / 2 - Shape1.Height / 2 Shape1.Top = Plate.Y1 - Shape1.Height

End Sub

Private Sub BeginGame_Click()

Dim m%, n%

PicGameWindow.SetFocus

Timer1.Interval = 100

Timer1.Enabled = True

Timer2.Interval = 1000

Timer2.Enabled = True

Randomize

m = Int(Rnd * 1) + 0

If m = 0 Then

Randomize

a = Int(Rnd * (46 * 3.1416 / 180)) + 30 * 3.1416 / 180

y = 100 * Abs(Tan(a))

Else: Randomize

'平移移动量和竖直移动量的夹角

a = Int(Rnd * (46 * 3.1416 / 180)) + 105 * 3.1416 / 180

'确定单位时间内水平移动量，求出竖直移动量

y = 100 * Abs(Tan(a))

End If

End Sub

Private Sub PauseGame_Click()

If PauseGame.Caption = "暂停" Then

Timer1.Enabled = False

Timer2.Enabled = False

LabPause.Visible = True

BeginGame.Enabled = False

OverGame.Enabled = False

PauseGame.Caption = "继续"

Else

PicGameWindow.SetFocus

Timer1.Enabled = True

Timer2.Enabled = True

LabPause.Visible = False

BeginGame.Enabled = True

OverGame.Enabled = True

PauseGame.Caption = "暂停"

End If

End Sub

Private Sub OverGame_Click()

'挡板位置初始化

Plate.X1 = PicGameWindow.Width / 2 - PlaLonger / 2

Plate.X2 = PicGameWindow.Width / 2 + PlaLonger / 2

Timer1.Interval = False

ScoresGet.Text = ""

Timer2.Enabled = False

Timer1.Enabled = False

TimeUse.Text = ""

Score = -10

Time = 0

'球位置初始化

Shape1.Left = (Plate.X1 + Plate.X2) / 2 - Shape1.Height / 2

Shape1.Top = Plate.Y1 - Shape1.Height

End Sub

Private Sub PicGameWindow_KeyDown(KeyCode As Integer, Shift As Integer) key = KeyCode

Select Case KeyCode

'如果按下左箭头,则板子向左移动（37是左键的编码）

Case 37

If Plate.X1 <= 0 Then

Plate.X1 = 0

Else

Plate.X1 = Plate.X1 - 100

Plate.X2 = Plate.X2 - 100

End If

'如果按下右箭头,则板子向右移动

Case 39

If Plate.X2 >= PicGameWindow.Width Then

Plate.X2 = PicGameWindow.Width

Else

Plate.X1 = Plate.X1 + 100

Plate.X2 = Plate.X2 + 100

End If

End Select

End Sub

Private Sub PicGameWindow_KeyUp(KeyCode As Integer, Shift As Integer) key = KeyAscii

End Sub

Private Static Sub Timer1_Timer()

Dim n%, m%, i%

'使球碰壁反弹的条件

If Shape1.Left <= 0 Then

n = 0

End If

If Shape1.Left >= PicGameWindow.Width - Shape1.Height - 100 Then

n = 1

End If

Select Case (n)

Case 0

'小球每次移动长度为60+60=120

Shape1.Left = Shape1.Left + 50

Case 1

Shape1.Left = Shape1.Left - 50

End Select

'球遇到挡板反弹的条件

If Shape1.Top + Shape1.Height >= Plate.Y1 And Shape1.Left <= (Plate.X2 - Shape1.Width / 2) And Shape1.Left >= (Plate.X1 - Shape1.Width / 2) Then

m = 0

Score = Score + 10

ScoresGet.Text = Str(Score) + "分"

'当得分是10的倍数时，挡板的长度减少,小球移动时间间隔也缩短

If Score Mod 10 = 0 And Timer1.Interval > 50 Then

Plate.X1 = Plate.X1 + 50

Plate.X2 = Plate.X2 - 50

Timer1.Interval = Timer1.Interval - 4

End If

End If

If Shape1.Top <= 0 Then

m = 1

End If

Select Case (m)

Case 0

Shape1.Top = Shape1.Top - y

Case 1

Shape1.Top = Shape1.Top + y

End Select

If Shape1.Top > Plate.Y1 Then

' Timer1.Enabled = False

i = MsgBox("你输了！", vbInformation, "结果")

'游戏失败后重新初始化

If i = 1 Then

Plate.X1 = PicGameWindow.Width / 2 - PlaLonger / 2

Plate.X2 = PicGameWindow.Width / 2 + PlaLonger / 2

Timer1.Interval = 0

ScoresGet.Text = ""

Timer2.Enabled = False

TimeUse.Text = ""

Score = -10

Time = 0

Shape1.Left = (Plate.X2 + Plate.X1) / 2 - Shape1.Width/2

Shape1.Top = Plate.Y1 - Shape1.Height

End If

End If

'游戏完成的条件

If Score > 80 Then

MsgBox "祝贺你，游戏完成！"

ScoresGet.Text = ""

TimeUse.Text = ""

'游戏通过后重新初始化

Timer1.Enabled = False

Timer2.Enabled = False

Timer1.Enabled = flase

Timer1.Interval = 100

Score = -10

Time = 0

Plate.X1 = PicGameWindow.Width / 2 - PlaLonger / 2

Plate.X2 = PicGameWindow.Width / 2 + PlaLonger / 2

Shape1.Left = PicGameWindow.Width / 2 - Shape1.Height / 2 Shape1.Top = Plate.Y1 - Shape1.Height

End If

End Sub

Private Sub Timer2_Timer()

Time = Time + 1

TimeUse.Text = Str(Time) + "秒"

End Sub