Ascensor 6 (por Daniel)

Private Sub borrar_Click()
contraseña = "contraseña."
cinco.Enabled = True
controlcinco.Enabled = True
End Sub

Private Sub cinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True

End Sub

Private Sub controlcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub controlss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub controltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

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

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub reiniciar_Click()
ccinco.Caption = "0"
ccuatro.Caption = "0"
ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
total.Caption = "0"
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
borrar.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
borrar.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub total_Click()

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Ascensor 5 (por Daniel)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub borrar_Click()
contraseña = "contraseña."
End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
If ascensor.Top = 1200 Then
total.Caption = total.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub controlcinco_Click()

Ascensor 4 (por Daniel)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

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

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Semana 29 (por Daniel)

Artículo 1:
31/10/08

Philips golite Blu, sube tu ánimo con luz

Con la llegada del invierno, en algunos países, principalmente del norte del planeta, la falta de luz solar suele provocar problemas de sueño, ánimo decaído o cansancio. Philips ha anunciado ya la disponibilidad de uno de esos típicos productos suyos que nacen como concepto en eventos como el Simplicity, en cuya edición de este año estuvo Xataka.
GoLite Blu será para muchos un producto sin uso real, pero la base científica ahí está. Este equipo para la salud personal usa luces LED para emitir una luz azul con una longitud de onda perfecta para que el organismo no note la ausencia prolongada de luz solar natural.

Para ver más.

Artículo 2:

31/10/08

Shuttle Barebone X27D, con Atom de doble núcleo

Los procesadores Atom no solo están de moda entre los ultraportátiles. Ordenadores de sobremesa, especialmente los tipo barebone, los están adoptando en situaciones que no requieren de un alto rendimiento. Lo vimos con el TVBE y lo comprobamos de nuevo con el Shuttle Barebone X27D.
Por características y salidas no es un ordenador pensado para colocar junto al televisor y funcionar como media center, sino más bien para tenerlo en el escritorio sin ocupar demasiado espacio, con un consumo razonable y generando muy poco ruido, ya que ofrece un sistema de ventilación pasiva sin ventiladores.

Para ver más.

Artículo 3:

31/10/08

Sharp presenta un LCD con memoria

Hasta ahora la tinta electrónica representaba un salto tecnológico frente a tecnologías ya implantadas como el LCD. Pero Sharp está mostrando unos modelos de LCD capaces de mantener la imagen incluso cuando no disponen de corriente.
Estas propiedades los convierten en buenos candidatos para ser usados en dispositivos como libros electrónicos, igual que ya se hace con la tinta electrónica. De momento, pero, presentan el problema de que para fijar la imagen requieren una buena cantidad de energía.

Para ver más.

Yo elegí estos artículos porque son ideas muy buenas e interesantes.

Ascensor 3 (por Daniel)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ccinco_Click(Index As Integer)

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

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

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 2 (por Daniel)

Private Sub L1_Click()ascensor.Top = 4680End Sub
Private Sub L2_Click()ascensor.Top = 3720End Sub
Private Sub L3_Click()ascensor.Top = 2640End Sub
Private Sub L4_Click()ascensor.Top = 1560End Sub
Private Sub L5_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub

Private Sub llamar1_Click()ascensor.Top = 4680End Sub
Private Sub llamarcinco_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub
Private Sub llamarcuatro_Click()ascensor.Top = 1560End Sub
Private Sub llamardos_Click()ascensor.Top = 3720End Sub
Private Sub llamarpb_Click()ascensor.Top = 5640End Sub
Private Sub llamarss_Click()ascensor.Top = 6480End Sub
Private Sub llamartres_Click()ascensor.Top = 2640End Sub
Private Sub LPB_Click()ascensor.Top = 5640End Sub
Private Sub LSS_Click()ascensor.Top = 6480End Sub
Private Sub luz_Click()If ascensor.FillColor = vbBlack Thenascensor.FillColor = vbWhiteElseIf ascensor.FillColor = vbWhite Thenascensor.FillColor = vbBlack
End If
End IfEnd Sub
Private Sub stop_Click()If llamar1.Enabled = True Thenllamar1.Enabled = Falsellamardos.Enabled = Falsellamartres.Enabled = Falsellamarcuatro.Enabled = Falsellamarcinco.Enabled = Falsellamarss.Enabled = Falsellamarpb.Enabled = FalseL1.Enabled = FalseL2.Enabled = FalseL3.Enabled = FalseL4.Enabled = FalseL5.Enabled = FalseLPB.Enabled = FalseLSS.Enabled = Falseluz.Enabled = Falsell1.Enabled = Falsell2.Enabled = Falsell3.Enabled = Falsell4.Enabled = Falsell5.Enabled = Falsellss.Enabled = Falsellpb.Enabled = FalseElsellamar1.Enabled = Truellamardos.Enabled = Truellamartres.Enabled = Truellamarcuatro.Enabled = Truellamarcinco.Enabled = Truellamarss.Enabled = Truellamarpb.Enabled = TrueL1.Enabled = TrueL2.Enabled = TrueL3.Enabled = TrueL4.Enabled = TrueL5.Enabled = TrueLPB.Enabled = TrueLSS.Enabled = Trueluz.Enabled = Truell1.Enabled = Truell2.Enabled = Truell3.Enabled = Truell4.Enabled = Truell5.Enabled = Truellss.Enabled = Truellpb.Enabled = TrueEnd If
End Sub

