Foro de elhacker.net

Hola bnas tardes quisiera una pequeña ayuda cn mi progrma q es una simulacion de cajeros de una clinica

quisiera que cuando la imagen1 llegue a la posicion de las otras 3 imagenes ellas suban pero claro el image1 q regrese a su posicion inicial aqui lo q he hecho

Dim cont As Integer
Dim contc As Integer
 
Private Sub Command1_Click()
Dim num As Integer
Randomize
num = Int((3) * Rnd + 1)
Text7.Text = num
cont = 0
Timer1.Enabled = True
Timer1.Interval = 1000
 
 
tiempo = InputBox("Escriba el tiempo de Simulacion", "Simulacion de Clinica")
Label7.Caption = tiempo
End Sub
 
Private Sub Timer1_Timer()
 
 
 
Select Case Val(Text7.Text)
 
   Case 1:
   Image1.Left = Image1.Left - 20
   If (Image1.Left = -3480) Then
       Image2.Top = Image2.Top + 20
End If
 Case 2:
   Image1.Left = Image1.Left - 20
   If (Image1.Left = 2160) Then
       Image3.Top = Image2.Top + 20
End If
 Case 3:
   Image1.Left = Image1.Left - 20
   If (Image1.Left = 840) Then
       Image2.Top = Image2.Top + 20
End If
  End Select
 

el boton q esta en la parte de arriba solo es referencia q ahi van ·cajeros, porfa una ayudita

(http://i61.tinypic.com/54g18m.jpg)

reyeesg el movimiento de la imagen 1 es vectorial, asi que para que vuelva a su sitio debes restar el módulo de la imagen 1 en la posicion final entre la inicial. Es decir, tienes que restar a la posicion después de haberse movido de la imagen 1 su posicion al principio, cuando no se ha movido.
El resultado es a distancia que ha recorrido la imaagen1, lo cual se lo vueles a restar a la posicion final para que te de su posicion antes de moverse por ultima vez.
Despues que la imagen se haya cambiado de posicion, la mueves al principio de esa manera

Private Sub Command1_Click()
Dim num As Integer
 
Randomize
num = Int((3) * Rnd + 1)
Text1.Text = num
 
Timer1.Enabled = True
Timer1.Interval = 300
 
tiempo = InputBox("Escriba el tiempo")
Label1.Caption = tiempo
 
 
End Sub
 
 
Private Sub Label1_Change()
'contador de clientes
Select Case (num)
Case 1:
If Image1.Left = 5000 Then
Label2.Caption = Label2 + 1
Image1.Left = 7000
End If
Case 2:
If Image1.Left = 3000 Then
Label2.Caption = Label2 + 1
Image1.Left = 7000
End If
 
Case 3:
If Image1.Left = 1000 Then
Label2.Caption = Label2 + 1
Image1.Left = 7000
End If
End Select
 
End Sub
 
 
Private Sub Label2_Change()
 
If Image1.Left = 5000 Then
Randomize
num = Int((3) * Rnd + 1)
Text1.Text = num
End If
 
If Image1.Left = 3000 Then
Randomize
num = Int((3) * Rnd + 1)
Text1.Text = num
End If
 
If Image1.Left = 1000 Then
Randomize
num = Int((3) * Rnd + 1)
Text1.Text = num
End If
 
End Sub
 
 
 
Private Sub Timer1_Timer()
 
Label1.Caption = Label1.Caption - 1
Image1.Left = Image1.Left - 100
 
Select Case (num)
Case 1:
  If Image1.Left = -5000 Then
      Image2.Visible = True
      Image1.Left = Image1.Left - 100
      ElseIf Image2.Visible = True Then
      Image1.Left = -7000
End If
 
Case 2:
 
 
  If Image1.Left = -3000 Then
      Image3.Visible = True
      Image1.Left = Image1.Left - 100
      ElseIf Image3.Visible = True Then
      Image1.Left = -7000
End If
 
  Case 3:
  If Image1.Left = -1000 Then
      Image4.Visible = True
      Image1.Left = Image1.Left - 100
      ElseIf Image4.Visible = True Then
      Image1.Left = -7000
End If
 
End Select
 
 
End Sub

Ve la imagen1 es la inicial esta en la posicion 7000
imagen 2=5000
imagen 3=3000
imagen 4= 1000

ahi me enrede ya, :s no pedo hacer q me funcione al pelo porq la idea q tengo es q cuando este visible las imagenes 2,3 y 4 en el otro timer meterle lo del movimieento para q suban a los cajeros, una vez en los cajeros debo hacerle otra cosa aleatoria para q genere aleatoriamente tipo de cliente(regular o preferencia) tipo de poliza( particular, por seguro o exonerado)