Ejercicio del Globo Aerostático

En este ejercicio tiene como objetivo hacer volar 6 globos aerostáticos mediante comandos y tiempo. El diseño del formulario es el siguiente:

Para esto necesitaremos:

• 6 pictures con imagenes de globos.


• 6 comandos


• 6 timers

Luego la codificación es la siguiente:

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub
Private Sub Command2_Click()

Timer2.Enabled = True

End Sub
Private Sub Command3_Click()

Timer3.Enabled = True

End Sub
Private Sub Command4_Click()

Timer4.Enabled = True

End Sub
Private Sub Command5_Click()

Timer5.Enabled = True

End Sub
Private Sub Command6_Click()

Timer6.Enabled = True

End Sub
Private Sub Timer1_Timer()

Image3.Move Image3.Left, Image3.Top - 200

End Sub
Private Sub Timer2_Timer()

Image2.Move Image2.Left, Image2.Top - 200
End Sub
Private Sub Timer3_Timer()I

mage1.Move Image1.Left, Image1.Top - 200
End Sub
Private Sub Timer4_Timer()

Image4.Move Image4.Left, Image4.Top - 200

End Sub
Private Sub Timer5_Timer()

Image5.Move Image5.Left, Image5.Top - 200
End Sub
Private Sub Timer6_Timer()

Image6.Move Image6.Left, Image6.Top - 200

End Sub

A la hora de ejecutar daremos click a los comandos y los globos saldran volando según el orden asignado.