miércoles, 19 de noviembre de 2008

Semana 29 (por guido)

Google lanza un buscador con más de 10 millones de fotos de la revista Life


Podríamos debatir durante horas si es cierto o no el viejo dicho de que una imagen vale más que mil palabras. Pero estaremos todos de acuerdo en que una buena foto hecha en el momento justo puede simbolizar grandes acontecimientos de la Historia. Es lo que sucede en la imagen superior, en la que el fotógrafo Preston Keres captó a un bombero neoyorquino pidiendo apoyo a los equipos de rescate, sólo cuatro días después del atentado contra las Torre Gemelas del 11 de septiembre de 2001. Es una de las más de 10 millones de fotografías realizadas por la revista Life desde la década de 1750, recientemente hospedadas por Google en este buscador especial. Un enorme archivo de imágenes puestas de forma completamente gratuita a disposición del gran público. Y en la mayoría de los casos, por primera vez, pues el 97% de las imágenes recogidas nunca llegaron a ser publicadas.

para saber algo mas....




Launch Control, fuegos artificiales por control remoto


Fuegos artificiales con mando a distancia. Esta es la última idea que ha desarrollado la empresa inglesa Maplin, para hacer los fuegos artificiales mucho más cómodos y seguros. El invento se llama Launch Control y funciona con un mando a distancia y unos receptores que se enganchan a los cohetes en cuestión. De esta manera, el encargado de los fuegos puede situarse a una distancia prudencial de 25 metros, asegurando su
integridad en el momento de las detonaciones.
En total se pueden lanzar hasta cinco fuegos de una tirada, gracias a un sistema que sujeta con pinzas cada uno de los explosivos. Estos se encuentran conectados a un control remoto dirigido con el mando a distancia que tenemos en nuestras manos. Gracias a este mecanismo, el aparato activa una mecha en una fracción de segundo y enciende los cohetes que están enganchados al otro extremo, preparados para estallar en colores.
El funcionamiento es muy sencillo, pero está especialmente recomendado para los que suelen manejar fuegos artificiales complejos. Y no nos valen los organizadores de los fuegos de Pekín 2008, especialistas en falsear espectáculos. Aun así, cualquier aficionado, puede adquirir el Launch Control en la misma tienda de Maple, dónde están ofreciendo las últimas unidades del producto, al precio de doce euros.

para saber algo mas....





Espasa copia sus textos de la Wikipedia


Como si esto fuera el aula de un cole. La famosa editorial Espasa, líder indiscutible en esto de hacer enciclopedias en España, ha plagiado a la Wikipedia. La que fuera la enciclopedia más criticada e infravalorada, ha servido esta vez de mucho a Espasa. Fue José Manuel Moreno, el autor de la entrada sobre el escritor del siglo de oro Baltasar Gracián, quien se percató del plagio. Luego, un blog se hizo eco de la noticia y el artículo que denunciaba el tema, sirvió para abrir la caja de los truenos. Y es que a Espasa le han pillado copiando. Y mucho.
Pero la biografía de Baltasar Gracián no es la única. También se han copiado, entre otros, las vidas de personajes tan conocidos como Voltaire, Dámaso Alonso, Azorín o Vladimir Nabokov. La relación de nombres se evidencia en una nueva entrada de la Wiki, en la que se recoge una muestra de todos los plagios hallados hasta el momento. Por su parte, Espasa aseguró al diario El Mundo, que había eliminado estos contenidos de su página en menos de 45 minutos, al mismo tiempo que pasaba la pelota al tejado de una empresa externa, que al parecer se encarga del diseño de la nueva página web de la editorial.

para saber algo mas....



yo elegi estos articulos porque me parecieron muy buenos y muy interesantes.

Ascensor (por guido)

Private Sub Boton1_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = False
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 4800
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(Cantpiso1.Caption) + 1
End Sub

Private Sub Boton2_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = False
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 3720
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(Cantpiso2.Caption) + 1
End Sub

