Tareas

Tareas 3/7 - a. Realizar la recopilación de noticias de la semana. b. Tarea para realizar durante la clase del 3/7. Incluyendo 4 objetos (uno de ellos una imagen importada), realizar una animación en Flash de 20 segundos (circular) que incluya: 1. Una deformación 2. Desaparición y reaparición 3. Cambios de colores La imagen importada debe ser un logo conocido (de un equipo, un canal, una marca, etc.) y las animaciones deben resaltar el logo. Publicar el swf en los dos blogs, y en el campus (en la tarea destinada al respecto). Se puede trabajar de a dos, pero la publicación es individual, como siempre. Título: Animación, logo Tags: animación, logo, nombre Fecha de destacado: hasta el 30-7 (Para el campus) Guille

Tuesday, September 30, 2008

SEMANA 22 POR MARCOS

ARTÍCULO 1:
CRISIS FINANCIERA EN E.E.U.U. Y EL ARRASTRE DEL MUNDO CON ELLOS(ESTADOS UNIDOS DE NORTE AMÉRICA)
Fuerte caída de las bolsas mundiales, el Merval bajó un 8,68%, cerrando en 1.545,45 puntos. La no aprobación del salvataje financiero por parte de los diputados de EEUU, hizo que se desmoronen los mercados, registrándose bajas generalizadas en todas las bolsas. En nuestro mercado la nota la dio la OPA de Molinos, por la cual recompró 25.000.000 millones de acciones a $ 10.-, debido a esto, el volumen negociado se incrementó sustancialmente, realizándose $ 384.2 millones, de los cuales Molinos hizo $ 254 millones, Tenaris $ 77.8 millones y APBR $ 12.9 millones. De 69 especies que abrieron su cotización, 3 cerraron en alza, 63 en baja, quedando 3 papeles sin cambio. Los bonos siguieron el camino negativo de las acciones, negociándose $ 379,3 millones.
ARTÍCULO 2:
LENTES DE CONTACTO
Las molestias que causaban hace unos años disuadían a mucha gente de usar lentes de contacto. Pero las lentes de contacto modernas se fabrican con materiales biocompatibles que las hacen mucho más cómodas. Además, ahora se pueden llevar puestas durante más tiempo. Si había rechazado la idea de las lentillas en el pasado por la incomodidad que pudieran causarle, es hora de que pruebe nuestra nueva gama. No se arrepentirá.
Las lentes de contacto de uso continuo (o progresivo) se hacen de un material especial para poderlas usar constantemente durante 30 días seguidos. Póngaselas y olvídese de ellas, hasta dentro de un mes. No hace falta quitárselas por las noches ni utilizar productos de limpieza.
Las lentes de contacto desechables diarias son las ideales para muchas personas. No hay que limpiar nada: se usan una vez y se tiran a la basura. Son perfectas tanto para usarlas todos los días como para llevarlas únicamente los fines de semana, al hacer deporte o de vez en cuando al salir por las noches.
ARTÍCULO 3:
KINGSTON DATATRAVELLER
El dispositivo DataTraveler Flash USB Alta Velocidad 2.0, pone la memoria Flash portátil en manos de cualquiera. Confiable y fácil de usar, el DataTraveler es la elección de corporaciones y consumidores que prefieren almacenamiento seguro para transportar y transferir datos importantes, canciones favoritas, fotografías y mucho mas. Viaje fuera del país, de la ciudad o salga fuera de casa con toda la información que necesita, en la palma de su mano. Con una amplia variedad de modelos, características y capacidades para elegir, el DataTraveler es también personalizable, ya que cuenta con el programa de logo corporativo y además está respaldado por cinco años de garantía y soporte técnico gratuito. Descubra cuál es el mas conveniente para usted dentro de nuestra completa linea de soluciones DataTraveler USB 2.0.

Sunday, September 28, 2008

Semana 23 (Por Kevin H.)

Primera Semana:

Google 10^100


Cumpleaños número 10 del buscador más popular a nivel mundial y qué mejor manera de celebrarlo que invitando a la web a plegarse a una iniciativa llamada Google 10^100 donde plantea un cambio mundialpara mejorar el mundo donde vivimos a partir de nuestras ideas, las cuales planean financiar.

Google 10^100

Google 10^100 es un proyecto, para cambiar el mundo y ayudar a la mayor cantidad de personas posibles, en el que todos podemos participar aportando nuestras ideas para lograr el fin mencionado.

Google ha dado una serie de medios para la recepción de ideas que van desde un formulario de envío hasta la carga de videos en Youtube, de modo que si ven un aumento notorio de éstos videos en la web de Google no se sorprendan.

Para Más Información Click Aquí

Pongo esta noticia ya que es un acto muy generoso lo que google plantea y espero que haga...

Segunda Noticia:

Convertir una imagen a ASCII, HTML o al estilo Matrix

Text-Image es una herramienta que te permite convertir una imagen en línea en formato ASCII, HTML o al estilo Matrix.

Solo tienes que subir una imagen BMP, GIF, JPG o PNG, elegir un conjunto de parámetros sugeridos por el sitio, en particular, el color de fondo y el tamaño de la fuente.

Posteriormente, basta con hacer clic en el botón y copiar el código generado.

Para Más Información Click Aquí

Pongo esta noticia ya que es divertido convertir imágenes a formatos de texto y verlos de diferentes formas

Tercera Noticia:

Tarjetas CompactFlash de 64 y 100GB

Si antes no te alcanzaba la memória de tu cámara u otros dispositivos, con las nuevoas Compact Flash de Prentec no tendrás nunca mas problemas de almacenamiento.

Las mismas, vienen en dos tamaños, de una de 64 de USD$399 y la otra de 100GB, la capacidad más grande hasta el momento. Además, las memórias pueden ser configuradas para usarse como discos SATA de hasta 256 GB, para poder usarlas en tu pc o algún otro dispositivo.

Para Más Información Click Aquí

Pongo esta noticia porque no me parece una mala idea (salvo por lo que cuesta) la idea de tener memoria para la camara de gran capacidad de almacenamiento

Captura de Calculadora (Por Vicky)


Friday, September 26, 2008

Semana 23, por Bren

Tabla de dibujo Genius G-Pen F509
De la mano de Genius, nos hemos encontrado con esta nueva tabla de dibujo, la G-Pen F509, éstas son algunas de sus características:
* Tabla de trabajo de 5.25″ x 8. 75″* Lápiz inalámbrico* Compatible con Windows y Mac OS* Sensibilidad de 1.024 niveles* 26 hotkeys programables




Argentina: Celulares surtidos para cualquier paladar

Hay más de 3000 millones de usuarios de celulares en el mundo. Y cada uno tiene sus preferencias, si bien la mayoría comparte ciertos intereses por lo que puede ofrecer un móvil. Esto queda en evidencia, por ejemplo, al leer los comentarios de los lectores en las notas sobre el iPhone, el G1 de Android y otros equipos.



Convierte tu iPhone o iPod en una mini iMac

Para esto simplemente se necesita un dock que cumpla con esa función, como el iClooly, que se encargará de darle las funciones necesarias al iPhone o al iPod.
Sabemos que los docks son ciertamente útiles, y este en particular puede convertir tu iPhone o tu iPod Touch en una mini iMac, aunque sólo sea en apariencia.

Semana 22, por Bren

Artefactos electronicos
Esta fue la primera nota, me senti muy bien realizando estos dibujos y se nota una mejoria, se cumple uno de los principales objetivos que es hacer cosas cada vez mejores, los elementos tambien fueron realizados con figuras geomentricas y unos cuantos efectos de iluminacion los cuales hacen que los objetos parezcan reales, tambien se utilizaron algunos trucos como la fuente de la marca de uno de los objetos; fue un trabajo algo complicado por algunos de los objetos pero que dejaron una buena sensacion al verlos terminados ya que son agradables a la vista.






