Semana 21 (por Iaru)

Ballpoint Pen Doubles as an Emergency Cellphone Charger
5/09/08

Brando is known for quirky and offbeat gadgets, but they deliver their fair share of useful devices as well. Case in point, this ballpoint pen that can also be used as an emergency cellphone charger. According to the description, it averages a 100 minute charge time, 20 hour standby time and 2 hours of talk time on one AA battery.
Para ver más

Lo elegí porque es un elemento muy util para viajes.

Apple's Next-Gen Running Shoe Has Force Sensors, GPS Support

11/09/08

Apple wants to take Nike+ to a different new level to perform precise, real-time tracking of runners' performance and—shiver—offer location-based information and advertising. Their latest patent not only details how they will get rid of the current RFID sensor and add a series of force sensors instead—as well as GPS support—but also how they are contemplating other "authorized" shoes.

Para ver más

Lo elegí porque es una manera de demostrar como avanza la tecnología en el calzado

Altavoz CY-FI Bluetooth para bici: éste sí es el octavo pasajero
10 / 09 / 2008

Tenemos serias dudas de que Sigourney Weaver llegue a comprarse alguna vez este altavoz Bluetooth, y es que posiblemente le traiga recuerdos no muy gratos. Pero si no te traumatizó "Aliens, el octavo pasajero" te interesará saber que el altavoz CY-FI soporta la función de manos libres (mediante conexión Bluetooth, claro) y puede considerarse como "el primer altavoz deportivo Bluetooth del mundo", si es que este récord le sirve para algo.

Para ver más

Lo elegí porque es algo que em gustaria tener en mi bicicleta, es una idea muy util.

Visual Basic 2 (por Iaru)

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()
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
If Tvcatv.Caption = "TV" Then
auxiliar.Caption = "13" < 0
NroCanal.Caption = NroCanal.Caption
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 20 (por Iaru)

French doctors use laser to destroy brain tumor in conscious patient
Aug 30th 2008 at 3:12PM












Neurosurgery with robotic assistance is getting pretty old hat nowadays, so it looks like scientists are trying to up the difficulty factor by keeping their patients awake -- a team of French doctors just completed the first successful removal of malignant brain tumor from a still-conscious patient, using a computerized laser and an MRI scanner to guide the probe. The fiber-optic laser was fed into the brain through a 3mm (.12 inch) hole in the patient's skull and guided via MRI to the tumor, where it fired for two minutes and completely destroyed the cancerous tissue. Once the tumor cells were dead, the cable was removed and the patient was allowed to return home -- all within a single day.

Para ver más
Lo elegí porque esto demuestra como la medicina avanza con la tecnología

Yamaha Trumpet...Cellphone?
Sat Aug 30 2008

Yamaha and KDDI put together a group of concept cellphones with musical themes, including a trumpet, guitar, DJ scratch pad, and drums.

Para ver más

Lo elegí porque el diseño esta bueno y se le dan dos usos, como instrumento y como celular, una muy buena idea de Yamaha.

Coca-Cola empieza a probar surtidores de refrescos con 100 sabores distintos
29 / 08 / 2008












Coca-Cola ha presentado una máquina capaz de llenarte el vaso con 100 sabores distintos (de vez en vez), y la cosa parece que va en serio. Las primeras unidades comenzaron a ser distribuidas este verano.

Para ver más
Lo elegí porque me impresionó como tan solo una maquina produce 100 sabores.

Visual Basic (por Iaru)

Captura de la pantalla y el control :















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

MDI matricula el primer AirCar
23 / 08 / 2008













Llevamos oyendo hablar del AirCar desde hace eones (bueno, desde 1996), pero parece que por fin la cosa se mueve. El primer automóvil con motor de aire fabricado por MDI ya ha sido matriculado, lo que implica que podría llegar al mercado el año que viene, tal y como se ha propuesto el fabricante luxemburgués. Teóricamente el AirCar sería capaz de recorrer 80 km con una sola "recarga", aunque podría ampliar su autonomía mediante la instalación de un calentador de aire especial.

Para ver más
Lo elegí porque me pareció muy interesante y es un auto que hace mucho tiempo lo querían fabricar.

Kodak prepara marcos digitales con tecnología OLED
22 / 08 / 2008














Las grandes marcas saben que el futuro de las pantallas se encuentra en la tecnología OLED y prueba de ello son los avances que se están consiguiendo en el desarrollo de televisores o terminales móviles -sin ir más lejos, ayer comentábamos los recientes planes de Toshiba Matsushita-. Los marcos digitales, por contra, aún no habían encontrado el filón en este tipo de tecnología, pero ahora parece que Kodak piensa introducir cambios al respecto.

Para ver más
Lo elegí porque es una forma de demostrar como avanza la tecnología

Intel muestra su tecnología inalámbrica para transmisión de electricidad
21 / 08 / 2008














Hemos visto varios sistemas para envío de electricidad inalámbrica, pero la emoción, el interés y los prototipos todavía no han terminado en un producto comercial. Ahora es Intel quien, durante el IDF, presenta su propia tecnología, que puede enviar 60 vatios a un metro de distancia con una eficacia de 75 por ciento. Funciona con inducción magnética, al igual que otros sistemas, pero parece que se encuentra más avanzado que el resto. La intención de Intel es empezar a implementarlo en ordenadores portátiles con el tiempo.
Para ver más
Lo elegí porque siempre me interesó como funcionaba lo inalámbrico

Mapas (por Iaru)

Este es el mapa de los lugares que fui en mis vacaciones.

Ver mapa más grande

Semana 18 (por Iaru)

Tostadora y ordenador: simbiosis perfecta

15 / 08/ 2008

La tostadora convenientemente encajada en el PC. Una vez te sientas delante del ordenador con tu café... ¿por qué no acompañarlo con una tostada? Pues bien, esta idea es real y aprovecha el puerto libre para la disquetera de 5,25 para una labor mucho más noble y alimenticia. El invento viene además con un software con el que podrás regular la temperatura y tiempo de calentamiento para que no se te queme ninguna.

Para ver más

Lo elegí porque me pareció algo raro, nuevo y original.

New Zealand Site Leaks Latest Sony E-Series Model Line

Sony's latest range of NW-E MP3 players appeared on the company's New Zealand site today in a range of colors. The line features the NWZ-E435, NWZ-E436 and NWZ-E438, which will come in 2GB, 4GB and 8GB, respectively. All models include a 2" QVGA TFT LCD display, FM tuner, and support MP3 (obviously), WMA, AAC, and linear PCM codec support. No pricing just yet, but they're rumored to be hitting the channel within the next month or so.

Para ver más
Lo elgí porque son originales y tienen un lindo modelo

Horizon lanza un pequeño generador de energía a base de alcohol y agua

21 / 08 / 2008

Este kit desarrollado por Horizon Fuel Cell Technologies ha presentado este pequeño generador de electricidad que demuestra como conseguir corriente eléctrica gracias a una reacción de agua y alcohol . Sorprendentemente, obtendremos suficiente energía para alimentar a pequeños dispositivos durante varios días.

Para ver más

Lo elegí porque es una muy bena idea para ahorrar energia.