弹球游戏

弹球游戏

Dim x_step As Integer

Dim y_step As Integer

Dim gametime As Integer

Dim gamescore As Integer

Dim move_x As Integer

Private Sub Command1_Click() Picture1.SetFocus

If Command1.Caption = "开始" Then Timer1.Enabled = True

Timer2.Enabled = True Command1.Caption = "暂停"

Exit Sub

End If

If Command1.Caption = "暂停" Then Timer1.Enabled = False

Timer2.Enabled = False Command1.Caption = "开始"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_DblClick()

Form2.Show

End Sub

Private Sub Form_Load()

x_step = 250

y_step = 250

'move_x = 0

Command1.Caption = "开始"

Timer1.Enabled = False

Timer2.Enabled = False

gametime = 0

gamescore = 0

Form1.Left = (Screen.Width - Form1.Width) / 2

Form1.Top = (Screen.Height - Form1.Height) / 2 - 600

End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode

Case 37 '如果按下左箭头,使板子向左移动

If Line1.X1 <= Picture1.Left Then

Line1.X1 = Picture1.Left

Else

Line1.X1 = Line1.X1 - (90 + move_x)

Line1.X2 = Line1.X2 - (90 + move_x)

End If

Case 39 '如果按下右箭头,使板子向右移动

If Line1.X2 >= Picture1.Left + Picture1.Width Then

Line1.X2 = Picture1.Left + Picture1.Width

Else

Line1.X1 = Line1.X1 + (90 + move_x)

Line1.X2 = Line1.X2 + (90 + move_x)

End If

End Select

End Sub

Private Sub Timer1_Timer()

'右壁弹回

If Shape1.Left + Shape1.Width >= Picture1.Left + Picture1.Width Then Shape1.Left = Picture1.Left + Picture1.Width - Shape1.Width

x_step = -x_step

End If

'左壁弹回

If Shape1.Left <= 0 Then

Shape1.Left = 0

x_step = -x_step

End If

'上壁弹回

If Shape1.Top <= 0 Then

Shape1.Top = 0

y_step = -y_step

End If

'弹板弹回

If Shape1.Top + Shape1.Height >= Line1.Y1 And _

Shape1.Left >= Line1.X1 And _

Shape1.Left <= Line1.X2 Then

Shape1.Top = Line1.Y1 - Shape1.Height

y_step = -y_step

gamescore = gamescore + 10

Label2.Caption = gamescore

If gamescore Mod 50 = 0 Then

If Line1.X2 - Line1.X1 > 300 Then

Line1.X2 = Line1.X2 - 100

If Timer1.Interval > 50 Then

Timer1.Interval = Timer1.Interval - 30

move_x = move_x + 15

End If

End If

End If

End If

'使小球移动

Shape1.Move Shape1.Left + x_step, Shape1.Top + y_step 'Shape1.Left = Shape1.Left + x_step

'Shape1.Top = Shape1.Top + y_step

If Shape1.Top >= Line1.Y1 Then

Timer1.Enabled = False

Timer2.Enabled = False

MsgBox "你输了!!!!", 64

End If

End Sub

Private Sub Timer2_Timer()

gametime = gametime + 1

Label4.Caption = Str(gametime) + "秒"

End Sub