Semana 28 (por Daniel)

Artículo 1:
24/10/08

Swinxs, la consola sin pantalla

Cuando hablamos de una consola nos imaginamos un dispositivo que se conecta al televisor para permitir al usuario jugar. Como mucho, si esta es portátil, incluye una pantalla. Claro que no se si en el caso del Swinxs yo lo llamaría consola, como hace su fabricante.
Es, desde luego, un dispositivo pensado para juegos multijugador, aunque se sale, y por mucho, de lo que habitualmente entendemos como consola. Diseñada para niños, ofrece una serie de juegos en los que la interacción se realiza con unas pulseras que vienen incluidas y a través de la voz, pues es la manera que el Swinxs tiene de dar las instrucciones.

Para ver más.

Artículo 2:

24/10/08

Parrot Specchio, marco digital con NFC

En el Mobile World Congress de este año estuvimos viendo unos prototipos de marcos digitales con NFC de la mano de Parrot, los cuales han evolucionado y llegan ahora al mercado con el nombre de Parrot Specchio.
Estos marcos combinan diversas maneras de cargar las fotografías en ellos: Wi-Fi, Bluetooth, NFC, USB y tarjetas de memoria SD. De todos ellos, el NFC es el que representa una mayor novedad, aunque probablemente también sea el que vaya a tener un menor uso. Y es que aún son pocos los dispositivos que lo soportan.

Para ver más.

Artículo 3:

24/10/08

Intel desarrolla un nuevo sistema de refrigeración para portátiles

Intel ha demostrado en la última edición de su IDF que su presencia en los portátiles debe ir más allá de los procesadores. También quiere facilitar que los fabricantes hagan equipos más delgados y cómodos de usar. A la empresa le conviene que así sea. Por ello han presentado en su encuentro de otoño un nuevo sistema de refrigeración para portátiles que haga que el uso de estos encima de las piernas sea una realidad sin peligro alguno. Y eso comienza a ser un problema con los portátiles cada vez más delgados, que según Intel podrían dejar de avanzar en ese sentido si no se soluciona pronto el tema de la mala rerfrigeración.

Para ver más.

Yo elegí estos artículos porque son idean, aunque no tan necesarias, interesantes.

Semana 27 (por Daniel)

Artículo 1:

23/10/08

Samsung L810, hermano pequeño del Soul

Primo-hermano del L870 y descendiente directo del Samsung Soul, del cual toma su diseño, el Samsung L810 elimina el Magical Touch, ese panel táctil situado en la parte frontal y lo sustituye por botones convencionales. Llega ahora a España de la mano de Vodafone, con un precio más reducido pero también con menores prestaciones. Se trata de un teléfono tribanda que ofrece conectividad 3G, compatible con HSDPA, y una pantalla con un tamaño de 2.2 pulgadas y una resolución de 320 × 240 píxeles.

Para ver más.

Artículo 2:

23/10/08

ATi Radeon HD 4830

Recién salida del horno, AMD/ATi ha hecho hoy oficial la nueva ATi Radeon HD 4830.
Con este producto, AMD introduce una nueva tarjeta perteneciente a gama 800, la gama de ATi dirigida a los más exigentes. A pesar de que por encima aún se encuentran, al menos, dos tarjetas (4850, 4870 y sus derivaciones con dos núcleos), la Radeon HD 4830 es una muy interesante opción para los que quieran apretar las tuercas de su ordenador con videojuegos de última generación, los cuales deberían funcionar sin demasiadas dificultades con esta tarjeta.

Para ver más.

Artículo 3:

23/10/08

Posimotion G-Fi, punto de acceso inalámbrico con batería

¿Montar una red inalámbrica en cualquier lado? No es demasiado difícil, siempre que dispongamos del correspondiente punto de acceso y de un enchufe cerca. Pero, ¿y si no tenemos este último?
Pues el Posimotion G-Fi VS nos soluciona el problema, ya que viene con una batería recargable que nos permite crear una red inalámbrica en cualquier lugar donde estemos, de forma que podremos conectar a ella tantos ordenadores como queramos.

Para ver más.

Yo elegí estos artículos porque son ideas muy buenas e interesantes.

Ascensor 1 (por Daniel)

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click(Index As Integer)
ascensor.Top = 1200
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
End Sub

