Semana 24 (por Galu)

Numpad portátil de goma

Si hay algo que extraño muchísimo cada vez que estoy en mi laptop es el numpad. A muchas personas conocidas les pasa lo mismo y por eso, algunos de ellos se compraron numpads portátiles para no despegarse de su querida parte del teclado.
Este es un numpad flexible hecho de goma de silicona que tiene 33 teclas en total, superficie que se puede lavar, se conecta a través del puerto USB, mide 158×131x9mm y podrás comprarlo por sólo US$7.
Publicado el día 26 de Septiembre
Para ver más

Ropa con airbag

Elderly, una empresa de Tokio, creó ropa con airbag. Estas prendas pesan 1kg y en una décima de segundo se inflará protegiendo a cualquier de posibles golpes.
Esta ropa fue diseñada pensando en personas de la tercera edad y protegerá cabeza, trasero y huesos. Costará aproximadamente US$1400. Nada mal para que tu abuelo no se lastime cuando se tropiece.
Publicado el día 26 de Septiembre
Para ver más

Cubo de Rubik con espejos

Tuve una sola experiencia con el Cubo de Rubik. Tenía algo así como 12 años, mi madre me lo regaló, empecé a girarlo y jugar con los colores y, cuando quise resolverlo, terminé revoleándolo contra la pared.
Por eso mismo cuando llegué a este video entré en pánico (creo que me quedó una pequeña secuela psicológica). Si el cubo de colores ya de por sí era complicadísimo, no me imagino lo que será resolver este cubo de espejos.
Publicado el día 26 de Septiembre
Para ver más

