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

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.

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.

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

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

Private Sub anterior_Click()
auxiliar.Caption = ""
auxiliar2.Caption = nrocanal.Caption
auxiliar.Caption = auxiliar2.Caption
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
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 If
End Sub

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

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

Private Sub Command1_Click()

End Sub

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

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

Private Sub enter_Click()
If auxiliar.Caption < caption =" nrocanal.Caption" caption =" auxiliar.Caption" caption = ""> 129 Then
nrocanal.Caption = "0"
End If
End If
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
pantallita.Top = pantallita.Top + 100
auxiliar.Top = auxiliar.Top + 100
End Sub

Private Sub mascanal_Click()
If TVCATV.Caption = "TV" Then
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" nrocanal.Caption" caption = "CATV" caption =" nrocanal.Caption" caption =" 0" caption =" nrocanal.Caption" left =" pantalla.Left" top =" pantalla.Top" top =" pantallita.Top" top =" auxiliar.Top"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 129
If TVCATV.Caption = catv Then
nrocanal.Caption = 129
Else
nrocanal.Caption = 13
End If
End If
End Sub

Private Sub menosvolumen_Click()
pantalla.Left = pantalla.Left - 50
End Sub

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

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

Private Sub off_Click()
nrocanal.Caption = ""
TVCATV = ""
ONOFF.BackColor = vbRed
ONOFF.Caption = "OFF"
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
tv.Enabled = False
catv.Enabled = False
auxiliar.Enabled = False
enter.Enabled = False
auxiliar.Caption = ""
masbrillo.Enabled = False
masvolumen.Enabled = False
mascanal.Enabled = False
menosbrillo.Enabled = False
menosvolumen.Enabled = False
menoscanal.Enabled = False
End Sub

Private Sub OFFON_Click()
If ONOFF.BackColor = vbGreen Then
nrocanal.Caption = ""
TVCATV = ""
ONOFF.BackColor = vbRed
ONOFF.Caption = "OFF"
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
tv.Enabled = False
catv.Enabled = False
auxiliar.Enabled = False
enter.Enabled = False
auxiliar.Caption = ""
masbrillo.Enabled = False
masvolumen.Enabled = False
mascanal.Enabled = False
menosbrillo.Enabled = False
menosvolumen.Enabled = False
menoscanal.Enabled = False
Else
ONOFF.BackColor = vbGreen
nrocanal.Caption = "1"
TVCATV = "TV"
ONOFF.BackColor = vbGreen
ONOFF.Caption = "ON"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
tv.Enabled = True
catv.Enabled = True
auxiliar.Enabled = True
enter.Enabled = True
masbrillo.Enabled = True
masvolumen.Enabled = True
mascanal.Enabled = True
menosbrillo.Enabled = True
menosvolumen.Enabled = True
menoscanal.Enabled = True
nrocanal.Caption = "1"
End If

End Sub

Private Sub on_Click()
nrocanal.Caption = "1"
TVCATV = "TV"
ONOFF.BackColor = vbGreen
ONOFF.Caption = "ON"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
tv.Enabled = True
catv.Enabled = True
auxiliar.Enabled = True
enter.Enabled = True
masbrillo.Enabled = True
masvolumen.Enabled = True
mascanal.Enabled = True
menosbrillo.Enabled = True
menosvolumen.Enabled = True
menoscanal.Enabled = True
End Sub

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

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

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

Private Sub tv_Click()
TVCATV.Caption = "TV"
End Sub

Private Sub uno_Click()
auxiliar.Caption = auxiliar.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.

Visual Basic 1 (por Daniel)

Private Sub catv_Click()
TVCATV.Caption = "CATV"
End Sub

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

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

Private Sub Command1_Click()

End Sub

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

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

Private Sub enter_Click()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
pantallita.Top = pantallita.Top + 100
auxiliar.Top = auxiliar.Top + 100
End Sub

Private Sub mascanal_Click()
If nrocanal.Caption < 129 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End Sub

Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left + 50
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
pantallita.Top = pantallita.Top - 100
auxiliar.Top = auxiliar.Top - 100
End Sub

Semana 19 (por Daniel)

Artículo 1:
29/8/08

Samsung YP-Q1, con DNSe 3.0

Además de muchos televisores, el IFA también nos trae bastantes productos relacionados con la música. En el caso de Samsung muestran su ya presentado U4 y un nuevo modelo, el Samsung YP-Q1, que quiere ofrecer una gran calidad de sonido. Para ello, incluye la tecnología DNSe 3.0 (Digital Natural Sound), muy similar al X-Fi de Creative, y que también incorpora funciones como el 3D Speaker, para mejorar la percepción estéreo de la música, y Street Mode, que mantiene el volumen de acuerdo al nivel general de la música, para captar mejor pequeños detalles. Adicionalmente, incorpora un ecualizador automático, que propone los ajustes adecuados dependiendo del tipo de música que estemos escuchando. El Samsung YP-Q1 dispone de una pantalla LCD de 2.4 pulgadas, con resolución de 320 x 240 píxeles, en la que podremos visualizar vídeo, y estará disponible con capacidades de 4, 8 y 16 GB, con modelos de color negro, blanco y plateado.
Para ver más.

Artículo 2:
29/8/08

Sony Walkman serie S pone música a nuestro estado de ánimo