Private Sub cuatro_Click(Index As Integer)
ascensor.Top = 1800
End Sub

Private Sub dos_Click(Index As Integer)
ascensor.Top = 3000
End Sub

Private Sub pb_Click(Index As Integer)
ascensor.Top = 4200
End Sub

Private Sub ss_Click(Index As Integer)
ascensor.Top = 4800
End Sub

Private Sub tres_Click(Index As Integer)
ascensor.Top = 2400
End Sub

Private Sub uno_Click(Index As Integer)
ascensor.Top = 3600
End Sub

Semana 26 (por Daniel)

Artículo 1:

15/10/08

Apple Macbook

La vieja gama de ordenadores Macbook ya tiene un nuevo miembro. El nombre no es específico, y es una transición natural que ha dejado tres tipos de Macbooks en el mercado: el macbook antiguo, en blanco, el nuevo macbook con carcasa de metal y el Macbook Air, cuya configuración apenas sufre variación respecto a la primera versión. Un paso adelante común del nuevo Macbook metálico y del Macbook Air ha sido la incorporación del puerto mini DisplayPort. Han obviado el puerto HDMI y pensado ya directamente en que este estándar se acabe imponiendo en breve. Seguramente han pensado en ello demasiado pronto. Lo que han vuelto a hacer es imponer un puerto que enarbolando la bandera de lo diminuto, necesita de nuevo de un adaptador (normalmente bastante caro) para poder usarlo fuera del entorno Mac. Pero más destacable es que ya no tengamos que acudir a un Macbook Pro para disponer de tarjeta gráfica semi-dedicada. Todos los Macbook incorporan ya de serie la Nvidia GeForce 9400M.

Para ver más.

Artículo 2:
15/10/08

Philips Streamium NP1100, con la música a cualquier parte

Los sistemas de música inalámbricos se van popularizando poco a poco. Tienen un panorama complejo que resolver, pues los reproductores portátiles con una base de altavoces como la última Logitech Pure-Fi Express, son sus rivales naturales. El sistema más famoso y completo en la actualidad es el Logitech Squezebox, recientemente renovado con su versión Duet. Sin embargo, el precio del producto lo aleja un poco de los hogares. Y es que por el mismo precio que tiene solamente el mando del producto de Logitech (pero qué mando) nos encontramos con el nuevo Philips Streamium NP1100, que ya está disponible en España con un precio de 150 euros.

Para ver más.

Artículo 3:

15/10/08

Pioneer lanza una grabadora especial para contenido descargado de Internet

Descargar una película de Internet y poder grabarla en un DVD para verla en el reproductor del salón ya no será algo exclusivo de Dell y Qfix. Pioneer también ha llegado a un acuerdo con la compañía de descargas para poder grabar en DVD ese contenido que hemos comprado y descargado de Internet. Esto será posible si compramos alguna de las dos unidades grabadoras nuevas de Pionner, la DVR-2920Q, de tipo interno, y la Pioneer DVR-X162Q, que es una unidad externa. Ambos modelos llevan una función especial que permite grabar contenido del servicio CinemaNow de Qlix. La mala noticia es que, al igual que pasaba con las unidades grabadoras de Dell, necesitamos contar con unos discos DVD vírgenes especiales, por aquello de la protección de derechos.

Para ver más.

Yo elegí estos artículos porque son ideas muy interesantes.

Semana 25 (por Daniel)

Artículo 1:
8/10/08

AlertMe, controla el gasto de luz

Ahorrar energía no es solo una cuestión de respeto al medio ambiente, sino también de dinero, pues como más aparatos tengamos consumiendo innecesariamente más pagaremos en el recibo de la luz a final de mes. AlertMe es un sistema que permite disminuir ese consumo de forma automática, mediante el uso de diferentes sensores, y que podremos controlar remotamente, tanto a través de un interfaz web como mediante mensajes de texto con el móvil.
Para ver más.

Artículo 2:
8/10/08

Conexiones HSPA+ de hasta 21 Mbps

Si en España estamos ahora empezando a utilizar las conexiones de datos móviles de hasta 7.2 Mbps, en Australia al menos nos van a empezar a llevar demasiada ventaja. Allí, un teleoperador local va a empezar a utilizar un nuevo estándar de transmisión de datos a partir de la red de telefonía, y es el HSPA+, conocido también por otras siglas, como por ejemplo eHSPA. El Evolved HSPA permitirá un ancho de descarga de hasta 21 Mbps, que implicarían una tasa de transferencia máxima teórica de unos 2.62 MB/s. Y he dicho bien, en la teoría, ya que a la hora de la práctica las cifras suelen bajar incluso por debajo de la mitad de esos datos. Las primeras pruebas del HSPA+ en Australia se iniciarán en los próximos meses, pero antes de que finalice el 2008. Se utilizarán modems compatibles para utilizar la conexión en portátiles, y por ahora no en móviles ya que no existen terminales compatibles con este nuevo estándar.
Para ver más.

