Visual Basic ascensor(terminado)

Private Sub ciinco_Click()
If ascensor.Top = 1200 Then
ciinco.Caption = ciinco.Caption + 1
End If
End Sub

Private Sub cinco_Click()
Text1.Text = ""
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True

End Sub

Private Sub boton5_Click()
Text1.Text = ""
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True
End Sub

Private Sub boton4_Click()
ascensor.Top = 2040
If aux.Caption = "0" Then
aux.Caption = 2040
Else
gene.Caption = Sqr(((aux.Caption - 2040) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 2040
End If

If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
If ascensor.Top = 2040 Then
cuatroo.Caption = cuatroo.Caption = 1
End If
If ascensor.Top = 2040 Then
cincoo.Caption = "4"
cuatroo.Caption = "4"
tress.Caption = "4"
doss.Caption = "4"
unoo.Caption = "4"
plantaa.Caption = "4"
subb.Caption = "4"
End If

If ascensor.Top = 2040 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub boton2_Click()
ascensor.Top = 3720
If aux.Caption = "0" Then
aux.Caption = 3720
Else
gene.Caption = Sqr(((aux.Caption - 3720) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 3720
End If

If ascensor.Top = 3720 Then
doos.Caption = doos.Caption + 1
End If
If ascensor.Top = 3720 Then
cincoo.Caption = "2"
cuatroo.Caption = "2"
tress.Caption = "2"
doss.Caption = "2"
unoo.Caption = "2"
plantaa.Caption = "2"
subb.Caption = "2"
End If
If ascensor.Top = 3720 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub botonp_Click()
ascensor.Top = 5400

If ascensor.Top = 5400 Then
plaanta.Caption = plaanta.Caption + 1
End If
If ascensor.Top = 5400 Then
plantaa.Caption = "PB"
End If
If ascensor.Top = 5400 Then
cincoo.Caption = "PB"
cuatroo.Caption = "PB"
tress.Caption = "PB"
doss.Caption = "PB"
unoo.Caption = "PB"
plantaa.Caption = "PB"
subb.Caption = "PB"
End If
If aux.Caption = "0" Then
aux.Caption = 5400
Else
gene.Caption = Sqr(((aux.Caption - 5400) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 5400
End If
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub botons_Click()
ascensor.Top = 6240
If aux.Caption = "0" Then
aux.Caption = 6240
Else
gene.Caption = Sqr(((aux.Caption - 6240) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 6240
End If

If ascensor.Top = 6240 Then
suubs.Caption = suubs.Caption + 1
End If
If ascensor.Top = 6240 Then
cincoo.Caption = "SS"
cuatroo.Caption = "SS"
tress.Caption = "SS"
doss.Caption = "SS"
unoo.Caption = "SS"
plantaa.Caption = "SS"
subb.Caption = "SS"
End If
If ascensor.Top = 6240 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub boton3_Click()
ascensor.Top = 2880
If aux.Caption = "0" Then
aux.Caption = 2880
Else
gene.Caption = Sqr(((aux.Caption - 2880) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 2880
End If

If ascensor.Top = 2880 Then
trees.Caption = trees.Caption + 1
End If
If ascensor.Top = 2880 Then
cincoo.Caption = "3"
cuatroo.Caption = "3"
tress.Caption = "3"
doss.Caption = "3"
unoo.Caption = "3"
plantaa.Caption = "3"
subb.Caption = "3"
End If
If ascensor.Top = 2880 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub boton1_Click()
ascensor.Top = 4560
If aux.Caption = "0" Then
aux.Caption = 4560
Else
gene.Caption = Sqr(((aux.Caption - 4560) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 4560
End If

If ascensor.Top = 4560 Then
unno.Caption = unno.Caption + 1
End If
If ascensor.Top = 4560 Then
cincoo.Caption = "1"
cuatroo.Caption = "1"
tress.Caption = "1"
doss.Caption = "1"
unoo.Caption = "1"
plantaa.Caption = "1"
subb.Caption = "1"
End If
If ascensor.Top = 4560 Then
general.Caption = general.Caption + 1
End If
End Sub



Private Sub cincoo_Click()
If ascensor.Top = 1200 Then
cincoo.Caption = "5"
End Sub

Private Sub Command1_Click()
If Text1.Text = "plipluncho" Then
ascensor.Top = 1200
Text1.Visible = False
Label1.Visible = False
Command1.Visible = False
End If
If ascensor.Top = 1200 Then
general.Caption = general.Caption + 1
End If
If ascensor.Top = 1200 Then
ciinco.Caption = ciinco.Caption + 1
End If
If ascensor.Top = 1200 Then
cincoo.Caption = "5"
cuatroo.Caption = "5"
tress.Caption = "5"
doss.Caption = "5"
unoo.Caption = "5"
plantaa.Caption = "5"
subb.Caption = "5"
End If
If aux.Caption = "0" Then
aux.Caption = 1200
Else
gene.Caption = Sqr(((aux.Caption - 1200) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 1200
End If
End Sub

Private Sub contador_Click()
If ascensor.Top = 6240 Then
contador.Caption 1
End If
End Sub

Private Sub cuaatro_Click()
If ascensor.Top = 2045 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
If ascensor.Top = 2045 Then
cuatroo.Caption = cuatroo.Caption = 1
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 2040
If aux.Caption = "0" Then
aux.Caption = 2040
Else
gene.Caption = Sqr(((aux.Caption - 2040) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 2040
End If

If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
If ascensor.Top = 2040 Then
cuatroo.Caption = cuatroo.Caption = 1
End If
If ascensor.Top = 2040 Then
cincoo.Caption = "4"
cuatroo.Caption = "4"
tress.Caption = "4"
doss.Caption = "4"
unoo.Caption = "4"
plantaa.Caption = "4"
subb.Caption = "4"
End If

If ascensor.Top = 2040 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub doos_Click()
If ascensor.Top = 3720 Then
doos.Caption = doos.Caption + 1
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3720
If aux.Caption = "0" Then
aux.Caption = 3720
Else
gene.Caption = Sqr(((aux.Caption - 3720) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 3720
End If

If ascensor.Top = 3720 Then
doos.Caption = doos.Caption + 1
End If
If ascensor.Top = 3720 Then
cincoo.Caption = "2"
cuatroo.Caption = "2"
tress.Caption = "2"
doss.Caption = "2"
unoo.Caption = "2"
plantaa.Caption = "2"
subb.Caption = "2"
End If
If ascensor.Top = 3720 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub Label2_Click()

End Sub

Private Sub en4_Click()
If ascensor.Top = 2040 Then
en4.Caption = en4.Caption + 1
End If
End Sub

Private Sub encua_Click()
If ascensor.Top = 2040 Then
encua.Caption = encua.Caption + 1
End If
End Sub


Private Sub doss_Click()
If ascensor.Top = 3720 Then
doss.Caption = "2"
End Sub



Private Sub general_Click()
If ascensor.Top = 1200 Then
general.Caption = general.Caption + 1
If ascensor.Top = 2040 Then
general.Caption = general.Caption + 1
If ascensor.Top = 2880 Then
general.Caption = general.Caption + 1
If ascensor.Top = 3720 Then
general.Caption = general.Caption + 1
If ascensor.Top = 4560 Then
general.Caption = general.Caption + 1
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
If ascensor.Top = 6240 Then
general.Caption = general.Caption + 1
End Sub

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

Private Sub plaanta_Click()
If ascensor.Top = 5400 Then
plaanta.Caption = plaanta.Caption + 1
End If
End Sub

Private Sub planta_Click()
ascensor.Top = 5400
If aux.Caption = "0" Then
aux.Caption = 5400
Else
gene.Caption = Sqr(((aux.Caption - 5400) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 5400
End If
If ascensor.Top = 5400 Then
plaanta.Caption = plaanta.Caption + 1
End If
If ascensor.Top = 5400 Then
plantaa.Caption = "PB"
End If
If ascensor.Top = 5400 Then
cincoo.Caption = "PB"
cuatroo.Caption = "PB"
tress.Caption = "PB"
doss.Caption = "PB"
unoo.Caption = "PB"
plantaa.Caption = "PB"
subb.Caption = "PB"
End If
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub plantaa_Click()
End If
If ascensor.Top = 5400 Then
plantaa.Caption = "PB"
End If
End Sub

Private Sub play_Click()
ascensor.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
su.Enabled = True
planta.Enabled = True
botons.Enabled = True
botonp.Enabled = True
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
boton5.Enabled = True
End Sub

Private Sub stop_Click()
ascensor.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
su.Enabled = False
planta.Enabled = False
botons.Enabled = False
botonp.Enabled = False
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
End Sub

Private Sub su_Click()
ascensor.Top = 6240
If aux.Caption = "0" Then
aux.Caption = 6240
Else
gene.Caption = Sqr(((aux.Caption - 6240) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 6240
End If
If ascensor.Top = 6240 Then
suubs.Caption = suubs.Caption + 1
End If
If ascensor.Top = 6240 Then
cincoo.Caption = "SS"
cuatroo.Caption = "SS"
tress.Caption = "SS"
doss.Caption = "SS"
unoo.Caption = "SS"
plantaa.Caption = "SS"
subb.Caption = "SS"
End If
If ascensor.Top = 6240 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub subb_Click()
If ascensor.Top = 6240 Then
subb.Caption = "SS"
End If
End Sub

Private Sub suubs_Click()
If ascensor.Top = 6240 Then
suubs.Caption = suubs.Caption + 1
End If
End Sub

Private Sub trees_Click()
If ascensor.Top = 2880 Then
trees.Caption = trees.Caption + 1
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2880
If aux.Caption = "0" Then
aux.Caption = 2880
Else
gene.Caption = Sqr(((aux.Caption - 2880) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 2880
End If
If ascensor.Top = 2880 Then
trees.Caption = trees.Caption + 1
End If
If ascensor.Top = 2880 Then
cincoo.Caption = "3"
cuatroo.Caption = "3"
tress.Caption = "3"
doss.Caption = "3"
unoo.Caption = "3"
plantaa.Caption = "3"
subb.Caption = "3"
End If
If ascensor.Top = 2880 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub tress_Click()
If ascensor.Top = 2880 Then
cincoo.Caption = "3"
cuatroo.Caption = "3"
tress.Caption = "3"
doss.Caption = "3"
unoo.Caption = "3"
plantaa.Caption = "3"
subb.Caption = "3"
End If
End Sub

Private Sub unno_Click()
If ascensor.Top = 4565 Then
unno.Caption = unno.Caption + 1
End If
If ascensor.Top = 4565 Then
unoo.Caption = "1"
End Sub

Private Sub uno_Click()
ascensor.Top = 4560
If aux.Caption = "0" Then
aux.Caption = 4560
Else
gene.Caption = Sqr(((aux.Caption - 4560) / 840) ^ 2) + Val(gene.Caption)
aux.Caption = 4560
End If
If ascensor.Top = 4565 Then
unno.Caption = unno.Caption + 1
End If
If ascensor.Top = 4560 Then
cincoo.Caption = "1"
cuatroo.Caption = "1"
tress.Caption = "1"
doss.Caption = "1"
unoo.Caption = "1"
plantaa.Caption = "1"
subb.Caption = "1"
End If
If ascensor.Top = 4560 Then
general.Caption = general.Caption + 1
End If
End Sub