Ascensor final (por Lula)

Private Sub L1_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4320) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub

Private Sub L2_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3360) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub

Private Sub L3_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
End Sub

Private Sub L4_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1440) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
auxiliar.Caption = Sqr(((ascensor.Top - 480) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
End If
End Sub


Private Sub ll1_Click(Index As Integer)
auxiliar.Caption = Sqr(((ascensor.Top - 4320) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub ll2_Click(Index As Integer)
auxiliar.Caption = Sqr(((ascensor.Top - 3360) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub ll3_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub ll4_Click(Index As Integer)
auxiliar.Caption = Sqr(((ascensor.Top - 1440) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"

End Sub

Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
auxiliar.Caption = Sqr(((ascensor.Top - 480) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"

End If
End Sub

Private Sub llamar1_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4320) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
auxiliar.Caption = Sqr(((ascensor.Top - 480) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1

End If
End Sub

Private Sub llamarcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1440) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
auxiliar.Caption = (ascensor.Top - 1560) / 840
End Sub

Private Sub llamardos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3360) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub


Private Sub llamarpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5280) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"

End Sub

Private Sub llamarss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 6240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"

End Sub

Private Sub llamartres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1

End Sub

Private Sub llpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5280) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 6240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub LPB_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5280) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
cuentapisospb.Caption = Val(cuentapisospb.Caption) + 1
End Sub

Private Sub LSS_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 6240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
cuentapisosss.Caption = Val(cuentapisosss.Caption) + 1
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False


Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Ascensor (por Lula)

Private Sub L1_Click()
auxiliar.Caption = (ascensor.Top - 4320) / 840
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub
Private Sub L2_Click()
auxiliar.Caption = (ascensor.Top - 3360) / 840
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub
Private Sub L3_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
End Sub
Private Sub L4_Click()
auxiliar.Caption = (ascensor.Top - 1440) / 840
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
End Sub
Private Sub L5_Click()
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
End If
End Sub

Private Sub ll1_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 4320) / 840
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub
Private Sub ll2_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 3360) / 840
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub
Private Sub ll3_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub
Private Sub ll4_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 1440) / 840
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub
Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub
Private Sub llamar1_Click()
auxiliar.Caption = (ascensor.Top - 4680) / 840
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub
Private Sub llamarcinco_Click()
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
End If
End Sub
Private Sub llamarcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
auxiliar.Caption = (ascensor.Top - 1560) / 840
End Sub
Private Sub llamardos_Click()
auxiliar.Caption = (ascensor.Top - 3720) / 840
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub

Private Sub llamarpb_Click()
auxiliar.Caption = (ascensor.Top - 5640) / 840
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub
Private Sub llamarss_Click()
auxiliar.Caption = (ascensor.Top - 6480) / 840
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub
Private Sub llamartres_Click()
auxiliar.Caption = (ascensor.Top - 2640) / 840
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 5280) / 840
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub
Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 6240) / 840
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub
Private Sub LPB_Click()
auxiliar.Caption = (ascensor.Top - 5280) / 840
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
cuentapisospb.Caption = Val(cuentapisospb.Caption) + 1
End Sub
Private Sub LSS_Click()
auxiliar.Caption = (ascensor.Top - 6240) / 840
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
cuentapisosss.Caption = Val(cuentapisosss.Caption) + 1
End Sub
Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack
End If
End If
End Sub

Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False

Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Semana 30 (por Lula)

TouchCharge, estación de carga por contacto para tu Xbox 360

Mientras seguimos esperando poder cargar nuestros dispositivos de forma inalámbrica -por muy imposible que parezca- poco a poco los fabricantes comienzan a lanzar soluciones que se acercan a lo que buscamos.
Es el caso del TouchCharger Kit de Psyclone, un cargador basado en la tecnología WildCharger con el que podrás mantener siempre al 100% las baterías de tus mandos de Xbox 360. Y es que al dejar el controlador sobre el pad de carga, automáticamente comenzará a recargarse. Esto es posible gracias a unas baterías especiales que incluye y que incorporan unos contactos exteriores que enlazan con las pistas del pad.

31 de Octubre.
Para ver más.
Elegí esta noticia ya que me parece interesante que cada vez nos aproximemos más a la idea de cargar nuestros objetos electrónicos sin enchufarlos.


Científicos desarrollan un nariz electrónica con 5.600 sensores virtuales

Las narices electrónicas no son novedosas, pero no se puede negar que han mejorado mucho con el pasar del tiempo. Científicos del Instituto Nacional de Estándares y Tecnología de EEUU desarrollaron un aparato olfatorio con 16 "microcalentadores" que pueden ser configurados para crear 5.600 sensores virtuales. Aseguran que con esta "nariz" podrán oler todo tipo de productos, desde agentes nerviosos hasta contaminantes ambientales. No aseguran que algún momento se fabricará un aparato que haga uso de esta tecnología, aunque queda la esperanza de que alguna compañía muestre interés en el proyecto.

31 de Octubre.
Para ver más.
Elegí este artículo ya que me parecería interesante que utilicen esta “nariz” para detectar cosas peligrosas como drogas, etc.


Un nuevo programa permite hacer copias de llaves a partir de fotos (incluso de mala calidad)


Un grupo de programadores de la universidad de San Diego ha desarrollado un software que va a poner en jaque la seguridad de nuestros hogares. Ha sido bautizado como Sneaky y tiene la peculiaridad de ser capaz de desarrollar una copia exacta de una llave a partir de una foto, aunque sea hecha con el móvil.
Según afirma Bejamin Laxton, uno de los genios detrás del invento, "sólo es necesario hacer click en unos puntos de la imagen y el programa hará el resto". El truco del programa consiste en normalizar el tamaño de la llave de forma que cada píxel corresponda a una determinada distancia.
Para que te hagas una idea del éxito del programa, sus desarrolladores sacaron una foto a una distancia de 60 metros y las llaves fueron replicadas con éxito. Ya sabes, no las saques del bolsillo...

1 de Noviembre.
Para ver más.
Elegí este artículo ya que me parece un poco peligroso porque cualquiera puede sacarte una foto con tus llaves, y entrar a tu casa.

Ascensor (por lula)

Private Sub L1_Click()
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub L2_Click()
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub L3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub L4_Click()
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub ll1_Click(Index As Integer)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub ll2_Click(Index As Integer)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub ll3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub ll4_Click(Index As Integer)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamar1_Click()
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub llamarpb_Click()
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub llpb_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llss_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub LPB_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub LSS_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack
End If
End Sub

Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False

Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Ascensor (por lula)

Private Sub L1_Click()
ascensor.Top = 4680
End Sub

Private Sub L2_Click()
ascensor.Top = 3720
End Sub

Private Sub L3_Click()
ascensor.Top = 2640
End Sub

Private Sub L4_Click()
ascensor.Top = 1560
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub

Private Sub llamar1_Click()
ascensor.Top = 4680
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
End Sub


Private Sub llamarpb_Click()
ascensor.Top = 5640
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
End Sub

Private Sub LPB_Click()
ascensor.Top = 5640
End Sub

Private Sub LSS_Click()
ascensor.Top = 6480
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack
End If
End Sub

Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
ll1.Enabled = False
ll2.Enabled = False
ll3.Enabled = False
ll4.Enabled = False
ll5.Enabled = False
llss.Enabled = False
llpb.Enabled = False
Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
ll1.Enabled = True
ll2.Enabled = True
ll3.Enabled = True
ll4.Enabled = True
ll5.Enabled = True
llss.Enabled = True
llpb.Enabled = True
End If

End Sub

Semana 28 (por Lula)

Electric Motorsport lanza su moto eléctrica GPR-S (sorprendentemente asequible)

Electric Motorsport es una compañía que llamó nuestra atención el año pasado, cuando presentó un prototipo de motocicleta eléctrica con una velocidad máxima de 160 km/h, una autonomía de 160 km y un precio de 15.000 dólares. Por suerte para todos los aficionados a las dos ruedas, el fabricante ha decidido fabricar su próximo modelo en serie. Su nombre es GPR-S, puede alcanzar unos 100 km/h aproximadamente, recorrer entre 56/96 km con una sola carga (dependiendo del uso que le des) y por 8.000 dólares (6.360 euros al cambio) parece una alternativa interesante si buscas un medio de transporte tan ecológico como silencioso.
Las baterías se recargan en cuatro horas con un simple enchufe, aunque también se ofrece un acelerador que reduce la espera a sólo 1,5 horas. Además, y dado que su construcción es modular, es posible actualizar el sistema de almacenamiento sin mayores complicaciones, cosa que siempre es interesante si consideramos la limitada vida útil de la mayoría de las baterías.
Para ver más.
24 de Octubre.
Elegí este articulo ya que me parece importante que cuiden el medio ambiente.

Imovio: ¿qué es esto… una notebook o un móvil?

Realmente la brecha de tecnología se afina cada vez más con la aparición de todo tipo de nuevos inventos, como este caso… parece una notebook pero tiene el tamaño de los teléfonos móviles ¿? En todo caso, seguramente se trate quizás de una versión mini de las ya conocidas Netbooks, lo bueno de este tipo de computadoras portátiles es que no debes acarrear con tu pesada laptop cuando quieres estar conectividad para revisar el correo, navegar o dejar algun mensaje rápido por la web.
Como casi todo dispositivo móvil de hoy en día, éste también posee una webcam incorporada que te asegurará largos ratos de diversión cuando estés chateando por MSN, como mencionabamos antes, tiene soporte para email, navegación y mensajería instantánea. Otras características son: tarjeta SD de 8GB, pantalla de 2.8 pulgadas QVGA, USB, Wi-Fi y Bluetooth.
Para ver más.
24 de Octubre.
Elegí este articulo ya que me parece muy bueno que creen nuevas notebooks cada vez más pequeñas.

Mamiya lanza cámara digital de 28 MP con tecnología DL28

Mamiya, la robusta marca de cámaras de fotografía de medio formato, ha anunciado una nueva gama de cámaras digitales con sensores de alta capacidad, se denomina a esta nueva tecnología como: DL28 Digital Camera system. Ya como comienzo, te comentamos que sólo el cuerpo de la cámara cuesta $25 mil dólares. Básicamente el DL28 se basa en el respaldo Leaf Aptus-II y sus 28.0 MPixeles han sido claves para concebir un nuevo sistema profesional de fotografía, con su capacidad al límite de calidad esta cámara puede tomar fotografías y llenar más de 159 MB de cualquier tarjeta Compact Flash, también puede generar archivos RAW que pueden pesar más o menos 50 MB cada uno). Dichos píxeles se reparten hacia un sensor que mide 3.5 pulgadas de diagoonal, pero incluso así el máximo ISO es de 800.
Para ver más.
24 de Octubre.
Elegí este articulo ya que me parece bueno que hagan camaras con mejor calidad para sacar mejores fotos.

