2D Blog de TIC: ascensor

Showing posts with label ascensor. Show all posts

Thursday, November 20, 2008

Ascensor terminado (por Lau)

Private Sub Boton1_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = False
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 4440
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(Cantpiso1.Caption) + 1

End Sub

Private Sub Boton12_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = False
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 4440
Numpisoo.Caption = 1
Numpisoss2.Caption = 1
Numpisopb2.Caption = 1
Numpiso12.Caption = 1
Numpiso22.Caption = 1
Numpiso32.Caption = 1
Numpiso42.Caption = 1
Numpiso52.Caption = 1
Cantpiso12.Caption = Val(Cantpiso12.Caption) + 1
End Sub

Private Sub Boton2_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(2)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = False
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 3360
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(Cantpiso2.Caption) + 1

End Sub

Private Sub Boton22_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(2)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = False
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 3360
Numpisoo.Caption = 2
Numpisoss2.Caption = 2
Numpisopb2.Caption = 2
Numpiso12.Caption = 2
Numpiso22.Caption = 2
Numpiso32.Caption = 2
Numpiso42.Caption = 2
Numpiso52.Caption = 2
Cantpiso22.Caption = Val(Cantpiso22.Caption) + 1
End Sub

Private Sub Boton3_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(3)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = False
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 2280
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1

End Sub

Private Sub Boton32_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(3)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = False
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 2280
Numpisoo.Caption = 3
Numpisoss2.Caption = 3
Numpisopb2.Caption = 3
Numpiso12.Caption = 3
Numpiso22.Caption = 3
Numpiso32.Caption = 3
Numpiso42.Caption = 3
Numpiso52.Caption = 3
Cantpiso32.Caption = Val(Cantpiso32.Caption) + 1
End Sub

Private Sub Boton4_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(4)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = False
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 1200
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(Cantpiso4.Caption) + 1

End Sub

Private Sub Boton42_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(4)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = False
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 1200
Numpisoo.Caption = 4
Numpisoss2.Caption = 4
Numpisopb2.Caption = 4
Numpiso12.Caption = 4
Numpiso22.Caption = 4
Numpiso32.Caption = 4
Numpiso42.Caption = 4
Numpiso52.Caption = 4
Cantpiso42.Caption = Val(Cantpiso42.Caption) + 1
End Sub

Private Sub Boton5_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(5)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = False
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 120
Numpiso.Caption = 5
Numpiso.Caption = 5
NumpisoSS.Caption = 5
NumpisoPB.Caption = 5
Numpiso1.Caption = 5
Numpiso2.Caption = 5
Numpiso3.Caption = 5
Numpiso4.Caption = 5
Numpiso5.Caption = 5
Cantpiso5.Caption = Val(Cantpiso5.Caption) + 1

End Sub

Private Sub Boton52_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(5)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = False
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 120
Numpisoo.Caption = 5
Numpisoss2.Caption = 5
Numpisopb2.Caption = 5
Numpiso12.Caption = 5
Numpiso22.Caption = 5
Numpiso32.Caption = 5
Numpiso42.Caption = 5
Numpiso52.Caption = 5
Cantpiso52.Caption = Val(Cantpiso52.Caption) + 1
End Sub