Sony lanza nueva línea de portátiles VAIO: A y C
Los amantes de las computadoras portátiles Sony estarán deleitados de leer esta noticia! La empresa ha lanzado dos nuevos modelos de notebook especiales para aquellos que no dudan en comprar buenas computadoras, con excelente diseño y de altos precios. La VAIO A (arriba) es un reemplazo de una computadora de escritorio, tiene una pantalla de 18.4 pulgadas y corre un procesador Intel Core 2 DUO T9400 a 2.53 GHz. La computadora ofrece pantalla 18.4 widescreen (resolución de 1920 x1080), 500 GB de disco duro, 2 GB de RAM, tarjeta NVIDIA GeForce 9600 GT de 512 MB, reproductor de Blu-Ray, cámara web de 1.3 megapíxeles, red wi-fi 802.11a/b/g/n, Bluetooth, LAN wireless y Vista premim. La serie VAIO AW comienza a venderse desde $2.798 dólares.
La VAIO CS (abajo) es una computadora que nos muestra otra coherencia en cuanto a relación precio-calidad, corre un procesador Intel Core 2 Duo P8400, esta serie incluye varios colores incluyendo rosado, negro, blanco, marrón y rojo. Posee una pantalla de 14.1 pulgadas widescreen (resolución 1280 x 800), 2 GB de RAM, disco duro de 160 GB, grabadora de DVD, cámara web de 1.3 megapíxeles, red wi-fi 802.11a/b/g/n, Bluetooth, LAN wireless y Vista premim. Disponible desde $1.539

dólares.


Sony VAIO TT: notebook ultra-liviana con reproductor de Blu-Ray
Sony ha anunciado ayer su último lanzamiento en cuanto a computadoras portátiles ultra-livianas, se trata de una laptop de peso ligero que incorpora un reproductor de Blu-Ray. La notebook VAIO TT se comenzará a vender desde $2.700 dólares inicialmente, más de $1000 dólares por encima de la MacBook Air por ejemplo. El precio quizás se debe a que incorpora un reproductor de Blu-Ray, que para cuestiones de comodidad es bastante más práctico tener el reproductor en la misma computadora que como unidad externa.
La notebook pesa 1.3 kgs y está bajo la marca de 1 pulgada en cuanto a lo fina que es. Incorpora una pantalla LCD wide-screen de 11.1 pulgadas, disco duro sólido de 256 GB en canal dual con (128GB x 2 en RAID) y corre un procesador Intel Centrino 2

Calculadora (por Nicolás y Telma)




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

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

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

Private Sub coma_Click()
barra.Caption = barra.Caption + "."
End Sub

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

Private Sub diagonal_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "/"
barra.Caption = ""
End Sub

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

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

Private Sub mas_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "+"
barra.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "-"
barra.Caption = ""
End Sub

Private Sub multiplicar_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "*"
barra.Caption = ""
End Sub

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

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

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

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

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

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

Thursday, September 25, 2008

semana 24 (Por Abi)

Noticia 1:

Glary Utilities Free
El mantener nuestro ordenador limpio y seguro supone un mejor funcionamiento. Es de agradecer el que existan aplicaciones que nos ayudan en nuestra labor de limpieza. Glary Utilities es una de ellas. Existen dos versiones de la misma, una gratuita y otra, la Pro, que hay que pagar después de examinarla durante 30 días.
¿Qué hace Glary Utilities Free? Es capaz de eliminar resto de archivos, trozos perdidos. Limpia también los rastros de tus viajes por Internet, localiza entradas no válidas en el Registro de Windows y las corrige, configura el arranque del sistema indicando los programas que se cargan y los que no, lo que redunda en un arranque más rápido. Optimiza el uso de la memoria, o protege tu privacidad y seguridad. Pero no se queda ahí ya que también es capaz de bloquear el spyware, los troyanos, el adware y todo tipo de malware.
Todo ello bajo un interfaz muy simple y fácil de usar, que soporta, entre otros idiomas, el español. Trabaja con todas las versiones de Windows, desde 98 hasta Vista. No dudes en porbar Glary Utilities.
Noticia 2:
Seguro que te ha pasado en alguna ocasión. Tienes almacenada en tu pen drive una copia de tu curriculum vitae. Necesitas enviar ese relato de tus titulaciones y vida laboral acompañando a una solicitud de trabajo. Está en un documento de Word. ¡Oh, desilusión!, intentas abrirlo y no puedes, da un descorazonador mensaje de error. Tienes prisa, mucha prisa, no te da tiempo a escribirlo todo de nuevo. ¿Qué puedes hacer, rendirte? ¡Nunca! Es lo último que se te puede ocurrir. Tal vez puedas abrirlo con el Writer de OpenOffice.org. Pero tampoco lo tienes a mano. ¡Ah!, se ilumina la bombilla, una luz se enciende en tu cerebro, pero si tengo Repair MyWord.
Es una aplicación capaz de recuperar documentos corruptos del procesador de textos de Microsoft. Trabaja perfectamente con archivos creados con Word 6.0, 95, 97, 2000, XP y 2003. Es muy fácil de usar. Abre el documento corrupto, verás el texto que lo forma. Ahora sólo necesitas guardarlo o, en tu caso, imprimirlo. Sencillo, ¿no? ¿A qué esperas para descargar Repair MyWord y guardarlo en tu driver USB?
Noticia 3:
¿Has probado Netlog?
Seguro que eres joven, y si no lo eres, tampoco importa, necesitas conocer gente, comunicarte con personas que viven a tu lado o en el otro extremo del mundo. Para conseguirlo hoy disponemos de las redes sociales, esos sitios que permiten establecer relaciones, intercambios de experiencias, o simplemente ser fuentes de entretenimiento. En Internet hay una gran cantidad. Todos conocemos Myspace y Facebook, pero no son las únicas, hay muchas más. Netlog es una de éstas, pero no una cualquiera, es de las mejores, con 30 millones de miembros repartidos por todo el Planeta.
No vas a tener problemas con tu idioma, ya que Netlog los soporta todos o casi todos, entre ellos el castellano. Está claro que el primer paso que debes dar es el del registro. Así pasarás a formar parte de la comunidad, con opción de disfrutar de todas las herramientas disponibles en el sitio. Bajo tu propio perfil podrás crear tu blog o tu libro de visitas. Dispondrás de espacio para subir tus fotos y vídeos y compartirlas con tus amigos y conocidos. Únete a un clan, descubre la música más actual y los eventos con los que podrás disfrutar. El sitio permite utilizar diversas agendas de contactos: Hotmail, Window Live Messenger, Gmail, Yahoo! Mail, Aol Aim, Lycos, y algunas más. ¿Quieres probarlo? ¡No lo dudes!

semana 23 (Por Abi)