Artículo 3:
8/10/08

Microproyector MPro 110 de 3M en España

3M pone a la venta este mismo mes en España su microproyector MPro 110, que tiene el tamaño de un teléfono móvil, como ves en la imagen de arriba. Para los que hacemos uso de un proyector cada día y no necesitamos grandes especificaciones, es una idea perfecta. Este Mpro 110 de 3M es capaz de proyectar en cualquier superficie presentaciones o vídeos. El único requisito es que el aparato desde el que proyectamos tenga salida VGA o RCA. La pantalla que obtenemos varía de los 10 cm al metro de diagonal. No es un tamaño muy grande pero suficiente. El tema de la iluminación, delicado en los proyectores, lo soluciona con tecnología LED. Habrá que probar el proyector para comprobar el rendimiento del mismo y su vida útil, pues la luminosidad será clave para poder usarlo en lugares en los que haya luz ambiente alta. Esto es importante pues su coste es de 300 euros y hay que comprobar bien que funciona en las condiciones en las que lo vamos a usar y ver lo que nos duraría. Funciona por cierto con baterías, como no podía ser de otra forma.
Para ver más.

Yo elegí estos artículos porque son ideas muy interesantes.

Calculadora 3 (por Daniel)

Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub

Private Sub por_Click()
aux2.Caption = "*"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub porc_Click()
aux2.Caption = "%"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub raiz_Click()
If pantalla.Caption <= 0 Then
pantalla.Caption = "Error"
Else
pantalla.Caption = Sqr(pantalla.Caption)
End If
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub

Semana 24 (por Daniel)

Artículo 1:
2/10/08

Vudu HDX, ya oficial

Lo comentabamos hace alrededor de un mes y hoy ya se ha hecho oficial. Vudu lanza el Vudu HDX, un nuevo dispositivo que permitirá la descarga de contenido en alta definición, principalmente películas a 1080 puntos. La codificación que utiliza el HDX se trata de una pequeña modificación sobre el H.264, un codec de compresión de vídeo muy utilizado y que funciona extraordinariamente bien. Parece que en cuanto a tasas de transferencia, Blu-ray duplica al HDX, con lo que es posible que la calidad sea superior en el caso de la tecnología de Sony, aunque debido a que son dos compresiones diferentes no podremos afirmarlo con rotundidad hasta no verlo en funcionamiento.
Para ver más.

Artículo 2:
2/10/08

Motorola ZN5

Motorola ZN5 es el teléfono con el que la empresa americana quiere volver a hacerse camino en España. Hoy lo han presentado de forma oficial y ya sabemos que está a la venta de forma libre por 275 euros, un precio que bastante contenido y ajustado. El Motorola ZN5 ha sido mencionado más veces por ser un teléfono que presume de contar con un sensor Kodak para hacer fotos y poder grabar esas tomas en formato RAW.
Para ver más.

Artículo 3:
2/10/08

Nuevos portátiles de Acer

En total, cuatro nuevos portátiles de Acer pertenecientes a la gama Aspire, y con los ‘nombres’ de Aspire 8930, 6930, 5735 y 4730. Ya hablamos sobre ellos hace unos días, pero finalmente fue ayer cuando se hicieron oficiales. No vamos a adentrarnos a fondo en todos, pero sí en el que supone una diferencia respecto a los demás. El Acer Aspire 8930 es con diferencia el más potente de los cuatro, dirigido no sólo a la reproducción de contenido multimedia en alta definición, sino también con una potencia que lo dotaría de un rendimiento excelente incluso para la mayoría de videojuegos.
Para ver más.

Yo elegí estos artículos porque son ideas muy buenas e interesantes.

Calculadora 1 (por Daniel)

Private Sub Borrrar_Click() pantalla.Caption = "" aux.Caption = "" aux2.Caption = "" End Sub Private Sub cero_Click() pantalla.Caption = pantalla.Caption + "0" End Sub Private Sub cinco_Click() pantalla.Caption = pantalla.Caption + "5" End Sub Private Sub coma_Click() pantalla.Caption = pantalla.Caption + "," End Sub Private Sub cuatro_Click() pantalla.Caption = pantalla.Caption + "4" End Sub Private Sub dividido_Click() aux.Caption = pantalla.Caption aux2.Caption = "/" pantalla.Caption = "" End Sub Private Sub dos_Click() pantalla.Caption = pantalla.Caption + "2" End Sub Private Sub igual_Click() If aux2.Caption = "+" Then pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption) End If If aux2.Caption = "-" Then pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption) End If If aux2.Caption = "*" Then pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption) End If If aux2.Caption = "/" Then pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption) End If aux.Caption = "" aux2.Caption = "" End Sub Private Sub mas_Click() aux.Caption = pantalla.Caption pantalla.Caption = "" End Sub Private Sub menos_Click() aux.Caption = pantalla.Caption aux2.Caption = "-" pantalla.Caption = "" End Sub Private Sub nueve_Click() pantalla.Caption = pantalla.Caption + "9" End Sub Private Sub ocho_Click() pantalla.Caption = pantalla.Caption + "8" End Sub Private Sub por_Click() aux.Caption = pantalla.Caption aux2.Caption = "*" pantalla.Caption = "" End Sub Private Sub seis_Click() pantalla.Caption = pantalla.Caption + "6" End Sub Private Sub siete_Click() pantalla.Caption = pantalla.Caption + "7" End Sub Private Sub tres_Click() pantalla.Caption = pantalla.Caption + "3" End Sub Private Sub uno_Click() pantalla.Caption = pantalla.Caption + "1" End Sub