Private Sub BotonPB_Click()
contra.Text = ""
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(0)) ^ 2)
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = False
BotonSS.Enabled = True
Ascensor.Top = 5520
Numpiso.Caption = 0
NumpisoSS.Caption = 0
NumpisoPB.Caption = 0
Numpiso1.Caption = 0
Numpiso2.Caption = 0
Numpiso3.Caption = 0
Numpiso4.Caption = 0
Numpiso5.Caption = 0
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub Botonpb2_Click()
contra2.Text = ""
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(0)) ^ 2)
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = False
Botonss2.Enabled = True
ascensor2.Top = 5520
Numpisoo.Caption = 0
Numpisoss2.Caption = 0
Numpisopb2.Caption = 0
Numpiso12.Caption = 0
Numpiso22.Caption = 0
Numpiso32.Caption = 0
Numpiso42.Caption = 0
Numpiso52.Caption = 0
Cantpisopb2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub BotonSS_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(-1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = False
Ascensor.Top = 6600
Numpiso.Caption = -1
NumpisoSS.Caption = -1
NumpisoPB.Caption = -1
Numpiso1.Caption = -1
Numpiso2.Caption = -1
Numpiso3.Caption = -1
Numpiso4.Caption = -1
Numpiso5.Caption = -1
CantpisoSS.Caption = Val(CantpisoSS.Caption) + 1

End Sub

Private Sub Command1_Click()
End Sub

Private Sub Botonss2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(-1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = False
ascensor2.Top = 6600
Numpisoo.Caption = -1
Numpisoss2.Caption = -1
Numpisopb2.Caption = -1
Numpiso12.Caption = -1
Numpiso22.Caption = -1
Numpiso32.Caption = -1
Numpiso42.Caption = -1
Numpiso52.Caption = -1
Cantpisoss2.Caption = Val(Cantpisoss2.Caption) + 1

End Sub

Private Sub Enter_Click()
If contra.Text = "3899" Then
Ascensor.Top = 120
Else
contra.Enabled = False
Enter.Enabled = False
End If
contra.Text = ""
contra.Enabled = False
Enter.Enabled = False
End Sub

Private Sub Enter2_Click()
If contra2.Text = "3899" Then
ascensor2.Top = 120
Else
contra2.Enabled = False
Enter2.Enabled = False
End If
contra2.Text = ""
contra2.Enabled = False
Enter2.Enabled = False
End Sub

Private Sub Luz_Click()
If Ascensor.BackColor = vbBlack Then
Ascensor.BackColor = vbYellow
Else
Ascensor.BackColor = vbBlack
End If

End Sub

Private Sub Luz2_Click()
If ascensor2.BackColor = vbBlack Then
ascensor2.BackColor = vbYellow
Else
ascensor2.BackColor = vbBlack
End If
End Sub

Private Sub PBNum_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(0)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = False
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 5520
Numpiso.Caption = 0
NumpisoSS.Caption = 0
NumpisoPB.Caption = 0
Numpiso1.Caption = 0
Numpiso2.Caption = 0
Numpiso3.Caption = 0
Numpiso4.Caption = 0
Numpiso5.Caption = 0
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub pbnum2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(0)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = False
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 5520
Numpisoo.Caption = 0
Numpisoss2.Caption = 0
Numpisopb2.Caption = 0
Numpiso12.Caption = 0
Numpiso22.Caption = 0
Numpiso32.Caption = 0
Numpiso42.Caption = 0
Numpiso52.Caption = 0
Cantpisopb2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub SSNum_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(-1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = False
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 6600
Numpiso.Caption = -1
NumpisoSS.Caption = -1
NumpisoPB.Caption = -1
Numpiso1.Caption = -1
Numpiso2.Caption = -1
Numpiso3.Caption = -1
Numpiso4.Caption = -1
Numpiso5.Caption = -1
CantpisoSS.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub SSnum2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(-1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = False
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 6600
Numpiso2.Caption = -1
Numpisoss2.Caption = -1
Numpisopb2.Caption = -1
Numpiso12.Caption = -1
Numpiso22.Caption = -1
Numpiso32.Caption = -1
Numpiso42.Caption = -1
Numpiso52.Caption = -1
Cantpisoss2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub Stop1_Click()
If Luz.Enabled = True Then
Luz.Enabled = False
PBNum.Enabled = False
teclado1.Enabled = False
teclado2.Enabled = False
teclado3.Enabled = False
teclado4.Enabled = False
teclado5.Enabled = False
SSNum.Enabled = False
BotonPB.Enabled = False
BotonSS.Enabled = False
Boton1.Enabled = False
Boton2.Enabled = False
Boton3.Enabled = False
Boton4.Enabled = False
Boton5.Enabled = False
contadorpiso.Caption = "0"
Ascensor.BackColor = vbBlack
Else
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
SSNum.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Luz.Enabled = True
End If
contra.Text = ""
CantpisoSS.Caption = "0"
CantpisoPB.Caption = "0"
Cantpiso1.Caption = "0"
Cantpiso2.Caption = "0"
Cantpiso3.Caption = "0"
Cantpiso4.Caption = "0"
Cantpiso5.Caption = "0"
If Stop1.Caption = "Stop" Then
Stop1.Caption = "Enable"
Else
Stop1.Caption = "Stop"
End If

End Sub

Private Sub Stop2_Click()
If Luz2.Enabled = True Then
Luz2.Enabled = False
pbnum2.Enabled = False
teclado12.Enabled = False
teclado22.Enabled = False
teclado32.Enabled = False
teclado42.Enabled = False
teclado52.Enabled = False
SSnum2.Enabled = False
Botonpb2.Enabled = False
Botonss2.Enabled = False
Boton12.Enabled = False
Boton22.Enabled = False
Boton32.Enabled = False
Boton42.Enabled = False
Boton52.Enabled = False
contadorpiso2.Caption = "0"
ascensor2.BackColor = vbBlack
Else
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
SSnum2.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
Boton12.Enabled = True
Boton22.Enabled = True
Boton32.Enabled = True
Boton42.Enabled = True
Boton52.Enabled = True
Luz2.Enabled = True
End If
contra2.Text = ""
Cantpisoss2.Caption = "0"
Cantpisopb2.Caption = "0"
Cantpiso12.Caption = "0"
Cantpiso22.Caption = "0"
Cantpiso32.Caption = "0"
Cantpiso42.Caption = "0"
Cantpiso52.Caption = "0"
If Stop2.Caption = "Stop" Then
Stop2.Caption = "Enable"
Else
Stop2.Caption = "Stop"
End If
End Sub

Private Sub teclado1_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = False
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 4440
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado12_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = False
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 4440
Numpisoo.Caption = 1
Numpisoss2.Caption = 1
Numpisopb2.Caption = 1
Numpiso12.Caption = 1
Numpiso22.Caption = 1
Numpiso32.Caption = 1
Numpiso42.Caption = 1
Numpiso52.Caption = 1
Cantpiso12.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado2_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(2)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = False
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 3360
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado22_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(2)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = False
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 3360
Numpisoo.Caption = 2
Numpisoss2.Caption = 2
Numpisopb2.Caption = 2
Numpiso12.Caption = 2
Numpiso22.Caption = 2
Numpiso32.Caption = 2
Numpiso42.Caption = 2
Numpiso52.Caption = 2
Cantpiso22.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado3_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(3)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = False
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 2280
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1

End Sub

Private Sub teclado32_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(3)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = False
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 2280
Numpisoo.Caption = 3
Numpisoss2.Caption = 3
Numpisopb2.Caption = 3
Numpiso12.Caption = 3
Numpiso22.Caption = 3
Numpiso32.Caption = 3
Numpiso42.Caption = 3
Numpiso52.Caption = 3
Cantpiso32.Caption = Val(Cantpiso32.Caption) + 1
End Sub

Private Sub teclado4_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(4)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = False
teclado5.Enabled = True
Ascensor.Top = 1200
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado42_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(4)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = False
teclado52.Enabled = True
ascensor2.Top = 1200
Numpisoo.Caption = 4
Numpisoss2.Caption = 4
Numpisopb2.Caption = 4
Numpiso12.Caption = 4
Numpiso22.Caption = 4
Numpiso32.Caption = 4
Numpiso42.Caption = 4
Numpiso52.Caption = 4
Cantpiso42.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado5_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(5)) ^ 2)
contra.Text = ""
Enter.Enabled = True
contra.Enabled = True
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = False

End Sub

Private Sub teclado52_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(5)) ^ 2)
contra2.Text = ""
Enter2.Enabled = True
contra2.Enabled = True
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = False
End Sub