Semana 27 (por Lula)

Usar teléfonos móviles en los aviones tal vez sea posible

En un futuro no muy lejano, tal vez todos nosotros podamos usar teléfonos móviles a la hora de viajar en avión. La agencia de Comunicaciones de Australia está proponiendo a las aerolineas australianas que permitan usar los móviles en viajes locales e internacionales. Para lograrlo, necesitarían instalar lo que se denomina como “jammer”, un dispositivo que bloquearía los móviles de los pasajeros para evitar que interfirieran con las señales de las estaciones de vuelo ubicadas en tierra. Quizás en un futuro se podría lograr.
Elegí este articulo ya que me pareceria muy util poder usar el celular en cualquier momento ya que si ocurre una emergencia se podrìa estar comunicado.
Para ver más.
17 de Octubre

Sony PS2: un increíble concepto de Tai Chiem

Seguramente si eres un fanático de las consolas y videojuegos y eres un feliz poseedor de un PSP, te habrás dado cuenta que el tiempo pasa.. pasa y no llegan nuevas actualizaciones de modelos para el PSP, si hay actualizaciones a nivel de software pero a todos nos gusta tener algo nuevo para deleitar nuestros ojos. Y esperando y esperando el diseñador Tai Chiem se adelantó a Sony y ha lanzado un concepto de diseño para el próximo PSP 2.
Como vemos es un diseño muy vanguardista y que creo serían sin dudas un éxito si se lanzara, nos encontramos con una pantalla flexible OLED que puede ser enrollada a la hora de no jugar con la consola para guardarla en un lugar seguro, altavoces estereo a cada lado nos darán también una gran experiencia a la hora de jugar y como la frutilla de la torta, nos encontramos con posibilidad de usar dos joysticks!
Elegí este articulo ya que me parece bueno que creen nuevas psp, que sean más faciles de guardar, y que se pueda jugar con dos joysticks.
Para ver más.
17 de Octubre.