Private Sub Boton3_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = False
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 2640
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1
End Sub

Private Sub Boton4_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = False
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 1560
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(Cantpiso4.Caption) + 1
End Sub

Private Sub Boton5_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = False
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 480
Numpiso.Caption = 5
Numpiso.Caption = 5
NumpisoSS.Caption = 5
NumpisoPB.Caption = 5
Numpiso1.Caption = 5
Numpiso2.Caption = 5
Numpiso3.Caption = 5
Numpiso4.Caption = 5
Numpiso5.Caption = 5
Cantpiso5.Caption = Val(Cantpiso5.Caption) + 1
End Sub

Private Sub BotonPB_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = False
BotonSS.Enabled = True
Ascensor.Top = 5880
Numpiso.Caption = PB
Numpiso.Caption = PB
NumpisoSS.Caption = PB
NumpisoPB.Caption = PB
Numpiso1.Caption = PB
Numpiso2.Caption = PB
Numpiso3.Caption = PB
Numpiso4.Caption = PB
Numpiso5.Caption = PB
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub BotonSS_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = False
Ascensor.Top = 6960
Numpiso.Caption = SS
Numpiso.Caption = SS
NumpisoSS.Caption = SS
NumpisoPB.Caption = SS
Numpiso1.Caption = SS
Numpiso2.Caption = SS
Numpiso3.Caption = SS
Numpiso4.Caption = SS
Numpiso5.Caption = SS
CantpisoSS.Caption = Val(CantpisoSS.Caption) + 1
End Sub

Private Sub Command1_Click()
End Sub

Private Sub Enter_Click()
If contra.Text = "3899" Then
Ascensor.Top = 480
Else
contra.Enabled = False
Enter.Enabled = False
End If
contra.Text = ""
contra.Enabled = False
Enter.Enabled = False
End Sub

Private Sub Luz_Click()
If Ascensor.BackColor = vbBlack Then
Ascensor.BackColor = vbYellow
Else
Ascensor.BackColor = vbBlack
End If

End Sub

Private Sub PBNum_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = False
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 5880
Numpiso.Caption = PB
NumpisoSS.Caption = PB
NumpisoPB.Caption = PB
Numpiso1.Caption = PB
Numpiso2.Caption = PB
Numpiso3.Caption = PB
Numpiso4.Caption = PB
Numpiso5.Caption = PB
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub SSNum_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = False
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 6960
Numpiso.Caption = SS
NumpisoSS.Caption = SS
NumpisoPB.Caption = SS
Numpiso1.Caption = SS
Numpiso2.Caption = SS
Numpiso3.Caption = SS
Numpiso4.Caption = SS
Numpiso5.Caption = SS
CantpisoSS.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub Stop_Click()
If Luz.Enabled = True Then
Luz.Enabled = False
PBNum.Enabled = False
teclado1.Enabled = False
teclado2.Enabled = False
teclado3.Enabled = False
teclado4.Enabled = False
teclado5.Enabled = False
SSNum.Enabled = False
BotonPB.Enabled = False
BotonSS.Enabled = False
Boton1.Enabled = False
Boton2.Enabled = False
Boton3.Enabled = False
Boton4.Enabled = False
Boton5.Enabled = False
Ascensor.BackColor = vbBlack
Else
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
SSNum.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Luz.Enabled = True
End If
contra.Text = ""
CantpisoSS.Caption = "0"
CantpisoPB.Caption = "0"
Cantpiso1.Caption = "0"
Cantpiso2.Caption = "0"
Cantpiso3.Caption = "0"
Cantpiso4.Caption = "0"
Cantpiso5.Caption = "0"
End Sub

Private Sub teclado1_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = False
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 4800
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado2_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = False
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 3720
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado3_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = False
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 2640
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1
End Sub

Private Sub teclado4_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = False
teclado5.Enabled = True
Ascensor.Top = 1560
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado5_Click()
contra.Text = ""
Enter.Enabled = True
contra.Enabled = True
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = False
End Sub