Wednesday, November 19, 2008

Ascensor 5 (por marto)

Private Sub borrar_Click()
contraseña = "contraseña."
cinco.Enabled = True
controlcinco.Enabled = True
End Sub

Private Sub cinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True

End Sub

Private Sub controlcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub controlss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub controltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
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()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub reiniciar_Click()
ccinco.Caption = "0"
ccuatro.Caption = "0"
ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
total.Caption = "0"
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
borrar.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
borrar.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub total_Click()

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Ascensor 4 (por marto)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
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
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 3 (por marto)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ccinco_Click(Index As Integer)

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
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
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 2 (por marto)

Private Sub L1_Click()ascensor.Top = 4680End Sub
Private Sub L2_Click()ascensor.Top = 3720End Sub
Private Sub L3_Click()ascensor.Top = 2640End Sub
Private Sub L4_Click()ascensor.Top = 1560End Sub
Private Sub L5_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub

Private Sub llamar1_Click()ascensor.Top = 4680End Sub
Private Sub llamarcinco_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub
Private Sub llamarcuatro_Click()ascensor.Top = 1560End Sub
Private Sub llamardos_Click()ascensor.Top = 3720End Sub
Private Sub llamarpb_Click()ascensor.Top = 5640End Sub
Private Sub llamarss_Click()ascensor.Top = 6480End Sub
Private Sub llamartres_Click()ascensor.Top = 2640End Sub
Private Sub LPB_Click()ascensor.Top = 5640End Sub
Private Sub LSS_Click()ascensor.Top = 6480End Sub
Private Sub luz_Click()If ascensor.FillColor = vbBlack Thenascensor.FillColor = vbWhiteElseIf ascensor.FillColor = vbWhite Thenascensor.FillColor = vbBlack
End If
End IfEnd Sub
Private Sub stop_Click()If llamar1.Enabled = True Thenllamar1.Enabled = Falsellamardos.Enabled = Falsellamartres.Enabled = Falsellamarcuatro.Enabled = Falsellamarcinco.Enabled = Falsellamarss.Enabled = Falsellamarpb.Enabled = FalseL1.Enabled = FalseL2.Enabled = FalseL3.Enabled = FalseL4.Enabled = FalseL5.Enabled = FalseLPB.Enabled = FalseLSS.Enabled = Falseluz.Enabled = Falsell1.Enabled = Falsell2.Enabled = Falsell3.Enabled = Falsell4.Enabled = Falsell5.Enabled = Falsellss.Enabled = Falsellpb.Enabled = FalseElsellamar1.Enabled = Truellamardos.Enabled = Truellamartres.Enabled = Truellamarcuatro.Enabled = Truellamarcinco.Enabled = Truellamarss.Enabled = Truellamarpb.Enabled = TrueL1.Enabled = TrueL2.Enabled = TrueL3.Enabled = TrueL4.Enabled = TrueL5.Enabled = TrueLPB.Enabled = TrueLSS.Enabled = Trueluz.Enabled = Truell1.Enabled = Truell2.Enabled = Truell3.Enabled = Truell4.Enabled = Truell5.Enabled = Truellss.Enabled = Truellpb.Enabled = TrueEnd If
End Sub

