Ascensor final (por Anita)

Private Sub cinco_Click()
ascensor.Top = 480
numero.Caption = "5"
cant5.Caption = Val(cant5.Caption) + 1
If llamar5.Caption = llamar5.Caption Then
llamar5.Enabled = False
cinco.Enabled = False
End If
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True

End Sub

Private Sub cuatro_Click()
ascensor.Top = 1080
numero.Caption = "4"
cant4.Caption = Val(cant4.Caption) + 1
If llamar4.Caption = llamar4.Caption Then
llamar4.Enabled = False
cuatro.Enabled = False
End If
If cuatro.Caption = cuatro.Caption Then
llamar4.Caption = llamar4.Caption
cuatro.Enabled = False
llamar4.Enabled = False
End If
llamar5.Enabled = True
cinco.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
llamar5.Enabled = True
cinco.Enabled = True

End Sub

Private Sub dos_Click()
ascensor.Top = 2280
numero.Caption = "2"
cant2.Caption = Val(cant2.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar3.Enabled = True
tres.Enabled = True

End Sub

Private Sub llamar1_Click()
ascensor.Top = 2880
numero.Caption = "1"
cant1.Caption = Val(cant1.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
End Sub

Private Sub llamar2_Click()
ascensor.Top = 2280
numero.Caption = "2"
cant2.Caption = Val(cant2.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
End Sub

Private Sub llamar3_Click()
ascensor.Top = 1680
numero.Caption = "3"
cant3.Caption = Val(cant3.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
End Sub

Private Sub llamar4_Click()
ascensor.Top = 1080
numero.Caption = "4"
cant4.Caption = Val(cant4.Caption) + 1
piso5.Caption = "4"
llamar4.Enabled = False
cuatro.Enabled = False
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
llamar5.Enabled = True
cinco.Enabled = True

End Sub

Private Sub llamar5_Click()
ascensor.Top = 480
numero.Caption = "5"
cant5.Caption = Val(cant5.Caption) + 1
piso5.Caption = "5"
If llamar5.Caption = llamar5.Caption Then
llamar5.Enabled = False
cinco.Enabled = False
llamar4.Enabled = True
cuatro.Enabled = True
End If
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub llamarpb_Click()
pisopb.Caption = "pb"
ascensor.Top = 3480
numero.Caption = "PB"
cantpb.Caption = Val(cantpb.Caption) + 1
If llamar5.Caption = llamar5.Caption Then
llamarpb.Enabled = False
pb.Enabled = False
End If
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub llamarss_Click()
ascensor.Top = 4080
numero.Caption = "SS"
cantss.Caption = Val(cantss.Caption) + 1
pisoss.Caption = "ss"
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbYellow
Else
If ascensor.FillColor = vbYellow Then
ascensor.FillColor = vbWhite
End If
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 3480
numero.Caption = "PB"
cantpb.Caption = Val(cantpb.Caption) + 1
pisopb.Caption = "pb"
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub ss_Click()
ascensor.Top = 4080
numero.Caption = "SS"
cantss.Caption = Val(cantss.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub stop_Click()
If luz.Enabled Then
luz.Enabled = False
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
llamar1.Enabled = False
llamar2.Enabled = False
llamar3.Enabled = False
llamar4.Enabled = False
llamar5.Enabled = False
Else
luz.Enabled = True
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
llamar1.Enabled = True
llamar2.Enabled = True
llamar3.Enabled = True
llamar4.Enabled = True
llamar5.Enabled = True
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 1680
numero.Caption = "3"
cant3.Caption = Val(cant3.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub uno_Click()
ascensor.Top = 2880
numero.Caption = "1"
cant1.Caption = Val(cant1.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Semana 29 (por Anita)

Free ISO Creator: Crear una Imagen ISO fácilmente

Una Imagen ISO, es una archivo que almacena una copia exacta de un sistema de archivos. Este tipo de archivos, es realmente útil para hacer respaldos o copias de seguridad de nuestros archivo, de esta forma, evitamos perder la estructura de los archivos. Free ISO Creator, es una aplicación gratuita que permite crear una imagen ISO a partir de archivos o carpetas.

Entrada publicada el 8 de noviembre del 2008

Para ver más


Descubre el número de visitas únicas diarias de cualquier Web o Blog

Impresionante la exactitud de statbrain.com a la hora de encontrar el número de visitas únicas de un dominio.
Basándose en datos estadísticos y números como el ranking de alexa, esta web informa del número de visitas aproximadas de cualquier web.

Entrada publicada el 7 de noviembre del 2008.

Para ver más


Lo que hay más allá del ".com"

Internet se prepara para la llegada de nuevos dominios que competirán con los clásicos “.com” o “.net”, un proceso casi culminado y que estos días se afianzó en la cumbre que la Corporación para la Asignación de Nombres y Números en Internet ICANN celebró en El Cairo.
La intención de ICANN es liberar los dominios genéricos, o gTLD (por sus siglas en inglés), lo que permitirá, en un futuro próximo, que extensiones como “.love” convivan con los ya clásicos “.com” o “.net”, informó la agencia de noticias EFE.
Al día de hoy sólo existen 21 dominios genéricos, además de 260 geográficos (como “.ar” para Argentina) que controlan las autoridades nacionales, y según la directora de este proyecto en ICANN, Karla Valente, la expansión de los dominios genéricos “es una oportunidad para crear más opciones para los consumidores y generar mayor competencia en el campo de los dominios”.
Asimismo Valente aseveró que se espera que el texto definitivo esté listo para el primer cuatrimestre del año que viene, y que el período de solicitudes se abra en el tercer cuatrimestre, aunque cabe destacar que para sentarse a la misma mesa que la ICANN e iniciar el proceso de evaluación, la empresa interesada deberá abonar la módica suma de 185.000 dólares.
Acto seguido se estudiará el dominio, que puede presentar complicaciones por ser controvertido o parecerse mucho a otro ya existente, así como las condiciones técnicas y económicas de la firma que lo solicita.
Paralelamente, ICANN también desarrolló un mecanismo para que no se pueda suplantar la identidad de compañías, gobiernos o instituciones, de forma tal que, si alguien intentara registrar el dominio genérico “.argentina”, el Poder Ejecutivo argentino tiene la posibilidad de emitir una queja y paralizar la solicitud.

Entrada publicada el 7 de noviembre del 2008.

Para ver más


La primera entrada la elegí porque me pareció un gran programa para cuidar las información o trabajos que posee con más cuidado.
La segunda entrada la elegí porque, aunque me pareció interesante la idea, creo que esta función o una parecida, tiene blogger.
La tercera entrada la elegí porque yo jamás le había dado importancia a si era ".net", ".ar", etcétera y me pareció sorprendente.

Ascensor 3 (por Anita)

Private Sub cinco_Click()
ascensor.Top = 480
numero.Caption = "5"
cant5.Caption = Val(cant5.Caption) + 1
If llamar5.Caption = llamar5.Caption Then
llamar5.Enabled = False
cinco.Enabled = False
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1080
numero.Caption = "4"
cant4.Caption = Val(cant4.Caption) + 1
If llamar4.Caption = llamar4.Caption Then
llamar4.Enabled = False
cuatro.Enabled = False
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 2280
numero.Caption = "2"
cant2.Caption = Val(cant2.Caption) + 1
End Sub

Private Sub llamar1_Click()
ascensor.Top = 2880
numero.Caption = "1"
cant1.Caption = Val(cant1.Caption) + 1
End Sub

Private Sub llamar2_Click()
ascensor.Top = 2280
numero.Caption = "2"
cant2.Caption = Val(cant2.Caption) + 1
End Sub

Private Sub llamar3_Click()
ascensor.Top = 1680
numero.Caption = "3"
cant3.Caption = Val(cant3.Caption) + 1
End Sub

Private Sub llamar4_Click()
ascensor.Top = 1080
numero.Caption = "4"
cant4.Caption = Val(cant4.Caption) + 1
End Sub

Private Sub llamar5_Click()
ascensor.Top = 480
numero.Caption = "5"
cant5.Caption = Val(cant5.Caption) + 1
piso5.Caption = "5"
If llamar5.Caption = llamar5.Caption Then
llamar5.Enabled = False
cinco.Enabled = False
End If
End Sub

Private Sub llamarpb_Click()
pisopb.Caption = "pb"
ascensor.Top = 3480
numero.Caption = "PB"
cantpb.Caption = Val(cantpb.Caption) + 1
If llamar5.Caption = llamar5.Caption Then
llamarpb.Enabled = False
pb.Enabled = False
End If
End Sub

Private Sub llamarss_Click()
ascensor.Top = 4080
numero.Caption = "SS"
cantss.Caption = Val(cantss.Caption) + 1
pisoss.Caption = "ss"
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbYellow
Else
If ascensor.FillColor = vbYellow Then
ascensor.FillColor = vbWhite
End If
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 3480
numero.Caption = "PB"
cantpb.Caption = Val(cantpb.Caption) + 1
pisopb.Caption = "pb"
End Sub

Private Sub ss_Click()
ascensor.Top = 4080
numero.Caption = "SS"
cantss.Caption = Val(cantss.Caption) + 1
End Sub

Private Sub stop_Click()
If luz.Enabled Then
luz.Enabled = False
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
llamar1.Enabled = False
llamar2.Enabled = False
llamar3.Enabled = False
llamar4.Enabled = False
llamar5.Enabled = False
Else
luz.Enabled = True
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
llamar1.Enabled = True
llamar2.Enabled = True
llamar3.Enabled = True
llamar4.Enabled = True
llamar5.Enabled = True
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 1680
numero.Caption = "3"
cant3.Caption = Val(cant3.Caption) + 1
End Sub

Private Sub uno_Click()
ascensor.Top = 2880
numero.Caption = "1"
cant1.Caption = Val(cant1.Caption) + 1
End Sub

Semana 27 (por Anita)

FlashGot Plugin 1.1.1.3 Descarga desde Mozilla con tu gestor favorito

Con esta extensión para los navegadores Mozilla y Firefox podrás integrar tu gestor de descargas de toda la vida en tu navegador, de igual manera que muchos de ellos lo hacen ya con Internet Explorer.
El plugin inserta algunos comandos nuevos en el menú contextual del navegador, desde los que puedes gestionar la descarga de un solo archivo o de múltiples enlaces, y ejecutar tu gestor favorito de forma automática cada vez que haces clic en un fichero para descargarlo desde Internet.

Entrada publicada el 6 de noviembre del 2008.

Para ver más

Microsoft lanzará una versión online de Word, Excel y PowerPoint

Microsoft se ha decido a competir con las aplicaciones de oficina online, para lo que lanzará una versión web de Word, Excel y PowerPoint, para así luchar contra Google Docs y demás sitios. Anteriormente Microsoft lanzó Office Live Workspace, un servicio para almacenar y compartir documentos creados con aplicaciones de escritorio.

Entrada publicada el 28 de octubre del 2008.

Para ver más


MTV enfrenta a YouTube con un nuevo website de videos

MTV Music planea convertirse en una especie de hemeroteca de videos, en la que se encontrarán clips históricos desde los inicios de este formato hasta la actualidad, los famosos conciertos “Unplugged” que organiza el canal, y material inédito, mientras que MTV.com se centrará más en la música actual.
Además, MTV Music posee un pequeño espacio abierto a la participación del usuario, que podrá comentar y votar los videos, o subirlos en cualquier blog o website con sólo copiar y pegar el código que cada clip trae incluido, algo similar a lo que sucede con los contenidos de YouTube.Por otro lado, la nueva página de MTV lanzó una API que facilita que los desarrolladores creen aplicaciones que utilicen su contenido. Algunos ejemplos de su uso pueden ser crear una galería de videos o una aplicación para enviar dedicatorias de videos en Facebook o MySpace.
De más está decir que este lanzamiento supondrá un golpe para YouTube, que actualmente domina el sector de los videos online, por lo menos en lo que se refiere a las búsquedas de clips musicales.

Entrada publicada el 1 de noviembre del 2008.

Para ver más


La primera entrada la elegí porque me pareció bueno que se descargue desde Mozilla.
La segunda entrada la elegí porque me parece un gran lanzamiento ya que, Internet lo usa muchas personas y Word, Excel y PowerPoint también.
La tercera entrada la elegí porque me parece interesante que MTV enfrente a YouTube, sabiendo la popularidad que tiene.

Semana 28 (por Anita)

Tema de Windows 7 para Vista

Microsoft presentó y liberó a Windows 7 a todos los asistentes a la Professional Developers Conference (PDC) 2008, que se celebró a finales de Octubre. Se han realizado análisis a la información que se libera, inclusive se cuenta con algunas capturas de pantalla que nos muestran como va mejorando Microsoft la interfaz gráfica de Windows 7.
Este tema de Windows 7, incorpora todas las mejoras visuales como el nuevo menú de inicio, la barra de tareas y también el nuevo Explorador de Windows.

Entrada publicada el 5 de noviembre del 2008.

Para ver más


Acceder a la Wikipedia desde el iPhone

Encyclopedia: La Wikipedia se ha convertido en la primera fuente de referencia al momento de realizar todo tipo de investigaciones, por lo que es normal necesitar acceso a ella en el momento que menos esperamos. Otra solución exclusiva es para los poseedores de un iPhone o iPod Touch, donde a través de una aplicación llamada Encyclopedia, tendremos acceso a la Wikipedia sin tener que utilizar la conexión a Internet, funcionando de la misma forma que las aplicaciones nombradas anteriormente.

Entrada publicada el 4 de noviembre del 2008.

Para ver más


Google anula acuerdo con Yahoo!

Hace un par de meses, Microsoft intentaba hacerse con las acciones de Yahoo! y poder así, lograr competir con Google. Sin embargo, luego que Yahoo! rechazara la propuesta de Microsoft y este mismo desistiera de su intención, Google aprovechó para llegar a un acuerdo publicitario con el susodicho.
Pero Google prefiere concentrar todo su interés en mantener y mejorar el negocio. Por otra parte, Yahoo! comunicó su decepción a Google por haberse rendido.

Entrada publicada el 5 de noviembre del 2008.

Para ver más


La primera entrada la elegí porque me gustaría que vean como se renueva Windows, aunque sean mejoras visuales.
La segunda entrada la elegí porque me pareció sorprendente que Wikipedia sea tan importante como para estar disponible para un iPhone.
La tercera entrada la elegí porque me pareció interesante y estoy de acuerdo con Google en preferir mantener y mejorar el negocio.

Semana 26 (por Anita)

Google pierde dos juicios en Alemania tras considerarse que los thumbnails de 'Google images' son ilegales

El buscador de imágenes de Google nos muestra unas pequeñas miniaturas (thumbnails) de las imágenes que localiza antes de enviarnos a la página web donde podremos visualizar el fichero original. Esto lo hace para ayudar a los usuarios en sus búsquedas, pero a algunos de los autores de estas imágenes no les gusta que una versión reducida aparezca en el buscador de Google, estimando que la compañía se aprovecha ilícitamente de su trabajo.
Por ello, desde hace unos años es bastante común ver demandas de autores de dibujos y fotografías contra servicios de Google, a pesar de que miles de webmasters intentan aparecer en ellos para conseguir tráfico web. Por ejemplo, en marzo de 2004 conocíamos que en Alemania un tribunal había declarado que el uso de estos thumbnails en 'Google News' es ilegal, puesto que la ley de derechos de autor de este país protege a las fotografías y no hay ninguna excepción, ni siquiera para estas miniaturas.
Amparándose en la misma ley, hoy hemos conocido que de nuevo en Alemania se ha condenado por partida doble a Google por utilizar los thumbnails en 'Google Images'. Y es que la compañía ha perdido sendos juicios, uno contra un fotógrafo y otro contra un dibujante de cómics, los cuales habían denunciado a la compañía tras haber visto algunos de sus trabajos en el buscador de imágenes.
"No importa que estas miniaturas sean mucho más pequeñas que las imágenes originales y que se muestren a menor resolución", asegura una de las sentencias. "Si utilizas fotos en las miniaturas, no estás creando ningún nuevo trabajo".

Entrada publicada el 13 de octubre del 2008.

Para ver más


Hackers pueden intervenir cámaras web, micrófonos y ratones

Adobe declaró máximo alerta después de conocerse un agujero de seguridad en Flash, que permite a hackers hacerse del control de cámaras web, micrófonos y ratones. La tecnología de intrusión empleada constituye una forma totalmente nueva de amenaza online.
Adobe ha distribuido una advertencia de rango crítico sobre la posibilidad que cámaras en línea, micrófonos y ratones puedan ser controlados a distancia por hackers. El nivel “crítico” es el más alto nivel de alarma usado por Adobe.
En concreto, una vulnerabilidad en la tecnología Flash de Adobe habría sido documentada en un demo disponible públicamente.

Entrada publicada el 15 de octubre del 2008.

Para ver más


Firefox 3.1 Beta 1: ya se puede probar TraceMonkey

Mozilla acaba de lanzar la primera Beta del esperado Firefox 3.1 y ya ha sido revisado por miles de fans en todo el mundo. No es para menos: aunque sus novedades solo sean las sobras de las esperadas para Firefox 3, en conjunto son muy interesantes. Vayamos al grano, en esta beta podemos encontrar: nuevo motor de JavaScript TraceMonkey, nuevo comportamiento para Ctrl+Tab, gestión mejorada de pestañas, geolocalización de serie, mejor gestión de marcadores, más estándares soportados, etcétera.
Sin embargo, hay otras mejoras que se guardan en la recámara hasta la siguiente beta. Es decir, que se añadirán seguro pero que han preferido NO incluir para progresivamente pulir las anteriores funcionalidades.

Entrada publicada el 15 de octubre del 2008.

Para ver más


La primera entrada la elegí porque me pareció gracioso y estupido que sea haga tanto lio por unas imágenes en miniatura.
La segunda entrada la elegí porque me sorprende ver que cada vez los hackers tienen más "poder".
La tercera entrada la elegí porque me pareció interesante cuantos cambios realizó Firefox.

Ascensor (por Anita)

Private Sub luz_Click()
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbYellow
End If
End Sub