ejercicio de movimiento de una imagen cambiando la aceleración

objetos:

3 timer

commands

1 vscroll : propiedad MAX en 10 ; propiedad MIN en 1; VALUE en 1

Private Sub Command10_Click()

Form3.Show

Form2.Visible = False

End Sub

Private Sub Command9_Click()

Image1.Top = 2520

Image1.Left = 600

For i = i To 1925

i = i + Val(VScroll1.Value * 10)

Image1.Left = 600 + i

Next i

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

For i = i To 2760 ' recorre esta cantidad de distancia 2760

i = i + Val(VScroll1.Value * 10)

Image1.Top = 2640 + i

Next i

Timer1.Enabled = False

Timer2.Enabled = True

End Sub

Private Sub Timer2_Timer()

For i = i To 5760

i = i + Val(VScroll1.Value * 10)

Image1.Left = 2520 + i

Next i

Timer2.Enabled = False

Timer3.Enabled = True

End Sub

Private Sub Timer3_Timer()

For i = i To 5400

i = i + Val(VScroll1.Value * 10)

Image1.Top = 5400 - i

Next i

Timer3.Enabled = False

End Sub

Private Sub VScroll1_Change()

Text1.Text = Val(VScroll1.Value * 10)

End Sub

juego del carro con Hscroll

codigo para el juego del carro

consiste en que con un objeto de diseño llamado hscroll con su propiedad value controlamos la velocidad con la que se mueve una imagen

explicacion:

objetos de diseño usados

1. una imagen

2. una linea

3. hscroll con la propiedad max en 11 y min en 11

4.command para pasar al siguiente formulario

los demas objetos se agregan para que el diseño del proyecto sea de calidad o se vea bien

codigo de programacion :)

option explicit

Private Sub Command1_Click() '

For i = i To 11880

i = i + Val(HScroll1.Value * 10)

Image1.Left = 120 + i

Next i

End Sub

Private Sub Command2_Click()

form2.Show

form1.Visible = False

End Sub

Private Sub HScroll1_Change()

Label1.Caption = Val(HScroll1.Value * 10)

' por lo general la parte de este codigo que dice Val 'que significa valor... de la propiedad value 'del scroll.. la multiplicamos por 10 para que el numero 'de la propiedad value no sea por ej 1 sino 'que sea 10

End Sub

hola

decimo the best