Semana 22 (por Daniel)

Artículo 1:

19/9/08

LaCie 4big Quadra

El LaCie 4big Quadra, presentado esta misma semana, resulta un producto bastante interesante no solo para el entorno profesional y empresarial, sino también para todos aquellos que quieran tener un servidor de almacenamiento en su propio hogar.
Por ahora, el LaCie 4big Quadra está disponible en tres modelos con capacidades diferentes, de 2, 4 y 6 TB en total, pero con características comunes: todos utilizan cuatro discos duros, intercambiables entre si y con la posibilidad de hacerlo en tiempo real sin necesidad de apagar o desconectar el dispositivo. Permite elegir entre varios sistemas RAID de los más comunes, entre los que cabe destacar RAID 0, RAID 5 o RAID 10, y las posibilidades de conexión son bastante amplias: eSATA 3Gbits, FireWire 400/800 y USB 2.0, aunque siendo un dispositivo tan avanzado quizá se echa en falta una conexión ethernet de forma que pudiese usarse como NAS, Network Attached Storage.

Para ver más.

Artículo 2:

19/9/08

Pinnacle PCTV nanoStick Ultimate, de reducido tamaño

Teniendo una sintonizadora externa, ¿quién quiere complicarse la vida con las que tenemos que colocar en ranuras PCI? Pinnacle PCTV nanoStick Ultimate es una nueva sintonizadora de televisión que va un paso más allá y se vuelve más compacta que sus rivales, que por cierto son también de la misma marca. Con unas medidas de 5.2 × 2.3 × 1.3 cm, ya no hay excusa para no llevarla todo el día con nosotros y colocarla a la menor oportunidad en el puerto UBS del portátil o , porqué no, en el sobremesa de la oficina. También viene muy bien para los ordenadores Media Center del salón digital.

Para ver más.

Artículo 3:

18/9/08

LG LG4000, televisor con reproductor de DVD integrado

¿Tiene sentido integrar un reproductor de DVD en el televisor? Teniendo en cuenta que podemos encontrar reproductores prácticamente regalados probablemente no sea algo primordial. Pero LG cree que sí es una buena opción, para lo que presentan el LG LG4000.
Lo que si me gusta de ellos es su diseño y que el reproductor de DVDs no se limite solo a eso, sino que también sirva para reproducir CDs de audio, imágenes y música en MP3. Encima soporta reproducción de vídeo en DivX, lo que me hace considerarlo una buena solución.

Para ver más.

Yo elegí estos artículos porque son ideas muy interesantes.

Semana 23 (por Daniel)

Artículo 1:

26/9/08

Nabee, añade WUSB a las cámaras de Samsung

Mientras el WUSB no venga integrado en más dispositivos será necesario utilizar adaptadores para ofrecer conectividad inalámbrica entre nuestros diferentes gadgets. Y eso es lo que ofrece el NaBee. Este adaptador quiere facilitar el envío de las fotos que tomemos con nuestra cámara al ordenador sin necesidad de conectar el típico cable USB. Está diseñado para ser usado con las cámaras de Samsung y consta de dos partes, una la que se conecta al ordenador, a través del puerto USB, y otra que se conecta a la cámara. El Nabee no parece una mala idea, pero de lo que tenemos ganas es de que todos nuestros dispositivos integren por fin alguna tecnología que permita la comunicación sin cables de forma sencilla, ya sea WUSB, alguna evolución de Bluetooth (con mayor velocidad, por favor) o una nueva. ¡Estamos hartos de cables!
Estos adaptadores se pondrán a la venta a partir de diciembre de este año a un precio que todavía no se ha especificado.

Para ver más.

Artículo 2:

26/9/08

BenQ Aries2 a la venta en Italia