Calculadora 2 (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
cuenta.Caption = ""
cuenta.Caption = Sqr(cuenta.Caption)
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Calculadora (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 23 (por Galu)

Impresoras sin cables Kodak ESP 7 y ESP 9

De entrada estas impresoras todo en uno de Kodak gozan de la ventaja de no necesitar cables para comunicarse con el ordenador. No necesitaremos pues un Wireless USB Hub de Belkin para quitar el equipo de encima de la mesa y alejarlo todo lo posible. Luego hay mejoras en la forma en que trabaja con el papel.
Respecto a las impresoras en sí, el modelo ESP 7 tiene una pantalla de 3 pulgadas en la que podemos ver y editar los documentos que hemos introducido de la forma tradicional o por medio de la ranura de tarjetas de memoria o el puerto USB. Tiene WiFi y puerto Ethernet y también sistema de impresión a doble cara. Su precio es e 200 dólares.
El modelo más grande, la Kodak ESP 9, nos deja una pantalla de 10 pulgadas con un precio de 300 dólares, WiFi, función de fax y escáner automático con bandeja de entrada de documentos.
Publicado el día 23 de septiembre.
Para ver más

Nuevo reproductor de iRiver para profesionales

iRiver lanzó el nuevo P.Pie P20 que fue especialmente creado para profesionales. Las características son realmente interesantes. Tiene una pantalla AMOLED de 4.1 pulgadas con una resolución de 480×272, soporta una increíble cantidad de archivos (MPEG4, XviD, WMV9, MP3, WMA, WAV, OGG, APE, FLAC, JPEG, RAW, BMP, GIF, PNG), tiene sintonizador DMB integrando, radio FM, micrófonos y altavoces.
Vendrán en versiones de 80GB y 120GB y costarán 300 y 320 euros respectivamente.
Para ver más
Publicado el día 23 de septiembre.

Switch Mouse: ratón que reducirá las lesiones en la muñeca

La compañía Humanscale lanzó un mouse, llamado Switch, que, según explican sus creadores, reducirá las lesiones por la actividad repetitiva del uso de este gadget.
El mouse tiene una forma de V y se utiliza con un ángulo de 45 grados que minimiza la pronación de la muñeca. Además, tiene una forma de navegación que reduce al mínimo la actividad muscular y da cuatro diferentes opciones de scrolling. Además, permite ajustarlo a tu medida y un descanso para tu palma.
No se habló de la sensibilidad que tendrá el mouse y que tecnología utilizará (si óptica o láser) pero se supone que será óptico y tendrá 800 dpi. Finalmente tanto personas zurdas como diestras podrán utilizarlo sin ningún problema.
Para ver más
Publicado el día 23 de septiembre.

Semana 22 (por Galu)

Apple podría estar preparando calzado exclusivo para el Nike+iPod

Tras la buena idea de integrar el receptor para el sistema Nike+iPod en los nuevos iPod Touch, una patente desvelada estos días parece dejar en el aire un nuevo producto de Apple: unas zapatillas para correr.
Bueno, Apple ha patentado realmente un sistema para controlar mejor la carrera y entrenamiento del corredor, recoger más información e incluso aumentar la seguridad de los datos que recoge el sensor colocado en las zapatillas. Si pensamos mal, incluso podrían estar preparando unas zapatillas únicas con las que poder usar el sistema más avanzado de Nike+iPod.
En la actualidad, el sensor que se incorpora a las zapatillas para correr se encarga de recoger pocos datos: distancia y tiempo de ejecución de las actividades. El nuevo sensor recogería mucha más información para proporcionar datos más completos del entrenamiento. Estamos hablando incluso de temperatura corporal, niveles de hidratación o ritmo cardíaco.
Publicado el día 12 de septiembre
Para ver más

Gyration Air Music Remote, mando universal y ratón

Similar en concepción al Logitech MX Air, el Gyration Air Music Remote es un mando a distancia universal que nos permite controlar el cursor en pantalla apuntando con el mando, igual que hace el mando de la Wii.
Utiliza la tecnología MotionSense, pensada para controlar todos los aspectos de un HTPC equipado con Windows Media Center. En la pantalla LCD que incluye podremos gestionar la música que estemos escuchando tanto en Windows Media Player como en iTunes.
Publicado el día 11 de septiembre
Para ver más

Cyfi, altavoz Bluetooth diseñado para bicicletas

Otro accesorio para escuchar música mientras vas con tu bicicleta, pero es mejor, ya que no usa ningúna clase de cable. Se trata del altavoz Bluetooth de Cyfi con una forma un tanto extraña, pero que esta creada así para mejorar tanto la resistencia del aire como para que los altavoces se escuchen bien.
Tiene controles de reproducción en cada lateral y funciona con cualquier tipo de móvil o reproductor Bluetooth, mejor que soporte Bluetooth estéreo. También venden un adaptador exclusiva para iPhone o iPod basado en algún tipo de emisor Bluetooth para Apple que tienen varias marcas, “lo deben de fabricar en serie desde China y después le ponen la pegatina“.
Publicado el día 11 de septiembre
Para ver más

Semana 21 (por Galu)

Auriculares bluetooth de Sony para deportistas

Sony ha presentado hoy sus nuevos modelos de auriculares, que se centran ante todo en un diseño llamativo y que cree estilo. Lo de pasar desapercibido con los auriculares ya dejó de tener sentido cuando no se veían más que modelos blancos, fueran del iPod de Apple o no. Eso sí, han actuado en consonancia con el mercado y la conectividad bluetooth, función manos libres y mejor calidad de sonido son sus puntos mejorados.
El más destacado de los nuevos modelos es el Sony DR-BT160AS un auricular sacado de una película de ciencia ficción y que presenta como aspecto más destacado que podemos usarlo sin cables gracias a su conectividad bluetooth.
Publicado el día 8 de Septiembre
Para ver más

Plastic Logic presenta un lector de periódicos de tinta electrónica

Nominamos el ocho de septiembre como el día de la tinta electrónica. Tras el análisis del Papyre y el vídeo de la portada de Esquire, llega el turno del lector de tinta electrónica de Plastic Logic.
Si los lectores que hemos visto hasta ahora, como el citado Papyrus o el Kindle, están enfocados principalmente a la lectura de libros, el de Plastic Logic está pensado para leer el periódico, ofreciendo un tamaño mucho más adecuado para ello que sus competidores.
Publicado el día 8 de Septiembre
Para ver más

StellarWindow, el cielo en tu ordenador

No acabo de entender su funcionamiento exacto, pero el StellarWindow nos permitirá ver los cielos en nuestro ordenador. Se compone de un software que instalaremos en nuestro ordenador y de un accesorio que se conecta por USB y con el que es capaz de detectar hacia donde estamos apuntando.
Este accesorio dispone de una brújula y un acelerómetro, de forma que al conectarlo a nuestro ordenador nos indicará que es lo que se ve en el cielo en esa posición, ofreciendo información sobre las estrellas y los planetas de esa porción de cielo y mostrándolos en un entorno 3D.
publicado el dia 7 de septiembre
Para ver más

Visual Basic 2 (por Galu)

Private Sub d_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 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 Label1_Click()
End Sub
Private Sub enter_Click()
If auxiliar.Caption < 120 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub
Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top - 100
End Sub
Private Sub mascanal_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 < 120 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End If

End Sub
Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left - 100
End Sub
Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top + 100
End Sub
Private Sub menoscanal_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If Tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 13
End If
End If
End Sub
Private Sub menosvolumen_Click()
pantalla.Left = pantalla.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
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 = ""
catvtv.Enabled = False
Else
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
auxiliar.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
auxiliar.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