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

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

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

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

Semana 27

enlace»iBangle, el iPod en versión anillo
Oct 22, 2008 18:33:09 GMT
Apple es como una de las grandes fuentes de inspiración de un gran número de diseñadores industriales. No es para menos, sus impecables diseños le han valido la reputación y es por eso que algunos de estos creativos incluso se atreven a pensar ideas en torno a los dispositivos del logo de la manzana.
Uno de estos conceptos es precisamente el iBangle , un diseño del Gopinath Prasana que a pesar de lo pequeño lleva el logo de la manzana en su versión pocket. Este anillo que podéis ver en la imagen no es otra cosa que un iPod en miniatura .
Claro que de momento no es una idea de Apple sino un simple concepto que su ideólogo sueña ver en las Apple Store. ¿Si funciona? Por supuesto, el interior del anillo es de un material que se infla para que el accesorio permanezca firme en el dedo y cuenta con sus respectivos controles de música, por supuesto casi indistinguibles y no aptos para dedos torpes. Por otra parte, dispone de un trackpad multitáctil a través del cual es posible navegar las listas de reproducción. Al encontrar la canción, sólo hay que dar un pequeño golpe con el dedo sobre el trackpad. El dispositivo también cuenta con una salida de aire que es la encargada de que el aire entre y salga para mantener firme la almohada interior del anillo.
Para completar el concepto, el diseñador ha añadido un par de auriculares in-ear inalámbricos.


enlace»Fujitsu Lifebook P8020, ahora con trackpad multitáctil
Oct 23, 2008 05:55:27 GMT
Si el P8010 tal vez te impresionó por ser un portátil de pequeñas dimensiones con un rendimiento bastante aceptable, su evolución, el Fujitsu Lifebook P8020 viene con algunas mejoras sobre el anterior modelo.
La principal, ahora integra un trackpad multitáctil , similar al que solemos ver en los portátiles Macintosh y que tan raro es en el resto de fabricantes. Mantiene la pantalla de 12.1 pulgadas, mejora el procesador (ahora un Intel ULV a 1.4 GHz, antes era a 1.2…), la memoria DDR3 y la gráfica ahora es una Intel GMA 4500 (la evolución de la anterior X3100 debido al uso de micros Montevina ), aunque parece que han eliminado uno de los aspectos más atractivos del anterior P8010: el P8020 ya no tiene conectividad 3G, simplemente WiFi (hasta el draft n ) y Bluetooth 2.0.
El precio del equipo base es de 1.700 dólares, incluyendo todo lo comentado en el párrafo anterior. Una lástima que este P8020 no permitan ni siquiera mejorar la conectividad, aunque fuese de forma opcional, ya que en el mercado actual se echan en falta los portátiles con 3G integrado, cosa que muy pocos ofrecen y, los que lo hacen, tienen un precio realmente alto.



enlace»Samsung y Telefónica colaboran en la lucha contra el cáncer de mama
Oct 24, 2008 09:24:38 GMT
Samsung Electronics presentó ayer la campaña solidaria Más que palabras, destinada a la lucha contra el cáncer de mamá. El principal objetivo de la campaña es conseguir fondos para la Federación Española de Cáncer de Mama (FECMA), además de informar a la gente sobre esta grave enfermedad y su prevención.
Para recaudar esos fondos, Samsung donará a FECMA 10 euros por cada unidad vendida de la edición Pink de su J700, que será comercializado por Telefónica Movistar. Ese dinero se sumará al cheque de 100.000 euros que la empresa coreana ya ha donado a la Federación. Los J700 incluyen una guía animada para enseñar a las usuarias cómo deben realizarse las exploraciones para detectar la enfermedad a tiempo.

Visual Basic ascensor (Ariel .M.)

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 = 2045
End Sub

Private Sub boton2_Click()
ascensor.Top = 3725
End Sub

Private Sub botonp_Click()
ascensor.Top = 5400
End Sub

Private Sub botons_Click()
ascensor.Top = 6230
End Sub

Private Sub boton3_Click()
ascensor.Top = 2880
End Sub