Semana 28 (por guido)

Monitores 3D para jugones

La moda de tunear los ordenadores no conoce límites. Y no se salvan ni siquiera los monitores de PC. Ni siquiera modelos tan especiales como los que fabrica la compañía iZ3D. Especiales no sólo por el agresivo look que presentan sus dibujos, sino porque son capaces de presentar las imágenes en tres dimensiones. Para que te sumerjas de lleno en la acción de tus videojuegos favoritos.

Tranquilos, no es que la televisión holográfica ya esté aquí. Lo que sucede es que al visualizar las pantallas de 22 pulgadas con unas gafas de lentes polarizadoras experimentaremos la sensación de que los objetos están en relieve. En la misma página web de iZ3D puedes encontrar hasta ocho de estas gafas especiales para todos los gustos: desde el modelo aviador para jugones excéntricos a otras más discretas. Y hasta unas lentes de clip, por si utilizas gafas graduadas.


para saber algho mas....





Microsoft Office 2007 - Cómo abrir antiguos ficheros de Excel a una velocidad normal


Si eres de los que tienen problemas a la hora de abrir un fichero Excel de los antiguos, aquí te ofrecemos una solución. Es posible que al instalar la nueva versión de Microsoft Office 2007 e intentar abrir un archivo Excel de los que ya tenías creados, tengas tiempo de ir al baño, tomar un café y comerte una pasta. No es broma. Muchos usuarios han detectado el problema. Pero como casi todo en este mundo, esto también tiene solución. Aquí van los pasos para evitar estas largas esperas.

Es posible que el sistema te pida el CD de instalación de Microsoft Office 2007. Introdúcelo en la bandeja y empezará la instalación del complemento. Una vez terminada, no deberías tener ningún otro problema. Tus archivos de Excel, creados antes de que actualizaras tu versión de Office, tendrán que abrirse a la velocidad de la luz (bueno, quizás no tanto, pero sí a velocidad normal). Y es que por mucho que parezca complicado, solucionar problemas como el de quitar el mensaje de “Habilitar la búsqueda instantánea” o encontrar la manera de guardar y abrir archivos en Office 2007, puede ser muy fácil. Como coser y cantar.

para saber algo mas....




GEOSS, la futura red mundial para prevenir desastres



Con la cantidad de satélites orbitando alrededor del planeta, centros de investigación y observación, radares y sistemas para captar información ambiental que poseen todas las potencias mundiales… ¿cómo es posible que no pudieran predecirse con mayor antelación catástrofes como el huracán Katrina o el Tsunami asiático de 2004? Según el francés José Achache, porque cada país trabaja a su bola.

No es la respuesta de un ciudadano a pie de calle, sino del director de GEOSS, cuyas siglas inglesas se traducen como Sistema Global de Sistemas de Observación de la Tierra. Un enorme proyecto nacido en 2005 y que debe culminar en 2015 con la puesta de largo de una red mundial de información que conectará entre sí todos los sistemas de análisis mediombientales de 74 países.Desde grandes potencias como Alemania, Estados Unidos, Francia o Gran Bretaña hasta miembros del Tercer Mundo como Algeria, Camerún o Uzbekistán. Y por supuesto, España, pues los sillones en las reuniones del GEO (en español, Grupo para las Observaciones de la Tierra) no son tan difíciles de conseguir como los de las cumbres del G-20.

El objetivo final de este proyecto consiste en conectar entre sí todos los organismos que producen este tipo de informaciones, como la Agencia de Protección Ambiental de Estados Unidos (EPA) o su equivalente europeo GMES, para adelantar la toma de decisiones en relación a catástrofes puntuales (como las citadas en el primer párrafo) y otrás más atemporales (como sin ir más lejos, el cambio climático). “Un sistema que debería haberse creado hace mucho tiempo y que es dolorosamente necesario”, afirma Achache.





yo elegi estos articulos porque me parecieron muy buenos y muy interesantes.