miércoles, 19 de noviembre de 2008

Semana 25, Joy

Primer noticia:


Microsoft sigue interesado en llegar a un acuerdo con Yahoo!


Microsoft anunció hoy que está buscando alternativas para mejorar sus sector de servicios y publicidad online, entre las que se incluye llegar a un acuerdo con Yahoo!, sin la necesidad de adquirir totalmente a esta pero tampoco descartando por completo esta alternativa.





Segunda noticia:


La Wii aplasta a sus rivales en Abril

En un momento donde la industria del videojuego crece (+31% sobre el mismo cuarto del año anterior), Nintendo, con su Wii y DS, sigue, semana a semana y mes a mes, superando ampliamente a sus rivales.

En Abril, la venta de Wii fue mayor a las ventas combinadas de sus compañías rivales, es decir, se vendieron más Wii que PS3, PS2, PSP y Xbox 360 combinadas.
Segunda noticia:
¿iPods y MacBooks funcionando con energía solar?
Se vienen los iPods y las portátiles funcionando con energía solar?
Así parece, según la patente registrada por algunos trabajadores de la compañía.
Esta patente, registrada el 24 de abril de este año se titula “Celdas solares en dispositivos portátiles”, y revela un posible plan que integrará células solares dentro de los dispositivos de la empresa, para que los mismos puedan tomar energía de la luz del sol.
Para mas información entre a: http://www.techtear.com/2008/05/26/%c2%bfipods-y-macbooks-funcionando-con-energia-solar/

Semana 24 por Joy

Primer articulo:




La Hora del Planeta (Earth Hour) fue una iniciativa de WWF Australia llevada a cabo en marzo de 2007.



Sus logros y alcances fueron tan impactantes que hoy es una campaña global frente al cambio climático y la responsabilidad de cada individuo en el calentamiento global, que está vinculando millones de personas, empresas y organizaciones en todo el mundo, para que hoy (29 de marzo), apaguen las luces o cualquier otro aparato eléctrico o electrónico que implique un consumo innecesario.

De esta manera, se enviará un mensaje contundente para sentar posición frente a la amenaza del cambio climático, demostrando así que es posible llegar a un compromiso a largo plazo de reducir las emisiones globales en un 5%.

Google habla de su participación, así que también apagó la luz y así luce.







Segundo articulo:



Descargar música en mp3


Mp3gle, es un buscador de canciones en formato mp3 que no solo te permite encontralas sino además descargarlas.


Aunque el contenido como tal, no se encuentra directamente alojado en los servidores de Mp3gle, esta web actua como intermediaria para realizar las búsquedas y descargas.







Tercer articulo:




La empresa Asustek Computer planea lanzar la versión de 10 pulgadas de su ordenador ultraportátil llamado EEE, según indicaron algunas fuentes de la idustria.Este nuevo modelo, llamado Eee PC 1000 se lanzará el 3 de junio junto a las Eee PC 901. Además, Asus está planeando versiones más baratas de los modelos actuales.

Semana 23 por Joy


Primer articulo:

Skype anuncia plan de llamadas ilimitadas a 34 países


Skype ha presentado hoy un nuevo plan de llamadas internacionales a teléfonos fijos, que destaca por ser ilimitado, lo cual torna la oferta interesante.

Por solo 8.95€ (+ IVA) al mes, podremos realizar llamadas a un total de 34 países alrededor del mundo, donde podemos destacar la presencia de Chile, España, y la ausencia de Argentina, por ejemplo.

La idea de la empresa, es seguir con su objetivo de hacer que el mundo se pueda comunicar por voz y vídeo, de forma gratuita (o casi…), y con este paso van un poco más allá de lo que actualmente ofrecían (llamadas gratuitas entre usuarios Skype).





Segundo articulo:

Lexmark lanzó en el mercado local una impresora Wi-Fi color, que posee funciones fotográficas y ofrece resultados rápidos, nítidos y fiables.

Se trata del modelo Z1420 Wireless Color Printer, que permite a los usuarios trabajar desde cualquier lugar de su casa u oficina, entregando textos y fotos a velocidades de 24 páginas por minuto (ppm) en blanco y negro, y 18 ppm a color, con una calidad de impresión de hasta 4800 x 1200 ppp de resolución.

El equipo dispone de sencillas instrucciones paso-a-paso que facilitan su instalación a redes inalámbricas existentes, puede ser compartido por varias PCs, y su tamaño es reducido.Además, el dispositivo está diseñado para la impresión inalámbrica 802.11g., es apto para la conexión con redes inalámbricas de 802.11b y computadoras Wi-Fi, o con cable USB.





Tercer articulo:
PHOTOSHOP ONLINE, DIGO PHOTOSHOP EXPRESS
Adobe ha lanzado la versión online de Photoshop, de momento en fase beta en la que los usuarios disponen de 2 GB para almacenar las fotos que editen, también esta conectado a servicios como Facebook, Picassa o Photobucket.
En cuanto a las capacidades de edición se encuentran 17 funciones con la que podrás por ejemplo: rotar la imagen, eliminar ojos rojos, retocar la saturación, balance de blancos, enfoque, sombras así como otros efectos como distorsiones o paso a sepia, etc. y por si fuera poco si editas una imagen para alguno de los servicios con los que esta enlazado la guardara directamente en tu cuenta Facebook.

jueves, 13 de noviembre de 2008

miércoles, 5 de noviembre de 2008

miércoles, 22 de octubre de 2008

Ascensor por Joy


Codigo de ascensor:

Private Sub luz_Click()asensor.BackColor = vbRedEnd SubPrivate Sub pisocuatro_Click()asensor.Top = 840End SubPrivate Sub pisodos_Click()asensor.Top = 2280End SubPrivate Sub pisotres_Click()asensor.Top = 1560End SubPrivate Sub parar_Click()Private Sub pisouno_Click()asensor.Top = 3000End SubPrivate Sub plantabaja_Click()asensor.Top = 3720End SubPrivate Sub subsuelo_Click()asensor.Top = 4440End Sub

jueves, 25 de septiembre de 2008

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