Realizar un video de entre 30 segundos y 1 minuto. Pueden aparecer los autores. Las imágenes deben ser tomadas de YouTube.

Debe relatar:

- Lo mas divertido (escolar) del año
- Lo mas aburrido (escolar) del año
- Lo mas dificil de TIC y en general (un tema, una clase, un proyecto)
- Lo mas interesante de TIC y en general (un tema, una clase, un proyecto)

No hacer nombres, solo mencionar materias. Publicarlo en YouTube y en el Campus (despues vemos como)
Showing posts with label guido. Show all posts
Showing posts with label guido. Show all posts

Wednesday, November 19, 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.

Thursday, November 13, 2008

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.

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

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

Thursday, October 30, 2008

Semana 27 (por guido)

Exposición de Videojuegos Argentina 2008, en Capital Federal

La Asociación de Desarrolladores de Videojuegos Argentina (AVDA), realizará el 15 y 16 de noviembre, la edición 2008 de su Exposición de Videojuegos Argentina (EVA).
Esta exposición tiene como fin reunir tanto a desarrolladores, estudiantes, publicadores, investigadores y hasta hobbistas de la industria local del desarrollo de videojuegos.

Este evento es de entrada libre y gratuita, pudiendo encontrarse con conferencias, stands, premios, entre otras actividades.
Entre las conferencias, habrán representantes de Sony USA, Intel, Digital Investments, y algunos invitados como Jorge Ceballos, Luis Valerdi (México) y Sebastían Enrique (Electronic Arts).
Los interesados, deben inscribirse previamente desde el sitio web oficial del evento.

para saber algo mas....



Need for Speed: Undercover vendrá con sorpresa de Nissan


Parece increíble que una empresa como Nissan haya tomado la decisión de presentar un nuevo modelo de sus vehículos dentro de un juego, antes de ponerlo a la venta (en el mundo real, digamos).

El modelo en cuestión es el Nissan 370Z Coupé, que hará su primera aparición dentro del juego Need for Speed: Undercover, de Electronic Arts.

No es raro que una empresa se vuelque a lo virtual para mostrar un producto, aunque si para presentarlo de forma exclusiva, lo cual le permitirá atraer potenciales admiradores (aunque no se hasta que punto logrará captar la atención de algún comprador).
La experiencia le servirá tanto a Electronic Arts, al dar un motivo de “exclusividad” para que se sumen jugadores, como también a Nissan, para recibir retroalimentación de quienes lo prueben “virtualmente”.
Sin duda, una excelente propuesta de Marketing, que deberían imitar otras empresas para darle un toque más de realismo a los juegos… o al menos, de exclusividad.
El juego saldrá a la venta en pocos días, mientras que el auto recién estará en el mercado para el año que viene.

para saber algo mas....


Superstickies: Crea notas Post-it o Stickynotes online


Las notas Post-it son muy útiles para recordar todo tipo de cosas, y mayor aún si las utilizamos en el ordenador. En este caso, Superstickies es una sitio web en donde podemos crear estas notas también conocidas como Stickynotes, en forma de imágenes y que son descargables a nuestro ordenador, e inclusive se pueden almacenar en ImageShack o Flickr.

Superstickies permite personalizar el color de la nota, la alineación del texto y su color, aunque no las dimensiones de la imagen. La imagen resultante, es tiene su fondo transparente.

para saber algo mas....



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

Semana 26 (por guido)

Notebook de Toshiba para gamers: Toshiba Qosmio X305-Q708



Toshiba también dedica su último lanzamiento de notebooks pare los gamers, se trata de la nueva Toshiba Qosmio X305-Q708.

Con un colorido diseño y características propias de los usuarios exigentes, Toshiba lanza una nueva línea esperando captar a los mas exigentes de éste sector.

