Apunte de la clase del 22 de Noviembre

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 de la clase del 22 de noviembre

Pudimos finalizar el ascensor terminado ede programar el contador total del ascensor.

Avance de la clase del 8 de noviembre

Con mi compañero de trabajo logramos programar:-Los contadores de cada piso-El contador total(nos falta arreglar un detalle)-Arreglar algo de la contraseña(con el visible)Y tambien diseñamos ya el 2do ascensor pero todavia no empezamos a programarlo