Toshiba Portege R600: notebook ultraliviana de 12.1″


La nueva Toshiba Portege R600 ya está disponible para la venta en EE.UU. Esta belleza de notebook nos ofrece un delgado diseño lo que la hace super portable, cuenta con pantalla de 12.1 pulgadas y por dentro corre un procesador Intel con tecnología Centrino 2, actualmente las computadoras disponibles a configuraciones son los modelos R600-S4201 y R600-S4202. Ambos sistemas corren Intel Core 2 DUO SU9400 a 1.4 GHz, placa de vídeo GMA 4500MHD integrada, 3 GB de memoria DDR2, grabadora de DVD y pantalla widescreen con soporte para resoluciones de hsata 1280×800 píxeles.
Elegí este articulo ya que me parece bueno que hagan nuevas notebooks y mas si son
livianas!!!
Para ver más.
17 de Octubre.

Semana 26

Analizan la BlackBerry Curve 8900 y recibe las primeras alabanzas

Cuando todavía estamos inmersos en la vorágine del lanzamiento de la Bold, RIM prosigue su frenético ritmo y nos recuerda que también está muy presente la Curve 8900 (Javelin), y que llegará al mercado en unos pocos meses. CrackBerry entra un poco en detalle de lo que trae y destaca que tiene una pantalla un poco más pequeña y de mayo resolución y que mezcla en el teclado un poco de la Bold y de la propia Curve.
Lo curioso del caso es que este prototipo cuenta con un viejo trackball que será remplazado con uno de diseño más actual cuando se ponga a la venta. La falta de 3G va a resultar imperdonable para algunos, pero le vemos un gran futuro si el precio es competitivo. Además, en cualquier caso, tiene WiFi.