Ascensor 1 (por marto)

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click(Index As Integer)
ascensor.Top = 1200
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
End Sub

Private Sub cuatro_Click(Index As Integer)
ascensor.Top = 1800
End Sub

Private Sub dos_Click(Index As Integer)
ascensor.Top = 3000
End Sub

Private Sub pb_Click(Index As Integer)
ascensor.Top = 4200
End Sub

Private Sub ss_Click(Index As Integer)
ascensor.Top = 4800
End Sub

Private Sub tres_Click(Index As Integer)
ascensor.Top = 2400
End Sub

Private Sub uno_Click(Index As Integer)
ascensor.Top = 3600
End Sub

Thursday, November 13, 2008

Ascensor (por guido)

Private Sub Boton1_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = False
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 4800
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(Cantpiso1.Caption) + 1
End Sub

Private Sub Boton2_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = False
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 3720
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(Cantpiso2.Caption) + 1
End Sub

Private Sub Boton3_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = False
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 2640
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1
End Sub

Private Sub Boton4_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = False
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 1560
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(Cantpiso4.Caption) + 1
End Sub

Private Sub Boton5_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = False
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 480
Numpiso.Caption = 5
Numpiso.Caption = 5
NumpisoSS.Caption = 5
NumpisoPB.Caption = 5
Numpiso1.Caption = 5
Numpiso2.Caption = 5
Numpiso3.Caption = 5
Numpiso4.Caption = 5
Numpiso5.Caption = 5
Cantpiso5.Caption = Val(Cantpiso5.Caption) + 1
End Sub