A la lista de notebooks de alta gama de Toshiba Qosmio, se le agrega ahora la X305-Q708, modelo que sobresale visualmente por su extrañamente llamativo diseño, y por sus características generales: Procesador Intel Core 2 Extreme QX9300, memoria RAM de 4GB DDR3, disco duro de 320GB, y una gran pantalla de 17″. Como es para gamers, obviamente viene con tarjeta gráfica nVidia GeForce 9800M GTS y puertos USB y HDMI. En cuanto a conectividad no podían faltar WiFi y Bluetooth.

para saber algo mas....




Proyector interactivo multimedia con Bluetooth


Su nombre es eBeam Projection, y es todo un sistema de presentación multimedia, ideal para conferencias y todo tipo de proyecciones.

Incluso el eBeam Projection nos permite controlar las proyecciones como si fuera un mouse, sobre cualquier superficie blanca.

Con el eBeam Projection podemos controlar todo lo que sucede en la pizarra donde se está reproduciendo la presentación multimedia, con el simple uso de un lápiz interactivo, el que nos permite realizar anotaciones encima de cualquier aplicación y guardar los cambios en la computadora, haciendo las veces de mouse.

El eBeam Projection incluye un pequeño dispositivo receptor que se adhiere en cualquier esquina de la pizarra (o donde sea que estemos proyectando), un lápiz electrónico y un sencillo software que se instala en la computadora, conectándose vía cable USB o Bluetooth, y funciona conjuntamente con cualquier tipo de proyector.

De éste modo, el área de proyección se convierte en una pizarra interactiva, que nos permite navegar por Internet, hacer anotaciones a mano, capturar imágenes, convirtiendo la proyección estática en una experiencia multimedia completa.

para saber algo mas....





Microsoft revela Windows Azure, su SO en las nubes…



Se está celebrando la Microsoft Professional Developers Conference, y tal como lo prometió Steve Ballmer hace pocas semanas, la empresa ha dado a conocer su plataforma Windows de servicios web.El nombre elegido ha sido Windows Azure, y representa un cambio importante para Microsoft, como también para los desarrolladores que se vuelquen a desarrollar en esta plataforma.La empresa ha liberado una Community Technology Preview a algunos desarrolladores presentes en la PDC 2008, para que puedan jugar con él y planificar futuros desarrollos.

Los componentes detrás de la plataforma de servicios Azure, serían:

  • Windows Azure
  • Microsoft SQL
  • Microsoft .NET
  • Microsoft Live
  • Microsoft SharePoint y Microsoft Dynamics CRM

Microsoft dice haber estado creando nuevos Data centers, para poder dar servicios de una forma confiable a sus clientes (esperemos que no existan las pantallas azules aquí).
Seguramente podremos probar Windows Azure y la plataforma que lo soporte dentro de algunos meses… por lo que recién ahí podremos dar una opinión más “objetiva” (de momento, suena un tanto en el aire…).

para saber algo mas....



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

Tuesday, October 07, 2008

Semana 25 (por guido)

Los coches tendrán control parental

Los coches pronto podrían venir con los controles parentales que limitaran a los conductores más jóvenes lo que puedes hacer con un vehículo.Desarrollado por Ford, llamado MyKey, este sistema limita un coche a una velocidad máxima, si el estereo esta muy alto y sonidos se advertencias en caso de que los cinturones de seguridad no estén siendo usados.Ford presentará este control en EE.UU. sobre algunas marcas de automóviles que debutaran en 2009, pero saldrán a la venta en 2010.El Ford Focus será el primero en tener MyKey, pero el fabricante de automóviles dijo que se convertiría en una característica estándar.El elemento principal del sistema MyKey, es limitar la velocidad máxima de un coche a 80 mph.Otras opciones permitirán a los padres decidir si los tonos de aviso deben sonar si un coche va más rápido de 45, 55 o 65 mph.Ford dijo que el sistema esta basado en los ID chips que ya se utilizan en las llaves para dificultar el robo de automóviles.






Mini-Acuario de Medusas USB

