Ascensor (por Bruno y Ezequiel)

Private Sub b0_Click()
ascensor.Top = pb.Top + 200
contadorpb.Caption = contadorpb.Caption + 1
End Sub
Private Sub b1_Click()
ascensor.Top = p1.Top + 200
contador1.Caption = contador1.Caption + 1
End Sub
Private Sub b2_Click()
ascensor.Top = p2.Top + 200
contador2.Caption = contador2.Caption + 1
End Sub
Private Sub b3_Click()
ascensor.Top = p3.Top + 200
contador3.Caption = contador3.Caption + 1
End Sub
Private Sub b4_Click()
ascensor.Top = p4.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub
Private Sub b5_Click()
Texto1.Visible = True
enter.Visible = True
contraseña.Visible = True
End Sub

Private Sub boton1_Click()
ascensor2.Top = p1.Top + 200
contador1b.Caption = contador1b.Caption + 1
End Sub

Private Sub boton2_Click()
ascensor2.Top = p2.Top + 200
contador2b.Caption = contador2b.Caption + 1
End Sub

Private Sub boton3_Click()
ascensor2.Top = p3.Top + 200
contador3b.Caption = contador3b.Caption + 1
End Sub

Private Sub boton4_Click()
ascensor2.Top = p4.Top + 200
contador4b.Caption = contador4b.Caption + 1
End Sub

Private Sub boton5_Click()
Texto2.Visible = True
enter2.Visible = True
contraseña2.Visible = True
End Sub

Private Sub enter_Click()
If Texto1 = "1234" Then
ascensor.Top = p5.Top + 200
contador5.Caption = contador5.Caption + 1
Texto1 = ""
Texto1.Visible = False
contraseña.Visible = False
enter.Visible = False
End If
End Sub

Private Sub enter2_Click()
If Texto2 = "1234" Then
ascensor2.Top = p5.Top + 200
contador5b.Caption = contador5b.Caption + 1
Texto2 = ""
Texto2.Visible = False
contraseña2.Visible = False
enter2.Visible = False
End If
End Sub

Private Sub Label6_Click()

End Sub

Private Sub off_Click()
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b0.Enabled = False
sub0.Enabled = False
ascensor.BackColor = vbBlack
contador1.BackColor = vbBlack
contador2.BackColor = vbBlack
contador3.BackColor = vbBlack
contador4.BackColor = vbBlack
contador5.BackColor = vbBlack
contadorpb.BackColor = vbBlack
contadorss.BackColor = vbBlack
piso5.Enabled = False
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset.Enabled = False
End Sub
Private Sub sub_Click()
ascensor.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Private Sub off2_Click()
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
pb3.Enabled = False
ss3.Enabled = False
ascensor2.BackColor = vbBlack
contador1b.BackColor = vbBlack
contador2b.BackColor = vbBlack
contador3b.BackColor = vbBlack
contador4b.BackColor = vbBlack
contador5b.BackColor = vbBlack
contadorpb2.BackColor = vbBlack
contadorss2.BackColor = vbBlack
piso5.Enabled = False
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset2.Enabled = False
End Sub

Private Sub on_Click()
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b0.Enabled = True
sub0.Enabled = True
ascensor.BackColor = vbDesktop
contador1.BackColor = vbWhite
contador2.BackColor = vbWhite
contador3.BackColor = vbWhite
contador4.BackColor = vbWhite
contador5.BackColor = vbWhite
contadorpb.BackColor = vbWhite
contadorss.BackColor = vbWhite
piso5.Enabled = True
piso4.Enabled = True
piso3.Enabled = True
piso2.Enabled = True
piso1.Enabled = True
pb2.Enabled = True
ss2.Enabled = True
reset.Enabled = True
End Sub

