Quiero realizar un ascensor en visual basic
Como estás. Tengo un problemita. ¿Realizar un ascensor en visual basic, es decir, como hacer? Para que obedezca a los botones que uno presiona para llevar ha determinado piso un objeto que se desplace de acuerdo a los botones que uno presione.
Es decir si apretó el botón 4, como hacer para que el objeto(SHAPE)se desplace hacia dicho lugar.
Empecé con:
Private Sub Timer1_Timer()
If Shape1.Top < 4500 Then
Shape1.Top = Shape1.Top + 10
LUEGO No sé que comandos debería usar...
Es decir si apretó el botón 4, como hacer para que el objeto(SHAPE)se desplace hacia dicho lugar.
Empecé con:
Private Sub Timer1_Timer()
If Shape1.Top < 4500 Then
Shape1.Top = Shape1.Top + 10
LUEGO No sé que comandos debería usar...
2 Respuestas
Respuesta de manusoftar
1
Yo haría algo así, si es que entendí lo que quieres hacer:
private sub command1_click()
estado= 1
call timer1.timer(1)
end sub
private sub command2_click()
estado= 1
call timer1.timer(2)
end sub
private sub timer1_timer(piso as integer)
if estado<>1 then
estado= 0
1 If Shape1. Top < 4500 and Shape1. Top > 3000 Then //suponiendo que el primer piso o el planta baja esta en 3000.
Shape1.Top = Shape1.Top + 10
goto 2
else
Shape1.Top = Shape1.Top - 10
goto 2
end if
else
estado= 1
end if
goto 3
2 select case piso
case 1: if Shape1.Top=3000 then
goto 3
else
goto 1
end if
case 2: if Shape1.Top=3500 then
goto 3
else
goto 1
end if
end select
3 estado= 0
end sub
Algo así, en este caso solo hay 2 pisos, se pueden agregar más, y se puede usar otra sub que no se timer para accionar el elevador.
Atentamente. Manuel Fernández.
private sub command1_click()
estado= 1
call timer1.timer(1)
end sub
private sub command2_click()
estado= 1
call timer1.timer(2)
end sub
private sub timer1_timer(piso as integer)
if estado<>1 then
estado= 0
1 If Shape1. Top < 4500 and Shape1. Top > 3000 Then //suponiendo que el primer piso o el planta baja esta en 3000.
Shape1.Top = Shape1.Top + 10
goto 2
else
Shape1.Top = Shape1.Top - 10
goto 2
end if
else
estado= 1
end if
goto 3
2 select case piso
case 1: if Shape1.Top=3000 then
goto 3
else
goto 1
end if
case 2: if Shape1.Top=3500 then
goto 3
else
goto 1
end if
end select
3 estado= 0
end sub
Algo así, en este caso solo hay 2 pisos, se pueden agregar más, y se puede usar otra sub que no se timer para accionar el elevador.
Atentamente. Manuel Fernández.
Respuesta de rogersr
1
Lo que debes hacer es controlar la posición del ascensor desde los CommandButton, de acuerdo al piso donde quieres que vaya, algo así como:
Private Sub Command1_Click()
'Ascensor al piso 1
Shape1.Top = 3450
End Sub
Private Sub Command2_Click()
'Ascensor al piso 2
Shape1.Top = 2490
End Sub
Private Sub Command3_Click()
'Ascensor al piso 3
Shape1.Top = 1500
End Sub
Si deseas un desplazamiento lento del Shape entonces escribes un For donde vas desplazando el ascensor, pero tienes que validar la posición del Shape antes de ejecutar el For.
Espero que me entiendas, si no es así me envías tus comentarios SIN finalizar la pregunta, de lo contrario pues listo ...
Suerte !
Rogers R.
Private Sub Command1_Click()
'Ascensor al piso 1
Shape1.Top = 3450
End Sub
Private Sub Command2_Click()
'Ascensor al piso 2
Shape1.Top = 2490
End Sub
Private Sub Command3_Click()
'Ascensor al piso 3
Shape1.Top = 1500
End Sub
Si deseas un desplazamiento lento del Shape entonces escribes un For donde vas desplazando el ascensor, pero tienes que validar la posición del Shape antes de ejecutar el For.
Espero que me entiendas, si no es así me envías tus comentarios SIN finalizar la pregunta, de lo contrario pues listo ...
Suerte !
Rogers R.