10 de Octubre
Para ver más.
Elegí este articulo ya que me parece bueno que hagan nuevo celulares y que a la gente les gusten.

Diamantes incrustados para auriculares (o cómo tirar 60.000 dólares)

No parece un artículo muy adecuado para tiempos de crisis, pero en fin. Si te sobran 60.000 dólares (44.154,66 euros) y eres un poco hortera excéntrico, puedes comprarte este set de diamantes de DEOS que se adhieren a los auriculares del iPod. Si la crisis te ha pegado de pleno, pero aun así quieres llamar un poco la atención, también puedes optar por un kit de cristales de Swarovski por tan solo 110 dólares (80,95 euros). Vivir para ver.

10 de Octubre
Para ver más.
Elegí este articulo ya que me parece muy bueno que hagan auriculares a la “moda” aunque son un poco costosos.

Mozilla lanzaría version móvil de Firefox

Mozilla ha confirmado la primera versión Alpha de Firefox Mobile, el navegador web que se destinará a teléfonons móviles y otros dispositivos que estará disponible en las próximas semanas. El CEO de la compañia John Lilly ha confirmado que están trabajando en una plataforma de navegador web móbil open source y que será bastante similar a la versión que todos conocemos de Firefox para computadoras portátiles y de escritorio.
10 de Octubre
Para ver más.
Elegí este articulo ya que me parece interesante que se pueda utilizar el mozilla en los celulares.

Calculadora 3 (por Lula)

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 + "."
coma.Enabled = False
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 = ""
coma.Enabled = True
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
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
coma.Enabled = True
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
pantalla.Caption = pantalla.Caption * -1
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
coma.Enabled = True
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 = ""
coma.Enabled = True
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
If Val(pantalla.Caption) > -1 Then
pantalla.Caption = Sqr(pantalla.Caption)
Else
pantalla.Caption = "error"
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
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

Semana 25 (por Lula)

Nuevos MV100 y MZ100, ordenadores ecológicos de Samsung

A día de hoy, los fabricantes no sólo luchan por la máxima potencia, el mejor rendimiento o la estética, también pelean por el medio ambiente. Samsung parece la más concienciada en este aspecto, y lanza ahora una pareja de equipos de sobremesa que destacan por su excelente consumo. Se trata del MV100 y el MZ100 (el delgado), dos ordenadores equipados con el chipset G43 de Intel y la posibilidad de elegir entre una 9600GT y una 9500GS en cuanto a gráficos. El ahorro energético que ofrecen se debe a que en funcionamiento sólo gastan 60W, mientras que si están suspendidos, el consumo baja a 1W.

3 de Octubre.
Para ver más
Elegí este articulo ya que me parece muy importnate que se preocupen por el medio ambiente.

Anna Konda: un robot para luchar contra el fuego

Anna Konda mide 3 metros y pesa 75 kilos, pero no es la “Anaconda” de las películas, es una imitación de una serpiente pero a nivel de robótica. Este robot no solo puede lanzar agua, sino que basa su funcionamiento en el agua, posee 20 articulaciones y cada una de ellas están compuestas por válvulas hidráulicas y cilindros capaces de manejar hasta 101 kg de presión de agua.
Anna Konda está diseñado para ser un robot de lucha contra incendios, la alta presión del agua que posee dentro hace de este un robot muy fuerte, pero también sirve para mantenerlo fresco y a temperaturas bajar mientras recorre zonas de riesgo como túneles, edificios en llama o lugares con químicos inflamables.

3 de Octubre
Para ver más
Elegí este articulo ya que me parece interesante que creen robots para proteger a los bomberos.

Último LG KP500 desde este mes ya disponible en Europa


LG ha anunciado su último lanzamiento de tecnología movil, el teléfono LG KP500. ¿Otro competidor del iPhone quizás? Posee una pantalla de 3 pulgadas touchscreen de alta calidad, incluye una cámara digital de 3 MegaPíxeles, teclado QWERTY con software de reconocimiento de escritura, realmente al mirar la fotografía podemos decir que luce realmente bien!.

