Codigo e Imagen del Ascensor (Por Kevin H.)

Private Sub Aceptar_Click()
Contador7.Caption = "Nº:"
C7.Caption = C7.Caption + 1
If Contraseña.Text = "llave" Then
Ascensor.Top = 1200
Else: Contraseña.CausesValidation = False
End If
Contraseña.Text = ""
Visor1.Caption = "P5"
Visor2.Caption = "P5"
Visor3.Caption = "P5"
Visor4.Caption = "P5"
Visor5.Caption = "P5"
Visor6.Caption = "P5"
Visor7.Caption = "P5"
VisorC.Caption = "Piso 5 Pen-House"
End Sub

Private Sub CP1_Click()
Contador3.Caption = "Nº:"
C3.Caption = C3.Caption + 1
Ascensor.Top = 5040
Visor1.Caption = "P1"
Visor2.Caption = "P1"
Visor3.Caption = "P1"
Visor4.Caption = "P1"
Visor5.Caption = "P1"
Visor6.Caption = "P1"
Visor7.Caption = "P1"
VisorC.Caption = "Piso 1"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP2_Click()
Contador4.Caption = "Nº:"
C4.Caption = C4.Caption + 1
Ascensor.Top = 4080
Visor1.Caption = "P2"
Visor2.Caption = "P2"
Visor3.Caption = "P2"
Visor4.Caption = "P2"
Visor5.Caption = "P2"
Visor6.Caption = "P2"
Visor7.Caption = "P2"
VisorC.Caption = "Piso 2"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP3_Click()
Contador5.Caption = "Nº:"
C5.Caption = C5.Caption + 1
Ascensor.Top = 3120
Visor1.Caption = "P3"
Visor2.Caption = "P3"
Visor3.Caption = "P3"
Visor4.Caption = "P3"
Visor5.Caption = "P3"
Visor6.Caption = "P3"
Visor7.Caption = "P3"
VisorC.Caption = "Piso 3"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP4_Click()
Contador6.Caption = "Nº:"
C6.Caption = C6.Caption + 1
Ascensor.Top = 2160
Visor1.Caption = "P4"
Visor2.Caption = "P4"
Visor3.Caption = "P4"
Visor4.Caption = "P4"
Visor5.Caption = "P4"
Visor6.Caption = "P4"
Visor7.Caption = "P4"
VisorC.Caption = "Piso 4"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP5_Click()
Contraseña.Enabled = True
Contraseña.Text = ""
End Sub

Private Sub CPB_Click()
Contador2.Caption = "Nº:"
C2.Caption = C2.Caption + 1
Ascensor.Top = 6000
Visor1.Caption = "PB"
Visor2.Caption = "PB"
Visor3.Caption = "PB"
Visor4.Caption = "PB"
Visor5.Caption = "PB"
Visor6.Caption = "PB"
Visor7.Caption = "PB"
VisorC.Caption = "Planta Baja"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CSubs_Click()
Contador1.Caption = "Nº:"
C1.Caption = C1.Caption + 1
Ascensor.Top = 6960
Visor1.Caption = "SS"
Visor2.Caption = "SS"
Visor3.Caption = "SS"
Visor4.Caption = "SS"
Visor5.Caption = "SS"
Visor6.Caption = "SS"
Visor7.Caption = "SS"
VisorC.Caption = "SubSuelo"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Luz_Click()
If Ascensor.FillColor = vbYellow Then
Ascensor.FillColor = vbButtonFace
Else: Ascensor.FillColor = vbYellow
End If
Contraseña.Text = ""
End Sub

Private Sub Parar_Click()
If CSubs.Enabled = True Then
Luz.Enabled = False
CSubs.Enabled = False
CPB.Enabled = False
CP1.Enabled = False
CP2.Enabled = False
CP3.Enabled = False
CP4.Enabled = False
CP5.Enabled = False
Aceptar.Enabled = False
Else: Luz.Enabled = True
CSubs.Enabled = True
CPB.Enabled = True
CP1.Enabled = True
CP2.Enabled = True
CP3.Enabled = True
CP4.Enabled = True
CP5.Enabled = True
Aceptar.Enabled = True
End If
End Sub

