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