Mi edificio terminado

Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub apagar_Click()x1.Enabled = Falsexsub.Enabled = Falsexpb.Enabled = Falsex2.Enabled = Falsex3.Enabled = Falsex4.Enabled = Falsex5.Enabled = Falsebot1.Enabled = Falsebotsub.Enabled = Falsebot2.Enabled = Falsebot3.Enabled = Falsebot4.Enabled = Falsebot5.Enabled = Falseluz.Enabled = Falsebotpb.Enabled = Falseascensor.BackColor = vbBlackenter.Enabled = FalseEnd SubPrivate Sub bot1_Click()ascensor.Top = 6840numsub.Caption = "1"numpb.Caption = "1"num1.Caption = "1"num2.Caption = "1"num3.Caption = "1"num4.Caption = "1"num5.Caption = "1"End SubPrivate Sub bot2_Click()ascensor.Top = 5640numsub.Caption = "2"numpb.Caption = "2"num1.Caption = "2"num2.Caption = "2"num3.Caption = "2"num4.Caption = "2"num5.Caption = "2"End SubPrivate Sub bot3_Click()ascensor.Top = 4440numsub.Caption = "3"numpb.Caption = "3"num1.Caption = "3"num2.Caption = "3"num3.Caption = "3"num4.Caption = "3"num5.Caption = "3"End SubPrivate Sub bot4_Click()ascensor.Top = 3240numsub.Caption = "4"numpb.Caption = "4"num1.Caption = "4"num2.Caption = "4"num3.Caption = "4"num4.Caption = "4"num5.Caption = "4"End SubPrivate Sub bot5_Click()contrasenia.Visible = Trueenter.Visible = True
End Sub
Private Sub boton1_Click()ascensor2.Top = 6840numersub.Caption = "1"numerpb.Caption = "1"numer1.Caption = "1"numer2.Caption = "1"numer3.Caption = "1"numer4.Caption = "1"numer5.Caption = "1"End Sub
Private Sub boton2_Click()ascensor2.Top = 5640numersub.Caption = "2"numerpb.Caption = "2"numer1.Caption = "2"numer2.Caption = "2"numer3.Caption = "2"numer4.Caption = "2"numer5.Caption = "2"End Sub
Private Sub boton3_Click()ascensor2.Top = 4440numersub.Caption = "3"numerpb.Caption = "3"numer1.Caption = "3"numer2.Caption = "3"numer3.Caption = "3"numer4.Caption = "3"numer5.Caption = "3"End Sub
Private Sub boton4_Click()ascensor2.Top = 3240numersub.Caption = "4"numerpb.Caption = "4"numer1.Caption = "4"numer2.Caption = "4"numer3.Caption = "4"numer4.Caption = "4"numer5.Caption = "4"End Sub
Private Sub boton5_Click()botoncontrasenia.Visible = Truebotonenter.Visible = TrueEnd Sub
Private Sub botonenter_Click()If botoncontrasenia = "sofiyflor" Thenascensor2.Top = 2040End IfIf ascensor2.Top = 2040 Thenbotonenter.Visible = Falsebotoncontrasenia.Visible = FalseEnd IfIf botoncontrasenia = "sofiyflor" Thenbotoncontrasenia.Text = ""numersub.Caption = "5"numerpb.Caption = "5"numer1.Caption = "5"numer2.Caption = "5"numer3.Caption = "5"numer4.Caption = "5"numer5.Caption = "5"End IfEnd Sub
Private Sub botonluz_Click()ascensor2.BackColor = vbYellowEnd Sub
Private Sub botonoff_Click()xx1.Enabled = Falsexxsub.Enabled = Falsexxpb.Enabled = Falsexx2.Enabled = Falsexx3.Enabled = Falsexx4.Enabled = Falsexx5.Enabled = Falseboton1.Enabled = Falsebotonsub.Enabled = Falseboton2.Enabled = Falseboton3.Enabled = Falseboton4.Enabled = Falseboton5.Enabled = Falsebotonluz.Enabled = Falsebotonpb.Enabled = Falseascensor2.BackColor = vbBlackbotonenter.Enabled = FalseEnd Sub
Private Sub botonon_Click()xx1.Enabled = Truexxsub.Enabled = Truexxpb.Enabled = Truexx2.Enabled = Truexx3.Enabled = Truexx4.Enabled = Truexx5.Enabled = Trueboton1.Enabled = Truebotonsub.Enabled = Trueboton2.Enabled = Trueboton3.Enabled = Trueboton4.Enabled = Trueboton5.Enabled = Truebotonluz.Enabled = Truebotonpb.Enabled = Trueascensor2.BackColor = vbRedbotonenter.Enabled = TrueEnd Sub
Private Sub botonpb_Click()ascensor2.Top = 7920numersub.Caption = "pb"numerpb.Caption = "pb"numer1.Caption = "pb"numer2.Caption = "pb"numer3.Caption = "pb"numer4.Caption = "pb"numer5.Caption = "pb"
End Sub
Private Sub botonsub_Click()ascensor2.Top = 8880numersub.Caption = "sub"numerpb.Caption = "sub"numer1.Caption = "sub"numer2.Caption = "sub"numer3.Caption = "sub"numer4.Caption = "sub"numer5.Caption = "sub"End Sub
Private Sub botsub_Click()ascensor.Top = 9120numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"End Sub
Private Sub botpb_Click()ascensor.Top = 7920numsub.Caption = "pb"numpb.Caption = "pb"num1.Caption = "pb"num2.Caption = "pb"num3.Caption = "pb"num4.Caption = "pb"num5.Caption = "pb"
End Sub
Private Sub Command7_Click()
End Sub
Private Sub enter_Click()If contrasenia = "sofiyflor" Thenascensor.Top = 2040End IfIf ascensor.Top = 2040 Thenenter.Visible = Falsecontrasenia.Visible = FalseEnd IfIf contrasenia = "sofiyflor" Thencontrasenia.Text = ""numsub.Caption = "5"numpb.Caption = "5"num1.Caption = "5"num2.Caption = "5"num3.Caption = "5"num4.Caption = "5"num5.Caption = "5"End IfEnd Sub
Private Sub Label2_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub luz_Click()ascensor.BackColor = vbYellowEnd Sub
Private Sub numsub_Click()If ascensor.Top = 9120 Thennumsub.BackColor = vbRedEnd IfEnd Sub
End SubPrivate Sub prender_Click()x1.Enabled = Truexsub.Enabled = Truexpb.Enabled = Truex2.Enabled = Truex3.Enabled = Truex4.Enabled = Truex5.Enabled = Truebot1.Enabled = Truebotsub.Enabled = Truebot2.Enabled = Truebot3.Enabled = Truebot4.Enabled = Truebot5.Enabled = Trueluz.Enabled = Truebotpb.Enabled = Trueascensor.BackColor = vbRedenter.Enabled = TrueEnd SubPrivate Sub subsuelo_Click()ascensor.Top = 9120numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"End SubPrivate Sub x1_Click()ascensor.Top = 6840numsub.Caption = "1"numpb.Caption = "1"num1.Caption = "1"num2.Caption = "1"num3.Caption = "1"num4.Caption = "1"num5.Caption = "1"contad1.Caption = Val(contad1.Caption) + 1End SubPrivate Sub x2_Click()ascensor.Top = 5640numsub.Caption = "2"numpb.Caption = "2"num1.Caption = "2"num2.Caption = "2"num3.Caption = "2"num4.Caption = "2"num5.Caption = "2"contad2.Caption = Val(contad2.Caption) + 1End SubPrivate Sub x3_Click()ascensor.Top = 4440numsub.Caption = "3"numpb.Caption = "3"num1.Caption = "3"num2.Caption = "3"num3.Caption = "3"num4.Caption = "3"num5.Caption = "3"contad3.Caption = Val(contad3.Caption) + 1End SubPrivate Sub x4_Click()ascensor.Top = 3240numsub.Caption = "4"numpb.Caption = "4"num1.Caption = "4"num2.Caption = "4"num3.Caption = "4"num4.Caption = "4"num5.Caption = "4"contad4.Caption = Val(contad4.Caption) + 1End Sub
Private Sub x5_Click()x5.Enabled = Falsecontad5.Caption = Val(contad5.Caption) + 1End Sub
Private Sub xsub_Click()ascensor.Top = 9000numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"contadsub.Caption = Val(contadsub.Caption) + 1End SubPrivate Sub xpb_Click()ascensor.Top = 7920numsub.Caption = "pb"numpb.Caption = "pb"num1.Caption = "pb"num2.Caption = "pb"num3.Caption = "pb"num4.Caption = "pb"num5.Caption = "pb"contadpb.Caption = Val(contadpb.Caption) + 1End Sub
Private Sub xx1_Click()ascensor2.Top = 6720numersub.Caption = "1"numerpb.Caption = "1"numer1.Caption = "1"numer2.Caption = "1"numer3.Caption = "1"numer4.Caption = "1"numer5.Caption = "1"
cont1.Caption = Val(cont1.Caption) + 1End Sub
Private Sub xx2_Click()ascensor2.Top = 5520numersub.Caption = "2"numerpb.Caption = "2"numer1.Caption = "2"numer2.Caption = "2"numer3.Caption = "2"numer4.Caption = "2"numer5.Caption = "2"
cont2.Caption = Val(cont2.Caption) + 1
End Sub
Private Sub xx3_Click()ascensor2.Top = 4440numersub.Caption = "3"numerpb.Caption = "3"numer1.Caption = "3"numer2.Caption = "3"numer3.Caption = "3"numer4.Caption = "3"numer5.Caption = "3"
cont3.Caption = Val(cont3.Caption) + 1End Sub
Private Sub xx4_Click()ascensor2.Top = 3360numersub.Caption = "4"numerpb.Caption = "4"numer1.Caption = "4"numer2.Caption = "4"numer3.Caption = "4"numer4.Caption = "4"numer5.Caption = "4"cont4.Caption = Val(cont4.Caption) + 1
End Sub
Private Sub xx5_Click()
cont5.Caption = Val(cont5.Caption) + 1xx5.Enabled = False
End Sub
Private Sub xxpb_Click()ascensor2.Top = 7800numersub.Caption = "pb"numerpb.Caption = "pb"numer1.Caption = "pb"numer2.Caption = "pb"numer3.Caption = "pb"numer4.Caption = "pb"numer5.Caption = "pb"contpb.Caption = Val(contpb.Caption) + 1
End IfEnd Sub
Private Sub xxsub_Click()numersub.Caption = "sub"numerpb.Caption = "sub"numer1.Caption = "sub"numer2.Caption = "sub"numer3.Caption = "sub"numer4.Caption = "sub"numer5.Caption = "sub"If (9000 - Val(ascensor2.Top)) < (9000 - Val(ascensor.Top)) Thenascensor2.Top = 9000Elseascensor.Top = 9000End Ifcontsub.Caption = Val(contsub.Caption) + 1End Sub