Es increíble lo que cada día presentan en dispositivos USB, unos tan curiosos, otros que pueden ser útiles y otros que son complementamente inservibles, y que a pesar que fueron creado para “adornar”, tampoco cumplen esa función. En este caso les hablo de un Mini-Acuario de Medusas USB, describiendose como un gadget que puede ser divertido y decorativo, que puede ofrecer una relajante noche en la habitación de un niño o romper el aburrimiento en la oficina.



Este mini-acuario emite una luz mediante un LED azul, necesita 2 baterías AA y tiene un precio de 18 dólares.





Templates Blogger – Plantillas para blogs

ESTE ES UN POST PATROCINADO (Que me genera un poco de dinero, pero no me quita objetividad, jejeje). Templates Blogger es una interesante web, con un diseño limpio y atractivo, desde donde puedes descargar plantillas para tus blogs alojados en Blogger. El sitio cuenta actualmente con alrededor de 200 plantillas, algunas bastante atractivas (como esta de World of Warcraft). Las plantillas son completamente gratuita y se instalan como cualquier otra plantilla común y silvestre para Blogger.
La web es básicamente un blog hecho en Wordpress, y es un proyecto de Actualidad Blog, una red de blogs comerciales en español. Está, además, debidamente optimizada, han hecho un buen trabajo, aunque no pasa el test W3C, lo cual es un detalle que podrían corregir.
En resumen, una simpática web con interesantes templates para todos aquellos que aún no se han decido mudar a Wordpress, ya sea por desconocimiento o porque no quieren perder todo el trabajo acumulado en su blog de Blogger. Si tu caso es el segundo, una lectura a mi post sobre cómo mudarse de Blogger a Wordpress sin perder pagerank, ni visitas ni rankings, no te caería mal.



yo elegi estos articulos porque me parecieron muy interesantes.

Semana 24 (por guido)

Optimiza el tamaño de las imágenes en línea con Smush It

La herramienta está basada en la web y se llama Smush It. Puede disminuir el tamaño de las imágenes sin que se note una pérdida en la calidad visual.
Además, Smuth It puede convertir imágenes GIF al formato PNG, reducir el rango de colores utilizado en imágenes PNG, y más.
Los usuarios pueden subir imágenes al sitio, instalar una extensión que envía una dirección web con sólo un click, o enviar una dirección web. El servicio les provee un paquete descargable con imágenes menores que pueden ser utilizadas para sustituir a las más pesadas.
Un servicio curioso y bastante original. Vale la pena echarle un vistazo.

para saber mas....


Microsoft lanza aplicaciones para portátiles educativas en Portugal

Microsoft lanzó en Portugal un paquete de aplicaciones para portátiles económicas destinadas a la educación.
El ordenador se llama ‘Magellan‘ y comenzó a ser distribuido por las escuelas el mes pasado. El país tiene interés en distribuir 500.000 unidades, cuyo costo es de 50 euros.
Steve Ballmer fue el encargado de mostrar este nuevo paquete de software llamado ‘Suite Magellan‘. Estará instalado en las portátiles e incluirá Windows XP, Office, aplicaciones de desarrollo, correo gratuito y mensajería instantánea.
Ballmer dijo en la presentación que “es un único, sorprendente y maravilloso programa en escala global”. Hizo hincapié en cómo el sector público y privado se pueden unir para crear nuevas oportunidades.
El gobierno tiene como objetivo lograr que haya dos niños por cada ordenador en 2010. El número actual es de 5 niños por cada ordenador.
Las portátiles están a la venta desde la semana pasada y se pueden conseguir a 285 euros.

para saber mas....



Pueden las computadoras "pensar" por sí mismas finalmente?


