Sección de códigos , trucos y ejemplos para visual basic

28 - Hacer un efecto de gravedad y rebote de un objeto en vb

Este simple ejemplo , que lo tenía hecho en macromedia Flash y lo pasé a Visual Basic, muestra como podemos hacer un efecto de gravedad de un objeto, como una pelota que rebota utilizando un control Timer y un control Image

Controles

Colocar un control Timer con la propiedad interval en 10
y un control Image cargado con una imagen, como por ejemplo:

Hacer un efecto de gravedad en visual basic simulando el rebote de una pelota en el formulario

Nota: Modificando las variables Fuerza y Velocidad se puede cambiar el efecto de rebote

Código en un formulario

Option Explicit 'Variables para la animación de gravedad Dim Fuerza As Double Dim Velocidad As Double Private Sub Form_Load() 'Posicionamos el picture o el control image en el form Image1.Top = 10 Image1.Left = 10 ' maximiza el formulario Me.WindowState = 2 'Establecemos un valor al Timer y lo activamos Timer1.Enabled = True Timer1.Interval = 10 'Establecemos valores a las variables _ para el efecto de rebote Fuerza = 1.7 Velocidad = 0 End Sub Private Sub Timer1_Timer() If Image1.Top > 4000 Then ' Esta línea se ejecuta cuando llega al limite Image1.Top = 4000 Velocidad = Velocidad * -0.6 End If Velocidad = Velocidad + Fuerza ' mueve le top en el control image Image1.Top = Image1.Top + Velocidad End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb