ascensor final (por ARI)

Private Sub borrar_Click()
contraseña = "contraseña."
subsdos.Enabled = True
controlsubsuelodos.Enabled = True
End Sub





Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then

ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
psubsuelodos.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
If ascensor.Top = 3000 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then

ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
psubsuelodos.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
If ascensor.Top = 4200 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then


ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
psubsuelodos.Caption = "ss"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
If ascensor.Top = 4800 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
subsdos.Enabled = True
End Sub

Private Sub controlsubsuelodos_Click()
If contraseña = "pepitos" Then
ascensor.Top = 1200
ptres.Caption = "subsdos"
pdos.Caption = "subsdos"
puno.Caption = "subsdos"
ppb.Caption = "subsdos"
pss.Caption = "subsdos"
psubsuelodos.Caption = "subsdos"
pisos.Caption = "subsdos"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If


ascensor.Top = 5280
If ascensor.Top = 5280 Then
ptres.Caption = "SS2"
pdos.Caption = "SS2"
puno.Caption = "SS2"
ppb.Caption = "SS2"
pss.Caption = "SS2"
psubsuelodos.Caption = "SS2"
pisos.Caption = "SS2"
End If
If ascensor.Top = 5280 Then
csubdos.Caption = csubdos.Caption + 1
End If
If ascensor.Top = 5280 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = False

End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then

ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
psubsuelodos.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
If ascensor.Top = 2400 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True

End Sub


Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then


ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
psubsuelodos.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
If ascensor.Top = 3600 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub



Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
psubsuelodos.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
If ascensor.Top = 3000 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub escriba_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ir_Click()
If contraseña.Text = "troto" Then
ascensor.Top = 5280
If ascensor.Top = 5280 Then
ptres.Caption = "ss2"
pdos.Caption = "ss2"
puno.Caption = "ss2"
ppb.Caption = "ss2"
pss.Caption = "ss2"
psubsuelodos.Caption = "ss2"
pisos.Caption = "ss2"
End If
If ascensor.Top = 5280 Then
csubdos.Caption = csubdos.Caption + 1
End If
If ascensor.Top = 5280 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = False
Else
contraseña.Visible = False
ir.Visible = False
Borrar.Visible = False
End If
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then

ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
psubsuelodos.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
If ascensor.Top = 4200 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
subsdos.Enabled = True
subsdos.Enabled = True
End Sub



Private Sub reiniciar_Click()

ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
csubdos.Caption = "0"
total.Caption = "0"
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then

ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
psubsuelodos.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
If ascensor.Top = 4800 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
subsdos.Enabled = True
End Sub

Private Sub stop_Click()
If tres.Enabled = True Then
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
subsdos.Enabled = False


controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
controlsubsuelodos.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If tres.Enabled = False Then

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
controlsubsuelodos.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub subs_Click()

End Sub

Private Sub subsdos_Click()
contraseña.Visible = True
Borrar.Visible = True
ir.Visible = True


End Sub


Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then

ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
psubsuelodos.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
If ascensor.Top = 2400 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
psubsuelodos.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
If ascensor.Top = 3600 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub