viernes, 26 de septiembre de 2008

Calculadora Visual Basic (por Sabri)

Calculadora

Private Sub Borrar_Click()
Cuentas.Caption = ""
End Sub

Private Sub dividido_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "/"End Sub

Private Sub igual_Click()
If Auxiliar2.Caption = "+"
Then Cuentas.Caption = Val(Auxiliar.Caption) + Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "-"
Then Cuentas.Caption = Val(Auxiliar.Caption) - Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "/"
Then Cuentas.Caption = Val(Auxiliar.Caption) / Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "*"
Then Cuentas.Caption = Val(Auxiliar.Caption) * Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "%"
ThenCuentas.Caption = Val(Auxiliar.Caption) / Val(Cuentas.Caption) * 100
End If
End Sub

Private Sub Mas_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""Auxiliar2.Caption = "+"
End Sub

Private Sub menos_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "-"
End Sub
Private Sub por_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "*"
End Sub
Private Sub porcentaje_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "%"
End Sub

Private Sub uno_Click()
Cuentas.Caption = Cuentas.Caption + "1"
End Sub
Private Sub dos_Click()
Cuentas.Caption = Cuentas.Caption + "2"
End Sub
Private Sub tres_Click()
Cuentas.Caption = Cuentas.Caption + "3"
End Sub
Private Sub cuatro_Click()
Cuentas.Caption = Cuentas.Caption + "4"
End Sub
Private Sub cinco_Click()
Cuentas.Caption = Cuentas.Caption + "5"
End Sub
Private Sub seis_Click()
Cuentas.Caption = Cuentas.Caption + "6"
End Sub
Private Sub siete_Click()
Cuentas.Caption = Cuentas.Caption + "7"
End Sub
Private Sub ocho_Click()
Cuentas.Caption = Cuentas.Caption + "8"
End Sub
Private Sub nueve_Click()
Cuentas.Caption = Cuentas.Caption + "9"
End Sub
Private Sub cero_Click()
Cuentas.Caption = Cuentas.Caption + "0"
End Sub

viernes, 12 de septiembre de 2008

Semana 23 (por Sabri)

Ranking mundial: Argentina desciende 11 puestos en la lista de desarrollo tecnológico de los países.

Latinoamérica se ubica último en el ránking mundial de desarrollo tecnológico, que presentó el Foro Económico Mundial, financiado por Cisco Systems. Argentina desciende 11 puestos con respecto al año pasado, y se ubica en el puesto 77. Los datos corresponden a 127 países del mundo. Dinamarca lidera el ranking como el país más desarrollado tecnológicamente.
El Informe Global sobre Tecnología 2007-2008: "Fomentando la Innovación mediante la Preparación en la Red", que elaboró el Foro Económico Mundial (FEM), contó con el financiamiento de la empresa Cisco Systems.
El top ten de los diez países con mayor desarrollo mundial es encabezado por Dinamarca.
1- Dinamarca
2- Suecia
3- Suiza (sube dos puntos)
4- Estados Unidos (sube tres puntos)
5- Singapur
6- Finlandia
7- Países Bajos
8- Islandia
9- Corea
10- Noruega.
--------------------------------------------------------------------------
Palm anuncia la venta de 2 millones de su teléfono inteligente.

Palm anunció que ha vendido dos millones de su teléfono inteligente Centro, confirmando así la creciente popularidad del producto con los usuarios de teléfonos móviles tradicionales que desean migrar a un teléfono que pueda ofrecerles una mayor funcionalidad. Palm ofrece ahora el Centro en más de 25 países de Norteamérica, Sudamérica, Europa y la region Asia-Pacífico.
Algunos datos recientes divulgados por AdMob, la red publicitaria más grande de la web móvil, refuerzan aún más la popularidad del teléfono inteligente más pequeño, liviano y accesible de Palm. De acuerdo con el reporte de Mobile Metrics de la compañía, Palm Centro logró ascender a la lista de los 10 principales dispositivos mundiales en mayo, ocupando el lugar número 8, y conquistando el No. 7 en el mes de junio. AdMob cita el aumento de los teléfonos de precio económico como el Palm Centro, como el principal impulsador en el uso de Internet móvil.


-------------------------------------------------------------------
LG Electronics y Movistar presentan el celular LG Viewty

LG Electronics Argentina suma a su división LG Mobile, junto a Movistar, el celular LG Viewty (KE990), un equipo de alta tecnología con cámara digital de 5 megapixel.
LG Viewty es un celular de fácil control, con cámara para tomar fotos de gran resolución – lentes certificados por Scheneider-Kreuznach - con enfoque manual y automático, estabilizador de imagen y sensibilidad de hasta 800 ASA.
Este modelo cuenta con opciones de edición en pantalla que permiten al usuario editar, escribir y dibujar sus fotos, personalizándolas.
Además, el LG Viewty reproduce en formato DivX, dando la posibilidad de disfrutar de archivos de video, como series y películas, incluso en formato widescreen.
Entre sus principales características de video, además de un completo editor, se destaca la función que permite grabar en alta velocidad y reproducir en cámara lenta - slow motion.
"Con éste lanzamiento LG Electronics renueva el compromiso con sus consumidores, acercándoles un teléfono móvil con cámara digital de 5 megapíxeles con opciones de reconocimiento de escritura a mano alzada y edición en pantalla que permite personalizar tanto fotos como videos"; comentó Marcelo Palazzo, Director Comercial de LG Mobile.
Este móvil cuenta con una pantalla LCD totalmente sensible al tacto de 3 pulgadas y buscador completo de Internet.

Semena 22 (por Sabri)

La televisión de casa en un bolsillo

Sling Media presenta un dispositivo con el que se puede visionar la televisión en cualquier dispositivo móvil.
Del salón de casa al mundo. Con esta premisa se ha presentado Sling Media en España, la compañía ha lanzado un dispositivo por el cual se puede sintonizar la televisión en cualquier parte del mundo y en cualquier dispositivo móvil (ordenador personal, teléfono móvil, portátil, Mac...). El funcionamiento es sencillo: se instala el dispositivo en el codificador - TDT, grabadores digitales, televisiones de pago- y a través de Internet o una red de datos se accede a los contenidos en direcLa compañía trae a España dos versiones de su Slingbox, que permiten a cualquier usuario disfrutar de la televisión de casa en el teléfono móvil o en un ordenador y en cualquier parte del mundo. Tanto Slingbox PRO como Slingbox SOLO han sido diseñados para cumplir con todas las exigencias de las televisiones más modernas. Destacan las funciones de compatibilidad con pantalla panorámica (16:9) y la transmisión en VGA de alta resolución (640x480). Los dos productos permiten la conexión de descodificadores de televisión en alta definición, brindando al consumidor la posibilidad de conectar prácticamente cualquier dispositivo de audio y vídeo a través de entradas por componentes, S-Video o compuesto. El Slingbox PRO y el Slingbox SOLO pueden controlar todos los descodificadores de televisión, TDT, cable digital y satélite disponibles en el mercado español, incluyendo aquellos ofrecidos por Canal Satélite Digital o Imagenio.to, aunque el codificador esté desconectado.
-----------------------------------------------------------------------------------
Los robots salen de la fábrica

Los robots industriales se crearon evidentemente con fines económicos, y a sus empresas les fue muy bien. La investigación en robótica básica desarrollada en las universidades produjo robots prácticos, capaces de realizar trabajos útiles en las fábricas. Japón se convirtió en el país de los robots, gracias a su visión y a un conjunto de estrategias diseñadas para llegar a ser el centro industrial más importante del mundo.
El libro alemán Der Roboter contiene una ilustración satírica en la que el volcán del monte Fuji lanza robots al aire que descienden por todo el mundo. Este dibujo reflejaba el éxito de los robots en las fábricas japonesas, que se debía a la resolución conjunta de la industria, el gobierno japonés y las instituciones académicas en materia de cooperación tecnológica.
Sin embargo, la robótica industrial se estabilizó en la década de 1990, al tiempo que los nuevos desarrollos parecían apuntar en otra dirección. Muchos creadores no sabían en realidad lo que sus robots debían hacer o en qué campo; es decir, sus robots no estaban diseñados para ayudar a la gente. Esta nueva generación, después de la industrial, no entra en ninguna categoría de utilidad. Simplemente su propósito fue “vivir” con humanos.
Hasta entonces los robots habían tenido una sola función: trabajar en las fábricas para producir. La siguiente generación vivió en espacios humanos, interactuando con la gente. Además de las máquinas automáticas de las fábricas, ahora el mundo tenía autómatas de aspecto agradable en relación simbiótica con los seres humanos. La tecnología alcanzaba así otro nivel.
----------------------------------------------------------------------
Robots que trabajan(Un colega simpático en la oficina)

El robot humanoide EMIEW levanta la mano para saludarle amistosa y alegremente. Sus brazos se mueven con la misma libertad que los de un ser humano. Con sus dos ruedas puede “andar” a 6 km/h, como a paso ligero. También puede girar rápidamente en pequeños espacios. Los esfuerzos para su desarrollo continúan con el objetivo de crear un robot capaz de proporcionar información en una recepción y realizar trabajos simples de oficina. Altura 130 cm., peso aproximado 70 kg.

Semana 21 (por Sabri)

El acelerador busca las partículas elementales de la materia

Entre sus principales objetivos, el Gran Colisionador de Hadrones (LHC, por sus siglas en inglés) deberá detectar las partículas elementales de la materia -que predijo la física teórica pero jamás han sido observadas- y podría poner en evidencia las partículas denominadas “supersimétricas”, que componen la materia negra.Un primer haz de protones fue inyectado ayer, y “tras ello, se necesitaron cinco segundos para obtener datos”, declaró el director del proyecto, Lyn Evans. Una luz en las pantallas de control indicó que el haz había entrado correctamente en la primera sección del anillo. Tras este inicio, siguió el lanzamiento de un segundo haz que giró en sentido contrario. Las primeras colisiones de protones - para las que habrá que esperar aún varias semanas- se producirán a energías de 450 gigaelectronvoltios.Las colisiones de protones que se provocarán en el interior del LHC producirán brevemente una temperatura 100.000 veces superior a la del Sol y deberían permitir detectar partículas elementales que no se han podido observar hasta hoy. Las altísimas energías aplicadas permitirán recrear durante una fracción de segundo el estado del universo durante la primera cienmilésima de segundo tras el Big Bang, es decir el nacimiento del Universo hace 13.700 millones de años.Por otra parte, el científico británico que dio su nombre a la llamada "partícula divina" afirmó que cree que será hallada por el Gran Colisionador.“Creo que es bastante probable” que el LHC hallará esta partícula, dijo el profesor Peter Higgs, de 79 años, pocas horas después de que entrara en funcionamento el gigantesco acelerador.
-------------------------------------------------------------------------
Llegó el nuevo iPod renovadoEl 'iPod Nano' sufrió cambios mayores


'Nano' se renueva
Apple presentó mundialmente su iPod más delgado hasta la fecha y otras nuevas versiones de su popular reproductor de Mp3, con el que la firma espera arrasar en las tiendas estas Navidades y mantener su apabullante ritmo de ventas.
'Nano' se renueva
Apple anunció este martes que renueva todos los modelos del iPod excepto el Shuffle y destacó el lanzamiento de iTunes 8, la última versión de su tienda online donde los usuarios pueden adquirir música, programas de TV, películas y aplicaciones para el teléfono móvil iPhone.Las principales novedades se producirán en el modelo iPod Nano, que será más delgado -de hecho, el más delgado fabricado nunca por la firma- más alargado y con una pantalla curvada en la que las fotos cambian a orientación horizontal.
---------------------------------------------------------------------------------
Apple admitió que el inventor del iPod es un británico al que no le pagó nada

El hombre lo patentó en 1979, pero después no pudo seguir pagando la patente. Endeudado, hoy ni siquiera puede comprarse uno.
Apple admitió que el creador de su popular dispositivo, el iPod, es un británico de 52 años que no recibirá dinero alguno por el invento. El hombre había creado el aparato que revolucionó el mundo de la música en 1979, y mantuvo la patente hasta 1988. Pero hasta el momento no recibió ganancias por su invento. La compañía fundada por Steve Jobs (también creadora del iPhone) confirmó que el hombre detrás de la creación del iPod es un británico que dejó la escuela a los 15 años, pero aún no le dieron ninguna parte de las ganancias. Kane Kramer, tal es su nombre, creó la tecnología de un reproductor digital de música treinta años atrás. El caso surgió a la luz en medio de un juicio en el que Burst.com le reclamaba a Apple parte de las ganancias por el iPod, ya que afirmaba tener la patente. Entonces, la compañía de Steve Jobs acudió a Kramer y los documentos que probaban que él era el inventor. Irónicamente, este hombre tuvo que vender su casa en el último año para pagar sus deudas. Kramer construyó el reproductor en 1979, lo bautizó como IXI y lo patentó. El dispositivo tenía una capacidad de almacenamiento para 3,5 minutos de música, pero él estaba seguro de que en el futuro el almacenaje podría aumentar. Kramer se hizo cargo de la patente hasta 1988, cuando no consiguió reunir los 106 mil dólares necesarios para renovarla en 120 países. Entonces, el invento pasó a ser de libre disposición. El británico asegura que en la actualidad ni siquiera tiene dinero para comprar un iPod.

domingo, 7 de septiembre de 2008

Semana 20 (por Sabri)


Un pequeño robot: embajador de la ciencia para niños.

La apariencia del robot que protagoniza el nuevo film de Disney parecería ser una mezcla del entrañable extraterrestre E.T. y el robot “Arturito” (R2D2) de La Guerra de las Galaxias. Pero WALL-E es simplemente una especie de rover, similar a los robots que exploran el planeta Marte en la actualidad.
Lejos de quedarse sólo en la trama de la ficción, la misión de WALL-E (la película lleva el mismo nombre) en el mundo real, será promover el interés por la ciencia y la tecnología en los más chicos. Así lo expresaron la compañía Walt Disney y la NASA, mediante la firma de un acuerdo anunciado el pasado 18 de junio.
Una animación del robot ya puede verse, en inglés, en un video de 30 segundos en el sitio web de televisión de la NASA. La meta es llamar la atención para que los estudiantes exploren junto con sus maestros, las páginas donde hay información sobre las misiones de esa agencia espacial. Al mismo tiempo, el canal de Disney emitirá un contenido especial del pequeño robot, relacionado con la ciencia, la tecnología y la exploración del cosmos a partir de junio.
La película de Disney-Pixar se estrenará en varios países el 27 de junio, y llegará a los cines argentinos el 3 de julio. Su trama es sencilla: es la historia futurista del último robot que existe en la Tierra, que se dedica a limpiar la basura que hay en el planeta. Todo cambia cuando se encuentra con una robot modernizada llamada EVA y juntos realizan un viaje de exploración espacial a través del universo.
“Este trabajo de colaboración remarca las similitudes entre la película y el trabajo en la vida real en la NASA con tecnología robótica, sistemas de propulsión y la astrofísica”, destaca un comunicado de la NASA.
“Las grandes ideas de la exploración del universo en el futuro comienzan con imaginación”, dice en el comunicado, Robert Hopkins, jefe del área de comunicaciones estratégica de la sede central de la NASA, en Washington, Estados Unidos. Y agrega: “Esperamos que con la ayuda de nuestro nuevo amigo robot, WALL-E, la NASA pueda incentivar a la gente joven a aprender sobre ciencia y tecnología y convertirse en los exploradores del mañana”.
------------------------------------------------------------------------------------------
Yahoo! y Havas Digital anuncian un acuerdo global de colaboración publicitaria.

Yahoo! y Havas Digital, una de las agencias interactivas líderes a nivel mundial, anunciaron un acuerdo global de colaboración que afecta a todas las unidades operativas de Havas Digital: Media Contacts, Lattitud, iGlue, Mobext y Uncommon.
Según los términos del acuerdo, Havas Digital trabajará con Right Media Exchange para desarrollar una plataforma propia de comercialización de medios de comunicación basada en la tecnología de Yahoo!. Para proporcionar un mejor servicio a los clientes y extender su plataforma publicitaria, Havas Digital tiene previsto adoptar en corto plazo AMP! de Yahoo!, que simplificará de forma significativa el proceso de compra y venta de anuncios online. El lanzamiento de AMP! de Yahoo! está previsto para el tercer trimestre de 2008. Este importante acuerdo también incluye la colaboración entre Yahoo! y los Centros de Excelencia de Havas Digital para desarrollar una operación de outsourcing con base en India y Brasil, para implantar en la publicidad digital Right Media Exchange.
Yahoo! aportará la plataforma Right Media Exchange para que Havas Digital desarrolle un servicio de comercializacion de medios digitales innovador y con el objetivo de obtener resultados más eficaces tanto para pequeños y grandes anunciantes como para soportes web. En colaboración con Yahoo!, Havas Digital ayudará a desarrollar la plataforma Right Media Exchange aportando nuevos anunciantes y soportes de distintos mercados. Además, ambas partes desarrollarán programas de formación globales para facilitar la participación en Exchange.
------------------------------------------------------------------------------------------
Panda Security lanza sus productos 2009: antivirus con Inteligencia Colectiva.

Panda Security ha lanzado al mercado su nueva gama de soluciones de consumo 2009: Panda Antivirus Pro 2009, Panda Internet Security 2009 y Panda Global Protection 2009, que ofrecen la mayor protección del mercado con el menor consumo de recursos. Se trata de los primeros antivirus de la historia en utilizar la Inteligencia Colectiva.
Panda Security es el primer proveedor de seguridad informática que cuenta con la tecnología, la infraestructura, el conocimiento y la experiencia para aplicar la Inteligencia Colectiva a productos ya disponibles y comercializados. La nueva gama de consumo de Panda 2009 ha profundizado en la aplicación de la Inteligencia Colectiva. Los beneficios que ofrece esta nueva gama son:
* Mejor detección y más rápida
*Mejor desinfección y más rápida
*Mínimo consumo de recursos del PC y del ancho de banda
* Además, gracias al conocimiento que otorga la comunidad de Inteligencia Colectiva es posible tener una visión completa de las nuevas técnicas de malware y de sus puntos de distribución. Este conocimiento permite a Panda continuar mejorando la protección de sus consumidores.


viernes, 5 de septiembre de 2008

Visual Basic (Por Sabri)

¡No esta terminado!

Private Sub Boton1_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Private Sub Boton2_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub Brillomas_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub Brillomenos_Click()Pantalla.Top = Pantalla.Top - 100End Sub
Private Sub Canalmas_Click()If TVCATV.Caption = "CATV" ThenIf CANALES.Caption < 129 ThenCANALES.Caption = CANALES.Caption + 1ElseCANALES.Caption = 0End IfElseIf CANALES.Caption = CANALES.Caption + 1
End Sub
Private Sub Canalmenos_Click()If CANALES.Caption > 0 ThenCANALES.Caption = CANALES.Caption - 1ElseCANALES.Caption = 129End IfEnd Sub
Private Sub Offon_Click()If ONOFF.BackColor = vbRed ThenONOFF.BackColor = vbBlackBoton1.Enabled = FalseBoton2.Enabled = FalseBoton3.Enabled = FalseBoton4.Enabled = FalseBoton5.Enabled = FalseBoton6.Enabled = FalseBoton7.Enabled = FalseBoton8.Enabled = FalseBoton9.Enabled = FalseBoton0.Enabled = FalseElseONOFF.BackColor = vbRedBoton1.Enabled = TrueBoton2.Enabled = TrueBoton3.Enabled = TrueBoton4.Enabled = TrueBoton5.Enabled = TrueBoton6.Enabled = TrueBoton7.Enabled = TrueBoton8.Enabled = TrueBoton9.Enabled = TrueBoton0.Enabled = TrueEnd IfEnd Sub
Private Sub Volumenmas_Click()Pantalla.Left = Pantalla.Left + 100End Sub
Private Sub Volumenmenos_Click()Pantalla.Left = Pantalla.Left - 100End Sub
Private Sub ENTER_Click()If auxiliar.Caption < 129 ThenCANALES.Caption = auxiliar.Captionauxiliar.Caption = ""Elseauxiliar.Caption = ""End IfEnd Sub
Private Sub Boton0_Click()Boton0.Caption = "0"End Sub
Private Sub Boton3_Click()auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub Boton4_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub Boton6_Click()auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub Boton7_Click()auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub Boton8_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub Boton9_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub Boton5_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub

jueves, 4 de septiembre de 2008

Control remoto

Private Sub Boton1_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Private Sub Boton2_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub Brillomas_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub Brillomenos_Click()Pantalla.Top = Pantalla.Top - 100End Sub
Private Sub Canalmas_Click()CANALES.Caption = CANALES.Caption + 1End Sub
Private Sub Canalmenos_Click()If CANALES.Caption > 0 ThenCANALES.Caption = CANALES.Caption - 1ElseCANALES.Caption = 129End IfEnd Sub
Private Sub Volumenmas_Click()Pantalla.Left = Pantalla.Left + 100End Sub
Private Sub Volumenmenos_Click()Pantalla.Left = Pantalla.Left - 100End Sub
Private Sub ENTER_Click()CANALES.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub Boton0_Click()Boton0.Caption = "0"End Sub
Private Sub Boton3_Click()auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub Boton4_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub Boton6_Click()auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub Boton7_Click()auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub Boton8_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub Boton9_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub Boton5_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub

Flash Gardfield


[Upload your own video]

Flash Diamantes


[Upload your own video]

Flash Nombre


[Upload your own video]

Flash Helados


[Upload your own video]

Mapa de mis vacaciones(por Sabri)


Ver mapa más grande