Sabíamos que pronto iba a llegar a Europa, y el primero país donde aterriza el BenQ Aries2 es Italia, de la mano del operador TIM, que lo ofrece junto a diez horas de conexión a Internet.
Este MID se encuentra en un mercado similar al de las tabletas de Nokia, pero con algo que siempre hemos echado de menos en ellas: que incluyan conectividad 3G. El BenQ Aries2 lo hace con compatibilidad con HSDPA, sumada al Wi-Fi que integra, que nos permitirá disponer de conexión en cualquier parte. Viene con un procesador Intel Atom a 800 MHz, 512 MB de RAM y 2 GB de disco SSD. Su pantalla tiene un tamaño de 4.8 pulgadas y ofrece una resolución de 800 × 480 píxeles, similar a la de los ultraportátiles más pequeños. Al contrario que la mayoría de estos, y siendo su punto más diferenciador, esta es táctil y desde ella se controlan la gran mayoría de funciones. Como opciones de expansión nos encontramos en el BenQ Aries2 un puerto miniUSB, un lector de tarjetas MicroSD y conectividad Bluetooth 2.0. Todo ello, controlado por un sistema operativo basado en Linux. Con un precio de 429 euros y un peso de 330 gramos, hay que preguntarse si vale la pena optar por un MID o directamente por un ultraportátil. Ciertamente, son dispositivos distintos, básicamente en tamaño y peso, siendo el MID más reducido y no ofreciendo teclado. Por tanto, está más enfocado aún a la simple navegación que a trabajar con él, pues la falta de un método rápido de introducción de texto dificultaría mucho esta tarea. A cambio, tenemos un dispositivo mucho más sencillo de transportar y con conectividad 3G integrada, mientras que todavía son pocos los ultraportátiles que disponen de ella. Cada uno deberá decidir cual es su elección, dependiendo de las necesidades personales.

Para ver más.

Artículo 3:

26/9/08

SSD de 1.8 pulgadas de Toshiba y 3 milímetros de altura

Toshiba está apostando muy fuerte por los discos duros, ya sean de la actual o de los que serán la nueva generación en unos años. Son dos los productos que han presentado recientemente, un par de nuevos discos duros. Por un lado tenemos un nuevo disco de 1.8 pulgadas que alcanza un nuevo record en capacidad, llegando a los 250 GB. Este dato tampoco es excesivamente sorprendente si tenemos en cuenta que hace no mucho Toshiba presentó un disco de parecidas características pero con 240 GB en vez de 250. Me parece bastante más interesante la otra novedad, un SSD de 1.8 pulgadas y sólo 3 milímetros de altura. En este caso la capacidad es bastante alta para ser un SSD, 256 GB, y gracias a las reducidas dimensiones se hace un dispositivo perfecto para servir como memoria interna en un dispositivo portátil, dirigido más que para portátiles, para UMPCs, teléfonos móviles o reproductores MP3. Este disco SSD tan fino empezará a fabricarse a finales del próximo mes de octubre, con lo que seguramente empiece a implementarse en productos que podrían llegar ya en los primeros meses del 2009. Lo más probable es, desgraciadamente, que no se venda al público en general, sino directamente a los fabricantes.

Para ver más.

Yo elegí estos artículos porque son ideas muy buenas e interesantes.

Visual Basic: TV- códigos 3 (Melu, Dani H., Maga)