Private Sub boton1_Click()
ascensor.Top = 4565
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

End Sub

Private Sub cuatro_Click()
ascensor.Top = 2045
End Sub

Private Sub dos_Click()
ascensor.Top = 3725
End Sub

Private Sub planta_Click()
ascensor.Top = 5400
End Sub

Private Sub sub_Click()
ascensor.Top = 6230
End Sub

Private Sub tres_Click()
ascensor.Top = 2880
End Sub

Private Sub uno_Click()
ascensor.Top = 4565
End Sub

Semana 26

Nuevo MacBook Pro

Oct 15, 2008 06:14:45 GMT

Finalmente apareció, el nuevo MacBook Pro totalmente rediseñado y siguiendo la estética del MacBook Air , algo que era totalmente esperado y lógico más aún viendo que precisamente esa característica es una de las que más importan en Cupertino.

Pero bastante más interesante que el diseño del nuevo MacBook Pro es, a mi parecer, el hardware. Dentro encontraremos un procesador Intel Core 2 Duo a 2.4, 2.53 o 2.8 GHz, ninguna novedad sorprendente más allá de lo que ya hemos visto en otros ordenadores.

Si vamos al apartado de la tarjeta gráfica, aquí es donde la cosa empieza a ponerse interesante. Los MacBook Pro incluyen de serie una configuración con doble tarjeta gráfica , dos NVidias una de ellas integrada, una GeForce 9400M, y otra ajena a placa , no integrada, modelo GeForce 9600M GT y con cantidades de memoria que dependen del procesador elegido. La 9400M tiene 256 MB de memoria GDDR3 compartida, mientras que la 9600M GT tiene 256 o 512 MB.

La gracia de esta jugada es permitir que el ordenador portátil pueda disminuir el consumo cuando no se requiere una potencia gráfica alta, de forma que sólo se active el funcionamiento de la gráfica integrada, la 9400M. Cuando el sistema necesite un mejor rendimiento en este aspecto, por ejemplo en videojuegos o programas de diseño, entonces el sistema operativo podrá poner en funcionamiento la 9600M GT, con mayor potencia.

Este cambio entre una gráfica y otra se pone en marcha de forma totalmente transparente al usuario, quien posiblemente lo note debido a una mejor ventilación o mayor calor en determinadas zonas del ordenador.

Este sistema de una doble tarjeta gráfica se venía implementando en algunos de los ordenadores de más alta gama, aunque la principal diferencia respecto a este MacBook Pro es que era necesario activar un interruptor para hacer la permutación. De igual forma, se podía hacer en caliente.

Gracias a la nueva potencia gráfica, el MacBook Pro dispone también de una salida de vídeo Mini DisplayPort, un puerto que no se había visto antes en ordenadores portátiles. Según Apple, ellos piensan que el HDMI no es lo suficientemente potente como el DisplayPort, y por ello esta decisión. Curiosamente, Apple también ha aumentado el precio de sus adaptadores Mini DisplayPort a VGA o DVI , que ahora cuestan 29 euros mientras que antes con el MiniDVI tenían un precio de 19.

Si el apartado gráfico me parece sin duda alguna la principal novedad del dispositivo, Apple también ha cambiado radicalmente la memoria RAM , incorporando ahora memorias DDR3 a 1.066 MHz a toda su gama de ordenadores portátiles. Se mantiene la cantidad, 2 GB, pero se mejora la calidad, ya que la frecuencia de las anteriores DDR2 eran 667 MHz. Los precios de la mejora de 2 a 4 GB en la Apple Store comprando el ordenador de nuevas siguen siendo bárbaros, 140 euros, aunque los dos modelos más altos (con micro a 2.53 y a 2.8 GHz) ya incorporan los 4 GB, supuestamente el máximo soportado por Mac OS X, el sistema de Apple.

La pantalla ahora es de tipo LED , pero Apple no ha puesto en el mercado un MacBook Pro de 17 pulgadas con el nuevo diseño, sino que mantiene el anterior modelo por un precio de 2.400 euros y sin novedades en cuanto a hardware. Por ahora sólo hay una única versión en dos sabores diferentes, ámbos con 15 pulgadas y con resolución de 1.440×900 píxeles.