Private Sub Piso1_Click()
Contador3.Caption = "Nº:"
C3.Caption = C3.Caption + 1
Ascensor.Top = 5040
Visor1.Caption = "P1"
Visor2.Caption = "P1"
Visor3.Caption = "P1"
Visor4.Caption = "P1"
Visor5.Caption = "P1"
Visor6.Caption = "P1"
Visor7.Caption = "P1"
VisorC.Caption = "Piso 1"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso2_Click()
Contador4.Caption = "Nº:"
C4.Caption = C4.Caption + 1
Ascensor.Top = 4080
Visor1.Caption = "P2"
Visor2.Caption = "P2"
Visor3.Caption = "P2"
Visor4.Caption = "P2"
Visor5.Caption = "P2"
Visor6.Caption = "P2"
Visor7.Caption = "P2"
VisorC.Caption = "Piso 2"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso3_Click()
Contador5.Caption = "Nº:"
C5.Caption = C5.Caption + 1
Ascensor.Top = 3120
Visor1.Caption = "P3"
Visor2.Caption = "P3"
Visor3.Caption = "P3"
Visor4.Caption = "P3"
Visor5.Caption = "P3"
Visor6.Caption = "P3"
Visor7.Caption = "P3"
VisorC.Caption = "Piso 3"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso4_Click()
Contador6.Caption = "Nº:"
C6.Caption = C6.Caption + 1
Ascensor.Top = 2160
Visor1.Caption = "P4"
Visor2.Caption = "P4"
Visor3.Caption = "P4"
Visor4.Caption = "P4"
Visor5.Caption = "P4"
Visor6.Caption = "P4"
Visor7.Caption = "P4"
VisorC.Caption = "Piso 4"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso5_Click()
Contraseña.Enabled = True
Contraseña.Text = ""
End Sub

Private Sub PlantaB_Click()
Contador2.Caption = "Nº:"
C2.Caption = C2.Caption + 1
Ascensor.Top = 6000
Visor1.Caption = "PB"
Visor2.Caption = "PB"
Visor3.Caption = "PB"
Visor4.Caption = "PB"
Visor5.Caption = "PB"
Visor6.Caption = "PB"
Visor7.Caption = "PB"
VisorC.Caption = "Planta Baja"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Subs_Click()
C1.Caption = C1.Caption + 1
Contador1.Caption = "Nº:"
Ascensor.Top = 6960
Visor1.Caption = "SS"
Visor2.Caption = "SS"
Visor3.Caption = "SS"
Visor4.Caption = "SS"
Visor5.Caption = "SS"
Visor6.Caption = "SS"
Visor7.Caption = "SS"
VisorC.Caption = "SubSuelo"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Semana 25 (Por Kevin H.)

Primera Noticia:

Químicos de la proteína verde son premios Nobel de Química

Tres científicos, dos norteamericanos y un japonés, han sido los galardonados con el premio Nobel de Química gracias a su contribución a la medicina en el estudio de una proteína fluorescente que ayudaría a comprender de mejor manera enfermedades tales como el cáncer, el Alzheimer, etc.

Los ganadores son el neurobiólogo japonés Osamu Shimomura, de 80 años, y los estadounidenses Martin Chalfie, neurobiólogo de la Universidad de Columbia, de 61 años, y el biólogo Roger Tsien, de 56 años.

Todo se basa en la proteína de una medusa de la especie Aequorea victoria que tiene una particularidad de, al ser sometida a la luz UV, mostrar fluorescencia y que podía ser aislada y aplicarse a otros usos. Esta proteína fue llamada la GFP (Green Fluorescent Protein) por su descubridor, el científico japonés Osamu Shimomura, en 1962 y luego de 20 años de investigación.

------------------------------------------------------------------------------------------

Para Más Información Click Aquí

------------------------------------------------------------------------------------------

Me parece muy bien que reconoscan con un premio nobel a cientificos los cuales crearon una proteina que tal vez ayude mucho en el futuro

Segunda Noticia:

Componer y compartir música online con Noteflight

Lamentablemente no soy un músico, pero si lo fuera seguramente me pasaría muy seguido por Noteflight.

Este es un editor online para componer y compartir pedazos musicales.

Noteflight se lleva a cabo en Adobe Flex y te permite escribir y reproducir música desde cualquier navegador.

La creación puede ser compartida con un enlace en una página web con un código similar con los vídeos de YouTube.

