Sistemas Operativos

Hacer un efecto de gravedad y rebote de un objeto en vb
<Volver> - Anterior - Siguiente

 
Este simple ejemplo , que lo tenía hecho en macromedia Flash y lo pasé a VisualBasic, 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 Timercon la propiedad interval en 10
* y un control Image cargado con una imagen, como por ejemplo:
 
 
 

Nota: Modificando las variables Fuerza y Velocidad se puede cambiar el efectode rebote
 
Código en un formulario
Texto planoImprimir
1. Option Explicit  
2.   
3.   
4. 'Variables para la animación de gravedad  
5. Dim Fuerza As Double  6. Dim Velocidad As Double  
7.   
8. Private Sub Form_Load()  
9.       
10.     'Posicionamos el picture o el control image en el form  
11.     Image1.Top = 10  12.     Image1.Left = 10  
13.       
14.     ' maximiza el formulario  
15.     Me.WindowState = 2  
16.       
17.    'Establecemos un valor al Timer y lo activamos  
18.     Timer1.Enabled = True  
19.     Timer1.Interval = 10  
20.   
21.     'Establecemos valores a las variables _  
22.      para el efecto de rebote  
23.    Fuerza = 1.7  
24.     Velocidad = 0  
25. End Sub  
26.   
27. Private Sub Timer1_Timer()  
28.       
29.       
30.     If Image1.Top > 4000 Then  
31.        ' Esta línea se ejecuta cuando llega al limite  
32.         Image1.Top = 4000  
33.         Velocidad = Velocidad * -0.6  
34.     End If  
35.       
36.    Velocidad = Velocidad + Fuerza  
37.       
38.     ' mueve le top en el control image  
39.     Image1.Top = Image1.Top + Velocidad  
40.   
41....