Noticia 1:Fuency Admin, theme para WordPress 2.5Aunque a mi no me desagrada del todo el nuevo diseño del panel de administración de WordPress 2.5, es cierto que es un poco feo a comparación de la actual versión. Y si bien la versión final de WordPress 2.5 aún no ha salido, en deanjrobinson.com han publicado Fluency Admin, un theme para el panel de administración.Únicamente funciona para WordPress 2.5, pero la versión final se publica hasta la próxima semana, así que lo más seguro es que este plugin no funcione correctamente en la última versión. Pero para los que usen la versión Beta y ya estén cansados del diseño por defecto, pueden utilizar Fuency Admin, que mejora mucho el diseño del panel y es parecido en su estructura a WP-Admin Tiger.
Noticia 2:
Aprovechando el trabajo de otrosAunque en un anotación anterior ya he comentado algunas cosas que no me gustan de Hipertextual o bien de Eduardo Arcos, me parece increíble que aún haya muchos trolls que lo único que hacen es intentar molestar a las personas que tienen éxito con sus proyectos, no sé si es por envidia, rencor, odio o simplemente por perder el tiempo, pero vaya ganas de molestar a los demás.Leyendo Therror me entero que el autor de ese blog publicó ‘Copypasteado‘. Se trata de un sitio en el cual se copian íntegros los Feeds de Hipertextual (defendiéndose bajo una Licencia Creative Commons) para ser una alternativa de fuente. Es decir, pretenden que en lugar de que se enlace a una anotación de un blog de Hipertextual, se haga pero con el dominio de Copypasteando. Según esto por que es muy malo que estas personas hagan un negocio con sus blogs y generen contenido a partir del de otro. Pero lo peor es que ellos hacen peor que eso y además ya encuentro comentarios de apoyo en otros blogs y con tontos argumentos.¿Estas personas aún no se han enterado de que van las redes de blogs comerciales?, como lector y editor de distintos blogs comerciales tan sólo veo a personas con poca información sobre Web y muy poca ética y respeto hacia el trabajo de los demás. Aunque por lo que comprendo no es tanto que tengan un problema con la explotación comercial de contenido, si no más bien con Eduardo Arcos. Pues no entiendo entonces por qué el autor de Copypasteado se molesta por ver tantos enlaces a ALT1040 o únicamente se hace un sitio con el contenido de Hipertextual y no con el de otra red de blogs, que todas funcionan igual.
Noticia 3:
Mañana se celebra en todo el mundo el Día de Internet. Una jornada en la que entidades públicas y privadas tratan de divulgar entre los ciudadanos las posibilidades que brindan las nuevas tecnologías. En total, más de 390 eventos tendrán lugar, tanto en la red como en emplazamientos físicos, en España y Latinoamérica, según explicó esta semana el Comité de Impulso del diadeinternet, Red.es y los patrocinadores del evento BBVA, Telefónica, Habbo y Madrid Tecnología.Además de concursos y talleres, como los organizados para que los más pequeños aprendan a realizar su propio blog o incluso a crear chapas con imágenes descargadas de internet, algunas empresas han lanzado ofertas comerciales para atraer a los internautas a hacer compras o abrirse una cuenta de ahorro a través de internet.La plataforma digital Bancopopular-e, por ejemplo, celebrará este día con una gratificación de 10 euros para aquellos que decidan abrir una cuenta corriente este sábado. La Caja de Ahorros de Guipúzcoa, Kutxa, ofrecerá hasta el 25 de mayo un depósito con una rentabilidad del 9% TAE a sus clientes que lo contraten a través del servicio online de la entidad.La Fnac tampoco ha querido perder esta ocasión y ha lanzado ofertas especiales para las compras que se realicen el 17 de mayo a través de su página web. Entre ellas, el envío de la compra gratis a casa o importantes descuentos en música y tecnología. El Corte Inglés también anima a los internautas a jugar a un escondite inglés. La compañía irá escondiendo en su página web www.elcorteingles.es 153 productos de diferentes secciones con grandes descuentos. ‘La rapidez será un factor clave para lograr compras por un valor mínimo, por eso, se podrán solicitar pistas, a través de SMS, que faciliten las búsquedas’, explica un portavoz de la empresa. Igualmente, los clientes de la tienda virtual Ultrapop! que se atrevan a comprar en su sitio web con tarjeta de crédito recibirá un pequeño obsequio.Antivirus y creación de webOtros ganchos comerciales para el día de internet tendrán que ver con la seguridad, con la prevención de los virus y el spam. En esta línea, Fénix Directo, junto con Panda, ofrecerá el sistema de protección Panda Internet Security 2008 gratis durante tres meses. ‘Como empresa de seguros, nos tomamos la seguridad de las personas muy en serio, y en internet hay que ser precavido y contar con la mejor protección posible’, afirman desde Fénix Directo.El proveedor alemán de alojamiento de páginas web Strato celebrará el evento de impulso a la tecnología invitando a todos los usuarios a probar gratuitamente el editor LivePages, que permite crear páginas web en pocos clics. La oferta de esta empresa se extenderá hasta finales de mayo.Junto a estas acciones de entidades privadas, las administraciones públicas han organizado un gran número de actos diferentes: concursos de vídeo, de blog, de fotografía, gincanas… que pueden consultarse en www.diadeinternet.org. Por ejemplo, Red.es, entidad dependiente del Ministerio de Industria, ha organizado varias actividades, entre ellas el sitio web Archivo de la Experiencia, que quiere recoger el testimonio de miles de españoles mayores de 55 años relatando en un vídeo un recuerdo de su vida. El proyecto lleva en marcha desde finales del pasado año, pero este sábado el equipo de esta web se instalará en la Casa de Las Américas de Madrid.El Ayuntamiento de Madrid, por su parte, ha puesto en marcha el proyecto Dale Vida a la Tecnología, con el fin de potenciar la donación de dispositivos tecnológicos en desuso, para que puedan ser usados por otras personas interesadas en ellos. Entre los objetivos de todos estos actos está incrementar la penetración social de internet. La población internauta en España, aunque ha crecido en los últimos años, se sitúa en el 43,7%, según el Estudio General de Medios, aún lejos de países como Finlandia, donde es del 70%.

calculadora por fer


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

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

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

Private Sub division_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "/"
Pantalla.Caption = ""
End Sub

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

Private Sub igual_Click()
If auxsigno.Caption = "+" Then
Pantalla.Caption = Val(Auxnro.Caption) + Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "-" Then
Pantalla.Caption = Val(Auxnro.Caption) - Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "*" Then
Pantalla.Caption = Val(Auxnro.Caption) * Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "/" Then
Pantalla.Caption = Val(Auxnro.Caption) / Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

End Sub

Private Sub mas_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "+"
Pantalla.Caption = ""
End Sub

Private Sub menos_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "-"
Pantalla.Caption = ""
End Sub

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

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

Private Sub por_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "*"
Pantalla.Caption = ""
End Sub

Private Sub punto_Click()
Pantalla.Caption = Pantalla.Caption + "."
End Sub

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

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

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

Private Sub uno_Click()
Pantalla.Caption = Pantalla.Caption + "1"
End Sub
Private Sub zero_Click()
Pantalla.Caption = Pantalla.Caption + "0"
End Sub
Private Sub Borrar_Click()
Pantalla.Caption = ""
End Sub

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

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

Private Sub division_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "/"
Pantalla.Caption = ""
End Sub

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

Private Sub igual_Click()
If auxsigno.Caption = "+" Then
Pantalla.Caption = Val(Auxnro.Caption) + Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "-" Then
Pantalla.Caption = Val(Auxnro.Caption) - Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "*" Then
Pantalla.Caption = Val(Auxnro.Caption) * Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "/" Then
Pantalla.Caption = Val(Auxnro.Caption) / Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

End Sub

Private Sub mas_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "+"
Pantalla.Caption = ""
End Sub

Private Sub menos_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "-"
Pantalla.Caption = ""
End Sub

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

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

Private Sub por_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "*"
Pantalla.Caption = ""
End Sub

Private Sub punto_Click()
Pantalla.Caption = Pantalla.Caption + "."
End Sub

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

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

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

Private Sub uno_Click()
Pantalla.Caption = Pantalla.Caption + "1"
End Sub
Private Sub zero_Click()
Pantalla.Caption = Pantalla.Caption + "0"
End Sub
Codigo de calculadora, por Bren y Joy

Private Sub borrador_Click()
visor.Caption = " "
End Sub

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

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

Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub

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

Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub


Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub

Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub

Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "*"
visor.Caption = " "
End Sub

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

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

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
End Sub

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

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

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

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

Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub


Captura de pantalla:

Calculadora por Joy


Captura de pantalla:













Codigo de calculadora:

Private Sub borrador_Click()
visor.Caption = " "
End Sub

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

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

Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub

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

Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub


Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub

Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub

Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "*"
visor.Caption = " "
End Sub

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

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

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
End Sub

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

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

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

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

Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Control, por Bren

Codigo de calculadora, por Bren y Joy

