Ascensor 4

Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"

If asce.Top = 480 Then
h.Caption = Val(h.Caption) + 1
End If

asce.Top = 480
cinco.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True

End Sub

Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"

If asce.Top = 480 Then
h.Caption = Val(h.Caption) + 1
End If

asce.Top = 480
Command1.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
cinco.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
If asce.Top = 1080 Then
i.Caption = Val(i.Caption) + 1
End If

asce.Top = 1080
Command2.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
cinco.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
If asce.Top = 1680 Then
j.Caption = Val(j.Caption) + 1
End If

asce.Top = 1680
Command3.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
cinco.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
If asce.Top = 2280 Then
k.Caption = Val(k.Caption) + 1
End If

asce.Top = 2280
Command4.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
cinco.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
If asce.Top = 2880 Then
l.Caption = Val(l.Caption) + 1
End If
asce.Top = 2280
Command5.Enabled = False

Command6.Enabled = True
cinco.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
If asce.Top = 3480 Then
m.Caption = Val(m.Caption) + 1
End If

asce.Top = 3480
cinco.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub contra_Change()
If contra.Text = "CAMEL" Then
asce.Top = 480
Else
contra.Text = ""
End If

End Sub

Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"

If asce.Top = 1080 Then
i.Caption = Val(i.Caption) + 1
End If

asce.Top = 1080
cuatro.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cinco.Enabled = True
End Sub



Private Sub luz_Click()
If asce.FillColor = vbWhite Then
asce.FillColor = vbBlack
Else
If asce.FillColor = vbBlack Then
asce.FillColor = vbWhite
End If
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
If asce.Top = 3480 Then
m.Caption = Val(m.Caption) + 1
End If

asce.Top = 3480
pb.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
cinco.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
If asce.Top = 4080 Then
n.Caption = Val(n.Caption) + 1
End If

asce.Top = 4080
ss.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
cinco.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
If asce.Top = 2280 Then
k.Caption = Val(k.Caption) + 1
End If

asce.Top = 2280
dos.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
cinco.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
If asce.Top = 4080 Then
n.Caption = Val(n.Caption) + 1
End If

asce.Top = 4080
SSS.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
cinco.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If

If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If

If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If

If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If

If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If

If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If

If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If

If Command1.Enabled = True Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If

If Command2.Enabled = True Then
Command2.Enabled = False
Else
Command2.Enabled = True
End If

If Command3.Enabled = True Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If

If Command4.Enabled = True Then
Command4.Enabled = False
Else
Command4.Enabled = True
End If

If Command5.Enabled = True Then
Command5.Enabled = False
Else
Command5.Enabled = True
End If

If Command6.Enabled = True Then
Command6.Enabled = False
Else
Command6.Enabled = True
End If

If SSS.Enabled = True Then
SSS.Enabled = False
Else
SSS.Enabled = True
End If


End Sub

Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
If asce.Top = 1680 Then
j.Caption = Val(j.Caption) + 1
End If


asce.Top = 1680
tres.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
cinco.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
If asce.Top = 2880 Then
l.Caption = Val(l.Caption) + 1
End If

asce.Top = 2280
uno.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
cinco.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Semana 29

Philips desarrolla una "píldora inteligente" (12-11-08)

El grupo holandés desarrolló una "píldora inteligente" que contiene un microprocesador, una batería, una radio inalámbrica, una bomba y un reservorio de medicación para emitir fármacos en una zona específica del cuerpo.
"iPill" mide la acidez con un sensor que determina su ubicación en los intestinos y entonces puede emitir la medicación necesaria.
Mientras que la cápsula contiene pequeñas cámaras ya empleadas en herramientas de diagnóstico, aquellas no contaban con la capacidad de administrar fármacos, agregó la empresa.
De todas formas, Philips señaló que la iPill es un prototipo, pero que pronto estará disponible para su fabricación en serie.

Más sobre esta píldora...

(La imagen no corresponde con una píldora inteligente)
Creo que será muy útil en un futuro cercano.

Duelo de sables de luz en la Wii

Nintendo anuncia la disponibilidad de uno de los juegos más esperados: 'Star Wars The Clone Wars: sables de luz'. Esta creado para vivir la sensación de pelear con el arma de los caballeros jedi en las "Guerras Clon".

