Visual Basic 5

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
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 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 ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
End If
End Sub

Private Sub botons_Click()
ascensor.Top = 6240

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 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 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
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
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 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 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 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 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 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 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