Private Sub BotonPB_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = False
BotonSS.Enabled = True
Ascensor.Top = 5880
Numpiso.Caption = PB
Numpiso.Caption = PB
NumpisoSS.Caption = PB
NumpisoPB.Caption = PB
Numpiso1.Caption = PB
Numpiso2.Caption = PB
Numpiso3.Caption = PB
Numpiso4.Caption = PB
Numpiso5.Caption = PB
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub BotonSS_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = False
Ascensor.Top = 6960
Numpiso.Caption = SS
Numpiso.Caption = SS
NumpisoSS.Caption = SS
NumpisoPB.Caption = SS
Numpiso1.Caption = SS
Numpiso2.Caption = SS
Numpiso3.Caption = SS
Numpiso4.Caption = SS
Numpiso5.Caption = SS
CantpisoSS.Caption = Val(CantpisoSS.Caption) + 1
End Sub

Private Sub Command1_Click()
End Sub

Private Sub Enter_Click()
If contra.Text = "3899" Then
Ascensor.Top = 480
Else
contra.Enabled = False
Enter.Enabled = False
End If
contra.Text = ""
contra.Enabled = False
Enter.Enabled = False
End Sub

Private Sub Luz_Click()
If Ascensor.BackColor = vbBlack Then
Ascensor.BackColor = vbYellow
Else
Ascensor.BackColor = vbBlack
End If

End Sub

Private Sub PBNum_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = False
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 5880
Numpiso.Caption = PB
NumpisoSS.Caption = PB
NumpisoPB.Caption = PB
Numpiso1.Caption = PB
Numpiso2.Caption = PB
Numpiso3.Caption = PB
Numpiso4.Caption = PB
Numpiso5.Caption = PB
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub SSNum_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = False
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 6960
Numpiso.Caption = SS
NumpisoSS.Caption = SS
NumpisoPB.Caption = SS
Numpiso1.Caption = SS
Numpiso2.Caption = SS
Numpiso3.Caption = SS
Numpiso4.Caption = SS
Numpiso5.Caption = SS
CantpisoSS.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub Stop_Click()
If Luz.Enabled = True Then
Luz.Enabled = False
PBNum.Enabled = False
teclado1.Enabled = False
teclado2.Enabled = False
teclado3.Enabled = False
teclado4.Enabled = False
teclado5.Enabled = False
SSNum.Enabled = False
BotonPB.Enabled = False
BotonSS.Enabled = False
Boton1.Enabled = False
Boton2.Enabled = False
Boton3.Enabled = False
Boton4.Enabled = False
Boton5.Enabled = False
Ascensor.BackColor = vbBlack
Else
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
SSNum.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Luz.Enabled = True
End If
contra.Text = ""
CantpisoSS.Caption = "0"
CantpisoPB.Caption = "0"
Cantpiso1.Caption = "0"
Cantpiso2.Caption = "0"
Cantpiso3.Caption = "0"
Cantpiso4.Caption = "0"
Cantpiso5.Caption = "0"
End Sub

