ascensor final (por nico)

aca esta el codigo final del ascensor de vb

Private Sub botonuno_Click()
ascensor.Top = 5040
piso1.Caption = " 1"
pb.Caption = " 1"
ss.Caption = " 1"
piso2.Caption = " 1"
piso3.Caption = " 1"
piso4.Caption = " 1"
piso5.Caption = " 1"
auxiliar5.Caption = auxiliar5.Caption + 1
End Sub

Private Sub botondos_Click()
ascensor.Top = 3840
piso1.Caption = " 2"
pb.Caption = " 2"
ss.Caption = " 2"
piso2.Caption = " 2"
piso3.Caption = " 2"
piso4.Caption = " 2"
piso5.Caption = " 2"
auxiliar4.Caption = auxiliar4.Caption + 1
End Sub

Private Sub botontres_Click()
ascensor.Top = 2640
piso1.Caption = " 3"
pb.Caption = " 3"
ss.Caption = " 3"
piso2.Caption = " 3"
piso3.Caption = " 3"
piso4.Caption = " 3"
piso5.Caption = " 3"
auxiliar3.Caption = auxiliar3.Caption + 1
End Sub

Private Sub botoncuatro_Click()

ascensor.Top = 1440
piso1.Caption = " 4"
pb.Caption = " 4"
ss.Caption = " 4"
piso2.Caption = " 4"
piso3.Caption = " 4"
piso4.Caption = " 4"
piso5.Caption = " 4"
auxiliar2.Caption = auxiliar2.Caption + 1
End Sub

Private Sub botoncinco_Click()
ascensor.Top = 240
piso1.Caption = " 5"
pb.Caption = " 5"
ss.Caption = " 5"
piso2.Caption = " 5"
piso3.Caption = " 5"
piso4.Caption = " 5"
piso5.Caption = " 5"
auxiliar1.Caption = auxiliar1.Caption + 1
End Sub


Private Sub cero_Click()
contraseña.Text = contraseña.Text + "0"
End Sub

Private Sub cinco_Click()
contraseña.Text = contraseña.Text + "5"
End Sub

Private Sub cuatro_Click()
contraseña.Text = contraseña.Text + "4"
End Sub

Private Sub dos_Click()
contraseña.Text = contraseña.Text + "2"
End Sub



Private Sub go_Click()
If contraseña.Text = "4857123" Then
ascensor.Top = 240
piso1.Caption = " 5"
pb.Caption = " 5"
ss.Caption = " 5"
piso2.Caption = " 5"
piso3.Caption = " 5"
piso4.Caption = " 5"
piso5.Caption = " 5"
auxiliar1.Caption = auxiliar1.Caption + 1
contraseña.Text = ""
Else
contraseña.Visible = False
go.Visible = False
uno.Visible = False
dos.Visible = False
tres.Visible = False
cuatro.Visible = False
cinco.Visible = False
seis.Visible = False
siete.Visible = False
ocho.Visible = False
nueve.Visible = False
cero.Visible = False
auxiliar1.Caption = auxiliar1.Caption - 1
End If
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbgrey Then
ascensor.FillColor = vbYellow
Else
ascensor.FillColor = vbgrey
End If
End Sub

Private Sub nivel1_Click()
ascensor.Top = 5040
piso1.Caption = " 1"
pb.Caption = " 1"
ss.Caption = " 1"
piso2.Caption = " 1"
piso3.Caption = " 1"
piso4.Caption = " 1"
piso5.Caption = " 1"
auxiliar5.Caption = auxiliar5.Caption + 1
End Sub

Private Sub nivel2_Click()
ascensor.Top = 3840
piso1.Caption = " 2"
pb.Caption = " 2"
ss.Caption = " 2"
piso2.Caption = " 2"
piso3.Caption = " 2"
piso4.Caption = " 2"
piso5.Caption = " 2"
auxiliar4.Caption = auxiliar4.Caption + 1
End Sub