Private Sub borrador_Click()
visor.Caption = " "
End Sub

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

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

Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub

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

Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub


Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub

Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub

Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "*"
visor.Caption = " "
End Sub

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

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

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
End Sub

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

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

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

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

Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Captura del control:

Codigos de calculadora Visual Basic 1 (por Javier)

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
End Sub

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

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

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

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

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

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "-"
pantalla.Caption = ""
End Sub

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

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

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

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

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

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

codigos calculadora, por gonzi

hola gente aca les dejo los codigos saludos+
+

Private Sub Command5_Click()
End Sub
Private Sub Command6_Click()
End Sub
Private Sub borrar_Click()visor = ""End Sub
Private Sub cero_Click()visor.Caption = visor.Caption + "0"End Sub
Private Sub cinco_Click()visor.Caption = visor.Caption + "5"End Sub
Private Sub cuatro_Click()visor.Caption = visor.Caption + "4"End Sub
Private Sub dividido_Click()auxnro.Caption = visor.Captionauxoper.Caption = "/"visor.Caption = ""End Sub
Private Sub dos_Click()visor.Caption = visor.Caption + "2"End Sub
Private Sub igual_Click()If auxoper.Caption = "+" Thenvisor.Caption = Val(auxnro.Caption) + Val(visor.Caption)End IfIf auxoper.Caption = "-" Thenvisor.Caption = Val(auxnro.Caption) - Val(visor.Caption)End IfIf auxoper.Caption = "*" Thenvisor.Caption = Val(auxnro.Caption) * Val(visor.Caption)End IfIf auxoper.Caption = "/" Thenvisor.Caption = Val(auxnro.Caption) / Val(visor.Caption)End If
End Sub
Private Sub mas_Click()auxnro.Caption = visor.Captionauxoper.Caption = "+"visor.Caption = ""End Sub
Private Sub menos_Click()auxnro.Caption = visor.Captionauxoper.Caption = "-"visor.Caption = ""End Sub
Private Sub nueve_Click()visor.Caption = visor.Caption + "9"End Sub
Private Sub ocho_Click()visor.Caption = visor.Caption + "8"End Sub
Private Sub por_Click()auxnro.Caption = visor.Captionauxoper.Caption = "*"visor.Caption = ""End Sub
Private Sub punto_Click()visor.Caption = visor.Caption + "."End Sub
Private Sub seis_Click()visor.Caption = visor.Caption + "6"End Sub
Private Sub siete_Click()visor.Caption = visor.Caption + "7"End Sub
Private Sub tres_Click()visor.Caption = visor.Caption + "3"End Sub
Private Sub uno_Click()visor.Caption = visor.Caption + "1"End Sub

Calculadora (por Teo y Darío)

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

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

Private Sub coma_Click()
visor.Caption = visor.Caption + "."
End Sub

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

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

