ascensor (cami)

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 (Por Cami)

viernes 31 de octubre 2008

Noticia 1:PORTUGAL ESTRENARÁ SU PROPIA FERIA TECNOLÓGICA.

La feria se basará fundamentalmente en el desarrollo tecnológico de los sectores verticales lusos, como la Administración Pública; las obras públicas y transportes; el turismo; la seguridad; la salud; y el medio ambiente....

para mas información

Noticia 2: Intel y Asus ofrecen sitio de diseño para la “PC de tus sueños..

Si tú podrías diseñar tu propio equipo, ¿qué características lo convertirían en la máquina de tus sueños?. Eso justamente es lo que Intel y Asus esperan saber a través de WePC.com, un sitio web puesto en marcha conjuntamente por las dos empresas en el que solicitan ideas de los consumidores con el objetivo de producir lo que ellos llaman "la primera comunidad de diseño de PC en el mundo......

para mas información

Noticia 3: Memristor: Otra alternativa para la MRAM.

Parece ser que, por fin, tendremos ordenadores y gadgets que podamos utilizar inmediatamente después de encenderlos, sin necesidad de esperar 5 minutos a que se inicien. Los investigadores de HP Labs han puesto a punto los primeros prototipos funcionales de un nuevo e importante componente electrónico conocido como memristor, que puede hacer posible eso, y mucho más...

para mas información

semana 28 (por cami)

viernes, 24 de octubre de 2008

Noticia 1: Circuitos construidos con células cerebrales

Mientras que varios especialistas consumen sus días intentando imitar el comportamiento de una neurona mediante circuitos electrónicos, los científicos del Instituto Weizmann de Ciencias en Rehovot, Israel, siguen el camino contrario: han logrado construir compuertas lógicas perfectamente funcionales utilizando para ello neuronas.

para mas información

Noticia 2: Panasonic revela sensor 3D para funcionar con la luz del día

Panasonic ha introducido un sensor 3D que se dice ser el uno de los primeros en funcionar correctamente con la luz regular del día.

para mas información

Noticia 3: El INTECO presenta el 'Catálogo de seguridad' de las empresas ...

Las Tecnologías de la Información (TIC) cuentan ya con un catálogo de seguridad que ha sido aprobado en la "cumbre" sobre seguridad cibernética que se ha celebrado en León, organizada por el Instituto Nacional de Tecnologías de la Información.

para mas información

ascensor (por cami)

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 (por cami)

viernes 17 de octubre de 2008

Noticia 1: Medion Akoya S2211, el mejor regalo de Navidad para la mujer tecnológica con estilo

El nuevo portátil, disponible en varios colores: blanco y negro, es la mejor opción para las mujeres que buscan altas prestaciones tecnológicas, sin renunciar por ello al diseño.

Este ordenador incorpora un procesador Intel© Core 2 Duo T9600, con una velocidad de hasta 2,8Ghz; y hasta 4 GB de memoria RAM DDR2. Incluye además una tarjeta gráfica Intel® Graphics Media Accelerator X3100 que asegura la experiencia multimedia en su pantalla TFT de 12,1”.

para mas información

Noticia 2: Buenos Juegos Viejos: Análisis de GOG

Los viejos juegos clásicos son difíciles de olvidar. Y con razón: ¡Son inmortales! Por eso, nunca es tarde para volver a jugarlos. Hasta el día de hoy, no teníamos muchas opciones. O los comprábamos de segunda mano o los descargábamos como abandonware, DOSBox de por medio. Pero ya no más. Good Old Games, sitio del que te hablamos hace un tiempo, vino al rescate de los nostálgicos con un sistema de distribución digital de videojuegos clásicos, con un enfoque diferente a lo que estamos acostumbrados. No solo ofrecen sus juegos a excelentes precios, sino que lo hacen sin DRM, ni limitaciones. Tuvimos la oportunidad de probar la BETA y aquí está nuestro apasionado análisis.

Para mas información

Noticia 3: Adobe hace frente a sus rivales con Flash Player 10

Adobe Systems ha anunciado el lanzamiento de una importante actualización de su tecnología Flash para dotar a los sitios Web con el mejor vídeo, audio y gráficos. La nueva versión 10, cuyo nombre en código es Astro, ha llegado apenas unos días después de que Microsoft publicara la versión 2.0 de Silverlight, su software rival

Para mas información

ascensor 2 (por cami)

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

ascensor (por cami)