Private Sub nivel3_Click()
ascensor.Top = 2640
piso1.Caption = " 3"
pb.Caption = " 3"
ss.Caption = " 3"
piso2.Caption = " 3"
piso3.Caption = " 3"
piso4.Caption = " 3"
piso5.Caption = " 3"
auxiliar3.Caption = auxiliar3.Caption + 1
End Sub

Private Sub nivel4_Click()
ascensor.Top = 1440
piso1.Caption = " 4"
pb.Caption = " 4"
ss.Caption = " 4"
piso2.Caption = " 4"
piso3.Caption = " 4"
piso4.Caption = " 4"
piso5.Caption = " 4"
auxiliar2.Caption = auxiliar2.Caption + 1
End Sub

Private Sub nivel5_Click()
contraseña.Visible = True
go.Visible = True
uno.Visible = True
dos.Visible = True
tres.Visible = True
cuatro.Visible = True
cinco.Visible = True
seis.Visible = True
siete.Visible = True
ocho.Visible = True
nueve.Visible = True
cero.Visible = True

End Sub

Private Sub nueve_Click()
contraseña.Text = contraseña.Text + "9"
End Sub

Private Sub ocho_Click()
contraseña.Text = contraseña.Text + "8"
End Sub

Private Sub pisopb_Click()
ascensor.Top = 6240
piso1.Caption = " pb"
pb.Caption = " pb"
ss.Caption = " pb"
piso2.Caption = " pb"
piso3.Caption = " pb"
piso4.Caption = " pb"
piso5.Caption = " pb"
auxiliar6.Caption = auxiliar6.Caption + 1
End Sub

Private Sub pisoss_Click()
ascensor.Top = 7440
piso1.Caption = " ss"
pb.Caption = " ss"
ss.Caption = " ss"
piso2.Caption = " ss"
piso3.Caption = " ss"
piso4.Caption = " ss"
piso5.Caption = " ss"
auxiliar7.Caption = auxiliar7.Caption + 1
End Sub

Private Sub seis_Click()
contraseña.Text = contraseña.Text + "6"
End Sub

Private Sub siete_Click()
contraseña.Text = contraseña.Text + "7"
End Sub

Private Sub ssboton_Click()
ascensor.Top = 7440
piso1.Caption = " ss"
pb.Caption = " ss"
ss.Caption = " ss"
piso2.Caption = " ss"
piso3.Caption = " ss"
piso4.Caption = " ss"
piso5.Caption = " ss"
auxiliar7.Caption = auxiliar7.Caption + 1
End Sub



Private Sub pboton_Click()
ascensor.Top = 6240
piso1.Caption = " pb"
pb.Caption = " pb"
ss.Caption = " pb"
piso2.Caption = " pb"
piso3.Caption = " pb"
piso4.Caption = " pb"
piso5.Caption = " pb"
auxiliar6.Caption = auxiliar6.Caption + 1
End Sub

Private Sub parar_Click()
If pboton.Enabled = True Then
luz.Enabled = False
pboton.Enabled = False
ssboton.Enabled = False
botonuno.Enabled = False
botondos.Enabled = False
botontres.Enabled = False
botoncuatro.Enabled = False
botoncinco.Enabled = False
pisoss.Enabled = False
pisopb.Enabled = False
nivel1.Enabled = False
nivel2.Enabled = False
nivel3.Enabled = False
nivel4.Enabled = False
nivel5.Enabled = False
Else
luz.Enabled = True
pboton.Enabled = True
ssboton.Enabled = True
botonuno.Enabled = True
botondos.Enabled = True
botontres.Enabled = True
botoncuatro.Enabled = True
botoncinco.Enabled = True
pisoss.Enabled = True
pisopb.Enabled = True
nivel1.Enabled = True
nivel2.Enabled = True
nivel3.Enabled = True
nivel4.Enabled = True
nivel5.Enabled = True

End If
End Sub

Private Sub tres_Click()
contraseña.Text = contraseña.Text + "3"
End Sub

Private Sub uno_Click()
contraseña.Text = contraseña.Text + "1"
End Sub