En resumen: una gran herramienta para gente creativa.

------------------------------------------------------------------------------------------

Para Más Información Click Aquí

------------------------------------------------------------------------------------------

Posteo esta noticia ya que es muy entretenido y creativo crear musica y luego compartirla...

Tercera Noticia:

El nuevo Asus EEE PC S101

Parece que por fin Asus se propuso hacer un EEE PC con características técnicas decentes. Y no sólo eso, si no que el diseño también es mejor, y mucho más delgado. Con 18 - 25 milímetros de espesor y un peso inferior a 1 kilogramo.

En las características técnicas, el netbook tiene un procesador Intel Atom N270 (1,6 GHz), pantalla de 10,2 pulgadas con 1024×600 píxeles de resolución, 1 GB de RAM, Wi-Fi, bluetooth, lector de tarjetas 4-en-1, autonomía de hasta 5 horas y cámara web integrada.

La misma estará disponible en tres versiones, una con un SSD de 16 GB y Windows XP como SO con una tarjeta SD de 16 GB incorporada, por USD$700. Otro, con Linux y un SSD de 32GB, al mismo precio que el anterior. Y por último, con un disco SSD de 64GB y Linux de Sistema operativo, por USD$800.

------------------------------------------------------------------------------------------

Para Más Información Click Aquí

------------------------------------------------------------------------------------------

Posteo esta noticia ya que es interesante que una notebook de tan pequeño tamaño tenga tales cualidades, o mas bien dicho, requerimientos...

Semana 24 (Por Kevin H.)

Primera Noticia:

Bloquear la publicidad al navegar en tu iPhone o iPod Touch

Las páginas visualizadas desde tu iPhone o iPod Touch podría cargar mucho más rápido si no tendrían que esperar a que se mostrase contenido irrelevante para tu navegación. En este caso explicaremos guiados de un tutorial de LifeHacker el cómo bloquear la publicidad al navegar desde tu iPhone o iPod Touch.

Dado que el quitar la publicidad al navegar desde estos gadgets usando el Safari Mobile de Apple no es necesariamente una función incluída dentro de las características con las que cuenta nuestro iPhone es conveniente primero realizar el jailbroke (liberación) del mismo que ya ha sido explicado para Windows con WinPwn, y con el PwnageTool para Mac.

--------------------------------------------------------------------------------------

Para Más Información Click Aquí

-------------------------------------------------------------------------------------

Posteo esta noticia porque seguramente, cualquiera que pueda, sacaria el spam de publicidades que alguna que otra vez nos ha molestado...

Segunda Noticia:

WebWait: supervisa el tiempo de carga de un sitio web

El tiempo de carga en un blog es muy importante, es por eso que WebWait es una herramienta sencilla y eficiente que puede rastrear el tiempo de carga de un sitio web.

Solo tienes que ingresar la dirección web del que quieras saber su tiempo de carga y WebWait hara el resto.

WebWait vuelve verificar el tiempo de carga luego de un determinado tiempo.

La velocidad de carga obviamente depende de muchos factores, especialmente la calidad de la web de conexión utilizado.

------------------------------------------------------------------------------------

Para Más Información Click Aquí

---------------------------------------------------------------------------------------

Me parece interesante, aunque no novedoso, una pagina la cual se pueda evaluar el tiempo que se carga una pagina...

Tercera Noticia:

¿GPS-teléfono de Microsoft?

Microsoft acaba de patentar este aparato, que sería un GPS, pero, a diferencia de un GPS común, esto sería como los legos. ¿Por qué?, porque el dispositivo tendría la posibilidad de agregarle o quitarle cosas, al más puro estilo lego, según las preferencias del usuario. Además, a este dispositivo, se le pueden agregar distintas cosas, como teléfono móvil, cámara digital, micrófono, teclado, conectividad WiFi, lector de tarjetas flash, una batería adicional, entre otros.

En fin, parece algo bastante interesante, y espero que Microsoft lo sepa realizar bien, y que no suceda como con el Zune, ya que no tendría éxito...

----------------------------------------------------

Para Más Información Click Aquí

-------------------------------------------------------

Posteo esta noticia para mostrar dos cosas, una... que es un aparato muy completo y esta bastante bueno, y la otra... que se nota que es una gran competencia al iPhone