Mi ascensor no sube del piso 1 al 2 lo demás todo bien, no encuentro la condición para que funcione ese detalle. Visual Basic
Piso 1 al 3 sube y en bajada del 3 al 3 y del 2 al 1 y 3 al 1, pero solo para subir del piso 1 al piso 2 he ahí en donde no funciona como ya esta declaradoel botón 2 para bajar con su respectivo timmer... He aquí el código de visual basic windows forms
Public Class Form1
Dim x As Integer
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer2.Enabled = False
Timer1.Enabled = True
Timer3.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer3.Enabled = True
Timer2.Enabled = False
Timer1.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
x = PictureBox1.Top
x = x + 10
PictureBox1.Top = x
If PictureBox1.Top > 283 Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
x = PictureBox1.Top
x = x + 10
PictureBox1.Top = x
If PictureBox1.Top > 148 Then
Timer2.Enabled = False
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
x = PictureBox1.Top
x = x - 10
PictureBox1.Top = x
If PictureBox1.Top < 0 Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End If
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
x = PictureBox1.Top
x = x - 10
PictureBox1.Top = x
If PictureBox1.Top < 148 Then
Timer2.Enabled = False
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
End Sub
End Class