mis ascensores

Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Command3_Click()
End Sub
Private Sub apagar_Click()x1.Enabled = Falsexsub.Enabled = Falsexpb.Enabled = Falsex2.Enabled = Falsex3.Enabled = Falsex4.Enabled = Falsex5.Enabled = Falsebot1.Enabled = Falsesubsuelo.Enabled = Falsebot2.Enabled = Falsebot3.Enabled = Falsebot4.Enabled = Falsebot5.Enabled = Falseluz.Enabled = Falseplantabaja.Enabled = Falseascensor.BackColor = vbBlack
End Sub
Private Sub bot1_Click()ascensor.Top = 6840numsub.Caption = "1"numpb.Caption = "1"num1.Caption = "1"num2.Caption = "1"num3.Caption = "1"num4.Caption = "1"num5.Caption = "1"End Sub
Private Sub bot2_Click()ascensor.Top = 5640numsub.Caption = "2"numpb.Caption = "2"num1.Caption = "2"num2.Caption = "2"num3.Caption = "2"num4.Caption = "2"num5.Caption = "2"End Sub
Private Sub bot3_Click()ascensor.Top = 4440numsub.Caption = "3"numpb.Caption = "3"num1.Caption = "3"num2.Caption = "3"num3.Caption = "3"num4.Caption = "3"num5.Caption = "3"End Sub
Private Sub bot4_Click()ascensor.Top = 3240numsub.Caption = "4"numpb.Caption = "4"num1.Caption = "4"num2.Caption = "4"num3.Caption = "4"num4.Caption = "4"num5.Caption = "4"End Sub
Private Sub bot5_Click()contrasenia.Visible = Trueenter.Visible = True