3 de Octubre
Para ver más
Elegi este articulo ya que me encantan los celulares y me gusta que hagan nuevos modelos.

Calculadora 2 (por Lula)

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
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.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 porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
pantalla.Caption = Sqr(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
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

Semana 24 (por Lula)

Samsung ha presentado Pixon, otro móvil con 8 megapíxeles

Los hiperactivos desarrolladores de Samsung han presentado un nuevo móvil de 8 megapíxeles al que han bautizado como M8800 Pixon. Este equipo cuenta con una pantalla táctil de 400x240, tribanda HSDPA, GPS, radio FM y slot para tarjetas microSD.

Dispone además de cámara con detección de rostro, georreferenciación de fotos y grabación de vídeo en WVGA. De todas las siglas que te hemos enumerado, seguro que echas de menos una: el WiFi, y es que se lo han dejado fuera confiando toda la conexión inalámbrica en el 3G. Llegará en noviembre por un precio de 550 euros (805 dólares).

26 de Septiembre.
Para ver más.
Elegí este artículo ya que me gusta mucho tener buenas fotos y un buen celular. Es por eso que me interesa cuando sacan celulares con muy buena definición.

Fusionman cruzó el Canal de la Mancha con una ala jet

Ya no tenemos la necesidad de inventarnos superhéroes voladores como Superman, porque ahora tenemos uno de verdad (advertencia: el sustantivo "superhéroe" ha sido usado muy libremente). El piloto suizo Yves Rossy, también conocido como Fusionman, cruzó exitosamente el Canal de la Mancha usando un ala con reactores. El despegue lo hizo desde un avión, a una altura de 2.500 metros, y en 10 minutos viajó 35,4 kilómetros entre Calais y Dover. Como indica la AFP, el ala posee una envergadura de sólo tres metros, y el tanque de combustible carga únicamente 30 litros, lo que limita los vuelos a una decena de minutos. Se controla el aparato moviendo la cabeza, los brazos y el cuerpo, y el piloto tiene un paracaídas que puede ser usado en casos de emergencia. Si te interesara realizar una hazaña parecida, te anticipamos que el precio de estas alas es de alrededor de 130.000 euros.
26 de Septiembre.
Para ver más.
Elegí este articulo ya que me encantaría poder volar y con el, se puede hacer, aunque a un precio elevado.

Un ingenio para el escaneo automático y masivo de libros encuadernados

El Treventus Buchscanner ScanRobot es un curioso ingenio alemán que escanea libros encuadernados, en alta resolución, a la velocidad de 2.500 páginas por hora – el sueño de cualquier bibliotecario. Utiliza un mecanismo robótico y chorros de aire (según parece verse en el vídeo). En cada pasada escanea dos caras de la hoja a la vez, y luego se añaden funciones de OCR y otras sutilezas. Una persona puede escanear libros a mano a un ritmo de entre 5 y 8 páginas por minuto; este ingenio alcanza las 25 páginas por minuto.
26 de Septiembre.
Para ver más.
Elegí este artículo ya que me parece bueno que inventen nuevos robots para realizar tareas más rápidamente aunque esto le saca trabajo a muchas personas.

Semana 23 (por Lula)

Wicler, manos libres multifunción para la bici

Una innovadora empresa española, Good for you, Good for the Planet (GFY, GFP), está decidida a que los ciclistas circulen más seguros y bajo ningún concepto suelten sus manos del manillar. El producto ha sido bautizado como Wicler y es muy similar al CY-Fi que vimos no hace mucho.

A fuer de ser sinceros, decir que se trata sólo de un manos libres es quedarse muy corto: Wicler incorpora un pequeño altavoz con reproductor MP3 incorporado y con capacidad de "hasta 300 canciones" y radio FM. El invento hace las veces también de faro y bocina. Va a ser presentado oficialmente hoy mismo y costará 119 euros. Tienes la nota de prensa un poco más abajo.

Madrid, 18 de septiembre de 2008.- Good for you, Good for the Planet (GFY, GFP), empresa especializada en economía de la innovación en el campo de la eficiencia energética, acaba de lanzar al mercado Wicler (www.wicler.com), el primer dispositivo multifunción diseñado especialmente para la bicicleta cuyo objetivo es favorecer su uso como medio de transporte. Se trata del primer "manos libres" para bicicleta con tecnología Bluetooth®, reproductor de MP3 con capacidad para 300 canciones y radio FM. Incorpora además, un faro delantero y una bocina con 2 sonidos diferentes. El dispositivo se acopla al manillar con un soporte de fijación.

19de Septiembre
Para ver más.
Elegí este articulo ya que me parece muy bueno que creen nuevas cosas para que las personas que utilizan bicicletas puedan viajar escuichando musica o hablando por celular sin despegar las manos del manubrio y asi evitamos accidentes.

Altavoz portátil iLuv iSP100, con la música a todas partes

iLuv vuelve a presentarnos un nuevo sistema de audio -oferta no le falta sin duda- aunque esta vez con dimensiones más pequeñas de lo que acostumbra. Y es que se trata de un altavoz portátil estéreo que te promete mayor libertad de movimiento sin con ello perder en calidad.

El iLuv iSP100 dispone de dos altavoces con 2 W cada uno y cuenta con la tecnología jAura Acoustic Speaker, que presume de ofrecer una mayor calidad y definición de sonido. Aunque en principio pueda parecerte que está solo diseñado para el iPod/iPhone cuenta con conector de 3,5 mm, de manera que podrás acoplarle cualquier otro reproductor que desees.

19 de Septiembre
Para ver más
Elegi este articulo ya que me gusta que inventen cosas para poder escuchar musica de a muchas personas en cualquier lado.

Apple anuncia la retirada del mercado de algunos adaptadores de corriente USB "ultracompactos"


¿Te acuerdas de la emoción que sentiste al abrir la caja de tu iPhone y ver ese pequeñísimo conector eléctrico USB? Pues despídete del aparato. Bueno, no seamos tan drásticos, Apple sólo quiere que lo cambies por uno nuevo, al menos si vives en América. Según la compañía de la manzanita, los conectores metálicos pueden romperse y existe el "riesgo de descarga eléctrica". No se dice nada de muertos ni heridos, pero si eres el propietario de un "adaptador de corriente con USB ultracompacto" y lo compraste en América o Japón, deberás ponerte en contacto con Apple, y tener mucho cuidado al desconectar el adaptador.

19 de Septiembre.
Para ver más.
Elegi este articulo ya que me parece bien que prevengan accidentes que pueden ocurrir en un futuro.

Calculadora (por Lula)

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

Sony Ericsson G705: móvil que sube tus vídeos a Youtube!

Se trata del nuevo Sony Ericsson G705 PowerHouse 3G slider, todos los rumores que recaían sobre este teléfono móvil han sido confirmados, como por ejemplo su pantalla LCD de 2.4 pulgadas que posee tecnología de rotación, un GPS con mapas de Google Maps, 1GB de memoria, radio FM, lector de feeds RSS y un completo navegador web HTML.
Otra novedad es que incluye una cámara digital de 3.2 megapíxles que puede capturar vídeo y subirlo automáticamente a tu cuenta en Youtube.
12 de septiembre.
Para ver más.
Elegí este articulo ya que me gustan los celulares, y que creen nuevos, con nuevas cosas me parece interesante.

HP y Vivenne Tam lanzan notebook super portable especial para chicas!

HP y Vivenne Tam han decidido hacer algo un poco fuera de lo común para presentar la notebook Digital Clutch diseñada por Vivienne. Esta edición especial representa la primera vez que una empresa de diseños como VT y una compañia de computadoras unen fuerazas no sólo para presentar algo que tiene mucho estilo, sino también una notebook super portable en la semana de la moda en Bryant Park. Vivenne Tam ha trabajado con HP para diseñar el paquete así como los accesorios de la portátil.
12 de septiembre
Para ver más.
Elegí este articulo ya que me parece interesante que creen nuevas notebooks con un estilo femenino, distinto.

Parking de bicicletas en Japón administrado por un robot!
En Japón viven millones de personas, en un espacio bastante reducido a decir verdad y el tema del transporte aveces se vuelve un tanto complicado, al igual que en china, en Japón se usan muchísimo las bicicletas pues los trenes y coches no dan a basto. Pero resulta que también las bicicletas ahora ante la gran demanda están teniendo problemas para encontrar un estacionamiento. Y en base a esto se ha creado un parking para bicicletas, pero cuenta con un mecanismo automatizado para dejar y retirar tu vehículo: un robot se encarga de hacerlo por ti!
12 de Septiembre.
Para ver más.
Elegí este articulo ya que me llama la atención que cada vez haya mas robots que remplazen las actividades de los humanos.

Visual Basic 3 (por Lula)

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.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 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 Tvcatv.Caption = "TV" Then
If auxiliar.Caption < 13 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If
Else
If auxiliar.Caption < 129 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If

End If

End Sub



Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If NroCanal.Caption < 13 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
Else
If NroCanal.Caption < 129 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
End If
End Sub

Private Sub Mas1_Click()
Pantalla.Top = Pantalla.Top + 100
auxiliar.Top = auxiliar.Top + 100
Shape2.Top = Shape2.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
onoff.Top = onoff.Top + 100
NroCanal.Top = NroCanal.Top + 100

End Sub

Private Sub Mas2_Click()
Pantalla.Left = Pantalla.Left + 100
auxiliar.Left = auxiliar.Left + 100
Shape2.Left = Shape2.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
onoff.Left = onoff.Left + 100
NroCanal.Left = NroCanal.Left + 100
End Sub

Private Sub Menos_Click()
If NroCanal.Caption > 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.Left - 100
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.Caption = ""
onoff.BackColor = vbBlack
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.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
onoff.BackColor = vbRed
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
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
NroCanal.Caption = "0"
Tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
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 Lula)