No desde que la supercomputadora de IBM Deep Blue le ganó al campeón mundial de ajedrez Garry Kasparov en 1997, las computadoras han sido consideradas como capaces de "pensar" con la capacidad que lo hace un humano. Muy pronto, seis computadoras están a punto de conversar con los interrogadores humanos en un experimento para demostrar de una vez por todas que pueden.¿Cómo puede suceder eso, te preguntaras? En lo que ellos llaman una "prueba de Turing", una máquina o un grupo de máquinas puede engañar a un grupo de jueces a pensar que podrían ser humanos en sus respuestas. La prueba se lleva a cabo mediante la realización de una conversación basada en texto(estilo Chat) sobre cualquier tema. Si las respuestas de la computadora son indistinguibles de las de un humano, entonces es que ha superado la prueba de Turing y se puede decir que "piensan", de acuerdo con una explicación por el Guardian.

para saber mas....


elegi estos articulos porque me gustaron muchi y tambien porque me parecieron muy interesantes.

Monday, October 06, 2008

Calculadora 3 (por guido, hernan y marcos)

Private Sub borrar_Click()
visual.Caption = ""
auxiliar2.Caption = ""
visual.Caption = ""
End Sub
Private Sub cero_Click()
visual.Caption = auxiliar.Caption + "0"
End Sub
Private Sub cinco_Click()
visual.Caption = auxiliar.Caption + "5"
End Sub