Private Sub Label2_Click()
End Sub
Private Sub catv_Click()tvcatv.Caption = "CATV"End Sub
Private Sub catvtv_Click()If tvcatv.Caption = "TV" Then tvcatv.Caption = "CATV"Else tvcatv.Caption = "TV"End IfEnd Sub
Private Sub cero_Click()aux.Caption = aux.Caption + "0"End Sub
Private Sub cinco_Click()aux.Caption = aux.Caption + "5"End Sub
Private Sub Command15_Click()
End Sub
Private Sub Command17_Click()
End Sub
Private Sub cuatro_Click()aux.Caption = aux.Caption + "4"End Sub
Private Sub dos_Click()aux.Caption = aux.Caption + "2"End Sub
Private Sub enter_Click()inv.Caption = nrocanal.CaptionIf tvcatv.Caption = "CATV" Then If aux.Caption < caption =" aux.Caption" caption = "" caption = "" caption =" aux.Caption" caption = "" caption = "" top =" pantalla.Top" caption =" nrocanal.CaptionIf" caption = "CATV" caption =" nrocanal.Caption" caption = "0" caption =" nrocanal.Caption" caption = "0" left =" pantalla.Left" top =" pantalla.Top" caption =" nrocanal.CaptionIf"> 0 Thennrocanal.Caption = nrocanal.Caption - 1ElseIf tvcatv.Caption = "CATV" Thennrocanal.Caption = 140Elsenrocanal.Caption = "13"End IfEnd IfEnd Sub
Private Sub menosvolumen_Click()pantalla.Left = pantalla.Left - 100End Sub
Private Sub nueve_Click()aux.Caption = aux.Caption + "9"End Sub
Private Sub ocho_Click()aux.Caption = aux.Caption + "8"End Sub
Private Sub off_Click()nrocanal.Caption = ""tvcatv.Caption = ""onoff.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falseenter.Enabled = Falsemascanal.Enabled = Falsemenoscanal.Enabled = Falsemasbrillo.Enabled = Falsemenosbrillo.Enabled = Falsemenosvolumen.Enabled = Falsemasvolumen.Enabled = Falsetv.Enabled = Falsecatv.Enabled = Falseaux.Caption = ""End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "CATV"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Trueenter.Enabled = Truemascanal.Enabled = Truemenoscanal.Enabled = Truemasbrillo.Enabled = Truemenosbrillo.Enabled = Truemenosvolumen.Enabled = Truemasvolumen.Enabled = Truetv.Enabled = Truecatv.Enabled = TrueEnd Sub
Private Sub power_Click()If onoff.BackColor = vbRed Then onoff.BackColor = vbBlacknrocanal.Caption = ""tvcatv.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falseenter.Enabled = Falsemascanal.Enabled = Falsemenoscanal.Enabled = Falsemasbrillo.Enabled = Falsemenosbrillo.Enabled = Falsemenosvolumen.Enabled = Falsemasvolumen.Enabled = Falsetv.Enabled = Falsecatv.Enabled = Falseaux.Caption = ""catvtv.Enabled = FalseElsenrocanal.Caption = "0"tvcatv.Caption = "CATV"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Trueenter.Enabled = Truemascanal.Enabled = Truemenoscanal.Enabled = Truemasbrillo.Enabled = Truemenosbrillo.Enabled = Truemenosvolumen.Enabled = Truemasvolumen.Enabled = Truetv.Enabled = Truecatvtv.Enabled = Truecatv.Enabled = TrueEnd If
End Sub
Private Sub seis_Click()aux.Caption = aux.Caption + "6"End Sub
Private Sub siete_Click()aux.Caption = aux.Caption + "7"End Sub
Private Sub tres_Click()aux.Caption = aux.Caption + "3"End Sub
Private Sub tv_Click()tvcatv.Caption = "TV"End Sub
Private Sub uno_Click()aux.Caption = aux.Caption + "1"End Sub
Private Sub volver_Click()inv2.Caption = nrocanal.Captionnrocanal.Caption = inv.Captioninv.Caption = inv2.CaptionEnd Sub

Calculadora 2 (por Daniel)

Private Sub borrar_Click()
pantalla.Caption = ""
Auxiliar.Caption = ""
aux2.Caption = ""
End Sub

Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub

Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub

Private Sub dividido_Click()
aux2.Caption = "/"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub

Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(Auxiliar.Caption) + Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "-" Then
pantalla.Caption = Val(Auxiliar.Caption) - Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "*" Then
pantalla.Caption = Val(Auxiliar.Caption) * Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "/" Then
pantalla.Caption = Val(Auxiliar.Caption) / Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "%" Then
pantalla.Caption = Val(Auxiliar.Caption) * 100 / Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
End If
End If
End If
End If
End If
End Sub

Private Sub mas_Click()
aux2.Caption = "+"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
aux2.Caption = "-"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub

Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub

Private Sub por_Click()
aux2.Caption = "*"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub porc_Click()
aux2.Caption = "%"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub

Semana 21 (por Daniel)

Artículo 1:

12/9/08

Asus G50 y G71, portátiles para jugadores

Debe ser por deformación profesional, pero los acabados de los diferentes gadgets me fascinan. Tocar uno y que los materiales sean nobles y el diseño atractivo me pierde. Espero no ser el único. Los Asus G50 y G71, últimos portátiles para jugadores que el fabricante saca en el mercado español, tiene precisamente ese acabado que tanto me gusta. Ambos equipos pertenecen a una serie especial denominada por Asus Republic of Gamers, que ha sido diseñada por jugadores. Los tamaños de pantallas cubren prácticamente todas las necesidades de los entusiastas de los juegos y la multimedia en movilidad. El modelo Asus G71 solo está disponible con pantalla de 17 pulgadas, mientras que el Asus G50 tiene modelos de 15.4 y 15.6 pulgadas. La potencia de estos equipos sobre el papel no admite discusión. Se trata de equipos con procesadores Intel Core 2 Duo e Intel Quad Core, con memoria RAM de hasta 4 GB, tarjeta gráfica nVidia GeForce 9700M GT, discos duros en modo dual, pantallas con resolución FullHD y opción de unidad óptica Blu-Ray Disc. Pero todavía podemos apurar más su rendimiento si optamos por pulsar la tecla que fuerza al máximo (overclocking) tanto el procesador como la gráfica.

Para ver más.

Artículo 2:

12/9/08

Altec Lansing renueva su imagen y presenta nuevos radio-despertadores