LG DP889: portaretratos digital que incluye reproductor de DVD!

LG ha lanzado recientemente su propia versión de portaretratos digitales, introduciendo al mercado el modelo LG DP889, que además de ser un portaretratos digital, también es un reproductor de DVDs, la pantalla es de 8 pulgadas. Como si fuera poco también incorpora una tarjeta 3 en 1, parlantes incorporados y auriculares. Su batería tiene una duración de 3 horas y media en continua reproducción, este gadget tendrá un precio de $279.95 dólares.
Me parece bueno tener un objeto que además de tener fotos puede reproducir películas.
Para ver más
5 de Agosto.

Llega la Energy Ball: energía eólica para tu casa

Estamos más acostumbrados al clásico molino de viento de tres aspas, pero como pudimos comprobar, vibra en exceso y puede resultar peligroso para el hogar. Para solventar estos problemas llega Energy Ball, una esfera que captura el viento de forma más eficiente (eso es lo que dicen por lo menos).
Se encuentra en fase de prototipo y ha sido diseñado por la empresa sueca Home Energy, que asegura que esta pequeña bola puede producir el 15% de la electricidad consumida en el hogar.
Elegí este articulo porque me parece muy importante utilizar energía, cuidando el medio ambiente.
Para ver más
6 de Agosto.

