vb2008 diseña un algoritmo

Es necesario añadir el criterio del límite de colisión. ?

Agregar temporizador

Un contenedor

Una pelota

¿Clase?Pública?Form1

¿Dim vy? ?As?Int16?=?3

Dim?vx?As?Int16?=?3

Privado?Sub?Timer1_Tick(ByVal?sender?As?System.Object,? ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

If?ball.Top?+?vy?<=?0?Then

vy?= ? Int(Rnd()?*?3?+?3)

Fin?Si

Si?ball.Top?+?ball.Height?+?vy?>= ? 380?Entonces

vy?=?-Int(Rnd()?*?3?+?3)

Fin?If

If?ball . ¿Izquierda?+?vx?<=?0?Entonces

vx?=?Int(Rnd()?*?3?+?3)

Fin?Si

Si?bola.Izquierda?+?bola.Ancho?+?vx?>=?200?Entonces

vx?=?-Int(Rnd()?*?3?+ ? 3)

Fin?Si

ball.Top?+=?vy

ball.Left?+=?vx

Fin ?Sub

Fin?Clase

Zhang Zhichen