Simular movimiento de noria

[truskyvb]

Hola a todos. Estoy tratando de simular una noria. Seis imágenes haciendo un cículo. Pretendo que se desplacen todas a la vez, tal como lo hace el segundero de un reloj, aunque tanto en el sentido de las agujas del reloj como en el contrario, pero no lo consigo.

Si podeis echarme una mano os lo agradezco.

Gracias de antemano.

Un saludo

[pkj]

Si el problema es ir moviendo las imagenes puedes intentarlo asi:

Suponiendo que tienes las imagenes en Image1,Image2, etc hasta Image6
e incluyes un timer (Timer1) para el movimiento...

Código vb:

'Creas una variable de coordenadas
 
Private Type Coordenadas
  X As Long
  Y As Long
End Type
 
'Luego creas un array de coordenadas. Pongamos que vamos a tener 12 posiciones, como las horas del reloj.
 
Dim Posicion(12) As Coordenadas
 
'Y una variable que despues usaremos:
Dim Barquilla As Integer
 
'Y otra que será la dirección:
Dim Direccion As Integer
 
 
'En el Load cargas las coordenadas:
 
 
Private Sub Form_Load()
 
  Posicion(1).X=?????
  Posicion(1).Y=?????
  Posicion(2).X=?????
  Posicion(2).Y=?????
  Posicion(3).X=?????
  Posicion(3).Y=?????
  Posicion(4).X=?????
  Posicion(4).Y=?????
'  ... ETC, ETC
  Posicion(12).X=?????
  Posicion(12).Y=?????
 
  'Luego cargas una variable que será la posicion de la primera barquilla:
  Barquilla = 1
 
  'Y La dirección hacia la derecha:
  Direccion = 1
  'para ir en la otra direccion asignamos el valor Direccion = -1
 
  'Activamos el Timer que ira moviendo las barquillas
  Timer1.Interval=500 ' a 2 pasos por segundo p.ej.
  Timer1.Enabled = True
 
End Sub
 
Private sub Timer1_Timer()
  Dim Sitio as integer
  barquilla=barquilla + direccion
  if barquilla>12 then barquilla=barquilla-12
  if barquilla<1 then barquilla=barquilla+12
  image1.left=posicion(barquilla).x
  image1.top=posicion(barquilla).y
  sitio=barquilla+2
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image2.left=posicion(sitio).x
  image2.top=posicion(sitio).y
  sitio=barquilla+4
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image3.left=posicion(sitio).x
  image3.top=posicion(sitio).y
  sitio=barquilla+6
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image4.left=posicion(sitio).x
  image4.top=posicion(sitio).y
  sitio=barquilla+8
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image5.left=posicion(sitio).x
  image5.top=posicion(sitio).y
  sitio=barquilla+10
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image6.left=posicion(sitio).x
  image6.top=posicion(sitio).y
End Sub
 

Me apuesto 2 chicles a que funciona.

[truskyvb]

Gracias por responder. Lo pruebo y comento. Seguro que ganas los dos chicles, pero un código complicado en mis manos... puede pasar cualquier cosa.

Gracias

[truskyvb]

¡Sí! Invitado a los chicles virtuales que quieras. Funcionó a la primera. Muchas gracias.
Un saludo

[truskyvb]

Encontré un código que trasteándolo un poco también
gira las 7 imágenes sin posicionarlas. Dejo el código por si le sirve a alguien.

Sólo hay que modicar el Radio para espaciar entre sí las imágenes.

Código:

 
Static Grado%
Dim Radio!, CPi!
Dim cx!, cy!
CPi = Atn(1) / 45 'Para pasar de Sexagesimales a radianes
Radio = IIf(Me.Height > Me.Width, Me.Width / 3, Me.Height / 3) 'Radio de giro
cx = Me.Width / 2 'Centro de giro en X
cy = Me.Height / 2 'Centro de giro en Y

If Grado = 360 Then
 Grado = 1
Else
 Grado = Grado + 1
End If

With Image1
 .Left = cx + Radio * Cos(Grado * CPi) - .Width / 2
 .Top = cy + Radio * Sin(Grado * CPi) - .Height / 2
End With

With Image2
 .Left = cx - Radio * Cos(Grado * CPi) - .Width / 2
 .Top = cy - Radio * Sin(Grado * CPi) - .Height / 2
End With

With Image3
 .Left = cx - Radio * Cos((Grado + 90) * CPi) - .Width / 2
 .Top = cy - Radio * Sin((Grado + 90) * CPi) - .Height / 2
End With

With Image4
 .Left = cx + Radio * Cos((Grado + 90) * CPi) - .Width / 2
 .Top = cy + Radio * Sin((Grado + 90) * CPi) - .Height / 2
End With

With Image5
 .Left = cx + Radio * Cos((Grado - 45) * CPi) - .Width / 2
 .Top = cy + Radio * Sin((Grado - 45) * CPi) - .Height / 2
End With

With Image6
 .Left = cx - Radio * Cos((Grado - 45) * CPi) - .Width / 2
 .Top = cy - Radio * Sin((Grado - 45) * CPi) - .Height / 2
End With

With Image7
 .Left = cx - Radio * Cos((Grado + 45) * CPi) - .Width / 2
 .Top = cy - Radio * Sin((Grado + 45) * CPi) - .Height / 2
End With

With Image8
 .Left = cx + Radio * Cos((Grado + 45) * CPi) - .Width / 2
 .Top = cy + Radio * Sin((Grado + 45) * CPi) - .Height / 2
End With

' Y así sucesivamente

No sé poner las funciones de Copiar en los mensajes, lo siento. Si alguien me lo explica se lo agradezco porque es muy cómodo de utlizar.

Un saludo