Philips retira varios televisores de las tiendas por riesgo de electrocución

A este paso vamos a tener que pluriemplearnos para pagar el seguro doméstico. Philips ha llamado a revisión sus HDTV 19PFL5403D/1020PFL3403/10, 20PFL3403D/1022PFL5403D/1026PFL3403/10 y 26PFL3403D/10 con números de serie CG1A0813xxxxxx y CG1A0832xxxxxx por riesgo de electrocución. ¿El motivo? Pues la verdad es que suena un tanto extraño, pero según el comunicado emitido por el departamento de Protección de los Consumidores de la UE, estos televisores incluyen "componentes contaminados" que "afectan a la construcción mecánica interna", con el resultado de que podrían soltarse piezas de alto voltaje sobre otras como la entrada de antena. De entrada parece que las teles han sido retiradas de las tiendas; si por un caso eres propietario de uno de los modelos afectados, lo mejor es que te pongas en contacto con el fabricante lo antes posible.
Elegí este articulo ya que me parece importante que puedan reconocer que tiene un error y sacarlo del mercado para que la gente no lo compre más, y no fijarse en la plata que pueden ganar a costa de cualquier cosa.
Para ver más
6 de Agosto.

Visual Basic 2 (por Lula)

Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If Nrocanal.Caption < caption =" Nrocanal.Caption" caption =" 0" caption =" Nrocanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.Left - 100
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.Caption = ""
onoff.BackColor = vbBlack
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.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
onoff.BackColor = vbRed
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
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If
End Sub

Private Sub On_Click()
NroCanal.Caption = "0"
Tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
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 20 (por Lula)

Ultrasone presenta los auriculares "antirradiación" Pro 900


Ya puedes dejar de usar ese casco de papel aluminio, los nuevos auriculares Pro 900 te protegerán de las radiaciones. Ultrasone tiene experiencia fabricando auriculares que reducen radiaciones EM, pero los anteriores Edition 9 tenían un inalcanzable precio de 1.500 dólares. Los nuevos Pro 900 se venderán por 600 dólares, y ofrecen características como un rango de frecuencia 6-42K, impedancia de 40 Ohm, nivel de presión del sonido de 96dB y drivers de 40mm en cada lado.

Me parece bueno que inventen auriculares que nos protejan y a un precio más accesible.
Para ver más.
29 de Agosto

¿Te gusta escuchar conversaciones ajenas? Este gadget es para ti!