Private Sub on2_Click()
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
boton5.Enabled = True
pb3.Enabled = True
ss3.Enabled = True
ascensor2.BackColor = vbDesktop
contador1b.BackColor = vbWhite
contador2b.BackColor = vbWhite
contador3b.BackColor = vbWhite
contador4b.BackColor = vbWhite
contador5b.BackColor = vbWhite
contadorpb2.BackColor = vbWhite
contadorss2.BackColor = vbWhite
piso5.Enabled = True
piso4.Enabled = True
piso3.Enabled = True
piso2.Enabled = True
piso1.Enabled = True
pb2.Enabled = True
ss2.Enabled = True
reset2.Enabled = True
End Sub

Private Sub pb2_Click()
If Sqr((pb.Top - ascensor.Top) ^ 2) > Sqr((pb.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = pb.Top + 200
Else: ascensor.Top = pb.Top + 200
End If
End Sub

Private Sub pb3_Click()
ascensor2.Top = pb.Top + 200
contadorpb2.Caption = contadorpb2.Caption + 1
End Sub

Private Sub piso1_Click()
If Sqr((p1.Top - ascensor.Top) ^ 2) > Sqr((p1.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p1.Top + 200
Else: ascensor.Top = p1.Top + 200
End If
End Sub

Private Sub piso2_Click()
If Sqr((p2.Top - ascensor.Top) ^ 2) > Sqr((p2.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p2.Top + 200
Else: ascensor.Top = p2.Top + 200
End If
End Sub

Private Sub piso3_Click()
If Sqr((p3.Top - ascensor.Top) ^ 2) > Sqr((p3.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p3.Top + 200
Else: ascensor.Top = p3.Top + 200
End If
End Sub
Private Sub piso4_Click()
If Sqr((p4.Top - ascensor.Top) ^ 2) > Sqr((p4.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p4.Top + 200
Else: ascensor.Top = p4.Top + 200
End If
End Sub
Private Sub piso5_Click()
If Sqr((p5.Top - ascensor.Top) ^ 2) > Sqr((p5.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p5.Top + 200
Else: ascensor.Top = p5.Top + 200
End If
End Sub
Private Sub reset_Click()
contadorss.Caption = "0"
contadorpb.Caption = "0"
contador1.Caption = "0"
contador2.Caption = "0"
contador3.Caption = "0"
contador4.Caption = "0"
contador5.Caption = "0"
End Sub

Private Sub reset2_Click()
contadorss2.Caption = "0"
contadorpb2.Caption = "0"
contador1b.Caption = "0"
contador2b.Caption = "0"
contador3b.Caption = "0"
contador4b.Caption = "0"
contador5b.Caption = "0"
End Sub

Private Sub ss2_Click()
If Sqr((ss.Top - ascensor.Top) ^ 2) > Sqr((ss.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = ss.Top + 200
Else: ascensor.Top = ss.Top + 200
End If
End Sub

Private Sub ss3_Click()
ascensor2.Top = ss.Top + 200
contadorss2.Caption = contadorss2.Caption + 1
End Sub

Private Sub sub0_Click()
ascensor.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Captura de pantalla del ascensor, Joy

Codigo e Imagen del Ascensor (Por Kevin H.)

Private Sub Aceptar_Click()
Contador7.Caption = "Nº:"
C7.Caption = C7.Caption + 1
If Contraseña.Text = "llave" Then
Ascensor.Top = 1200
Else: Contraseña.CausesValidation = False
End If
Contraseña.Text = ""
Visor1.Caption = "P5"
Visor2.Caption = "P5"
Visor3.Caption = "P5"
Visor4.Caption = "P5"
Visor5.Caption = "P5"
Visor6.Caption = "P5"
Visor7.Caption = "P5"
VisorC.Caption = "Piso 5 Pen-House"
End Sub

Private Sub CP1_Click()
Contador3.Caption = "Nº:"
C3.Caption = C3.Caption + 1
Ascensor.Top = 5040
Visor1.Caption = "P1"
Visor2.Caption = "P1"
Visor3.Caption = "P1"
Visor4.Caption = "P1"
Visor5.Caption = "P1"
Visor6.Caption = "P1"
Visor7.Caption = "P1"
VisorC.Caption = "Piso 1"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP2_Click()
Contador4.Caption = "Nº:"
C4.Caption = C4.Caption + 1
Ascensor.Top = 4080
Visor1.Caption = "P2"
Visor2.Caption = "P2"
Visor3.Caption = "P2"
Visor4.Caption = "P2"
Visor5.Caption = "P2"
Visor6.Caption = "P2"
Visor7.Caption = "P2"
VisorC.Caption = "Piso 2"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP3_Click()
Contador5.Caption = "Nº:"
C5.Caption = C5.Caption + 1
Ascensor.Top = 3120
Visor1.Caption = "P3"
Visor2.Caption = "P3"
Visor3.Caption = "P3"
Visor4.Caption = "P3"
Visor5.Caption = "P3"
Visor6.Caption = "P3"
Visor7.Caption = "P3"
VisorC.Caption = "Piso 3"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP4_Click()
Contador6.Caption = "Nº:"
C6.Caption = C6.Caption + 1
Ascensor.Top = 2160
Visor1.Caption = "P4"
Visor2.Caption = "P4"
Visor3.Caption = "P4"
Visor4.Caption = "P4"
Visor5.Caption = "P4"
Visor6.Caption = "P4"
Visor7.Caption = "P4"
VisorC.Caption = "Piso 4"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP5_Click()
Contraseña.Enabled = True
Contraseña.Text = ""
End Sub

Private Sub CPB_Click()
Contador2.Caption = "Nº:"
C2.Caption = C2.Caption + 1
Ascensor.Top = 6000
Visor1.Caption = "PB"
Visor2.Caption = "PB"
Visor3.Caption = "PB"
Visor4.Caption = "PB"
Visor5.Caption = "PB"
Visor6.Caption = "PB"
Visor7.Caption = "PB"
VisorC.Caption = "Planta Baja"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CSubs_Click()
Contador1.Caption = "Nº:"
C1.Caption = C1.Caption + 1
Ascensor.Top = 6960
Visor1.Caption = "SS"
Visor2.Caption = "SS"
Visor3.Caption = "SS"
Visor4.Caption = "SS"
Visor5.Caption = "SS"
Visor6.Caption = "SS"
Visor7.Caption = "SS"
VisorC.Caption = "SubSuelo"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Luz_Click()
If Ascensor.FillColor = vbYellow Then
Ascensor.FillColor = vbButtonFace
Else: Ascensor.FillColor = vbYellow
End If
Contraseña.Text = ""
End Sub

Private Sub Parar_Click()
If CSubs.Enabled = True Then
Luz.Enabled = False
CSubs.Enabled = False
CPB.Enabled = False
CP1.Enabled = False
CP2.Enabled = False
CP3.Enabled = False
CP4.Enabled = False
CP5.Enabled = False
Aceptar.Enabled = False
Else: Luz.Enabled = True
CSubs.Enabled = True
CPB.Enabled = True
CP1.Enabled = True
CP2.Enabled = True
CP3.Enabled = True
CP4.Enabled = True
CP5.Enabled = True
Aceptar.Enabled = True
End If
End Sub

Private Sub Piso1_Click()
Contador3.Caption = "Nº:"
C3.Caption = C3.Caption + 1
Ascensor.Top = 5040
Visor1.Caption = "P1"
Visor2.Caption = "P1"
Visor3.Caption = "P1"
Visor4.Caption = "P1"
Visor5.Caption = "P1"
Visor6.Caption = "P1"
Visor7.Caption = "P1"
VisorC.Caption = "Piso 1"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso2_Click()
Contador4.Caption = "Nº:"
C4.Caption = C4.Caption + 1
Ascensor.Top = 4080
Visor1.Caption = "P2"
Visor2.Caption = "P2"
Visor3.Caption = "P2"
Visor4.Caption = "P2"
Visor5.Caption = "P2"
Visor6.Caption = "P2"
Visor7.Caption = "P2"
VisorC.Caption = "Piso 2"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso3_Click()
Contador5.Caption = "Nº:"
C5.Caption = C5.Caption + 1
Ascensor.Top = 3120
Visor1.Caption = "P3"
Visor2.Caption = "P3"
Visor3.Caption = "P3"
Visor4.Caption = "P3"
Visor5.Caption = "P3"
Visor6.Caption = "P3"
Visor7.Caption = "P3"
VisorC.Caption = "Piso 3"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso4_Click()
Contador6.Caption = "Nº:"
C6.Caption = C6.Caption + 1
Ascensor.Top = 2160
Visor1.Caption = "P4"
Visor2.Caption = "P4"
Visor3.Caption = "P4"
Visor4.Caption = "P4"
Visor5.Caption = "P4"
Visor6.Caption = "P4"
Visor7.Caption = "P4"
VisorC.Caption = "Piso 4"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso5_Click()
Contraseña.Enabled = True
Contraseña.Text = ""
End Sub

Private Sub PlantaB_Click()
Contador2.Caption = "Nº:"
C2.Caption = C2.Caption + 1
Ascensor.Top = 6000
Visor1.Caption = "PB"
Visor2.Caption = "PB"
Visor3.Caption = "PB"
Visor4.Caption = "PB"
Visor5.Caption = "PB"
Visor6.Caption = "PB"
Visor7.Caption = "PB"
VisorC.Caption = "Planta Baja"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Subs_Click()
C1.Caption = C1.Caption + 1
Contador1.Caption = "Nº:"
Ascensor.Top = 6960
Visor1.Caption = "SS"
Visor2.Caption = "SS"
Visor3.Caption = "SS"
Visor4.Caption = "SS"
Visor5.Caption = "SS"
Visor6.Caption = "SS"
Visor7.Caption = "SS"
VisorC.Caption = "SubSuelo"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Avance en clase 22/11 por Guillermo Mosse

En esta clase hice algo que Guille me indicó: hacer un label en el que aparezca el piso más llamado y usar un contador general para cada ascensor. Ya tengo todo hecho.

Apunte de la calse del 22\11

Pudimos finalizar el ascensor(acas esta todo lo que hicimos):Private Sub Command5_Click()End SubPrivate Sub alarma_Click()If avisodealarma.Caption = "" Thenavisodealarma.BackColor = vbRedavisodealarma.Caption = "_____---DANGER---_____"uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecero.Enabled = Falsemenosuno.Enabled = Falsemenosunodos.Enabled = Falsecerodos.Enabled = Falseunodos.Enabled = Falsedosdos.Enabled = Falsetresdos.Enabled = Falsecuatro.Enabled = Falseparar.Enabled = Falseluz.Enabled = Falsecuatrodos.Enabled = Falseok.Enabled = FalseElseavisodealarma.Caption = ""avisodealarma.BackColor = vbActiveBorderuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecero.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatro.Enabled = Trueparar.Enabled = Trueluz.Enabled = Truecuatrodos.Enabled = Trueok.Enabled = TrueEnd IfEnd SubPrivate Sub cerodos_Click()ascensor.Top = 3120aux1.Top = 3120aux2.Top = 3120contador0.Caption = Val(contador0.Caption) + 1cero.Enabled = Falsemenosuno.Enabled = Truecerodos.Enabled = Falseuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truemenosunodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate Sub ok_Click()If contraseña.Text = "chinito" Thenascensor.Top = 240aux1.Top = 240aux2.Top = 240aux2.Caption = "240"contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1contadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End Ifuno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Falsecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = FalseElsecontador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd IfEnd SubPrivate Sub tres_Click()ascensor.Top = 960aux1.Top = 960aux2.Top = 960aux2.Caption = aux1.Captionaux1.Caption = "960"contador3.Caption = Val(contador3.Caption) + 1uno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Falsecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Falsecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd SubPrivate Sub dos_Click()ascensor.Top = 1680aux1.Top = 1680aux2.Top = 1680aux2.Caption = aux1.Captionaux1.Caption = "1680"contador2.Caption = Val(contador2.Caption) + 1dos.Enabled = Falseuno.Enabled = Truecero.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Falsetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd SubPrivate Sub uno_Click()ascensor.Top = 2400aux1.Top = 2400aux2.Top = 2400aux2.Caption = aux1.Captionaux1.Caption = "2400"contador1.Caption = Val(contador1.Caption) + 1uno.Enabled = Falsecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Falsedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd SubPrivate Sub cero_Click()ascensor.Top = 3120aux1.Top = 3120aux2.Top = 3120aux2.Caption = aux1.Captionaux1.Caption = "3120"contador0.Caption = Val(contador0.Caption) + 1cero.Enabled = Falsemenosuno.Enabled = Truecerodos.Enabled = Falseuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truemenosunodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd SubPrivate Sub cuatro_Click()If contraseña.Text = "chinito" Thenascensor.Top = 240aux1.Top = 240aux2.Top = 240aux2.Caption = aux1.Captionaux1.Caption = "240"contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1contadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End Ifuno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Falsecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = FalseElsecontador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd IfEnd SubPrivate Sub cuatrodos_Click()If contraseña.Text = "chinito" Thenascensor.Top = 120aux1.Top = 120aux2.Top = 120contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1uno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Falsecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = FalseElsecontador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd IfEnd SubPrivate Sub dosdos_Click()ascensor.Top = 1680aux1.Top = 1680aux2.Top = 1680contador2.Caption = Val(contador2.Caption) + 1dos.Enabled = Falseuno.Enabled = Truecero.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Falsetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate Sub luz_Click()If ascensor.BackColor = vbBlack Thenascensor.BackColor = vbYellowElseascensor.BackColor = vbBlackEnd IfEnd SubPrivate Sub menosuno_Click()ascensor.Top = 3840aux1.Top = 3840aux2.Top = 3840aux2.Caption = aux1.Captionaux1.Caption = "3840"contadormenos1.Caption = Val(contadormenos1.Caption) + 1menosuno.Enabled = Falsemenosunodos.Enabled = Falsecero.Enabled = Trueuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd SubPrivate Sub menosunodos_Click()ascensor.Top = 3840aux1.Top = 3840aux2.Top = 3840contadormenos1.Caption = Val(contadormenos1.Caption) + 1menosuno.Enabled = Falsemenosunodos.Enabled = Falsecero.Enabled = Trueuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate Sub parar_Click()If uno.Enabled = True Thenuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecero.Enabled = Falsemenosuno.Enabled = Falsemenosunodos.Enabled = Falsecerodos.Enabled = Falseunodos.Enabled = Falsedosdos.Enabled = Falsetresdos.Enabled = Falsecuatro.Enabled = Falsealarma.Enabled = Falseluz.Enabled = Falsecuatrodos.Enabled = Falseok.Enabled = FalseElseuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecero.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatro.Enabled = Truealarma.Enabled = Trueluz.Enabled = Truecuatrodos.Enabled = Trueok.Enabled = TrueEnd IfEnd SubPrivate Sub tresdos_Click()ascensor.Top = 960aux1.Top = 960aux2.Top = 960contador3.Caption = Val(contador3.Caption) + 1uno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Falsecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Falsecuatrodos.Enabled = TrueEnd SubPrivate Sub unodos_Click()ascensor.Top = 2400aux1.Top = 2400aux2.Top = 2400contador1.Caption = Val(contador1.Caption) + 1uno.Enabled = Falsecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Falsedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate Sub verdaderocontador_Click()End Sub

Avance ultimo de la clase del 22 de Noviembre por Ary

Finalizamos el ascensor terminando de programar el contador total del ascensor.

Avance en ascensor (fuera de clase) por Guillermo Mosse

Aunque no avancé en clase, terminé el ascensor, corrigiendo todos los errores.
Además, programé (no sé si se debía hacer) que en los contadores de cada piso se cuente si el ascensor no estaba ahí previamente (si llaman del 4 y un ascensor se encontraba previamente allí, no se modificaba ningún contador, ni el general ni el del piso correspondiente). Hay dos asensores, va el que esté más cerca, y modifiqué la clave del piso 4 (antes en el textbox decía "Ingrese clave aquí" y cuando clickeabas se borraba y escribías en ****. Ahora está en otro label).

Avance de la clase del 15/11 por Guillermo Mosse

Hoy 15/11 corregí algunas cosas de que el ascensor que esté más cerca vaya al piso. Lo único que me falta es que se vea la animación del ascensor y el piso 4, que en la programación me falta o sobra un "if".

Avance de la clase del 15 de noviembre por Ary

Con mi compañero Ezequiel(que hoy cumple años) pudimos programar las siguientes cosas del ascensor:
-Contadores en todos los numeros
-El contador total(nos falta algo minimo ya que se nos presenta un error en la cuenta)

Avance de la clase del 8 del 11(por Brian)

Hasta ahora lo ultimo que hice fue el label que cuenta todos los pisos no importa si saltea alguno, pero todavia tiene algunas fallas y lo tengo que mejorar.

Avance de la clase del 8/11(Por Jazmín)

En esta clase programé y diseñé solamente el contador de pisos(el que cunta todos los pisos).Tuve unos inconvenientes con las sumas pero lo arreglaré la próxima clase.

Avance de la clase del 8 de noviembre por Ary

Con mi compañero programamos:
-Los contadores de cada piso
-El contador total(nos falta un detalle que lo solucionaremos la semana que viene)
-Corregimos algo de la contraseña con el visible
Y diseñamos el 2do ascensor pero todavia no lo programamos

Avance en clase 8/11 por Guillermo Mosse

Hoy 8 de noviembre diseñé el otro ascensor, ya tengo el contador de pisos general y de cada piso que funciona perfecto. Además, el ascensor que está más cerca va al piso que llaman (sé como hacerlo y lo tengo en algunos pisos, me faltá programarlo en otros, pero ya sé como). Creo que me faltaría que el ascensor se "mueva", nada más. También me funciona la luz, la alarma.

Avance de clase del 1/11 (por Brian)

Hasta ahora programe:
_Luz
_Alarma
_Parar
_Contadores de cada piso
_ En el cuarto piso q aparesca para poner una contraseña

Avance en clase 1/11 por Guillermo Mosse

En esta clase agregué el contador de pisos, que funciona perfecto tanto si apretás un botón desde adentro como desde afuerea, pero me faltan un par desde adentro (tengo que copiar y pegar la programación nada más). Anda la luz, la alarma (que desactiva los botones al apretarla); el piso 4 tiene clave (solo está visible cuando la apretás y escribe en formato ***, además el textbox dice "Ingrese clave aquí" y cuando se hace clik desaparece). Solo me faltaría el otro ascensor y que se vea como se mueven.

Avance del primero del 11 por Ary y Eze

Programamos:
-Los contadores de cada num. menos el general(que cuenta todos los numeros)
-La luz
-La alarma(que aparezca danger)
-Parte de la contraseña y del enter que llamamos OK

Avances de la clase (por Sofia Junger)

Con mi compañera hemos llegado a programar algunos botones del asensor(de adentro y de afuera): la luz,el boton de los pisos(piso 1,2,3,4,-1,0), el boton onoff o el boton parar.

Avance en clase del 25/10 por Guillermo Mosse

En esta clase corregí la clave, que la había puesto en todos los pisos, y la dejé en el 4 solamente (tento desde adentro como desde afuera).
También programé la luz, empecé con la alrma y el contador de pisos recorridos y andan los botones de los pisos desde adentro como desde afuera en el ascensor.

Avance de la clase del 18 de octubre por Ary

Con mi compañero Ezequiel llegamos a diseñar todo el ascensor (parte de adentro y de afuera) pero todavia no pudimos empezar a programar.

Avance 18/10

Hasta ahora diseñe todo.
Programe los botones del panel y de los pisos, que en el cuarto piso aparesca el el codigo de sueguridad, y la luz del ascensor.