Private Sub coma_Click()
visual.Caption = auxiliar.Caption + ","
End Sub
Private Sub Command_Click()
auxiliar2.Caption = auxiliar.Caption
auxiliar.Caption = ""
aux.Caption = Command.Caption
End Sub
Private Sub cuatro_Click()
visual.Caption = auxiliar.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar2.Caption = visual.Caption
auxiliar.Caption = "/"
auxiliar.Caption = ""
End Sub
Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub igual_Click()
If visual.Caption = "+" Then
auxilar.Caption = Val(auxiliar2.Caption) + Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "-" Then
auxilar.Caption = Val(auxiliar2.Caption) - Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "/" Then
auxilar.Caption = Val(auxiliar2.Caption) / Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "*" Then
auxilar.Caption = Val(auxiliar2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "%" Then
auxiliar.Caption = Val(auxiliar.Caption) / Val(visual.Caption)
End If
auxiliar.Caption = ""
End Sub
Private Sub mas_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "+"
auxiliar.Caption = ""
End Sub
Private Sub menos_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "--"
auxiliar.Caption = ""
End Sub

Private Sub mult_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "x"
auxiliar.Caption = ""
End Sub
Private Sub nueve_Click()
visual.Caption =visual.Caption + "9"
End Sub
Private Sub ocho_Click()
visual.Caption =visual.Caption + "8"
End Sub
Private Sub seis_Click()
visual.Caption =visual.Caption + "6"
End Sub
Private Sub siete_Click()
visual.Caption =visual.Caption + "7"
End Sub
Private Sub tres_Click()
visual.Caption =visual.Caption + "3"
End Sub
Private Sub uno_Click()
visual.Caption =visual.Caption + "1"
End Sub

Thursday, September 18, 2008

Visual Basic (por guido)

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 < caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption = "TV" 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 22 (por guido)

Facebook: descarga fácilmente las imagenes en las que estés tagueado


Get My Tagged Pics es una interesantísima aplicación para Facebook que te permitirá descargar fácilmente las fotos en la que estés tagueado.
La aplicación es muy sencilla: cuando la ejecutas, checa todas las fotos de las red social en las que estés, y las agrupa en diferentes paquetes. Lo bueno es que tú puedes elegir qué paquetes descargar, gracias a un botón de ‘Download’.
Las fotografías se descargan de a grupos y en formato ZIP. Realmente no puedo entender bajo qué criterio se separan (si alguno lo entiende y quiere explicarlo, bienvenido está). Más allá de eso, me parece un servicio completo, sencillo y práctico. Cumple muy bien su función.




La presentación del teléfono de Google


Google entrará al mercado de los teléfonos móviles, y la presentación se hará el 23 de septiembre en un evento organizado por la compañía T-Mobile, quien será la encargada de distribuirlo.
Los rumores indican que el teléfono G1 costaría al público 199 dólares, un precio razonable si tenemos en cuenta que la compañía tendrá que competir mano a mano con el iPhone.
El G1 será un teléfono que funcionará bajo Android y será fabricado por la empresa HTC. Prácticamente no hay más detalles. No sabemos cómo funcionará el software bajo Android ni cómo será el teléfono, pero la expectativa es muy grande.



Mensajes de texto mientras conduces "peor que beber"


Mensajes de texto mientras se conduce entorpece los automovilistas más que estar bajo la influencia de alcohol o drogas, sugiere una investigación.La Fundación RAC encontró una media el en tiempo de reacción de un 35% más lento entre jóvenes de 17 a 24 años de edad, los cuales conducen mientras escribían o leían mensajes de textos.Casi el 50% de los conductores con edades comprendidas entre los 18 y 24 usaban mensajes de textos durante la conducción.Estudios anteriores habían encontrado reacciones que fueron 21% más lentos entre los que habían tomado cannabis y un 12% más lento entre los que habían bebido al límite legal.Al estar leyendo o escribiendo mensajes de textos mientras conduces te es mucho más difícil controlar tu dirección, frente a una maniobra repentina.El control de dirección entre los conductores que usan mensajes de textos fue del 91% peor, en comparación con el 35% peor para aquellos bajo la influencia del cannabis.
yo elegi estos articulos porque me parecieron muy interesantes.

Thursday, August 28, 2008

Semana 18 (por guido)

Usniff: Veloz buscador de torrents

Usniff es un buscador de torrents que no tienen ninguna función especial, además que la cantidad de motores de búsqueda que utiliza no genera tantos resultados como otros que bien conocemos, lo que caracteriza a Usniff del resto, es la velocidad con que aparecen los resultados, mostrándolos casi instantáneamente dependiendo de nuestra conexión claro está.
Si buscas alternativas, creo que Usniff dará la competencia con los más populares, sólo que debe incluir más motores de búsqueda.



Tweetake: Haz backup de todo tu Twitter




Seguro que le tienes gran aprecio a tu cuenta en Twitter. Perder todos tus pequeños mensajes, a demás de tus estimados followers debe significar mucho para ti. Para evitar ese miedo a que los servidores de Twitter exploten, Tweetake permite realizar copias de seguridad de tu cuenta en Twitter.Con Tweetake podemos seleccionar hacer respaldo de los mensajes, followers, amigos, favoritos o de todo, y a en unos segundos, tendremos un archivo CSV que incluye toda la información de tu cuenta, o en este caso, de lo que haz hecho respaldo. Sólo debemos introducir con toda seguridad nuestros datos de acceso a Twitter



para saber algo mas




AceBackup: Herramienta para hacer respaldo en Windows

Nunca sabremos cuando será necesario formatear nuestro equipo o alguna falla de hardware nos ocasione la pérdida de documentos importantes, el album fotográfico de la familia o la biblioteca musical que ocupa gran parte de nuestro disco duro. Por lo tanto, es indispensable realizar semanal o mensualmente una copia de seguridad de lo más importante, para ello podemos utilizar AceBackup, el cual conocí gracias a MakeUseOf.AceBackup es una gran herramienta que nos servirá para realizar respaldo de cualquier archivo que se encuentre en nuestro ordenador, y a pesar de que anteriormente había que pagar para poder disfrutar de funciones que no disponen otras aplicaciones gratuitas, AceBackup pasó a ser una aplicación gratuita.
Una vez instalado AceBackup, este nos permite seleccionar dos opciones:
1.- AceBackup Archive: Con esta opción, podemos respaldar uno o varios archivos en el directorio de AceBackup, donde estará cifrado y protegido.
2.- AceBackup Backup: Crear una copia de seguridad de cualquier directorio, pudiendo agregarle cifrado a los mismos, dependiendo de la sensibilidad de tus archivos, como también la compresión para reducir el tamaño del respaldo.

para saber algo mas


elegi a estos articulos porque me parecieron muy interesantes.


Semana 19 (por guido)

Brasil: Derechos de los bloggers, los derechos de los lectores de blogs


los Términos y Condiciones de Uso de su blog, entre ellos:Los derechos de los bloggers y los lectores del blog."Los lectores deben recordar que la lectura y comentarios en un blog es un privilegio que puede ser revocado en cualquier momento.Nadie tiene el "derecho" a leer un blog o hacer comentarios al respecto.Los usuarios del Blog deben recordar que nadie está obligado a leer blogs, que los lectores pueden desaparecer en un instante y tener lectores no es un privilegio fácil de conquistar.Nadie tiene el "derecho" a ser leído y examinado”.



Estoy en tus Google Docs, y leyendo tus hojas de cálculo


Compartir documentos con tus compañeros de trabajo a través de Google Docs seguro que es conveniente. También puede ser peligroso. Debido a un pequeño error tipográfico tus datos podrían caer en manos de alguien más.Sucede que David F. Gallagher del New York Times recibió por equivocación reportes de trafico de 130 Web sites, incluyendo datos de periódicos importantes. Todos estos documentos son parte del Community Newspaper Holdings Inc. (CNHI) una compañía basada en Birmingham, a la cual pertenecen 90 periódicos.Parece ser que un empleado de dicha compañía quería compartir estas hojas de cálculo sacadas de Google Analitycs con otro empleado llamado Deirdre Gallagher. Entonces, se equivoco escribiendo la dirección de correo electrónico y dichos datos fueron a parar a las manos de David Gallagher.En mi caso no he recibido documentos pertenecientes a otras personas, pero esto es algo que a muchas personas de seguro les ha pasado. Muchos han recibido datos de tarjetas de crédito, contraseñas, etc. de pertenecientes a otras personas.En este caso le paso a David Gallagher con Gmail y Google Docs, pero es posible que pase en otros servicios. Lo fácil que puede difundirse información importante sin tu consentimiento.El verdadero bug de seguridad lo cometemos nosotros cuando nos equivocamos al escribir la dirección de correo. Por eso debemos ser cuidadosos o buscar otro medio más seguro de distribuir información sensible.





Una mujer llamada Yoda bloqueada en Facebook


Hiroko Yoda dice que ella hizo varios intentos para suscribirse al popular sitio de redes sociales, pero su solicitud se atendió con un mensaje de error.La japonesa sospecha que su apellido distintivo que comparte con el sabio maestro verde Jedi de la película Star Wars, puede ser el origen de su problema.Sus sospechas se confirmaron cuando sus intentos de registrarse con el uso de otras versiones de su apellido, entre ellos Youda y Yohda, dando buenos resultados.Después de contactar a Facebook para reclamar que se le dijo que Yoda se había colocado como un nombre en la lista negra porque muchos miembros pretendían tener ese nombre. El sitio Web sólo permite a la gente unirse bajo su verdadero nombre."Facebook bloquea el registro de una serie de nombres que con frecuencia son maltratados en el sitio,""El nombre 'Yoda', también es el nombre de un popular personaje de Star Wars, está en esta lista de nombres bloqueados".Facebook En virtud de los términos y condiciones, indica que los usuarios deben ponerse de acuerdo para no "suplantar la identidad de cualquier persona o entidad, o declarar falsamente o tergiversar a si mismo".Las normas también exigen que los miembros no deben "registrarse para obtener una cuenta de usuario en nombre de una persona distinta a uno mismo".Facebook ha cedido y ha permitido a Hiroko Yoda configurar un perfil en el sitio.Yoda es un apellido bastante común en Japón, y una búsqueda en Facebook revela docenas de miembros, que aparentemente es su auténtico nombre.
yo los elegi estos articulos porque me parecieron muy interesantes.

Mis vacaciones, el mapa (por guido)


Ver mapa más grande

Saturday, August 02, 2008

Semana 16 (por guido)

Ingenieros de la India y de China exploran los últimos vehículos lunares


Después de haber visto las propuestas de la NASA de robots capaces de moverse por otros planetas y la Luna, como el ATHLETE o el Spirit, ahora se han unido dos equipos de investigación de China y la India, con el fin de crear un proyecto espacial conjunto, en el que ambos países se puedan beneficiar.
Gracias a esta fusión para intercambio de ideas y conocimientos que han llevado a cabo el Surrey Space Centre de Inglaterra y la Universidad de Beijing, se allanará el camino de los viajes espaciales a la Luna y posibilitará llevar a cabo un programa similar al Moonraker del Reino Unido.



La Dra. Yang Gao, por parte china y el profesor Hehua Ju, por parte de la India, pasarán seis meses trabajando uno en los laboratorios del otro, en donde compartirán conocimientos acerca de sistemas de guía, control remoto y sistemas de control necesarios para crear un vehículo autónomo que sea capaz de moverse por la superficie extraterrestre.
China ya lanzó con éxito su orbitador lunar Chang’e-1 el 1 de Noviembre de 2007, dentro de su programa Chang’e, con lo cual la India se beneficia de los más amplios conocimientos que ya tiene su socio. La Agencia Espacial China planea lanzar en la segunda fase de su investigación, un robot que aterrice y recorra la Luna después del año 2012.




Google se suma al negocio de la publicidad en los juegos


Fuentes cercanas a Google indican que la firma estaría alistando su programa de publicidad dentro de los juegos o in-game advertising, el cual estaría lo suficientemente maduro para ser lanzado en breve.
Google tendrá que comeptir contra firmas como Massive (perteneciente a Microsoft), IGA Worldwide, Double Fusion y NeoEdge.
Si bien estas firmas cuentan con la ventaja de haber sido establecidas antes que Google lance su programa, cuentan con una grandes recursos (dinero, empleados, infraestructura) y ya conocen bien a los publicistas.
El mercado de la publicidad dentro de los juegos aún es relativamente nuevo, y se espera que crezca de forma exponencial en los próximos años (mil millones de dólares en ingresos para el 2011), dejando lugar para empresas como Google.





Belkin FlyWire, televisión de alta definición sin cables




Se llama Belkin FlyWire y es lo último para ver “tele” en alta definicón. Se trata de una cajita que permite ver programas grabados en alta definición a partir cualquier fuente en HDTV (canales por satélite, Blu Ray o grabaciones de Internet). Un invento impresionante que funciona sin cables y conectar hasta seis dispositivos diferentes. El invento está a punto de salir al mercado y lo presenta la firma norteamericana Belkin.


Esto lo conseguimos conectando el reproductor de alta definición (la fuente) a un emisor. Por otra parte, hay que conectar un pequeño receptor del tamaño de un DVD portátil en los televisores que queramos, y listo.Así evitamos tener un montón de cacharros y cables debajo del televisor LCD o plasma. El emisor tiene el tamaño de un reproductor de DVD convencional, pero el receptor, tiene un tamaño muy reducido, con lo cual podemos tenerlo oculto en la parte trasera de la pantalla conectado con un cable HDMI.

Gracias a la tecnología inalámbrica de 5Ghz que usa, puede emitir señal de video sin cables y sin comprimir. El invento tiene dos inconvenientes: el primero es el precio. Costará alrededor de 1.000 dólares (640 euros al cambio actual), y el segundo es que, al ir todos los dispositivos conectados a través de una sola entrada final, las configuraciones de intensidad de colores, brillo, etc… será la misma para todos los dispositivos, con lo cual podemos encontrarnos con que en determinados momentos habrá que hacer un reajuste manual para adaptarla a nuestros gustos.

para poder saber mas

yo elegí estoa articulos porque me parecieron muy interesantes y muy buenos, y el que más me gusto fue el de la televisión.

Thursday, July 17, 2008

Animacion flash (por guido)

para ver mejor el video hagan click aca

Thursday, July 10, 2008

</