Se podrá luchar en el bando de los héroes Jedi o en el lado oscuro de los Sith. Todo esto en escenarios inéditos y utilizando "los sables de luz".

Sobre este juego...

La elegí porque parece que será una juego recomendable y entretenido.

Anuncian oficialmente el Nokia E63 (12/11)

Nokia lo confirmó a un precio de 199 euros y vendrá en dos colores, rojo rubí y azul marino. Es un dispositivo claramente enfocado para el uso profesional y corporativo.

Viene con una pantalla de 2.3 pulgadas, Wi-Fi, entre otras cosas.

Entre ellas incluye una función muy interesante:un botón switch que permite alternar entre el “modo profesional” (correo, agenda y la intranet de la empresa) y “modo personal” (fotos, correo personal, y favoritos de Internet; etc.).

Más información sobre este celular

Se ve que es un buen teléfono, especialmente para personas que usan el celular constantemente para trabajar.

Semana 28

MySpace podría desarrollar su propio reproductor digital (7/9/08)

La popular red social podría desarrollar un reproductor digital de música como una apuesta contra el Iphone de Apple.

"Es posible" que MySpace, que recientemente logró un trato con las discográficas más importantes, pueda eventualmente fabricar un dispositivo para escuchar música, según dijo DeWolfe.

MySpace ya había lanzado MySpace Music en septiembre, apuntando a convertirse en la primera parada para los aficionados a la música.

MÁS...

Creo que podría tener éxito.

YouTube permitirá la auto traducción de vídeos (06/NOV/ 08)

La empresa experimenta una nueva función que permite traducir automáticamente los vídeos que estén subtitulados. Desde hace unos meses YouTube permitía a los usuarios incorporar texto o subtítulos a las piezas que iban subiendo. Pero ahora fue un paso más adelante.

La función de auto traducción se puede activar clickeando en el botón CC que aparece al sostener el puntero del mouse en el borde inferior derecho del reproductor de YouTube.

Por el momento las traducciones disponibles son pocas e incluso deficientes, algo que suele suceder con este tipo de software de traducción en acción. Pero aún está en desarrollo.

Sobre esta nueva función de YouTube...

Me parece que va a ser algo muy bueno y muy útil.

Samsung destronó a Motorola como líder en ventas en USA (7/11)

Según los datos estadounidenses, Samsung superó a Motorola como el principal vendedor de teléfonos celulares en el mercado de este país. La encueste muestra que Samsung se quedó con el 22.4% de las ventas, Motorola con el 21.1% y tercero quedó LG con el 20.5%. Los datos fueron sorprendentes ya que en el 2007 Motorola tenía 33 % de las ventas siendo líder indiscutible.

Más resultados

Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub

Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub

Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub

Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub

Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub

Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub

Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub

Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub

Private Sub luz_Click()
If asce.FillColor = vbWhite Then
asce.FillColor = vbBlack
Else
If asce.FillColor = vbBlack Then
asce.FillColor = vbWhite
End If
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub

Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub

Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub

Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub

Private Sub stop_Click()

uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
luz.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
SSS.Enabled = False
End Sub

Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub

Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub

Semana 27

Entrevista a la Madre de Google
El logo del buscador es una marca registrada de Internet. En una entrevista exclusiva su creadora explica cómo diseñó el emblema hace diez años: letras, colores y formas que están presentes en todo el mundo. Es con la diseñadora brasileña Ruth Kedar y comenta que los emprendedores de google "Me dieron muy buena impresión. Tenían una visión muy clara y lúcida de lo que la compañía tenía que ser. "
Cuenta que se tardó cuatro meses en hacer el logo.
Pero también su creación cambia. Así, en distintos aniversarios y fechas el logo muta a nuevas formas. Aunque Kedar, como cualquier madre, no se frustra si su hijo crece y cambia.
Entrevista completa...

Creo que creadora debe estar orgullosa de su logo, ya que yo pienso que es muy original y me gusta cuando cambian para distintas fechas (como se ve en la ilustración) .