En cuanto a discos duros, Apple permite discos SSD en los nuevos MacBook Pro , aunque lógicamente es una opción carísima. Por ahora el único disco disponible, de 128 GB, tiene un precio ‘extra’ de 450 euros.

Los discos de tipo tradicional que incluyen son de 250 o 320 GB, dependiendo del modelo escogido y en ambos casos a 5.400 rpm. Se pueden utilizar discos de 7.200 rpm, también en 250 o 320 GB, pagando su correspondiente extra. En todos los casos son de 2.5 pulgadas.

Un punto curioso: El nuevo MacBook Pro no incluye Blu-Ray , ya que según Steve Jobs en una de las respuestas al final de la conferencia, el Blu-Ray es una bolsa de dolor. Creo que con esa frase queda bastante claro que aún falta mucho para que Apple decida montar en sus dispositivos el nuevo ‘estándar’ de discos ópticos del mercado, y sus razones tendrán para realizar semejante afirmación tan rotunda.

El trackpad de esta renovada versión del portátil para profesionales de Apple también ha sido modificado, al igual que el de sus hermanitos más pequeños . Además de ser multitáctil, tecnología que ya se encontraba en la anterior versión del Pro, ahora incluye una protección de cristal parecida a la que vimos en los nuevos iPod Nano 4G . A su vez, se ha eliminado el botón que emulaba el click del ratón, cosa que no termina de convencerme y que no se había visto antes en ningún portátil.

Respecto al resto de características, nada fuera de lo común. Teclado retroiluminado, cosa que siempre se agradece, batería que ha cambiado para adaptarse al nuevo diseño, pero cuyo número de celdas desconocemos, una carcasa totalmente hecha en aluminio, y por supuesto el nuevo diseño . Falta saber qué ha pasado finalmente con el chipset, que se dijo que era de NVidia pero que aún no se ha confirmado. Ah, el nuevo diseño casi se me olvida comentarlo.

Los cambios de este nuevo MacBook Pro afectan sobretodo a lo interno. Sí, Apple lo ha rediseñado por completo, adaptándose como ya dije anteriormente a la línea del MacBook Air. Sí, estoy de acuerdo en que las nuevas curvas del portátil profesional de Apple son muy acertadas, desde mi punto de vista mucho más bonitas y que lo hacen un producto muy a la línea que todos conocemos en el fabricante. Pero el hardware es de lo más potente disponible hoy en día en el mercado en un ordenador portátil.

Por un lado tenemos una doble gráfica de última generación, memorias DDR3 de última generación, la posibilidad de añadir discos SSD desde la fábrica, teclado retroiluminado (que aunque parezca mentira son bastantes pocos los que lo incluyen), salida de vídeo Mini DisplayPort, Firewire 800 y procesadores Intel de doble núcleo de hasta 2.8 GHz.

Aunque me parece un producto muy acertado a nivel de componentes, de hardware, he de decir que hay dos cosas en las que discrepo totalmente.

Por un lado, Apple no ha incluido procesadores quad-core en el MacBook Pro , cosa que sí existe en algunos portátiles desde hace unos meses. Si estás fabricando un portátil para profesionales, hazlo en condiciones permitiendo que el usuario/cliente escoja lo máximo, y por supuesto optimiza tu sistema operativo (que para algo es tuyo) para maximizar el rendimiento de estos nuevos procesadores.

Tal vez el sistema operativo sea la razón por la que los quad-core aún no han llegado a los MacBook Pro, y es que es posible que el Snow Leopard , el que será una actualización del sistema operativo de Apple, traiga una mejor compatibilidad con procesadores de arquitectura de 64 bits y de cuatro núcleos. Por ahora no hay muchos datos sobre esto, aunque no, los nuevos MacBook Pro no tienen quad-core .

