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
jueves, 20 de noviembre de 2008
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
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
Visual Basic 4
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
Private Sub boton4_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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
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
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
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
general.Caption = general.Caption + 1
End If
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
End Sub
Private Sub cuaatro_Click()
If ascensor.Top = 2045 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
End If
End Sub
Private Sub unno_Click()
If ascensor.Top = 4565 Then
unno.Caption = unno.Caption + 1
End If
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
general.Caption = general.Caption + 1
End If
End Sub
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
Private Sub boton4_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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
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
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
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
general.Caption = general.Caption + 1
End If
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
End Sub
Private Sub cuaatro_Click()
If ascensor.Top = 2045 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
End If
End Sub
Private Sub unno_Click()
If ascensor.Top = 4565 Then
unno.Caption = unno.Caption + 1
End If
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
general.Caption = general.Caption + 1
End If
End Sub
Visual Basic 3
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
Private Sub boton4_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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
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
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
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
general.Caption = general.Caption + 1
End If
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
End Sub
Private Sub cuaatro_Click()
If ascensor.Top = 2045 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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 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
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
End If
End Sub
Private Sub unno_Click()
If ascensor.Top = 4565 Then
unno.Caption = unno.Caption + 1
End If
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
general.Caption = general.Caption + 1
End If
End Sub
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
Private Sub boton4_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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
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
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
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
general.Caption = general.Caption + 1
End If
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
End Sub
Private Sub cuaatro_Click()
If ascensor.Top = 2045 Then
cuaatro.Caption = cuaatro.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 2040
If ascensor.Top = 2040 Then
cuaatro.Caption = cuaatro.Caption + 1
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
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 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
If ascensor.Top = 5400 Then
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
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
general.Caption = general.Caption + 1
End If
End Sub
Private Sub unno_Click()
If ascensor.Top = 4565 Then
unno.Caption = unno.Caption + 1
End If
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
general.Caption = general.Caption + 1
End If
End Sub
viernes, 14 de noviembre de 2008
Semana 29, por Ariel .M.
enlace»Llega el navegador GPS Telenav Shotgun
Nov 12, 2008 07:12:52 GMT Compartir
La empresa de software Telenav ha decidido probar suerte en el negocio del hardware, y para comenzar nos presenta un nuevo y propio dispositivo de navegación: el GPS Telenav Shotgun .
Sus características básicas son las propias de un navegador corriente, dispone de una pantalla táctil panorámica, baterías recargables y altavoces incorporados. Sin embargo este aparato nos ofrece algo avanzado: conectividad de dos vías .
Esta característica nos proporcionará información que hará nuestra conducción más sencilla. Por ejemplo este navegador nos muestra el tráfico en tiempo real y busca puntos conflictivos cada pocos minutos a lo largo de nuestro recorrido , es capaz de mandar las indicaciones a su dispositivo de forma inalámbrica desde cualquier PC, podemos obtener actualizaciones trimestrales de mapas y listas de empresas, y además dispone de una conexión a Internet por GPRS . En definitiva es un navegador GPS con muchas prestaciones que lo hacen un aparato muy completo.
Su precio es de unos 300 dólares , aunque los servicios que presta también tienen un coste. Podemos elegir la forma de pago que más nos convenga, desde 12 dólares al mes hasta 240 dólares por dos años. Sin embargo al adquirirlo los tres primeros meses de servicios son gratuitos.
enlace»Webcam Microsoft LifeCam VX-5500
Nov 12, 2008 19:32:15 GMT Compartir
Microsoft se luce bastante con el hardware. Al menos en los periféricos se puede decir que cumplen lo que se pide.
Uno de los últimos accesorios que ha lanzado puede parecerles inútil a algunos, aunque hasta le día de hoy se sigue utilizando. Se trata de la Microsoft LifeCam VX-5500 , una webcam que se ajusta a cualquier ordenador (portátil o no).
Como es típico de Microsoft viene cargado de una serie de softwares para poder realizar todo tipo de efectos. La calidad es bastante aceptable. Tiene 1.3 megapíxeles , y nos permite grabar vídeo de hasta 640×480 .
También tiene un micrófono integrado, ideal para videoconferencias. Eso sí, su precio no es nada bajo. Gastar unos 70 euros en una webcam es algo que a no muchos nos conviene.
enlace»Holux presenta su GPSmile 62 que rastrea hasta 32 satélites!
Nov 13, 2008 07:12:13 GMT Compartir
Recientemente, Holux ha añadido un nuevo GPS a su serie GPSmile, se trata del modelo GPSmile 62, un GPS de gama alta…
El dispositivo viene con una pantalla touchscreen de 5” con resolución WQVGA, con vista de 16:9, este GPS además tiene funciones de reproductor multimedia ya que podrás ver videos y escuchar música.
GPSmile 62 soporta tarjetas de memoria tipo SD de hasta 4GB , viene con batería recargable y extraíble, altavoces integrados, conectividad Bluetooth para manos libres, y una antena TMC para informes de tráfico en tiempo real… este GPS es capaz de rastrear hasta 32 satélites lo que garantiza que tendrás señal donde quiera que estés.
Lo lamentable es que aún no se sabe ni la fecha de distribución ni el precio final de venta.
Nov 12, 2008 07:12:52 GMT Compartir
La empresa de software Telenav ha decidido probar suerte en el negocio del hardware, y para comenzar nos presenta un nuevo y propio dispositivo de navegación: el GPS Telenav Shotgun .
Sus características básicas son las propias de un navegador corriente, dispone de una pantalla táctil panorámica, baterías recargables y altavoces incorporados. Sin embargo este aparato nos ofrece algo avanzado: conectividad de dos vías .
Esta característica nos proporcionará información que hará nuestra conducción más sencilla. Por ejemplo este navegador nos muestra el tráfico en tiempo real y busca puntos conflictivos cada pocos minutos a lo largo de nuestro recorrido , es capaz de mandar las indicaciones a su dispositivo de forma inalámbrica desde cualquier PC, podemos obtener actualizaciones trimestrales de mapas y listas de empresas, y además dispone de una conexión a Internet por GPRS . En definitiva es un navegador GPS con muchas prestaciones que lo hacen un aparato muy completo.
Su precio es de unos 300 dólares , aunque los servicios que presta también tienen un coste. Podemos elegir la forma de pago que más nos convenga, desde 12 dólares al mes hasta 240 dólares por dos años. Sin embargo al adquirirlo los tres primeros meses de servicios son gratuitos.
enlace»Webcam Microsoft LifeCam VX-5500
Nov 12, 2008 19:32:15 GMT Compartir
Microsoft se luce bastante con el hardware. Al menos en los periféricos se puede decir que cumplen lo que se pide.
Uno de los últimos accesorios que ha lanzado puede parecerles inútil a algunos, aunque hasta le día de hoy se sigue utilizando. Se trata de la Microsoft LifeCam VX-5500 , una webcam que se ajusta a cualquier ordenador (portátil o no).
Como es típico de Microsoft viene cargado de una serie de softwares para poder realizar todo tipo de efectos. La calidad es bastante aceptable. Tiene 1.3 megapíxeles , y nos permite grabar vídeo de hasta 640×480 .
También tiene un micrófono integrado, ideal para videoconferencias. Eso sí, su precio no es nada bajo. Gastar unos 70 euros en una webcam es algo que a no muchos nos conviene.
enlace»Holux presenta su GPSmile 62 que rastrea hasta 32 satélites!
Nov 13, 2008 07:12:13 GMT Compartir
Recientemente, Holux ha añadido un nuevo GPS a su serie GPSmile, se trata del modelo GPSmile 62, un GPS de gama alta…
El dispositivo viene con una pantalla touchscreen de 5” con resolución WQVGA, con vista de 16:9, este GPS además tiene funciones de reproductor multimedia ya que podrás ver videos y escuchar música.
GPSmile 62 soporta tarjetas de memoria tipo SD de hasta 4GB , viene con batería recargable y extraíble, altavoces integrados, conectividad Bluetooth para manos libres, y una antena TMC para informes de tráfico en tiempo real… este GPS es capaz de rastrear hasta 32 satélites lo que garantiza que tendrás señal donde quiera que estés.
Lo lamentable es que aún no se sabe ni la fecha de distribución ni el precio final de venta.
Suscribirse a:
Entradas (Atom)