La ONU lanzará en español el primer videojuego humanitario
El Programa Mundial de Alimentos de la Organización de las Naciones Unidas presentará “Food Force”, un videojuego para tomar conciencia sobre la pobreza.
El objetivo del juego es erradicar el hambre en el mundo. Para ello, el participante tendrá que localizar lugares donde la gente se muere de hambre o huye de la guerra. Una vez ubicados, repartirá cargamentos de comida desde un camión que, posiblemente, tenga que atravesar terrenos peligrosos.
Al final de la partida, los jóvenes descubren se puede contribuir a que la gente reconstruya sus vidas después de una tragedia.
LINK

La elegí por ser una propuesta buena para disminuir (o mejor dicho transmitir) estos problemas a través de algo tan sencillo como un videojuego.


Samsung Delve
Este nuevo celular probablemente estará en venta a partir del 7 de Noviembre e incluirá una pantalla táctil de 3 pulgadas con 240×400 pixels de resolución.
Pesa 102 gramos; tiene Bluetooth, memoria interna de 150 MB, y ranura para tarjetas MicroSD.
Entre otras aplicaciones, también tiene la interfaz TouchWiz que permite arrastrar los widgets por la home para personalizarla.

Más sobre este nuevo modelo...

Ascensor 2 (Melu)

Private Sub cinco_Click()
asce.Top = 480
End Sub

Private Sub cuatro_Click()
asce.Top = 1080
End Sub

Private Sub luz_Click()
If asce.BackColor = vbBlack Then
asce.BackColor = vbWhite
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
End Sub

Private Sub ss_Click()
asce.Top = 4080
End Sub

Private Sub dos_Click()
asce.Top = 2280
End Sub

Private Sub tres_Click()
asce.Top = 1680
End Sub

Private Sub uno_Click()
asce.Top = 2880
End Sub

Noticias Semana 26

Montevideo se convierte primera ciudad Latino-América con Wi-Fi en transporte público
Esta ciudad es la primera latino-americana que ofrece a los usuarios de transporte urbano la posibilidad de acceder gratuitamente a Internet a través de un sistema de conexión inalámbrica WiFi instalado en los vehículos.

Así, viajeros con ordenadores portátiles, escolares del Plan Ceibal y usuarios de teléfonos móviles con conexión inalámbrica se beneficiarán del servicio.

En esta primera etapa, la conexión está disponible en tres vehículos de la línea urbana D10 y se ampliará progresivamente a otros recorridos.

Más Información...

Creo que es un excelente proyecto y será muy útil para la gente de Uruguay.

Los bloggers proponen ideas para combatir la pobreza (15/ 107/ 2008)
El "Día de Acción Blog" pretende unir a bitácoras, podcatsts y videocasts para compartir ideas sobre la pobreza. Anteriormente en la edición 2007, se había establecido un debate sobre la situación del medio ambiente.

También colgarán en sus sitios web ideas y tentativas de solución a este problema mundial. Está abierta a cualquier persona y no hay límites.

Esta convocatoria permitirá a los bloggers dirigir sus preguntas y comentarios a los políticos que estén dispuestos a sumarse a esta campaña.
Sobre Blog Action Day... Foto del logo 2007

Me parece que tendrá mucho existo. Ojalá se hagan buenas propuestas y los gobiernos las tomen en cuenta, llevándolas a la práctica.

Iluminación de las calles gracias a la genética (13/10)

Afortunadamente, cada vez mas calles de nuestras ciudades tienen árboles para darles vida, reducir la contaminación y alegrar la vista. Pero parece que pueden hacer algo más: modificados genéticamente podrían convertirse en organismos bioluminiscentes. Para eso existe la bioluminiscencia que es un proceso biológico que produce de luz gracias a una reacción química. Este proceso es (depende el ser vivo) así: luciferina/ luciferasa + oxigeno= luz + molécula.

Resultado: hojas que brillan en la oscuridad con una iluminación difusa y mucho más agradable que la de una farola.

Sin embargo, aún queda bastante para desarrollar un organismo que podamos utilizar. Empezando por la cantidad de luz: la suma de cientos de hojas no pueden (todavía) aportar una cantidad apreciable de luz.

Pero parece que el color es mucho menos problemático. Jugando con la biología, los científicos han sido capaces de generar hasta 90 colores diferentes...

LINK

Otra nueva propuesta para cuidar el medio ambiente