Por el otro lado, el Blu-Ray. Por mucho que no le guste a Apple ya es oficialmente el nuevo estándar en almacenamiento óptico, y lo será durante unos cuantos años más. Apple debería tenerlo muy en cuenta y no escudarse en que como iTunes vende ahora vídeos en HD, el Blu-Ray es un niño malo. Parece una pataleta de niño pequeño.

Los precios de estos nuevos MacBook Pro empiezan en los 1.750 euros en la tienda oficial española, con la posibilidad de mejorar el equipo de una forma muy amplia y a su vez bastante cara.

Reproductor multimedia Energy 5020/5021, con salida de TV

Oct 14, 2008 18:32:58 GMT

Otro producto presentado por la gente de Energy Sistem , que estará disponible en el mercado en breve, es el Energy 5020 (acompañado del Energy 5021 ).

En este caso, el modelo se caracteriza por permitir reproducir vídeo sin compresión, pudiendo visualizar directamente las películas DivX y XviD en la televisión.

Entre las características de este producto, podemos mencionar:

• Dimensiones: 91 x 52 x 9 mm
• Peso: 83 gramos
• Pantalla LCD TFT 2.8” con resolución QVGA
• Reproductor de audio en MP3, WMA, WAV
• Reproductor de vídeo en AVI, FLV, RM, RMVB
• Visor de imágenes JPG, BMP
• Visor de textos TXT
• Radio FM con presintonías y grabación
• Grabación de voz
• Altavoz y micrófono
• Microsoft PlayFX
• Memoria interna de 4GB
• Ranura microSDHC, hasta 32GB
• Salida de TV (HQ TV-Out )
• Batería de Litio

Este producto sale a la venta por unos 84,90 euros, e incluye tanto el cable de conexión al televisor (RCA), como un par de auriculares intrauditivos Hi-Fi.

Más información en Energy Sistem

LG Prada, la versión con teclado físico!

Oct 14, 2008 06:13:14 GMT

LG ha actualizado su teléfono móvil LG Prada con un teclado físico y lo lanzado oficialmente!

El nuevo LG Prada ahora cuenta con un teclado QWERTY y de estilo slider, el teclado deslizante sólo puede usarse en posición horizontal.

Por lo demás, el móvil mantiene sus características, incluyendo la conectividad HSDPA, WiFi, navegación web con HTML completo, cámara de 5 megapíxeles con óptica Schneider-Kreuznach.

Veremos el celular recorriendo España, Reino Unido, Alemania, Holanda y Francia en los últimos meses, y costará 600 euros.

Semana 25

Marine por Sony

Oct 13, 2008 18:31:42 GMT

Sony ha revelado sus primeros receptores de CD Marine, totalmente compatibles con iPod, dos generaciones de iPhone así como otros reproductores multimedia portátiles gracias al uso de conectividad por puerto USB.

Los dos receptores de CD son los modelos CDX-H910UI y CDX-M60UI que también tienen características de MemoryBackup y ZAPPIN de Sony. Ambos modelos también soportan tecnología de DM+ que hace que los archivos MP3s, non-DRM WMA y formato AAC suenen mucho mejor, realzando la calidad del audio comprimido.

Los CDX-H910UI y CDX-M60UI pueden ser tuyos por $350 y $200 respectivamente, desde el próximo enero.

enlace»Las nuevas notebooks de toshiba

Oct 15, 2008 22:01:55 GMT

Aquí estan las ultimas novedades de Toshiba en lo que se refiere a las notebooks.

Por un lado tenemos al equipo Tecra R10 y el Portege A600, ambos de dimensiones reducidas aunque con clientes potencialmente diferentes. El primero mide 28 mm de grueso y pesa 1,9 kg. Cuenta con una batería que debería durar 5 horas, un procesador Intel Centrino 2, gráficos Quadro NVS con 128 MB de memoria, ranura ExpressCard, puerto USB Sleep-and-Charge/eSATA y una pantalla LED de 14,1 pulgadas. En cuanto a la otra notebook, Portege A600 tiene una pantalla de 12,1 pulgadas, e integra un procesador Centrino 2 para obtener 7,5 horas de autonomía. Su
peso, además, es de lo más comodo: 1,4 kg.

enlace»Bajan las ganancias de Nokia en el tercer trimestre