Private Sub teclado1_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = False
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 4800
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado2_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = False
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 3720
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado3_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = False
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 2640
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1
End Sub

Private Sub teclado4_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = False
teclado5.Enabled = True
Ascensor.Top = 1560
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado5_Click()
contra.Text = ""
Enter.Enabled = True
contra.Enabled = True
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = False
End Sub

ascensor (por cami)

Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"

If asce.Top = 480 Then
h.Caption = Val(h.Caption) + 1
End If

asce.Top = 480
cinco.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True

End Sub

Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"

If asce.Top = 480 Then
h.Caption = Val(h.Caption) + 1
End If

asce.Top = 480
Command1.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
cinco.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
If asce.Top = 1080 Then
i.Caption = Val(i.Caption) + 1
End If

asce.Top = 1080
Command2.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
cinco.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
If asce.Top = 1680 Then
j.Caption = Val(j.Caption) + 1
End If

asce.Top = 1680
Command3.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
cinco.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
If asce.Top = 2280 Then
k.Caption = Val(k.Caption) + 1
End If

asce.Top = 2280
Command4.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
cinco.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
If asce.Top = 2880 Then
l.Caption = Val(l.Caption) + 1
End If
asce.Top = 2280
Command5.Enabled = False

Command6.Enabled = True
cinco.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
If asce.Top = 3480 Then
m.Caption = Val(m.Caption) + 1
End If

asce.Top = 3480
cinco.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub contra_Change()
If contra.Text = "CAMEL" Then
asce.Top = 480
Else
contra.Text = ""
End If

End Sub

Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"

If asce.Top = 1080 Then
i.Caption = Val(i.Caption) + 1
End If

asce.Top = 1080
cuatro.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cinco.Enabled = True
End Sub

Private Sub luz_Click()
If asce.FillColor = vbWhite Then
asce.FillColor = vbBlack
Else
If asce.FillColor = vbBlack Then
asce.FillColor = vbWhite
End If
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
If asce.Top = 3480 Then
m.Caption = Val(m.Caption) + 1
End If

asce.Top = 3480
pb.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
cinco.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
If asce.Top = 4080 Then
n.Caption = Val(n.Caption) + 1
End If

asce.Top = 4080
ss.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
cinco.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
If asce.Top = 2280 Then
k.Caption = Val(k.Caption) + 1
End If

asce.Top = 2280
dos.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
cinco.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
If asce.Top = 4080 Then
n.Caption = Val(n.Caption) + 1
End If

asce.Top = 4080
SSS.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
cinco.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If

If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If

If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If

If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If

If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If

If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If

If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If

If Command1.Enabled = True Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If

If Command2.Enabled = True Then
Command2.Enabled = False
Else
Command2.Enabled = True
End If

If Command3.Enabled = True Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If

If Command4.Enabled = True Then
Command4.Enabled = False
Else
Command4.Enabled = True
End If

If Command5.Enabled = True Then
Command5.Enabled = False
Else
Command5.Enabled = True
End If

If Command6.Enabled = True Then
Command6.Enabled = False
Else
Command6.Enabled = True
End If

If SSS.Enabled = True Then
SSS.Enabled = False
Else
SSS.Enabled = True
End If

End Sub

Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
If asce.Top = 1680 Then
j.Caption = Val(j.Caption) + 1
End If

asce.Top = 1680
tres.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
cinco.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
If asce.Top = 2880 Then
l.Caption = Val(l.Caption) + 1
End If

asce.Top = 2280
uno.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
cinco.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Friday, November 07, 2008

Ascensor (por Lula)

Private Sub L1_Click()
auxiliar.Caption = (ascensor.Top - 4320) / 840
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub
Private Sub L2_Click()
auxiliar.Caption = (ascensor.Top - 3360) / 840
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub
Private Sub L3_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
End Sub
Private Sub L4_Click()
auxiliar.Caption = (ascensor.Top - 1440) / 840
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
End Sub
Private Sub L5_Click()
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
End If
End Sub

