Visual Basic (por Ari y Iaru)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

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

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

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

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

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

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "*" Then
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
auxiliar.Caption = ""
End If
auxiliar2.Caption = ""
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = menos.Caption
End Sub

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

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

Private Sub por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""

End Sub

Private Sub porcentaje_Click()
auxiliar2.Caption = barra.Caption
auxiliar2.Caption = Val(auxiliar2 * 100)


End Sub

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

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

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

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

Semana 23 (por Iaru)

El ejército de EEUU quiere un casco de comunicaciones "telepático"

22 / 09 / 2008

El casco, cubierto de sensores por todas partes, servirá teóricamente para "ejercer control mental directo de sistemas militares únicamente con el pensamiento", enviando órdenes y mensajes concisos a los miembros de un pelotón. Según el doctor Elmar Schmoozer, el aparato será como "una radio sin micrófono", capturando las ondas cerebrales, interpretándolas con un software y enviándolas a los auriculares del resto de los soldados. Inicialmente los pensamientos serán recreados mediante una voz sintetizada, pero con el tiempo se espera utilizar el tono de cada hombre e incluso añadir efectos que reflejen la distancia y la dirección de la voz.

Para ver más

Japón también quiere su propio ascensor espacial
24 / 09 / 2008

Los científicos de la NASA ya pueden estar rezando para que el próximo presidente de Estados Unidos no les recorte el presupuesto, porque parece que Japón va en serio. La agencia espacial nipona ha anunciado que invertirá un billón de yenes (6.400 millones de euros/9.400 millones de dólares) en el desarrollo de un ascensor espacial capaz de transportar pasajeros y carga a una "altura" de 36.000 km utilizando cables fabricados con materiales compuestos. Precisamente ahí está el problema, y es que para hacer posible el sueño de Arthur C. Clarke los cables deberían ser 180 veces más fuertes que el acero y mucho más ligeros. Los técnicos japoneses apuestan para no variar por los casi milagrosos nanotubos de carbono, un material que aunque todavía ha de ser reforzado, posee unas características conductoras brillantes, hasta el punto de que los propios cables podrían servir para transmitir la electricidad necesaria por el ascensor; algo bastante útil, dado que el viaje hasta la última planta podría llevar días o incluso semanas, y de alguna forma tendrán que recargar los astronautas sus reproductores multimedia. De entrada, el mayor reto está en reforzar dichos nanotubos para que sean cuatro veces más resistentes.

Para ver más

Elegí estas dos noticias porque son ideas interesantes posibles de lograr.

Gyration Air Mouse, y alza tu ratón al aire
24 / 09 / 2008

Parece que Gyration sigue perfeccionando la técnica y ha presentado un nuevo modelo de ratón. Se trata del Air Mouse -el nombre no tiene mucha complicación, vamos- con tecnología MotionSense que te permite trabajar con el periférico tanto sobre una superficie como en el aire con una total precisión.Con un diseño ergonómico, el ratón láser, que utiliza la frecuencia inalámbrica de 2.4 GHz, puede ser usado por diestros y zurdos -todo un detalle- y pesa poco menos de 113 gramos. Aunque siempre puedes usarlo para vacilar delante de los amigos y quedar como el más molón del grupo, realmente el Air Mouse puede encontrar su cometido

perfecto para realizar, por ejemplo, presentaciones de diapositivas del tipo PowerPoint.

Para ver más

Lo elegí porque parece útil y cómodo.

Calculadora (por Iaru)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

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

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

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

Private Sub dividido_Click()

End Sub

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

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
Else
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
Else
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

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

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

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

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

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

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

Semana 22 (por Iaru)

Custom Toyota MR2 carputer presents the ultimate distraction for drivers
Sep 14th 2008

This insanely kitted out Toyota MR2 is being put up for sale by its owner somewhere in Germany -- he's a highly motivated seller, provided you have the prerequisite electronics and programming (especially Visual Basic) skills. The standard gauges and indicators in the car have been removed, replaced with touch screens and a console mounted iDrive knob, offering the pilot of this machine control over almost every aspect of its operation: climate control, GPS, fuel consumption, mirrors, radar/laser, wireless transfer of music from a home computer, lights, fog lights... and the all-important VCD playback. Also listed on the original posting is something called the "police button" which "virtually controls the police." This might have been something that Google mistranslated, but we prefer to think otherwise.
Para ver más
Lo elegí porque utiliza la programación de Visual Basic y nostros estamos aprendiendo a programar con el mosmo.

Pupitres multitáctiles para las escuelas del futuro (porque los cuadernos de ahora son taaan complicados)
18 / 09 / 2008













Investigadores de la Universidad de Durham, en el Reino Unido, están trabajando duro para asegurarse de que el sector educativo del país no se quede fuera de la locura multitáctil. El todavía sin bautizar "pupitre interactivo multitáctil" forma parte del framework SynergyNet, en entorno para aulas interactivas construido en torno al motor de videojuegos jMonkey. Todavía no se sabe cómo cambiará SynergyNet el mundo de la enseñanza, pero cuando llegue a las escuelas será de código abierto, facilitando cualquier clase de modificación para adaptarse a los requisitos particulares de cada centro. Mientras tanto, los colegios que sigan pensando en sustituir las pizarras y los cuadernos de toda la vida deberán seguir escarbando entre la marabunta de portátiles de bajo coste.

Para ver más
Lo elegí porque demuestra como avanza la tecnología que hasta las maneras de aprendizaje de los niños cambia.

Kaliho lanza el KU860, un UMPC convertible con GPS
16 / 09 / 2008















De momento sólo se puede adquirir en grandes cantidades, pero seguro que el fabricante no va a tener problemas en distribuirlo, dada las interesantes características que ofrece este UMPC. El KU860 es un laptop convertible con pantalla giratoria de 7 pulgadas WXGA táctil, procesador VIA C7-M, 1 GB de RAM, hasta 60 GB de disco duro, Webcam e incluso GPS. Por desgracia el precio aún es una incógnita, por lo que habrá que preguntar a Kaliho.
Para ver más
Lo elegí porque em gusta el modelo y el diseño.

Visual Basic 3 (por Iaru)

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