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

Añade tu respuesta

Haz clic para o