Private Sub ll1_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 4320) / 840
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub
Private Sub ll2_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 3360) / 840
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub
Private Sub ll3_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub
Private Sub ll4_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 1440) / 840
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub
Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub
Private Sub llamar1_Click()
auxiliar.Caption = (ascensor.Top - 4680) / 840
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub
Private Sub llamarcinco_Click()
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
End If
End Sub
Private Sub llamarcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
auxiliar.Caption = (ascensor.Top - 1560) / 840
End Sub
Private Sub llamardos_Click()
auxiliar.Caption = (ascensor.Top - 3720) / 840
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub

Private Sub llamarpb_Click()
auxiliar.Caption = (ascensor.Top - 5640) / 840
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub
Private Sub llamarss_Click()
auxiliar.Caption = (ascensor.Top - 6480) / 840
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub
Private Sub llamartres_Click()
auxiliar.Caption = (ascensor.Top - 2640) / 840
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 5280) / 840
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub
Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 6240) / 840
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub
Private Sub LPB_Click()
auxiliar.Caption = (ascensor.Top - 5280) / 840
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
cuentapisospb.Caption = Val(cuentapisospb.Caption) + 1
End Sub
Private Sub LSS_Click()
auxiliar.Caption = (ascensor.Top - 6240) / 840
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
cuentapisosss.Caption = Val(cuentapisosss.Caption) + 1
End Sub
Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack
End If
End If
End Sub

Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False

Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Ascensor 2 (por Lau)

Ascensor terminado (por Pau y Fabi)

Private Sub cinco_Click()

If contra.Text = "123" Then
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 480) / 840) ^ 2)

ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1
Else
contra.Text = ""
End If
contra.Text = ""

End Sub

Private Sub cincoo_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 480) / 840) ^ 2)
ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1

End Sub

Private Sub cuatro_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 1320) / 840) ^ 2)
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1

End Sub

Private Sub cuatroo_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 1320) / 840) ^ 2)
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1

End Sub

Private Sub dos_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3000) / 840) ^ 2)
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1

End Sub

Private Sub doss_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3000) / 840) ^ 2)
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1

End Sub

Private Sub luz_Click()
If ascen.FillColor = vbBlack Then
ascen.FillColor = vbWhite
Else
ascen.FillColor = vbBlack
End If
End Sub

Private Sub pb_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 4680) / 840) ^ 2)
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1

End Sub

Private Sub pbb_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 4680) / 840) ^ 2)
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1

End Sub

Private Sub sss_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 5520) / 840) ^ 2)
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1

End Sub

Private Sub stop_Click()
If cuatro.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
subsuelo.Enabled = False
cincoo(0).Enabled = False
cuatroo(9).Enabled = False
tress(8).Enabled = False
doss(7).Enabled = False
unoo(6).Enabled = False
pbb(5).Enabled = False
sss(4).Enabled = False
luz.Enabled = False
Else
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
subsuelo.Enabled = True
cincoo(0).Enabled = True
cuatroo(9).Enabled = True
tress(8).Enabled = True
doss(7).Enabled = True
unoo(6).Enabled = True
pbb(5).Enabled = True
sss(4).Enabled = True
luz.Enabled = True
End If
End Sub

Private Sub subsuelo_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 5520) / 840) ^ 2)
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1

End Sub

Private Sub Text1_Change()

End Sub

Private Sub tres_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 2160) / 840) ^ 2)
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1

End Sub

Private Sub tress_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 2160) / 840) ^ 2)
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1

End Sub

Private Sub uno_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3840) / 840) ^ 2)
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1" ^ 2

nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1

End Sub

Private Sub unoo_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3840) / 840) ^ 2)
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1"
nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1

End Sub

2D Blog de TIC