¿Has querido alguna vez saber qué es lo que hablan tus vecinos, o quizás las personas que viven frente tu casa? Si eres muy curioso (por no decir entrometido! :D) podrías solucionar tus ansias de espiar con este dispositivo, no se necesitan super equipos de espiojane y alta tecnología como vemos en las películas, con esto ya te basta y es bastante más barato seguramente! Se trata de una pequeña antena que nos permite escuchar las conversaciones hasta una distancia de 90 metros!, si es bastante distnacia, puedes saber lo que hablan todos en tu cuadra!
Pero también hay otras aplicaciones, como por ejemplo para las personas que les gusta estar en la naturaleza, no debe haber nada mejor que poder escuchar los sonidos de la naturaleza con dispositivos como estos.
Elegi este articulo ya que la tecnología a veces puede utilizarse para cosas que no se deben como para escuchar conversaciones ajenas.
Para ver más.
29 de Agosto

IFA 2008: Primer proyector DLP con iluminación LED


Aunque esta mañana Delta Electronics hacía público un nuevo prototipo de proyector DLP con iluminación LED, lo cierto es que aún en su stand no tienen ningún modelo para mostrar. Muy amablemente nos dirigieron hasta Texas Instruments, compañía encargada del desarrollo de la tecnología que lo respalda, y donde sí que contaban ya con el primer prototipo y podía verse una demostración en directo .

El proyector DLP, con tecnología de iluminación LED PhlatLight de Luminus, es capaz de ofrecer imágenes en alta resolución, 1080p, y la ventaja que ofrece frente a los modelos tradicionales es que no necesita el uso de una lámpara.

Por el momento existen varias empresas interesadas en distribuirlo y aunque no existen fechas oficiales -por no tener, no tiene aún ¡ni nombre!- nos han confirmado qué empresa será la primera en comercializarlo y cuando: curiosamente no será Delta, sino Vivitek -de hecho el prototipo que tenían para mostrar era de dicha marca- que lanzará su nuevo proyector DLP LED en el cuarto trimestre de este año (presumimos que a finales del mismo).

Elegi este arituclo ya que me parece importante utilizar nuevos inventos para ayudar a prevenir el calentamiento global.
Para ver más
30 de Agosto.

Visual Basic 1 (por Lula)

Private Sub CATV_Click()
Tvcatv.Caption = "CATV"
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 Cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

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

Private Sub Enter_Click()
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub Mas_Click()
If NroCanal.Caption < caption =" NroCanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
NroCanal.Caption = 129
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.Left - 100
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.Caption = ""
onoff.BackColor = vbBlack
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.Caption = ""
End Sub

Private Sub On_Click()
NroCanal.Caption = "0"
Tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
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 19 (por Lula)

4.46 millones de dólares por unas vacaciones en un Hotel del espacio

Si, parece mentira pero dentro de pocos años ya estarán funcionando los primeros Hoteles espaciales, el primero se abrirá al público en el año 2012. Y por ser algo tan novedoso, tenía que costar bastante caro, incluso a pesar de su alto precio (4.46 millones por huésped) ya hay 38 reservaciones hechas.
El viaje hacia el hotel dura alrededor de 4 días (sería buenos saber donde se instalará realmente!) y para poder viajar al espacio tendrás que tener al menos 18 semanas de intenso entrenamiento para astronautas en una isla del caribe que se usa para ese propósito.
Elegí este artículo ya que me parece increíble poder viajar de vacaciones al espacio.
23 de Agosto
Para ver más.

El reproductor multimedia KM35 de KAON también muestra televisión móvil

Un aparato con la denominación "TV e Internet en todo lugar" no puede ser menospreciado. El reproductor multimedia KM35 de KAON nos sorprende con sus características. Corre Windows CE, tiene una pantalla (más bien pequeña) de 3,5 pulgadas con resolución 320 x 240, 8 ó 4GB de memoria flash NAND, WiFi, ranura SD, sintonizador FM, y lo mejor: sintonizadores DVB-T/H, ISDB-T y T-DMB. La batería duraría por hasta 2,5 horas mostrando televisión en vivo, pero otros detalles como precio y disponibilidad no han sido anunciados.

Elegí este articulo ya que me parece bueno tener internet y televisión en todos lados.
23 de Agosto
Para ver más.

Cabinas de espera de bus de Miami tendrán paneles solares

A Miami se le sumaría algo totalmente novedoso por lo cual reconocerlo también en el futuro, y sería nada más y nada menos que paneles solares en cada cabina de espera de autobus que posee la ciudad, los paneles solares se colocarían sobre la izquierda de cada cabina y allí los anuncios y publicidades no necesitarían gastar energía, lo harían con la solar exclusivamente, esto ahorraría unas 2 toneladas de emisiones de CO2 cada año! Al momento se están colocando en cerca de 600 cabinas, pero se espera tener en toda la ciudad.

Elegí este articulo ya que me parece muy interesante cuidar el medio ambiente.
24 de Agosto
Para ver más.