Private Sub igual_Click()
If auxoper.Caption = "+" Then
visor.Caption = Val(auxnro.Caption) + Val(visor.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
visor.Caption = Val(auxnro.Caption) - Val(visor.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = visor.Caption
auxoper.Caption = "+"
visor.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = visor.Caption
auxoper.Caption = "-"
visor.Caption = ""
End Sub

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

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

Private Sub ONCE_Click()
visor.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
End Sub

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

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

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

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

Codigo de control, Por Bren

Codigo de control por Yaz, Joy y Bren

Private Sub Command7_Click()
End Sub
Private Sub anterior_Click()
End Sub
Private Sub brillomas_Click()tv.Left = tv.Left + 100auxiliar.Left = auxiliar.Left + 100base.Left = base.Left + 100nrocanal.Left = nrocanal.Left + 100onoff.Left = onoff.Left + 100tvcatv.Left = tvcatv.Left + 100End Sub
Private Sub cero_Click()auxiliar.Caption = auxiliar.Caption + "0"End Sub
Private Sub cinco_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub
Private Sub Command1_Click()
End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub Label2_Click()
End Sub
Private Sub enter_Click()nrocanal.Caption = auxiliarauxiliar.Caption = ""End Sub
Private Sub form2_Click()tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub mascanal_Click()If nrocanal.Caption > 12 Then If tvcatv.Caption = "tv" Then nrocanal.Caption = 1Else nrocanal.Caption = 1End IfElse nrocanal.Caption = nrocanal.Caption + 1End IfEnd Sub
Private Sub massonido_Click()
End Sub
Private Sub masvolumen_Click()tv.Top = tv.Top + 100auxiliar.Top = auxiliar.Top + 100base.Top = base.Top + 100nrocanal.Top = nrocanal.Top + 100tvcatv.Top = tvcatv.Top + 100onoff.Top = onoff.Top + 100
End Sub
Private Sub menosbrillo_Click()tv.Left = tv.Left - 100auxiliar.Left = auxiliar.Left - 100base.Left = base.Left - 100nrocanal.Left = nrocanal.Left - 100onoff.Left = onoff.Left - 100tvcatv.Left = tvcatv.Left - 100
End Sub
Private Sub menoscanal_Click()If nrocanal.Caption < 1 Then If tvcatv.Caption = "tv" Then nrocanal.Caption = 13Else nrocanal.Caption = 130End IfElse nrocanal.Caption = nrocanal.Caption - 1End IfEnd Sub
Private Sub menosvolumen_Click()tv.Top = tv.Top - 100auxiliar.Top = auxiliar.Top - 100base.Top = base.Top - 100nrocanal.Top = nrocanal.Top - 100tvcatv.Top = tvcatv.Top - 100onoff.Top = onoff.Top - 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 = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = False
End Sub
Private Sub offon_Click()If uno.Enabled = True Then 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 enter.Enabled = False masvolumen.Enabled = False menosvolumen.Enabled = False brillomas.Enabled = False menosbrillo.Enabled = False mascanal.Enabled = False menoscanal.Enabled = False form2.Enabled = False tvctv1.Enabled = False Else 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 enter.Enabled = True masvolumen.Enabled = True menosvolumen.Enabled = True brillomas.Enabled = True menosbrillo.Enabled = True mascanal.Enabled = True menoscanal.Enabled = True form2.Enabled = True tvctv1.Enabled = True End If

End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "tv"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnd 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 tv1_Click(Index As Integer)tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub tvcatv2_Click()If tvcatv.Caption = form2.Caption Then tvcatv.Caption = tvctv1.CaptionElse tvcatv.Caption = form2.Caption
End IfEnd Sub
Private Sub tvctv1_Click()tvcatv.Caption = tvcatvtvcatv = "tvcatv"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

Codigos calculadora (por alan)

Private Sub Command5_Click()
End Sub
Private Sub Command6_Click()
End Sub
Private Sub borrar_Click()visor = ""End Sub
Private Sub cero_Click()visor.Caption = visor.Caption + "0"End Sub
Private Sub cinco_Click()visor.Caption = visor.Caption + "5"End Sub
Private Sub cuatro_Click()visor.Caption = visor.Caption + "4"End Sub
Private Sub dividido_Click()auxnro.Caption = visor.Captionauxoper.Caption = "/"visor.Caption = ""End Sub
Private Sub dos_Click()visor.Caption = visor.Caption + "2"End Sub
Private Sub igual_Click()If auxoper.Caption = "+" Thenvisor.Caption = Val(auxnro.Caption) + Val(visor.Caption)End IfIf auxoper.Caption = "-" Thenvisor.Caption = Val(auxnro.Caption) - Val(visor.Caption)End IfIf auxoper.Caption = "*" Thenvisor.Caption = Val(auxnro.Caption) * Val(visor.Caption)End IfIf auxoper.Caption = "/" Thenvisor.Caption = Val(auxnro.Caption) / Val(visor.Caption)End If
End Sub
Private Sub mas_Click()auxnro.Caption = visor.Captionauxoper.Caption = "+"visor.Caption = ""End Sub
Private Sub menos_Click()auxnro.Caption = visor.Captionauxoper.Caption = "-"visor.Caption = ""End Sub
Private Sub nueve_Click()visor.Caption = visor.Caption + "9"End Sub
Private Sub ocho_Click()visor.Caption = visor.Caption + "8"End Sub
Private Sub por_Click()auxnro.Caption = visor.Captionauxoper.Caption = "*"visor.Caption = ""End Sub
Private Sub punto_Click()visor.Caption = visor.Caption + "."End Sub
Private Sub seis_Click()visor.Caption = visor.Caption + "6"End Sub
Private Sub siete_Click()visor.Caption = visor.Caption + "7"End Sub
Private Sub tres_Click()visor.Caption = visor.Caption + "3"End Sub
Private Sub uno_Click()visor.Caption = visor.Caption + "1"End Sub

CALCULADORA DE VISUAL BASIC POR MARCOS

Private Sub BARRA_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "/"
visor.Caption = ""
End Sub

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

Private Sub CERO_Click()
visor.Caption = visor.Caption + "0"
End Sub

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

Private Sub COMA_Click()
visor.Caption = visor.Caption + "."
End Sub

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

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

Private Sub IGUAL_Click()
If AUXILIARDOS.Caption = "+" Then
visor.Caption = Val(AUXILIAR.Caption) + Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
If AUXILIARDOS.Caption = "-" Then
visor.Caption = Val(AUXILIAR.Caption) - Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
If AUXILIARDOS.Caption = "*" Then
visor.Caption = Val(AUXILIAR.Caption) * Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
If AUXILIARDOS.Caption = "/" Then
visor.Caption = Val(AUXILIAR.Caption) / Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
End Sub

Private Sub MAS_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "+"
visor.Caption = ""
End Sub

Private Sub MENOS_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "-"
visor.Caption = ""
End Sub

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

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

Private Sub POR_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "*"
visor.Caption = ""
End Sub

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

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

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

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

Codigo de la calculadora (Por Kevin H.)


Private Sub borrar_Click()Visor.Caption = ""aux1.Caption = ""aux2.Caption = ""End Sub
Private Sub cero_Click()Visor.Caption = Visor.Caption + "0"End Sub
Private Sub cinco_Click()Visor.Caption = Visor.Caption + "5"End Sub
Private Sub coma_Click()Visor.Caption = Visor.Caption + "."End Sub
Private Sub cuatro_Click()Visor.Caption = Visor.Caption + "4"End Sub
Private Sub dividir_Click()aux1.Caption = Visor.Captionaux2.Caption = "/"Visor.Caption = ""End Sub
Private Sub dos_Click()Visor.Caption = Visor.Caption + "2"End Sub
Private Sub igual_Click()If aux2.Caption = "+" ThenVisor.Caption = Val(aux1.Caption) + Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "-" ThenVisor.Caption = Val(aux1.Caption) - Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "/" ThenVisor.Caption = Val(aux1.Caption) / Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "*" ThenVisor.Caption = Val(aux1.Caption) * Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfEnd Sub
Private Sub mas_Click()aux1.Caption = Visor.Captionaux2.Caption = "+"Visor.Caption = ""End Sub
Private Sub menos_Click()aux1.Caption = Visor.Captionaux2.Caption = "-"Visor.Caption = ""End Sub
Private Sub multiplicar_Click()aux1.Caption = Visor.Captionaux2.Caption = "*"Visor.Caption = ""End Sub
Private Sub nueve_Click()Visor.Caption = Visor.Caption + "9"End Sub
Private Sub ocho_Click()Visor.Caption = Visor.Caption + "8"End Sub
Private Sub seis_Click()Visor.Caption = Visor.Caption + "6"End Sub
Private Sub siete_Click()Visor.Caption = Visor.Caption + "7"End Sub
Private Sub tres_Click()Visor.Caption = Visor.Caption + "3"End Sub
Private Sub uno_Click()Visor.Caption = Visor.Caption + "1"End Sub

Calculadora (por Bruno y Ezequiel)

Private Sub Command5_Click()
End Sub
Private Sub Command4_Click()
End Sub
Private Sub borrar_Click()numeros.Caption = ""End Sub
Private Sub Command1_Click()
End Sub
Private Sub dividir_Click()aux1.Caption = numeros.Captionaux2.Caption = "/"numeros.Caption = ""End Sub
Private Sub igual_Click()If aux2.Caption = "+" Thennumeros.Caption = Val(aux1.Caption) + Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "-" Thennumeros.Caption = Val(aux1.Caption) - Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "*" Thennumeros.Caption = Val(aux1.Caption) * Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "/" Thennumeros.Caption = Val(aux1.Caption) / Val(numeros.Caption)aux1.Caption = ""aux2.Caption = ""End IfEnd Sub
Private Sub mas_Click()aux1.Caption = numeros.Captionaux2.Caption = "+"numeros.Caption = ""End Sub
Private Sub menos_Click()aux1.Caption = numeros.Captionaux2.Caption = "-"numeros.Caption = ""End Sub
Private Sub multiplicar_Click()aux1.Caption = numeros.Captionaux2.Caption = "*"numeros.Caption = ""End Sub
Private Sub n0_Click()numeros.Caption = numeros.Caption + "0"End Sub
Private Sub n1_Click()numeros.Caption = numeros.Caption + "1"End Sub
Private Sub n2_Click()numeros.Caption = numeros.Caption + "2"End Sub
Private Sub n3_Click()numeros.Caption = numeros.Caption + "3"End Sub
Private Sub n4_Click()numeros.Caption = numeros.Caption + "4"End Sub
Private Sub n5_Click()numeros.Caption = numeros.Caption + "5"End Sub
Private Sub n6_Click()numeros.Caption = numeros.Caption + "6"End Sub
Private Sub n7_Click()numeros.Caption = numeros.Caption + "7"End Sub
Private Sub n8_Click()numeros.Caption = numeros.Caption + "8"End Sub
Private Sub n9_Click()numeros.Caption = numeros.Caption + "9"End Sub
Private Sub punto_Click()numeros.Caption = numeros.Caption + "."End Sub


Calculador (por Kumo!)


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

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

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

Private Sub division_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "/"
Pantalla.Caption = ""
End Sub

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

Private Sub igual_Click()
If auxsigno.Caption = "+" Then
Pantalla.Caption = Val(Auxnro.Caption) + Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "-" Then
Pantalla.Caption = Val(Auxnro.Caption) - Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "*" Then
Pantalla.Caption = Val(Auxnro.Caption) * Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "/" Then
Pantalla.Caption = Val(Auxnro.Caption) / Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

End Sub

Private Sub mas_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "+"
Pantalla.Caption = ""
End Sub

Private Sub menos_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "-"
Pantalla.Caption = ""
End Sub

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

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

Private Sub por_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "*"
Pantalla.Caption = ""
End Sub

Private Sub punto_Click()
Pantalla.Caption = Pantalla.Caption + "."
End Sub

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

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

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

Private Sub uno_Click()
Pantalla.Caption = Pantalla.Caption + "1"
End Sub
Private Sub zero_Click()
Pantalla.Caption = Pantalla.Caption + "0"
End Sub

codigos de calculadora 1 (por Abi)

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
End Sub

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

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

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

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

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

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "-"
pantalla.Caption = ""
End Sub

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

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

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

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

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

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

Codigo Calculadora (Por Vicky y Denu)

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

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

Private Sub coma_Click()
visor.Caption = visor.Caption + "."
End Sub

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

Private Sub dividido_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "/"
visor.Caption = ""
End Sub

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

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

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

Private Sub mas_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "+"
visor.Caption = ""
End Sub

Private Sub menos_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "-"
visor.Caption = ""
End Sub

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

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

Private Sub por_Click()
auxiliar1.Caption = visor.Caption
auxiliar2.Caption = "*"
visor.Caption = ""
End Sub

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

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

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

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

Codigo Visual Basic

Private Sub borrar_Click()barra.Caption = " "End Sub
Private Sub cero_Click()barra.Caption = barra.Caption + "0"End Sub
Private Sub cinco_Click()barra.Caption = barra.Caption + "5"End Sub
Private Sub cuatro_Click()barra.Caption = barra.Caption + "4"End Sub
Private Sub diagonal_Click()auxnro.Caption = barra.Captionauxopr.Caption = "/"barra.Caption = ""End Sub
Private Sub dos_Click()barra.Caption = barra.Caption + "2"End Sub
Private Sub igual_Click()If auxopr.Caption = "+" Thenbarra.Caption = Val(auxnro.Caption) + Val(barra.Caption)auxnro.Caption = ""auxopr.Caption = ""End IfIf auxopr.Caption = "-" Thenbarra.Caption = Val(auxnro.Caption) - Val(barra.Caption)auxnro.Caption = ""auxopr.Caption = ""End IfIf auxopr.Caption = "*" Thenbarra.Caption = Val(auxnro.Caption) * Val(barra.Caption)auxnro.Caption = ""auxopr.Caption = ""End IfIf auxopr.Caption = "/" Thenbarra.Caption = Val(auxnro.Caption) / Val(barra.Caption)auxnro.Caption = ""auxopr.Caption = ""End IfEnd Sub
Private Sub mas_Click()auxnro.Caption = barra.Captionauxopr.Caption = "+"barra.Caption = ""End Sub
Private Sub menos_Click()auxnro.Caption = barra.Captionauxopr.Caption = "-"barra.Caption = ""End Sub
Private Sub multiplicar_Click()auxnro.Caption = barra.Captionauxopr.Caption = "*"barra.Caption = ""End Sub
Private Sub nueve_Click()barra.Caption = barra.Caption + "9"End Sub
Private Sub ocho_Click()barra.Caption = barra.Caption + "8"End Sub
Private Sub seis_Click()barra.Caption = barra.Caption + "6"End Sub
Private Sub siete_Click()barra.Caption = barra.Caption + "7"End Sub
Private Sub tres_Click()barra.Caption = barra.Caption + "3"End Sub
Private Sub uno_Click()barra.Caption = barra.Caption + "1"End Sub

Wednesday, September 24, 2008

Semana 20 (por Teo)




Artículo 1:


Dell Mini 9: primeras impresiones


A unas semanas de que el Dell Mini 9 esté por fin disponible en España hemos tenido la oportunidad de probarlo durante un breve tiempo, con lo que ya os podemos traer nuestras primeras impresiones.













Artículo 2:



Nokia 5800 Xpressmedia, foto y posibles especificaciones

La foto de arriba podría ser la oficial de prensa que Nokia mostrará la semana que viene en la presentación del Nokia 5800 XpressMedia. Es ya prácticamente vox populi que el Nokia Tube se presentará el próximo 2 de octubre.














Artículo 3:



S3 Graphics Chrome 400 ULP, gráficas para

ultraportátiles





Como sabéis, la batería es uno de los factores determinantes en un ultraportátil. Para ello, los fabricantes optan por montar en sus equipos diferentes procesadores de bajo consumo, como el Intel Atom o el Via Nano. Ahora, S3 Graphics ha anunciado que también ofrece a los fabricantes sus nuevas GPU para portátiles y ultraportátiles.

Semana 21 (por Telma)

Asus lanzará nuevas portátiles que soportarán 120cc de líquidos




Asus no para de agregar características increíblemente útiles a su serie de portátiles. Esta vez la gente de la empresa china reveló que fabricará una nueva serie de laptops llamada B50a. ¿Qué tiene de novedoso? Que si le vuelcas hasta 120cc de líquidos no le pasará absolutamente nada.

Además tendrá escáner biométrico, booteará en menos de 8 segundos gracias a ExpressGate, un sistema que acelera el arranque de las computadoras y, finalmente, un procesador Centrino 2.



Estás tomando agua y accidentalmente se te vuela (hasta 12occ). Buena idea.



Este es el link.



















Alarma despertador luminosa
















El Jumbo Alarm Clock, como su nombre dice, es una alarma despertador rectangular que mostrará la hora a través de LEDs.
Mide 235×72x60mm, pesa 340g y podrás comprarlo a través de gadget4all por US$59.





Otra forma de despertarse.





Este es el link.














Pad de tetas





¿Hay algo más lindo a la vista de una persona que le gusten las mujeres que dos lindos pechos? Al menos yo, tengo que responder que no, no hay nada más lindo. ¿Y si encima puedes presionarlos? Bueno, eso ya sería demasiado.
Parece que la gente que creó este gadget piensa igual que yo porque crearon un mouse y pad con forma de torso de mujer. Lo más gracioso del mundo que los botones son los respectivos pezones

Muho diseño. Muy simpático.


Este es el link.

Codigos de Visual Basic II ( Por Denu y Vicky)

Private Sub anterior_Click()
End Sub
Private Sub brillomas_Click()
TV.Left = TV.Left + 100
End Sub
Private Sub brillomenos_Click()
TV.Left = TV.Left - 100
End Sub
Private Sub canalmas_Click()
If tvcatv.Caption = "TV" Then
If Numerocanal.Caption < 13 Then
Numerocanal.Caption = Numerocanal.Caption + 1
Else
Numerocanal.Caption = 1
End If
Else
If Numerocanal.Caption < 120 Then
Numerocanal.Caption = Numerocanal.Caption + 1
Else
Numerocanal.Caption = 1
End If
End If
End Sub
Private Sub canalmenos_Click()
If Numerocanal.Caption < 1 Then
If tvcatv.Caption = "TV" Then
Numerocanal.Caption = 13
Else
Numerocanal.Caption = 120
End If
Else

Numerocanal.Caption = Numerocanal.Caption - 1
End If
End Sub
Private Sub catv_Click()
tvcatv = "CATV"

End Sub
Private Sub cero_Click()
Auxiliar.Caption = Auxiliar.Caption + "0"
End Sub
Private Sub cinco_Click()
Auxiliar.Caption = Auxiliar.Caption + "5"
End Sub
Private Sub Combo1_Change()
End Sub
Private Sub Command1_Click()
End Sub
Private Sub cuatro_Click()
Auxiliar.Caption = Auxiliar.Caption + "4"
End Sub
Private Sub dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub enter_Click()
Auxiliar.Caption = Auxiliar.Caption
Numerocanal = ""
Numerocanal.Caption = Auxiliar.Caption
Auxiliar = ""
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()
Numerocanal.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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Auxiliar.Caption = ""

End Sub
Private Sub on_Click()
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
End Sub
Private Sub onoff1_Click()
If uno.Enabled = False Then
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Else
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
End If

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 sonidomas_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100

End Sub
Private Sub sonidomenos_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub
Private Sub tvcatv1_Click()
End Sub
Private Sub tv1_Click()

tvcatv = "TV"


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

Semana 22 ( Por Javier)






Noticia 1:Drupal Links 217/03/2008 9:58 CET Drupal 6 comentariosMuchas novedades en este último mes, ha costado resumirlas todas y aún así hay sobredosis informativa. Y también muchos sitios nuevos hechos con Drupal en español.Salió Drupal 6, como ya contamos por aquí. También una primera versión de corrección (6.1). Nos cuentan cómo instalar Drupal 6 con detalle en la Unión de Bloggers Hispanos.También apareció la primera distribución comercial basada en Drupal 6 de la mano de Acquia, la empresa de Dries Buytaert. Se llama Carbon y, además del núcleo, cuenta con un buen número de módulos para construir el sitio web.Completo inventario de funciones tematizables de la mano de DrupalMex, un nuevo sitio sobre Drupal en español.Se ha celebrado la DrupalCon de Boston. Uno de los recursos más interesantes que nos han dejado es el Showcase Contest Entries: un concurso que premiará al mejor “como se hizo este sitio web con Drupal”. Hay muchos casos ya publicados y merece la pena verlos (eso si, la página tarda un poco en cargar). Otro caso de estudio para leerse con calma: Popular Science Magazine Case StudyUna iniciativa que merecería un artículo propio: Proyecto web municipal de la Diputación de Castellón para facilitar a los ayuntamientos la posibilidad de tener su propia web basada en software libre.Dos tutoriales para personalizar nuestros grupos (Organic Groups): Contextual Group Calendar Using Calendar module, Views and Panels 2 (calendarios personalizados para cada grupo) y Panels 2 and Organic groups - the early years (portada de las páginas del grupo gestionadas con Panels 2)Guía de Taxonomy Access Control, un módulo para gestionar el control de acceso por taxonomías en Cocinando con Drupal.Ofertas de empleo: Experto en Drupal para idealista.com y socios, colaboradores, desarrolladores para unipropiedades.com.ar.Módulos: SuperNav (menú personalizado de navegación para el administrador), QuickTabs (contrucción de bloques con pestañas), Activity (ver la actividad de mis contactos en el sitio), OpenPackageVideo (palataforma para insertar vídeos), Lightbox V2 (para ver imágenes en grande de forma elegante -demo-)Hecho con Drupal: Unipropiedades.com.ar (algunos detalles), Lo que pasa en Tenerife, Canal Extremadura, conTalento, Ayuntamiento de Cáceres, Juventudes Socialistas, Joan Herrera, OpenAvatar, Greenopolis y más sitios de ONG’s hechos con Drupal
http://5lineas.com/
Noticia 2:
WPDesigner Themes ClubEn lo personal me gustan muchos los diseños de WPDesigner, y aunque no utilizo ninguno de ellos puesto que prefiero hacer mi propio trabajo, me parecen excelentes para aquellos que buscan themes para WordPress. Hace unos días, se lanzó el WPDesigner Themes Club, un “club” de diseños para WordPress.Pero a diferencia de otros sitios en donde se paga una suscripción para obtener plantillas en XHTML/CSS o para CMSs, en el WPDesigner Theme Club únicamente se paga por una suscripción anual de $5 dólares, en la que por lo menos es seguro un diseño nuevo por mes. Además no hay necesidad de pagar por una licencia de desarollador para poder utilizar la plantilla comercialmente.A mi me ha gustado bastante la propuesta y no he dudado en probarla. Y aunque de momento sólo está disponible un theme para WordPress, al igual que los otros de WPDesigner está bastante bien trabajado y se incluye el respectivo PSD para los gráficos.
http://www.vidablog.com/
Noticia 3:
10JunApple presenta su iPhone 3G, que llegará a España con Movistar el próximo 11 de julioPosted by Javier Publicado en Noticias, HardwareEl teléfono es más delgado, con GPS, batería de larga duración y carcasa de plásticoEl nuevo iPhone se lanzará en 22 países el próximo 11 de julio, España incluidoSale a mitad de precio que el modelo anterior en sus dos configuracionesMADRID.- Al final, se despejaron las dudas. En la Conferencia Mundial de Desarrolladores que Apple celebra en San Francisco, Steve Jobs ha presentado la nueva versión de su dispositivo fetiche, y se confirma que es 3G, más delgado, con GPS, batería de larga duración y carcasa de plástico negra o blanca. Y a mitad de precio que el actual.Se trata de la presentación de la esperada versión del dispositivo mezcla de móvil, iPod y buscador de Internet, casi un año después de que sacara a la venta la primera.Según anunció Jobs ante un público entregado, el iPhone saldrá el próximo 11 de julio en 22 países; Alemania, Australia, Austria, Bélgica, Canadá, Dinamarca, EEUU, España, Finlandia, Francia, Holanda, Hong Kong, Irlanda, Italia, Japón, México, Nueva Zelanda, Noruega, Portugal, Reino Unido, Suecia y Suiza. La intención es llegar a 70 países este mismo año.En España, se venderá en las tiendas de Telefónica, en total habrá más de 3.500 puntos de venta para distribuir el teléfono. El primer lugar será en Madrid, en una nueva tienda de Apple que se abrirá en la calle Gran Vía a principios de julio.Los clientes de Telefónica que quieran que quierean hacerse con el iPhone 3G pueden registrarse en la página www.movistar.es/iphone.Y el lanzamiento se realiza a mitad de precio respecto del modelo anterior en EEUU. La configuración de 8 GB costará en EEUU 199 dólares (el modelo antiguo se vendía por 399 dólares), mientras que la de 16 GB valdrá 299 dólares.Jobs, ante la característica parte trasera del dispositivo. (Foto: AP)El presidente de Apple aseguró en la presentación que es un 35% más rápido que el Nokia N95. Además, añadió que la batería aguanta 10 horas de conversación telefónica en redes 2G y de cinco horas usando 3G, hasta 5 ó 6 horas de navegación web, hasta siete horas de reproducción de vídeo y hasta 24 horas de reproducción de audio. El dispositivo incluye un sistema de navegación GPS vía satélite.Apple ha vendido seis millones de iPhones, según desveló Jobs. Los analistas creen que esta parte del negocio podría alcanzar el tamaño de su equivalente en ordenadores, el Macintosh, o del iPod.‘Software’En cuanto al ’software’, la versión 2.0 del iPhone, un “gran paso adelante”, según Jobs, ha implicado a miles de trabajadores de la compañía. El nuevo dispositivo lo incluye, y está disponible gratis para usuarios actuales del iPhone. Utiliza el mismo núcleo del sistema que Mac OS X.El presidente de Apple habló del kit de desarrollo de ’software’ (SDK) del dispositivo, en cuyo desarrollo la compañía de la manzana ha escuchado a directivos y empleados de otras empresas para conocer sus necesidades reales.Asimismo, mostró las interfaces de programación de aplicaciones (APIs). Varias compañías mostraron aplicaciones para el teléfono, como SEGA, Digital Legends, Pangea Software (éstas tres empresas presentaron juegos), eBay, Loopt -una específica para encontrar amigos cercanos-, TypePad, Band -un simulador independiente de instrumentos musicales-, dos aplicaciones médicas y Associated Press, entre otras.Gracias a este último servicio, llamado ‘Mobile News Network’, se pueden recibir automáticamente informaciones locales de la agencia AP relacionadas con el lugar en el que se encuentre físicamente el usuario, además de imágenes y vídeo. La aplicación es gratuita.Las aplicaciones estarán disponibles en 62 países a través de la ‘App Store’ del iPhone, que funciona sobre redes de telefonía móvil y Wi-Fi. Si la aplicación es menor que 10 MB se podrá descargar a través de la red móvil.El dispositivo contará con ‘Push notification service’, para no tener procesos activos en segundo plano, algo muy perjudicial para la batería. Estará disponible a partir de septiembre para todos los desarrolladores.‘MovilMe’Por último, ‘MobileMe’, un sistema que sustituye a .mac y que envía vía Internet en modo ‘push’ tanto el correo electrónico como las actualizaciones de contactos y calendario, directamente a aplicaciones nativas del iPhone, iPod touch, Macs y PC: toda una declaración de guerra a BlackBerry.Sincroniza así los distintos dispositivos (iPhone, Mac, PC): fotos, correo electrónico, agenda, calendarios y documentos. “Hay que pensar en ‘MobileMe’ como el ‘Exchange’ para el resto de nosotros”, afirmó Steve Jobs.Este servicio funciona por suscripción anual con 20 GB de almacenamiento y cuyo precio en España es de 79 euros al año para usuarios individuales y 119 euros al año en el caso del Family Pack, que incluye una cuenta maestra con 20 GB de espacio de almacenamiento y cuatro cuentas para familiares con 5 GB de almacenamiento cada una.
http://www.dataland.es/

Monday, September 22, 2008

Semana 21, por Bren

Salud en Primavera


“La primavera, la sangre altera”. Con la llegada de la primavera, la naturaleza parece estar en completa ebullición. Sin embargo, son muchas las personas que con el comienzo de esta estación se sienten cansadas o alicaídas, tanto física como psíquicamente. Es la llamada astenia primaveral, un trastorno leve y pasajero que se puede superar sin tratamiento. Para ello, es fundamental un diagnóstico preciso del médico de familia. Llevar una dieta equilibrada, dormir las horas necesarias, practicar ejercicio moderado y mantener una vida ordenada constituyen la mejor prevención para las personas más sensibles a los cambios estacionales.





El Gran Colisionador de Hadrones (LHC) que comenzó a funcionar hace diez días en lo que debe ser el mayor experimento científico del siglo, estará fuera de servicio durante al menos dos meses debido a una fuga de helio, según informó el Laboratorio Europeo de Física de Partículas.



“Che, Bandoneón”, Homenaje al fuelle y sus intérpretes. Se contará con la presencia de los mayores exponentes del bandoneón en la ciudad y la región, como es el caso de Antonio Volpe, Aníbal Vitali y Víctor Alarcón; participará también el quinteto de bandoneones “De Yapa”, integrado por Nicolás Malbos, Pablo Amado, Julián Mansilla, Sebastián Moriones y Pinky Fernández en Contrabajo. Además contaremos con la presencia especial del Maestro Néstor Marconi.

Semana 20, por Bren

Gobierno argentino pide “creer en fortaleza” del país ante alarma por crisisBuenos Aires, (EFE).- El Gobierno argentino llamó a sus ciudadanos a “creer en las fortalezas” de la economía local frente a la preocupación expresada por la crisis financiera desatada en los Estados Unidos. “Creamos en nuestras fortalezas. Mucho de la economía es expectativa y en la medida que uno crea sobre la base de datos concretos como tiene Argentina, el país puede llegar a salir muy bien” de esta coyuntura internacional, dijo en declaraciones radiales el secretario de Finanzas, Hernán Lorenzino.
Miles de pingüinos magallánicos llegan por estos días a las remotas costas de la provincia de Chubut, en el sureste de Argentina, donde se encuentra la mayor reserva continental de esta especie del mundo, y hoy el espectáculo natural se puede seguir en directo a través de internet.


Si usted suele reaccionar más sensiblemente a los ruidos nocturnos, las arañas sobre su cuerpo o la imagen de una persona accidentada, lo más probable es que prefiera la política de derecha. Si de lo contrario, usted suele ser más calmado ante ruidos o imágenes inquietantes, quizás apoya a la izquierda. Esa es la conclusión de un nuevo estudio llevado a cabo en Estados Unidos que afirma que nuestras opiniones políticas son parte integral de nuestra formación física.

Sunday, September 21, 2008

Semana 22 (Por Abi)

Noticia 1:
Recupera tu notebook robado con Adeona14
Sep
2008
Si estas pensando en Adeona como una solución magica para la recuperación de tu notebook robado, lamentablemente no es así, como siempre debemos previnir antes que pasen estos desagradables percances, ahora que ya sabemos que NO es adeona, podemos hablar de lo que si, es, y al parecer es bastante y muy útil.

Adeona es un servicio/software opensource, patrocinado por la Universidad de Washington, para que podamos realizar un seguimiento de la localización de un portátil perdido o robado.



Puede que existan servicios similares con la gran diferencia que este es totalmente gratuito y la aplicación realiza un gran esfuerzo para garantizar la privacidad de los datos, de forma que nadie excepto el propietario del ordenador pueda acceder a la información registrada.

El funcionamiento es bastante sencillo. se instala en nuestro equipo un pequeño software agente(disponible para Windows Vista y XP, Linux y Mac OS X). La instalación es muy rápida y solo nos pide donde hay que instalar el programa y la contraseña de protección de acceso a los datos.

La instalación genera un archivo de configuración, denominado adeona-retrievecredentials.ost. Esta será nuestra llave, conjuntamente con la contraseña que ingresamos durante la instalación, para poder acceder a los datos de localización del notebook.

Este servicio registra la información de la IP y otros datos básicos acerca la conexión con Internet.

Si alguna vez perdemos el ordenador, bueno que perderlo, si directamente nos los roban o nuestra ex-novia vengativa lo secuestra, podemos utilizar el programa de recuperación. Nos pedirá que facilitemos el archivo adeona-retrievecredentials.ost generado durante la instalación, así como la contraseña. Con esta información recuperará de los servidores donde se almacenan los datos de conexiones, lo que nos permitirá recuperar la información de donde está conectado el equipo.

Si utlizas MacOSX incluso nos permite enviarnos un foto de quien esta usando el equipo mediante la webcam, jodidamente bueno, con esto ya sabemos a quien debemos darle un par de palos. A cuidarse ladronzuelos ya sabemos donde estas!

Noticia 2:
Consigue una licencia de bitdefender 2008 por 1 año!12
Sep
2008
Una excelente suite de seguridad que nos ofrece bitdefender, totalmente gratis con solo poner nuestro nombre y mail, nos enviaran un correo electronico con nuestra licencia por 1 año, la cual podemos activar hasta en 3 meses, también nos estregan el link de descarga, puede ser mas facil?.

Para conseguir la licencia haz click aquí

Una pequeña descripción de Bitdefender Internet Security 2008



BitDefender Internet Security 2008
Disfrute de su familia y comparta con ellos su tiempo cuando esté fuera de casa, dando un nivel de seguridad determinado con un solo clic del ratón, adecuándose a diferentes lugares: en su hogar, de vacaciones o en un hotel trabajando.

Deje que sus hijos disfruten de sus ordenadores sin peligro de que se conecten a páginas con contenido adulto; aprovechando sus horas de estudio limitándoles la conexión web durante unas horas determinadas. BitDefender cuida de los suyos para que la tecnología se diluya en su vida cotidiana.

Incluye:
Antivirus: Protege su ordenador frente a virus y otro tipo de malware.
Antirootkit: Limpieza y desinfección de rootkits, incluso si ya han infectado al sistema.
Cortafuego: Mantiene a los intrusos alejados y controla el acceso de las aplicaciones a Internet.
Antispam: Bloquea el correo no deseado y las tentativas de Phishing.
Antispyware: Monitoriza y bloquea amenazas potenciales de spyware en tiempo real.
Control Parental: Controla y limita el acceso al contenido web y aplicaciones.

Noticia 3:
Consigue una licencia de bitdefender 2008 por 1 año!12
Sep
2008
Una excelente suite de seguridad que nos ofrece bitdefender, totalmente gratis con solo poner nuestro nombre y mail, nos enviaran un correo electronico con nuestra licencia por 1 año, la cual podemos activar hasta en 3 meses, también nos estregan el link de descarga, puede ser mas facil?.

Para conseguir la licencia haz click aquí

Una pequeña descripción de Bitdefender Internet Security 2008



BitDefender Internet Security 2008
Disfrute de su familia y comparta con ellos su tiempo cuando esté fuera de casa, dando un nivel de seguridad determinado con un solo clic del ratón, adecuándose a diferentes lugares: en su hogar, de vacaciones o en un hotel trabajando.

Deje que sus hijos disfruten de sus ordenadores sin peligro de que se conecten a páginas con contenido adulto; aprovechando sus horas de estudio limitándoles la conexión web durante unas horas determinadas. BitDefender cuida de los suyos para que la tecnología se diluya en su vida cotidiana.

Incluye:
Antivirus: Protege su ordenador frente a virus y otro tipo de malware.
Antirootkit: Limpieza y desinfección de rootkits, incluso si ya han infectado al sistema.
Cortafuego: Mantiene a los intrusos alejados y controla el acceso de las aplicaciones a Internet.
Antispam: Bloquea el correo no deseado y las tentativas de Phishing.
Antispyware: Monitoriza y bloquea amenazas potenciales de spyware en tiempo real.
Control Parental: Controla y limita el acceso al contenido web y aplicaciones.