End Sub
Private Sub enter_Click()If contrasenia = "sofiyflor" Thenascensor.Top = 2040End If
If ascensor.Top = 2040 Thenenter.Visible = Falsecontrasenia.Visible = FalseEnd Ifcontrasenia.Text = ""numsub.Caption = "5"numpb.Caption = "5"num1.Caption = "5"num2.Caption = "5"num3.Caption = "5"num4.Caption = "5"num5.Caption = "5"End Sub
Private Sub luz_Click()ascensor.BackColor = vbYellowEnd Sub
Private Sub numsub_Click()If ascensor.Top = 9120 Thennumsub.BackColor = vbRedEnd If
End Sub
Private Sub PLANTABAJA_Click()ascensor.Top = 8040numsub.Caption = "pb"numpb.Caption = "pb"num1.Caption = "pb"num2.Caption = "pb"num3.Caption = "pb"num4.Caption = "pb"num5.Caption = "pb"End Sub
Private Sub prender_Click()x1.Enabled = Truexsub.Enabled = Truexpb.Enabled = Truex2.Enabled = Truex3.Enabled = Truex4.Enabled = Truex5.Enabled = Truebot1.Enabled = Truesubsuelo.Enabled = Truebot2.Enabled = Truebot3.Enabled = Truebot4.Enabled = Truebot5.Enabled = Trueluz.Enabled = Trueplantabaja.Enabled = Trueascensor.BackColor = vbRed
End Sub
Private Sub subsuelo_Click()ascensor.Top = 9120numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"End Sub
Private Sub x1_Click()ascensor.Top = 6840numsub.Caption = "1"numpb.Caption = "1"num1.Caption = "1"num2.Caption = "1"num3.Caption = "1"num4.Caption = "1"num5.Caption = "1"End Sub
Private Sub x2_Click()ascensor.Top = 5640numsub.Caption = "2"numpb.Caption = "2"num1.Caption = "2"num2.Caption = "2"num3.Caption = "2"num4.Caption = "2"num5.Caption = "2"End Sub
Private Sub x3_Click()ascensor.Top = 4440numsub.Caption = "3"numpb.Caption = "3"num1.Caption = "3"num2.Caption = "3"num3.Caption = "3"num4.Caption = "3"num5.Caption = "3"End Sub
Private Sub x4_Click()ascensor.Top = 3240numsub.Caption = "4"numpb.Caption = "4"num1.Caption = "4"num2.Caption = "4"num3.Caption = "4"num4.Caption = "4"num5.Caption = "4"End Sub
Private Sub x5_Click()ascensor.Top = 2040numsub.Caption = "5"numpb.Caption = "5"num1.Caption = "5"num2.Caption = "5"num3.Caption = "5"num4.Caption = "5"num5.Caption = "5"End Sub
Private Sub xpb_Click()ascensor.Top = 8040numsub.Caption = "pb"numpb.Caption = "pb"num1.Caption = "pb"num2.Caption = "pb"num3.Caption = "pb"num4.Caption = "pb"num5.Caption = "pb"End Sub
Private Sub xsub_Click()ascensor.Top = 9120numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"
End Sub