Strona główna › 2002ASP › **A Bouncing Ball**
Advertisement
2002ASP Games #433

**A Bouncing Ball**

Ben Doherty
★★★★★
4.8 · Pobrania: 2,341

This code shows a circle bouncing off of the sides of the form like Jezzball (But not as good).

AI

Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Kod źródłowy
original-source 
Private Sub Form_Load()
Form1.Height = 4770
Form1.Width = 5865
Form1.BackColor = &H0
pic.BorderColor = &HFF&
pic.Top = 0
pic.Left = 0
End Sub
Private Sub Timer1_Timer()
If Timer1.Interval = 1 Then   ' this is the code that
pic.Left = pic.Left - 40    ' makes the ball bounce
If pic.Left < -100 Then
Timer1.Interval = 2
Beep
Else
pic.Left = pic.Left - 40
End If
End If

If Timer1.Interval = 2 Then
pic.Left = pic.Left + 40
If pic.Left > 4790 Then
Timer1.Interval = 1
Beep
Else
pic.Left = pic.Left + 40
End If
End If
End Sub
Private Sub Timer2_Timer()
If Timer2.Interval = 1 Then
pic.Top = pic.Top - 40
If pic.Top = 0 Then
Timer2.Interval = 2
Beep
Else
pic.Top = pic.Top - 40
End If
End If
If Timer2.Interval = 2 Then
pic.Top = pic.Top + 40
If pic.Top = 3480 Then
Timer2.Interval = 1
Beep
Else
pic.Top = pic.Top + 40
End If
End If
End Sub
Oryginalne komentarze (3)
Odzyskane z Wayback Machine