Oct 16, 2008 17:41:13 GMT

Nokia acaba de poner en su sitio el reporte financiero con los resultados del tercer trimestre del año donde se puede notar una desaceleración en las ventas del 5 % con respecto al mismo periodo del 2007.

La compañía finlandesa ya había pronosticado una reducción de su participación en el mercado de celulares para el Q3, y en este informe vemos que a fines de septiembre se ubicaba en el 38 % del market share frente al 39 que tenía un año antes y el 40 por ciento al que llegó en el Q2.

Los números muestran que en julio, agosto y septiembre Nokia facturó 12.237 millones de euros, lo que significa 5 por ciento menos que en ese trimestre del 2007, donde recaudó unos 12.898 millones.

Está claro que los fabricantes de celulares sienten directamente la crisis económica por la pérdida de confianza de los consumidores. El mercado europeo fue donde más retrocedieron las ventas y los mercados emergentes que tantas satisfacciones estaban dando a la compañía no pudieron sostener eso.

Pensando en el Q4 -un trimestre con más ventas generalmente-, Nokia quiere llegar a un incremento del 13.5 %; un número que no resulta mayor al de lo años anteriores pero que puede calmar un poco a sus accionistas quienes tuvieron utilidades de 0,29 euros por acción frente a 0,4 euros en el Q3 del 2007.

Semana 24

BenQ lanza un dispositivo de Internet móvil

Oct 01, 2008 06:13:55 GMT

Aunque no me queda claro si es un teléfono o solo un reproductor multimedia portátil, es el primer dispositivo inalámbrico de BenQ, dentro de la categoría de MID (Mobile Internet Device), la compañía ha presentado en Italia el S6…

Este dispositivo tiene un procesador Intel Atom móvil y una pantalla táctil de 4.8”, además puede reproducir música, fotografías y videos, claro está, también podrás obtener información a través de conexión WiFi y 3G.

Incorpora conectividad Bluetooth, auto-rotación de pantalla, altavoces integrados y soporte para documentos de Office, por 429 euros.

enlace»Navigon 7210, ahora navega por Europa

Sep 30, 2008 06:12:23 GMT

Hace poco anunciaron el modelo 7200T que iba navegando pero solo en Estados Unidos y Canada, pues bien, ahora Europa tiene su propio navegador, se trata del Navigon 7210 , otro navegador GPS de gama alta.

Como características podemos mencionar, asistente de carril, reconocimiento de voz, vista panorámica en 3D (que nos muestra los edificios más importantes), Reality View Pro (orientación en salidas o cruces complicados).

El Navigon 7210 viene equipado con una pantalla de 4.3”, procesador a 600 MHz, 64 MB de RAM y 2 GB, en el que se podrán guardar mapas de cuarenta países en Europa.

Estará disponible a fines de septiembre por 349 euros.

enlace»Apple levanta el NDA sobre los programas (publicados) de iPhone

Oct 01, 2008 18:45:18 GMT

Este es el texto que aparece al acceder al área iPhone de desarrolladores de Apple:

"Hemos decidido abandonar el acuerdo de no revelación (NDA) para el software publicado del iPhone.

Pusimos el NDA porque el OS del iPhone incluye muchas invenciones e innovaciones de Apple que nos gustaría protegeer, para que otros no roben nuestro trabajo. Ya nos ha pasado antes. Aunque hemos solicitado cientos de patentes sobre la tecnología del iPhone, el NDA añadía otro nivel más de protección. Lo creamos como una forma más de proteger al iPhone frente a imitadores.

Sin embargo, el NDA ha colocado un peso demasiado grande sobre los desarrolladores, autores y otros interesados en ayudar al éxito del iPhone, así que no lo aplicaremos sobre software publicado. Los desarrolladores recibirán un nuevo acuerdo sin un NDA que afecte al software publicado en una semana, más o menos. Por favor, fíjense que el software no publicado y sus características siguen estando bajo NDA hasta que sean públicos.

Gracias a todo el mundo que nos ha enviado sus valiosas opiniones sobre este tema."