Altec Lansing ha renovado recientemente su imagen corporativa y lo ha celebrado con nuevos equipos despertadores con radio para el iPhone. Teniendo que recargar todas las noches el iPhone antes de acostarnos y con la costumbre de usar el mismo (u otros teléfonos móviles) como despertador, estas bases con altavoces se han hecho muy populares.
El los dos nuevos modelos de Altec Lansing son el inMotion Moondance Glow (iM402) y el inMotion Max (iMT702). Lo que más llama la atención del modelo iM402 es el sistema de iluminación de la pequeña pantalla para crear ambiente al tiempo que ofrece dos alarmas y otro tipo de información en la misma. Curioso que se incluya una especie de mando a distancia desde el que podemos apagar el despertador. Como si levantarse no fuera parte del proceso de despertarse con un equipo de este tipo.
El precio de este modelo de dock con despertador es de 200 dólares.

Para ver más.

Artículo 3:

12/9/08

Panasonic Lumix G1

De nuevo revolución en el mundo de la fotografía. Finalmente ha sido hoy cuando Panasonic ha presentado al mundo su nueva cámara de fotos digital con el nuevo sistema micro cuatro tercios.
La Panasonic Lumix G1 es el primer modelo de esta nueva gama que entra con fuerza en el mundo de la fotografía digital con un detalle principal: podemos colocar lentes intercambiables pero con un tamaño de cámara más cercano a las cámaras compactas gracias a que se elimina el sistema de espejo para la visión, y se opta directamente por un visor.
Lo que se mantiene es el tamaño del sensor de las DSLR así como el sistema de lentes intercambiables, con un peso y tamaño más reducido del cuerpo, pero como vemos en las fotos, la apariencia sigue siendo la de una falsa réflex digital, lo que significa que no han querido arriesgar mucho en la diferenciación estética con las tradicionales.

Para ver más.

Yo elegí estos artículos porque son ideas muy buenas e interesantes

Semana 20 (por Daniel)

Artículo 1:

11/9/08

Greenpeace da su bendición la nuevo iPod Nano

O al menos eso podríamos interpretar ante las declaraciones del grupo ecologista, que asegura que Apple va por el buen camino y que su nuevo reproductor "es menos tóxico". Todo un logro teniendo en cuenta lo alto que tienen siempre el listón los de Greenpeace y lo que les gusta buscar defectos en todo aparatito electrónico que salga al mercado. Steve Jobs ya prometió que conseguiría producir productos menos dañinos para el medio ambiente para finales del 2008 y, dicho y hecho, los nuevos iPod Nano contienen menos BFR, PVC y mercurio. Parece que tito Jobs es un hombre de palabra, sí señor.Parece que Apple no es la única compañía que poco a poco se va enfundando en el traje verde y otras marcas, como Nokia, Sony Ericsson y Samsung, ya están produciendo dispositivos que resultan menos tóxicos, tal y como se publicó en la "Guía de productos electrónicos verdes" que cada tres meses actualiza la organización Greenpeace. Empezamos a concienciarnos... ya era hora.

Para ver más.

Yo elegí este artículo porque es muy necesario que se cuide el ambiente.

Artículo 2:

11/9/08

Proyector Sony Bravia FullHD VPL-VW80 SXRD

El Sony Bravia VPL-VW80 SXRD es el último proyector doméstico enfocado en la alta definición que saca al mercado el fabricante japonés. Con televisores más y más grandes y de mejor calidad, los proyectores para cine en casa se renuevan a pasos agigantados. La clave o punto básico de este nuevo proyector de video de Sony hay que buscarlo en las siglas SXDR, que significan Silicon X-tal Reflective Display, y que identifican a la tecnología que hay detrás del panel usado en el proyector. Esta tecnología ha sido enfocada en mejorar la imagen, principalmente el detalle, de las imágenes en alta definición. Otras mejoras incorporadas para no tener nada que envidiar a un buen televisor es la tecnología de 100 Hz para que las secuencias rápidas de vídeo sucedan en pantalla de la forma más suave posible y no queden estelas. Evidentemente, al igual que pasa en los equipos electrónicos que manejan mucha información, el procesador es parte vital de los mismos. En este caso se cuenta con el Bravia Engine 2, una garantía que ya funciona en televisores Bravia.

Para ver más.

Artículo 3:

11/9/08

El LP 2 FLASH de ION grabará todos tus vinilos en tu memoria USB/Flash

Menudo problemón tienes en casa con esa montaña de vinilos, que son ya una reliquia que hasta podrías sacar un dinero en Ebay, pero te resistes por motivos sentimentales. Bien, ahora tienes una solución inmediata, el LP 2 FLASHque te permitirá transferirtodo el contenido de esos discos a una unidad USB, tarjeta SD o cualquier otro dispositivo. El sistema incluso detecta los gaps entre canciones y lista las canciones en consecuencia. Está disponible desde ya por 130 libras esterlinas (228 dólares/162,37 euros).

Para ver más.

Yo elegí estos 2 artículos porque son ideas bastante interesantes.