2D Blog de TIC

2009-06-30T17:49:00.001-03:00

Ver Mapa de parque centenario en un mapa más grande

ascensor final (por ARI)

2008-11-26T17:29:00.006-02:00

Private Sub borrar_Click()
contraseña = "contraseña."
subsdos.Enabled = True
controlsubsuelodos.Enabled = True
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then

ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
psubsuelodos.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
If ascensor.Top = 3000 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then

ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
psubsuelodos.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
If ascensor.Top = 4200 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then

ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
psubsuelodos.Caption = "ss"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
If ascensor.Top = 4800 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
subsdos.Enabled = True
End Sub

Private Sub controlsubsuelodos_Click()
If contraseña = "pepitos" Then
ascensor.Top = 1200
ptres.Caption = "subsdos"
pdos.Caption = "subsdos"
puno.Caption = "subsdos"
ppb.Caption = "subsdos"
pss.Caption = "subsdos"
psubsuelodos.Caption = "subsdos"
pisos.Caption = "subsdos"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If

ascensor.Top = 5280
If ascensor.Top = 5280 Then
ptres.Caption = "SS2"
pdos.Caption = "SS2"
puno.Caption = "SS2"
ppb.Caption = "SS2"
pss.Caption = "SS2"
psubsuelodos.Caption = "SS2"
pisos.Caption = "SS2"
End If
If ascensor.Top = 5280 Then
csubdos.Caption = csubdos.Caption + 1
End If
If ascensor.Top = 5280 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = False

End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then

ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
psubsuelodos.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
If ascensor.Top = 2400 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True

End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then

ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
psubsuelodos.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
If ascensor.Top = 3600 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
psubsuelodos.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
If ascensor.Top = 3000 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub escriba_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ir_Click()
If contraseña.Text = "troto" Then
ascensor.Top = 5280
If ascensor.Top = 5280 Then
ptres.Caption = "ss2"
pdos.Caption = "ss2"
puno.Caption = "ss2"
ppb.Caption = "ss2"
pss.Caption = "ss2"
psubsuelodos.Caption = "ss2"
pisos.Caption = "ss2"
End If
If ascensor.Top = 5280 Then
csubdos.Caption = csubdos.Caption + 1
End If
If ascensor.Top = 5280 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = False
Else
contraseña.Visible = False
ir.Visible = False
Borrar.Visible = False
End If
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then

ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
psubsuelodos.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
If ascensor.Top = 4200 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
subsdos.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub reiniciar_Click()

ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
csubdos.Caption = "0"
total.Caption = "0"
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then

ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
psubsuelodos.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
If ascensor.Top = 4800 Then
total.Caption = total.Caption + 1
End If

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
subsdos.Enabled = True
End Sub

Private Sub stop_Click()
If tres.Enabled = True Then
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
subsdos.Enabled = False

controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
controlsubsuelodos.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If tres.Enabled = False Then

tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
controlsubsuelodos.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub subs_Click()

End Sub

Private Sub subsdos_Click()
contraseña.Visible = True
Borrar.Visible = True
ir.Visible = True

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then

ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
psubsuelodos.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
If ascensor.Top = 2400 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
psubsuelodos.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
If ascensor.Top = 3600 Then
total.Caption = total.Caption + 1
End If
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
subsdos.Enabled = True
End Sub

Semana 29 (por ARI)

2008-11-26T16:36:00.002-02:00

martes, noviembre 25, 2008

Una máquina que obtiene agua del aire

Watermill genera agua potable de la humedad del aire

Una compañía canadiense de inversores ecologistas afirma haber encontrado la solución al recrudecimiento de la escasez de agua en el mundo, obteniendo el líquido de la vida de una fuente ilimitada y sin explotar: el aire.

La compañía, llamada Element Four, ha desarrollado una máquina que espera se convierta en el principal electrodoméstico para el hogar inventado desde el microondas. El aparato, bautizado como WaterMill, utiliza la electricidad de unas tres bombillas para condensar la humedad del aire y depurarla transformándola en agua potable.

La máquina ha sido presentada en el distrito Flatiron de Manhattan, en la muestra anual de últimos inventos de la revista Wired, en donde se pueden ver todos los aparatos que según los editores de la revista podrían cambiar el mundo. Desde fuera, el aparato parece una bola de golf gigante cortada a la mitad: tiene unos 90cm de diámetro, está hecho de plástico blanco y va sujeto a la pared.

Funciona haciendo circular el aire a través de unos filtros que eliminan el polvo y las partículas, para luego enfriarlo justo por debajo de la temperatura a la que se forma el rocío. El agua condensada pasa, posteriormente por una cámara de autoesterilización que utiliza la luz ultravioleta para erradicar cualquier posibilidad de legionela u otras infecciones. Por último, se filtra y pasa por una tubería hasta el frigorífico o el grifo de la cocina del propietario.

Para los consumidores preocupados por el medioambiente, el WaterMill tiene un atractivo evidente,ya que el agua embotellada constituye una catástrofe ecológica.

Solo en los EEUU se consumen unos 30.000 litros de agua embotellada al año. Según el Earth Policy Institute, se utilizan alrededor de 1,5 millones de barriles de petróleo (lo suficiente para abastecer a 100.000 coches durante un año) para fabricar el plástico de embotellado. Además, el proceso utiliza el doble del agua que se introduce en la botella, por no mencionar los 30 millones de botellas que se tiran a la basura todos los años en EEUU. Aunque el nuevo electrodoméstico también tiene sus inconvenientes, como el precio de 1.200 dólares que costará cuando salga a la venta en Norteamérica, el Reino Unido, Italia, Australia y Japón en primavera; algo que en esta época de crisis crediticia podría disuadir a muchos compradores. No obstante, su inventor y fundador de Element Four, Jonathan Ritchey, señala que, a 0,30 dólares por litro, el agua del WaterMill es mucho más barata que la embotellada, por lo que el se pagaría solo en un par de años.

Otro inconveniente es que, aunque hay ocho veces más de agua en la atmósfera que en todos los ríos del mundo juntos, ésta está distribuida de forma muy irregular. Así, por ejemplo, las zonas de EEUU con una mayor necesidad de agua, como el árido suroeste, donde los niveles de aguas subterráneas ya se han reducido considerablemente, tienen también los niveles más bajos de humedad en el aire.

El aparato deja de ser eficaz por debajo de un nivel de humedad relativa del 30%, algo frecuente hacia el final del día en estados como Arizona. Para resolver este problema, la máquina cuenta con ordenador inteligente incorporado que su rendimiento cuando la humedad es más elevada y lo reduce en las horas en las que el calor del sol seca el aire.

lunes, noviembre 24, 2008

Nuevo biocombustible para aviones

Está previsto que el 3 de diciembre despegue de Auckland, Nueva Zelanda un Boeing 747 de Air New Zealand, que funciona parcialmente con un nuevo tipo de combustible para reactores elaborado a partir de una mala hierba. Una mezcla a partes iguales de de biocombustible y combustible convencional hará funcionar uno de los motores del avión. El biocombustible, que podría ayudar a reducir las emisiones de dióxido de carbono, ha sido desarrollado por UOP, un destacado proveedor de tecnología para el refinado de petróleo.

No es la primera vez que un avión comercial funciona con un biocombustible. La novedad está en la fuente de este biocombustible: la jatropha, una planta que, a diferencia de otras fuentes actuales de biocombustibles, no es un cultivo destinado a la alimentación y se puede cultivar en suelos agrícolas marginales. En el último año, la producción de biocombustibles ha sido muy criticada por haber contribuido a un importante incremento en los precios de los alimentos. La jatropha proporciona una alternativa los aceites de soja y de palma utilizados actualmente como fuentes de biocombustibles.

El nuevo proceso de UOP forma parte de una iniciativa de mayor envergadura de la compañía para encontrar alternativas al petróleo, en vista de los crecientes esfuerzos de los países para reducir las emisiones de dióxido de carbono. La compañía planea conceder licencias de la tecnología a las refinerías, que podrían incorporarlo fácilmente en las plantas existentes, dado que el proceso es una adaptación del proceso convencional de refinación del petróleo de UOP. La compañía ha desarrollado nuevos catalizadores y ha añadido un par de pasos extra. Por ejemplo, el aceite de jatropha, a diferencia del petróleo, contiene oxígeno. Para convertir el aceite en un hidrocarburo compatible con las estrategias de refinación existentes, UOP incluyó un paso para añadir hidrógeno gas, que elimina el oxígeno. Las moléculas de hidrocarburo resultantes se dividen, a continuación, en moléculas más cortas a través de un proceso común de refinación denominado hidrocraqueo.

Durante este proceso, las moléculas lineales se modifican y pasan a tener "ondulaciones en la cadena", señala Jennifer Holmgren, directora general del departamento de energías renovables de UOP. Eso hace que el combustible resultante sea menos propenso a congelarse. El proceso produce una mezcla principalmente de combustible para reactores y combustible diesel.

A diferencia de muchos otros biocombustibles, el combustible para reactores de jatropha de UOP puede reemplazar al combustible tradicional sin necesidad de realizar cambios en los motores existentes. De hecho, en varios aspectos, el combustible es incluso mejor que el combustible para reactores convencional, ya que tiene un punto de congelación inferior y puede estar expuesto a temperaturas más elevadas abordo de un avión sin degradadarse. Además, contiene ligeramente más energía que el combustible convencional, de modo que un avión impulsado con jatropha podría viajar más lejos.

viernes, noviembre 14, 2008

Previsiones 2009 para el sector tecnológico

La crisis afectará las inversiones en nuevas tecnologías

La firma de investigación IDC ha afirmado que la inversión en tecnología a nivel mundial se frenará considerablemente en el 2009 debido al revuelo financiero que ha desconcertado los mercados internacionales desde septiembre.

IDC espera ahora que la inversión en tecnologías de la información a nivel mundial aumente un 2,6% en 2009, por debajo de su anterior previsión de un crecimiento del 5,9%. En los EEUU, se espera que la inversión aumente tan solo un 0,9%, muy por debajo de la previsión del 4,2% realizada por IDC en agosto.

Hay ya claros signos de que la inversión en tecnología se está debilitando. La semana pasada, Cisco Systems, la primera de las principales compañías tecnológicas en informar de sus ingresos incluyendo el mes de octubre, advirtió que los pedidos de su sistema de conexión de redes cayeron bruscamente durante ese mes. El líder tecnológico espera que caigan las ventas en el trimestre actual.

A pesar de la desaceleración económica, IDC espera que la inversión en servicios y productos tecnológicos continúe creciendo el próximo año, solo que a un ritmo más lento.

Las tecnologías de la información, señaló el jefe de investigación de IDC, John Gantz, en un comunicado, "están en mejor posición que nunca para resistir el tirón a la baja de una desaceleración económica".

Gantz señaló que la tecnología está profundamente implicada en importantes operaciones de negocios y "es fundamental para lograr una mayor eficacia y un aumento de la productividad". El software y los servicios, que pueden ahorrar dinero a las compañías, experimentarán un fuerte crecimiento, mientras que se espera que la inversión en hardware disminuya en el 2009, excepto en lo referente al almacenamiento de datos.

Geográficamente, el crecimiento será más lento en los EEUU, Japón y Europa Occidental, donde rondará el 1% el próximo año. Los mercados emergentes de Europa Central y del Este, África, Latinoamérica y Oriente Medio continuarán experimentando lo que IDC ha denominado "crecimiento saludable", aunque a unos niveles notablemente inferiores a sus anteriores previsiones de dos dígitos.

IDC espera que la inversión tecnológica se "recupere totalmente" en el 2012, con unas tasas de crecimiento próximas al 6%. Aún así, la firma de investigación estima que el sector perderá más de 300.000 millones de dólares en ingresos debido a la caída de la inversión a lo largo de los próximos cuatro años.

Por negra que parezca la situación, el analista de IDC Stephen Minton señaló que, en realidad, en esta ocasión, la inversión en tecnología va mejor que en la crisis anterior, tras los ataques del 11S. La recesión de 2001 y 2002 se produjo tras una burbuja tecnológica caracterizada por un exceso de inversión de las empresas en productos tecnológicos.

En esta ocasión, en cambio, no existe tal burbuja, por lo que aunque las compañías estén reduciendo su inversión en tecnología como parte de unos recortes más amplios para hacer frente a la recesión, todavía tienden a considerar las inversiones en tecnología como una parte importante de su negocio, señaló Minton.

Ascensor final (por Herno y Marcos)

2008-11-21T09:00:00.002-02:00

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub borrar_Click()
contraseña = "contraseña."
cinco.Enabled = True
controlcinco.Enabled = True
End Sub

Private Sub cinco_Click()

auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If contraseña = "14" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True

End Sub

Private Sub controlcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub controlss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub controltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub reiniciar_Click()
ccinco.Caption = "0"
ccuatro.Caption = "0"
ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
total.Caption = "0"
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
borrar.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
borrar.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub total_Click()

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

ascensor final (por nico)

2008-11-20T19:25:00.004-02:00

aca esta el codigo final del ascensor de vb

Private Sub botonuno_Click()
ascensor.Top = 5040
piso1.Caption = " 1"
pb.Caption = " 1"
ss.Caption = " 1"
piso2.Caption = " 1"
piso3.Caption = " 1"
piso4.Caption = " 1"
piso5.Caption = " 1"
auxiliar5.Caption = auxiliar5.Caption + 1
End Sub

Private Sub botondos_Click()
ascensor.Top = 3840
piso1.Caption = " 2"
pb.Caption = " 2"
ss.Caption = " 2"
piso2.Caption = " 2"
piso3.Caption = " 2"
piso4.Caption = " 2"
piso5.Caption = " 2"
auxiliar4.Caption = auxiliar4.Caption + 1
End Sub

Private Sub botontres_Click()
ascensor.Top = 2640
piso1.Caption = " 3"
pb.Caption = " 3"
ss.Caption = " 3"
piso2.Caption = " 3"
piso3.Caption = " 3"
piso4.Caption = " 3"
piso5.Caption = " 3"
auxiliar3.Caption = auxiliar3.Caption + 1
End Sub

Private Sub botoncuatro_Click()

ascensor.Top = 1440
piso1.Caption = " 4"
pb.Caption = " 4"
ss.Caption = " 4"
piso2.Caption = " 4"
piso3.Caption = " 4"
piso4.Caption = " 4"
piso5.Caption = " 4"
auxiliar2.Caption = auxiliar2.Caption + 1
End Sub

Private Sub botoncinco_Click()
ascensor.Top = 240
piso1.Caption = " 5"
pb.Caption = " 5"
ss.Caption = " 5"
piso2.Caption = " 5"
piso3.Caption = " 5"
piso4.Caption = " 5"
piso5.Caption = " 5"
auxiliar1.Caption = auxiliar1.Caption + 1
End Sub

Private Sub cero_Click()
contraseña.Text = contraseña.Text + "0"
End Sub

Private Sub cinco_Click()
contraseña.Text = contraseña.Text + "5"
End Sub

Private Sub cuatro_Click()
contraseña.Text = contraseña.Text + "4"
End Sub

Private Sub dos_Click()
contraseña.Text = contraseña.Text + "2"
End Sub

Private Sub go_Click()
If contraseña.Text = "4857123" Then
ascensor.Top = 240
piso1.Caption = " 5"
pb.Caption = " 5"
ss.Caption = " 5"
piso2.Caption = " 5"
piso3.Caption = " 5"
piso4.Caption = " 5"
piso5.Caption = " 5"
auxiliar1.Caption = auxiliar1.Caption + 1
contraseña.Text = ""
Else
contraseña.Visible = False
go.Visible = False
uno.Visible = False
dos.Visible = False
tres.Visible = False
cuatro.Visible = False
cinco.Visible = False
seis.Visible = False
siete.Visible = False
ocho.Visible = False
nueve.Visible = False
cero.Visible = False
auxiliar1.Caption = auxiliar1.Caption - 1
End If
End Sub

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

Private Sub nivel1_Click()
ascensor.Top = 5040
piso1.Caption = " 1"
pb.Caption = " 1"
ss.Caption = " 1"
piso2.Caption = " 1"
piso3.Caption = " 1"
piso4.Caption = " 1"
piso5.Caption = " 1"
auxiliar5.Caption = auxiliar5.Caption + 1
End Sub

Private Sub nivel2_Click()
ascensor.Top = 3840
piso1.Caption = " 2"
pb.Caption = " 2"
ss.Caption = " 2"
piso2.Caption = " 2"
piso3.Caption = " 2"
piso4.Caption = " 2"
piso5.Caption = " 2"
auxiliar4.Caption = auxiliar4.Caption + 1
End Sub

Private Sub nivel3_Click()
ascensor.Top = 2640
piso1.Caption = " 3"
pb.Caption = " 3"
ss.Caption = " 3"
piso2.Caption = " 3"
piso3.Caption = " 3"
piso4.Caption = " 3"
piso5.Caption = " 3"
auxiliar3.Caption = auxiliar3.Caption + 1
End Sub

Private Sub nivel4_Click()
ascensor.Top = 1440
piso1.Caption = " 4"
pb.Caption = " 4"
ss.Caption = " 4"
piso2.Caption = " 4"
piso3.Caption = " 4"
piso4.Caption = " 4"
piso5.Caption = " 4"
auxiliar2.Caption = auxiliar2.Caption + 1
End Sub

Private Sub nivel5_Click()
contraseña.Visible = True
go.Visible = True
uno.Visible = True
dos.Visible = True
tres.Visible = True
cuatro.Visible = True
cinco.Visible = True
seis.Visible = True
siete.Visible = True
ocho.Visible = True
nueve.Visible = True
cero.Visible = True

End Sub

Private Sub nueve_Click()
contraseña.Text = contraseña.Text + "9"
End Sub

Private Sub ocho_Click()
contraseña.Text = contraseña.Text + "8"
End Sub

Private Sub pisopb_Click()
ascensor.Top = 6240
piso1.Caption = " pb"
pb.Caption = " pb"
ss.Caption = " pb"
piso2.Caption = " pb"
piso3.Caption = " pb"
piso4.Caption = " pb"
piso5.Caption = " pb"
auxiliar6.Caption = auxiliar6.Caption + 1
End Sub

Private Sub pisoss_Click()
ascensor.Top = 7440
piso1.Caption = " ss"
pb.Caption = " ss"
ss.Caption = " ss"
piso2.Caption = " ss"
piso3.Caption = " ss"
piso4.Caption = " ss"
piso5.Caption = " ss"
auxiliar7.Caption = auxiliar7.Caption + 1
End Sub

Private Sub seis_Click()
contraseña.Text = contraseña.Text + "6"
End Sub

Private Sub siete_Click()
contraseña.Text = contraseña.Text + "7"
End Sub

Private Sub ssboton_Click()
ascensor.Top = 7440
piso1.Caption = " ss"
pb.Caption = " ss"
ss.Caption = " ss"
piso2.Caption = " ss"
piso3.Caption = " ss"
piso4.Caption = " ss"
piso5.Caption = " ss"
auxiliar7.Caption = auxiliar7.Caption + 1
End Sub

Private Sub pboton_Click()
ascensor.Top = 6240
piso1.Caption = " pb"
pb.Caption = " pb"
ss.Caption = " pb"
piso2.Caption = " pb"
piso3.Caption = " pb"
piso4.Caption = " pb"
piso5.Caption = " pb"
auxiliar6.Caption = auxiliar6.Caption + 1
End Sub

Private Sub parar_Click()
If pboton.Enabled = True Then
luz.Enabled = False
pboton.Enabled = False
ssboton.Enabled = False
botonuno.Enabled = False
botondos.Enabled = False
botontres.Enabled = False
botoncuatro.Enabled = False
botoncinco.Enabled = False
pisoss.Enabled = False
pisopb.Enabled = False
nivel1.Enabled = False
nivel2.Enabled = False
nivel3.Enabled = False
nivel4.Enabled = False
nivel5.Enabled = False
Else
luz.Enabled = True
pboton.Enabled = True
ssboton.Enabled = True
botonuno.Enabled = True
botondos.Enabled = True
botontres.Enabled = True
botoncuatro.Enabled = True
botoncinco.Enabled = True
pisoss.Enabled = True
pisopb.Enabled = True
nivel1.Enabled = True
nivel2.Enabled = True
nivel3.Enabled = True
nivel4.Enabled = True
nivel5.Enabled = True

End If
End Sub

Private Sub tres_Click()
contraseña.Text = contraseña.Text + "3"
End Sub

Private Sub uno_Click()
contraseña.Text = contraseña.Text + "1"
End Sub

semana 29 (por nico)

2008-11-20T18:45:00.003-02:00

Microsoft ofrecerá gratis sus herramientas y aplicaciones de seguridad informática para Windows
Microsoft Corp dijo el miércoles que discontinuara la venta de su servicio de seguridad para computadoras por suscripción y en su lugar ofrecerá software gratis para ayudar a proteger los equipos de virus, software malicioso y otras amenazas.
no mostraba las fotos

mas??

------ ------ ------ ------ ------ -----
Anuncian ataque masivo de virus para el 24 de noviembre
Quien alertó sobre la situación fue una empresa de seguridad en Internet. Según el análisis de la compañía, el lunes anterior al día de Acción de Gracias es ideal para los hackers.
no mostraba las fotos
a comprar el norton el avg y el avast

------ ------ ------ ------ ------ -----
Obama se queda sin Blackberry por motivos de la seguridad nacional
Despegarse del móvil no es fácil y más en estos tiempos en que parece una extensión más del cuerpo. Pero a Barack Obama lo tendrá que hacer. El Presidente electo de Estados Unidos tendrá que apagar su Blackberry en apenas dos meses por motivos de seguridad nacional. Durante años, Obama ha estado pegado a su dispositivo móvil. En pocas ocasiones se ha podido ver al candidato demócrata separado de su Blackberry, a lo largo de su intensa campaña política.
--------------------------------------------------------------------------------------------------------------

semana28 (por nico)

2008-11-20T18:39:00.002-02:00

microsoft propondrá un programa antipiratería gratuito en 2009
El fabricante estadounidense de programas Microsoft anunció que ofrecerá gratuitamente, a partir de 2009, un programa de seguridad destinado a proteger los ordenadores de los ataques de piratas informáticos.
mas??

------ ------ ------ ------ ------ -----
Primer paso para establecer una Internet interplanetaria
La NASA ha logrado transmitir docenas de imágenes hacia y desde una nave situada a más de 32 millones de kilómetros de la Tierra
no habian fotos
todo??

------ ------ ------ ------ ------ -----
Los accionistas de Yahoo esperan una negociación con Microsoft
Para impresionar a los accionistas, el nuevo consejero delegado de Yahoo solo necesita una cualidad: la voluntad de llegar a un acuerdo con Microsoft, ya que esta opción permanece como la mejor para la compañía, a falta de una alternativa de última hora, según analistas.
ya bajaron mucho las acciones de yahoo,fijate lo que paso aca

semana 27(por nico)

2008-11-20T18:34:00.002-02:00

Ya está disponible StarOffice 9
La suite de productividad incluye soporte para el sistema operativo Mac OS X e incorpora mejoras en todas sus características
mas??
------ ------ ------ ------ ------ -----

PETA critica los juegos de cocina con ‘Cooking Mama’
La nueva campaña crítica de la asociación en defensa de los derechos de los animales PETA ha tomado como objetivo los videojuegos. Concretamente los videojuegos de cocina. Según PETA, en estos videojuegos “tienen tanta presencia de platos preparados con animales muertos que lo único que falta es la sangre y el matadero“, según Vandal Online.

yo lo lei y estoy en contra de PETA pero leelo vos aca

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

Hotmail y Sky Drive ofrecerán 50 GB de almacenamiento gratis
La capacidad de almacenamiento de Hotmail será 25 gigas, aunque irá en aumento cada mes, según las necesidades del usuario, lo que lo convertirá en un almacen ilimitado para todos sus clientes de Hotmail.
wow 50gb...

semana 26 (por nico)

2008-11-20T18:26:00.004-02:00

Irán tiene prohibido el acceso a más de 5 millones de sitios ‘web’
Irán tiene prohibido el acceso a más de cinco millones de sitios de Internet, declaró un responsable judicial citado este miércoles por el diario moderado Kargozaran.
mas??

- ------ ------ ------ ------ -----
Microsoft insiste en que no comprará Yahoo! aunque si busca una alianza en búsquedas
Steve Ballmer, consejero delegado de Microsoft, afirmó hoy que su compañía sigue interesada en algún tipo de alianza con Yahoo en el área de búsquedas en Internet, pero no en adquirir la compañía.
todo??

-- ------ ------ ------ ------ -----
Caen las ventas online por la crisis económica
El comercio en línea también resultó afectado por la merma del consumo y las ventas por Internet prácticamente dejaron de crecer durante el mes de octubre en Estados Unidos, según un estudio publicado el martes por la agencia especializada ComScore.
todo el articulo

vv

2008-11-20T18:26:00.000-02:00

semana 25(por nico)

2008-11-20T18:07:00.002-02:00

Pendrive con lector de tarjetas microSDHC
Como vemos en la imagen este es un pendrive que tiene como función leer tarjetas de memoria microSDHC.
lindo el pendrive no??

------ ------ ------ ------ ------ ------Reproductor multimedia Ritmix RF-9200
La empresa Ritmix, este se llama Ritmix RF-9200 y tiene estas características:Pantalla QVGA de 2.4 pulgadasFormatos de Audio: MP3, OGG, WMA, WAVFormatos de Vídeo: MPEG-4, AVI, WMV, ASFFormatos de Imagen: JPEGFormatos de Texto: TXTSintonizador de radio FMCapacidad hasta 8 GBAutonomía de 26 horas en uso
mas??

------ ------ ------ ------ ------ ------
Sennheiser HD 515 Gaming unos auriculares para jugar
Sennheiser presenta unos nuevos auriculares, llamados HD 515 Gaming que llega para dar el mejor sonido a los juegos.
todo??

semana 24 (por nico)

2008-11-20T18:00:00.004-02:00

Navegadores GPS Sanyo, NVA-MS1180DT y NVA-MS1280DT
Sanyo presenta dos nuevos navegadores GPS, que llegaran solo para Japon, estos son losNVA-MS1180DT y NVA-MS1280DT, y traen estas características:Dimensiones: 178 x 100 x 160 mm Peso: 2,5 Kg (MS1280DT) y 2,6 Kg (MS1180DT) Pantalla QVGA de 7 pulgadas Sintonizador de TV (1Seg) Sintonizador de radio FM Disco SSD de 4GB Ranura de memoria SD (el modelo MS1280DT incluye una de 4GB) Reproductor de DVD (MS1280DT solamente)
mas??
------ ------ ------ ------ ------ ------
Cámara Digital Pentax Optio W60
Pentax presento la camara Optio W60, que se destaca por que es resistente al agua, unos 4 metros bajo el agua y -10° C de frio.
todo el articulo aca

------ ------ ------ ------ ------ ------Reproductor multimedia ZVUE Spirit
ZVUE presento un reproductor multimedia para los patriotas de Estados Unidos este se llama Spirit
todo??

semana23 (por nico)

2008-11-20T17:56:00.001-02:00

Ordenadores inteligentes
¿Pueden pensar los ordenadores? Según un artículo publicado este mes en The Guardian, medio siglo después de ´que el matemático Alan Turing plantease esta pregunta, seis ordenadores están a punto de conversar coninterlocutores humanos en un experimento que intentará probar que la respuesta es sí.
no habian fotos
mas??
------ ------ ------ ------ ------ ------
Comparación de Android de Google con iPhone
Desde que el teléfono móvil G1 de T-Mobile debutó la semana pasada, rápidamente ha sido comparado con eliPhone de Apple y el BlackBerry de RIM y, ante las muchas carencias, defectos y decepciones de la primeraincursión de Google en el mercado de la telefonía móvil, el G1 y Google Android no están saliendo muy airosos.

todo??
------ ------ ------ ------ ------ ------
Reproductor de audio portátil DEC I200
DEC presenta un nuevo reproductor de audio digital y portátil, el DEC I200.Entre las características de DEC I200, tenemos:Grosor: 6.5 mmPantalla OLEDFormatos de audio: MP3, WMA, WAV, FLAC, APESoporte para ID3MicrófonoGrabación de voz, en formato WAVCapacidad de 1 a 4GBUSB 2.0
todo el articulo
--------------------------------------------------------------------------------------------------------------

semana 22 (por nico)

2008-11-20T17:51:00.003-02:00

Las tecnologías mas importantes para 2009
Según Gartner esta es la lista de las tecnologías de mayor impacto para el sector de nuevas tecnologías de la información en 2009.
mas???
------ ------ ------ ------ ------ ------
La crisis afecta a Yahoo
Yahoo estaba ya en una mala situación mucho antes de que la crisis financiera hiciera que todo el mundo se preocupase por una posible recesión global. Ahora, sus problemas se han agudizado.
toda la noticia
------ ------ ------ ------ ------ ------
Cómo afecta la crisis económica al sector de Internet
Otro día escalofriante en la bolsa: el Dow ha caído más de un 7% y el Nasdaq más de un 5%, y las compañías de Internet no han sido inmunes, mientras un coro cada vez mayor de analistas afirman que la crisis financiera y la recesión económica afectarán a casi todo el sector.
queres todo??
--------------------------------------------------------------------------------------------------------------

se

2008-11-20T17:39:00.001-02:00

semana 21(por nico)

2008-11-20T17:24:00.002-02:00

Internet por teléfono móvil

Aunque es verdad que cada día más teléfonos pueden navegar por la Web, también es verdad que muchos teléfonos
móviles solo disponen de una capacidad limitada para mostrar gran parte de los contenidos de Internet.
Los vídeos que se reproducen con Adobe Flash Players, como los del New York Times, la CNN y Technology Review, y
las páginas Web hechas en Flash smplemente no funcionan en muchos teléfonos debido a que el software es
incompatible con el hardware. Ahora, en una iniciativa para abrir más la Web a los dispositivos móviles, Adobe
y el fabricante de microchips ARM, con el que funcionan el 90% de todos los teléfonos del mundo, han anunciado
una colaboración para garantizar que el software de Adobe funcione bien en los futuros dispositivos de ARM.

queres MAS???

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

Teléfono móvil de Facebook

Según un artículo publicado este mes en The Guardian, la compaía de telefonía móvil 3 espera aprovechar el
éxito de Facebook con el lanzamiento, a tiempo para Navidad, de un nuevo teléfono que integra la red social
con todas las funciones tradicionales de un teléfono móvil, como agenda de contactos y bandeja de entrada de
mensajes.

queres verlo todo?

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

Microsoft rechaza hacer nueva oferta por Yahoo

Según un artículo publicado este mes en Technology Review, las acciones de Yahoo
han caído más de un 14% después de que el presidente de Microsoft, Steve Ballmer, afirmara el
viernes que no están interesados en renovar su oferta por la compañía de Internet.

mas???
--------------------------------------------------------------------------------------------------------------

Ascensor final (por Anita)

2008-11-20T16:34:00.001-02:00

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

Ascensor terminado (por Lau)

2008-11-20T14:57:00.002-02:00

Private Sub Boton1_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = False
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 4440
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(Cantpiso1.Caption) + 1

End Sub

Private Sub Boton12_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = False
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 4440
Numpisoo.Caption = 1
Numpisoss2.Caption = 1
Numpisopb2.Caption = 1
Numpiso12.Caption = 1
Numpiso22.Caption = 1
Numpiso32.Caption = 1
Numpiso42.Caption = 1
Numpiso52.Caption = 1
Cantpiso12.Caption = Val(Cantpiso12.Caption) + 1
End Sub

Private Sub Boton2_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(2)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = False
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 3360
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(Cantpiso2.Caption) + 1

End Sub

Private Sub Boton22_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(2)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = False
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 3360
Numpisoo.Caption = 2
Numpisoss2.Caption = 2
Numpisopb2.Caption = 2
Numpiso12.Caption = 2
Numpiso22.Caption = 2
Numpiso32.Caption = 2
Numpiso42.Caption = 2
Numpiso52.Caption = 2
Cantpiso22.Caption = Val(Cantpiso22.Caption) + 1
End Sub

Private Sub Boton3_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(3)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = False
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 2280
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1

End Sub

Private Sub Boton32_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(3)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = False
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 2280
Numpisoo.Caption = 3
Numpisoss2.Caption = 3
Numpisopb2.Caption = 3
Numpiso12.Caption = 3
Numpiso22.Caption = 3
Numpiso32.Caption = 3
Numpiso42.Caption = 3
Numpiso52.Caption = 3
Cantpiso32.Caption = Val(Cantpiso32.Caption) + 1
End Sub

Private Sub Boton4_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(4)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = False
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 1200
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(Cantpiso4.Caption) + 1

End Sub

Private Sub Boton42_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(4)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = False
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 1200
Numpisoo.Caption = 4
Numpisoss2.Caption = 4
Numpisopb2.Caption = 4
Numpiso12.Caption = 4
Numpiso22.Caption = 4
Numpiso32.Caption = 4
Numpiso42.Caption = 4
Numpiso52.Caption = 4
Cantpiso42.Caption = Val(Cantpiso42.Caption) + 1
End Sub

Private Sub Boton5_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(5)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = False
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 120
Numpiso.Caption = 5
Numpiso.Caption = 5
NumpisoSS.Caption = 5
NumpisoPB.Caption = 5
Numpiso1.Caption = 5
Numpiso2.Caption = 5
Numpiso3.Caption = 5
Numpiso4.Caption = 5
Numpiso5.Caption = 5
Cantpiso5.Caption = Val(Cantpiso5.Caption) + 1

End Sub

Private Sub Boton52_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(5)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = False
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 120
Numpisoo.Caption = 5
Numpisoss2.Caption = 5
Numpisopb2.Caption = 5
Numpiso12.Caption = 5
Numpiso22.Caption = 5
Numpiso32.Caption = 5
Numpiso42.Caption = 5
Numpiso52.Caption = 5
Cantpiso52.Caption = Val(Cantpiso52.Caption) + 1
End Sub

Private Sub BotonPB_Click()
contra.Text = ""
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(0)) ^ 2)
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = False
BotonSS.Enabled = True
Ascensor.Top = 5520
Numpiso.Caption = 0
NumpisoSS.Caption = 0
NumpisoPB.Caption = 0
Numpiso1.Caption = 0
Numpiso2.Caption = 0
Numpiso3.Caption = 0
Numpiso4.Caption = 0
Numpiso5.Caption = 0
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub Botonpb2_Click()
contra2.Text = ""
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(0)) ^ 2)
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = False
Botonss2.Enabled = True
ascensor2.Top = 5520
Numpisoo.Caption = 0
Numpisoss2.Caption = 0
Numpisopb2.Caption = 0
Numpiso12.Caption = 0
Numpiso22.Caption = 0
Numpiso32.Caption = 0
Numpiso42.Caption = 0
Numpiso52.Caption = 0
Cantpisopb2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub BotonSS_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(-1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = False
Ascensor.Top = 6600
Numpiso.Caption = -1
NumpisoSS.Caption = -1
NumpisoPB.Caption = -1
Numpiso1.Caption = -1
Numpiso2.Caption = -1
Numpiso3.Caption = -1
Numpiso4.Caption = -1
Numpiso5.Caption = -1
CantpisoSS.Caption = Val(CantpisoSS.Caption) + 1

End Sub

Private Sub Command1_Click()
End Sub

Private Sub Botonss2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(-1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = False
ascensor2.Top = 6600
Numpisoo.Caption = -1
Numpisoss2.Caption = -1
Numpisopb2.Caption = -1
Numpiso12.Caption = -1
Numpiso22.Caption = -1
Numpiso32.Caption = -1
Numpiso42.Caption = -1
Numpiso52.Caption = -1
Cantpisoss2.Caption = Val(Cantpisoss2.Caption) + 1

End Sub

Private Sub Enter_Click()
If contra.Text = "3899" Then
Ascensor.Top = 120
Else
contra.Enabled = False
Enter.Enabled = False
End If
contra.Text = ""
contra.Enabled = False
Enter.Enabled = False
End Sub

Private Sub Enter2_Click()
If contra2.Text = "3899" Then
ascensor2.Top = 120
Else
contra2.Enabled = False
Enter2.Enabled = False
End If
contra2.Text = ""
contra2.Enabled = False
Enter2.Enabled = False
End Sub

Private Sub Luz_Click()
If Ascensor.BackColor = vbBlack Then
Ascensor.BackColor = vbYellow
Else
Ascensor.BackColor = vbBlack
End If

End Sub

Private Sub Luz2_Click()
If ascensor2.BackColor = vbBlack Then
ascensor2.BackColor = vbYellow
Else
ascensor2.BackColor = vbBlack
End If
End Sub

Private Sub PBNum_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(0)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = False
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 5520
Numpiso.Caption = 0
NumpisoSS.Caption = 0
NumpisoPB.Caption = 0
Numpiso1.Caption = 0
Numpiso2.Caption = 0
Numpiso3.Caption = 0
Numpiso4.Caption = 0
Numpiso5.Caption = 0
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub pbnum2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(0)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = False
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 5520
Numpisoo.Caption = 0
Numpisoss2.Caption = 0
Numpisopb2.Caption = 0
Numpiso12.Caption = 0
Numpiso22.Caption = 0
Numpiso32.Caption = 0
Numpiso42.Caption = 0
Numpiso52.Caption = 0
Cantpisopb2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub SSNum_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(-1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = False
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 6600
Numpiso.Caption = -1
NumpisoSS.Caption = -1
NumpisoPB.Caption = -1
Numpiso1.Caption = -1
Numpiso2.Caption = -1
Numpiso3.Caption = -1
Numpiso4.Caption = -1
Numpiso5.Caption = -1
CantpisoSS.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub SSnum2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(-1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = False
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 6600
Numpiso2.Caption = -1
Numpisoss2.Caption = -1
Numpisopb2.Caption = -1
Numpiso12.Caption = -1
Numpiso22.Caption = -1
Numpiso32.Caption = -1
Numpiso42.Caption = -1
Numpiso52.Caption = -1
Cantpisoss2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub Stop1_Click()
If Luz.Enabled = True Then
Luz.Enabled = False
PBNum.Enabled = False
teclado1.Enabled = False
teclado2.Enabled = False
teclado3.Enabled = False
teclado4.Enabled = False
teclado5.Enabled = False
SSNum.Enabled = False
BotonPB.Enabled = False
BotonSS.Enabled = False
Boton1.Enabled = False
Boton2.Enabled = False
Boton3.Enabled = False
Boton4.Enabled = False
Boton5.Enabled = False
contadorpiso.Caption = "0"
Ascensor.BackColor = vbBlack
Else
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
SSNum.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Luz.Enabled = True
End If
contra.Text = ""
CantpisoSS.Caption = "0"
CantpisoPB.Caption = "0"
Cantpiso1.Caption = "0"
Cantpiso2.Caption = "0"
Cantpiso3.Caption = "0"
Cantpiso4.Caption = "0"
Cantpiso5.Caption = "0"
If Stop1.Caption = "Stop" Then
Stop1.Caption = "Enable"
Else
Stop1.Caption = "Stop"
End If

End Sub

Private Sub Stop2_Click()
If Luz2.Enabled = True Then
Luz2.Enabled = False
pbnum2.Enabled = False
teclado12.Enabled = False
teclado22.Enabled = False
teclado32.Enabled = False
teclado42.Enabled = False
teclado52.Enabled = False
SSnum2.Enabled = False
Botonpb2.Enabled = False
Botonss2.Enabled = False
Boton12.Enabled = False
Boton22.Enabled = False
Boton32.Enabled = False
Boton42.Enabled = False
Boton52.Enabled = False
contadorpiso2.Caption = "0"
ascensor2.BackColor = vbBlack
Else
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
SSnum2.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
Boton12.Enabled = True
Boton22.Enabled = True
Boton32.Enabled = True
Boton42.Enabled = True
Boton52.Enabled = True
Luz2.Enabled = True
End If
contra2.Text = ""
Cantpisoss2.Caption = "0"
Cantpisopb2.Caption = "0"
Cantpiso12.Caption = "0"
Cantpiso22.Caption = "0"
Cantpiso32.Caption = "0"
Cantpiso42.Caption = "0"
Cantpiso52.Caption = "0"
If Stop2.Caption = "Stop" Then
Stop2.Caption = "Enable"
Else
Stop2.Caption = "Stop"
End If
End Sub

Private Sub teclado1_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = False
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 4440
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado12_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = False
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 4440
Numpisoo.Caption = 1
Numpisoss2.Caption = 1
Numpisopb2.Caption = 1
Numpiso12.Caption = 1
Numpiso22.Caption = 1
Numpiso32.Caption = 1
Numpiso42.Caption = 1
Numpiso52.Caption = 1
Cantpiso12.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado2_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(2)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = False
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 3360
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado22_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(2)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = False
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 3360
Numpisoo.Caption = 2
Numpisoss2.Caption = 2
Numpisopb2.Caption = 2
Numpiso12.Caption = 2
Numpiso22.Caption = 2
Numpiso32.Caption = 2
Numpiso42.Caption = 2
Numpiso52.Caption = 2
Cantpiso22.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado3_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(3)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = False
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 2280
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1

End Sub

Private Sub teclado32_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(3)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = False
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 2280
Numpisoo.Caption = 3
Numpisoss2.Caption = 3
Numpisopb2.Caption = 3
Numpiso12.Caption = 3
Numpiso22.Caption = 3
Numpiso32.Caption = 3
Numpiso42.Caption = 3
Numpiso52.Caption = 3
Cantpiso32.Caption = Val(Cantpiso32.Caption) + 1
End Sub

Private Sub teclado4_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(4)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = False
teclado5.Enabled = True
Ascensor.Top = 1200
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado42_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(4)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = False
teclado52.Enabled = True
ascensor2.Top = 1200
Numpisoo.Caption = 4
Numpisoss2.Caption = 4
Numpisopb2.Caption = 4
Numpiso12.Caption = 4
Numpiso22.Caption = 4
Numpiso32.Caption = 4
Numpiso42.Caption = 4
Numpiso52.Caption = 4
Cantpiso42.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado5_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(5)) ^ 2)
contra.Text = ""
Enter.Enabled = True
contra.Enabled = True
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = False

End Sub

Private Sub teclado52_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(5)) ^ 2)
contra2.Text = ""
Enter2.Enabled = True
contra2.Enabled = True
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = False
End Sub

Semana 29 (por guido)

2008-11-19T14:05:00.004-02:00

Google lanza un buscador con más de 10 millones de fotos de la revista Life

Podríamos debatir durante horas si es cierto o no el viejo dicho de que una imagen vale más que mil palabras. Pero estaremos todos de acuerdo en que una buena foto hecha en el momento justo puede simbolizar grandes acontecimientos de la Historia. Es lo que sucede en la imagen superior, en la que el fotógrafo Preston Keres captó a un bombero neoyorquino pidiendo apoyo a los equipos de rescate, sólo cuatro días después del atentado contra las Torre Gemelas del 11 de septiembre de 2001. Es una de las más de 10 millones de fotografías realizadas por la revista Life desde la década de 1750, recientemente hospedadas por Google en este buscador especial. Un enorme archivo de imágenes puestas de forma completamente gratuita a disposición del gran público. Y en la mayoría de los casos, por primera vez, pues el 97% de las imágenes recogidas nunca llegaron a ser publicadas.

para saber algo mas....

Launch Control, fuegos artificiales por control remoto

Fuegos artificiales con mando a distancia. Esta es la última idea que ha desarrollado la empresa inglesa Maplin, para hacer los fuegos artificiales mucho más cómodos y seguros. El invento se llama Launch Control y funciona con un mando a distancia y unos receptores que se enganchan a los cohetes en cuestión. De esta manera, el encargado de los fuegos puede situarse a una distancia prudencial de 25 metros, asegurando su
integridad en el momento de las detonaciones.
En total se pueden lanzar hasta cinco fuegos de una tirada, gracias a un sistema que sujeta con pinzas cada uno de los explosivos. Estos se encuentran conectados a un control remoto dirigido con el mando a distancia que tenemos en nuestras manos. Gracias a este mecanismo, el aparato activa una mecha en una fracción de segundo y enciende los cohetes que están enganchados al otro extremo, preparados para estallar en colores.
El funcionamiento es muy sencillo, pero está especialmente recomendado para los que suelen manejar fuegos artificiales complejos. Y no nos valen los organizadores de los fuegos de Pekín 2008, especialistas en falsear espectáculos. Aun así, cualquier aficionado, puede adquirir el Launch Control en la misma tienda de Maple, dónde están ofreciendo las últimas unidades del producto, al precio de doce euros.

para saber algo mas....

Espasa copia sus textos de la Wikipedia

Como si esto fuera el aula de un cole. La famosa editorial Espasa, líder indiscutible en esto de hacer enciclopedias en España, ha plagiado a la Wikipedia. La que fuera la enciclopedia más criticada e infravalorada, ha servido esta vez de mucho a Espasa. Fue José Manuel Moreno, el autor de la entrada sobre el escritor del siglo de oro Baltasar Gracián, quien se percató del plagio. Luego, un blog se hizo eco de la noticia y el artículo que denunciaba el tema, sirvió para abrir la caja de los truenos. Y es que a Espasa le han pillado copiando. Y mucho.
Pero la biografía de Baltasar Gracián no es la única. También se han copiado, entre otros, las vidas de personajes tan conocidos como Voltaire, Dámaso Alonso, Azorín o Vladimir Nabokov. La relación de nombres se evidencia en una nueva entrada de la Wiki, en la que se recoge una muestra de todos los plagios hallados hasta el momento. Por su parte, Espasa aseguró al diario El Mundo, que había eliminado estos contenidos de su página en menos de 45 minutos, al mismo tiempo que pasaba la pelota al tejado de una empresa externa, que al parecer se encarga del diseño de la nueva página web de la editorial.

para saber algo mas....

yo elegi estos articulos porque me parecieron muy buenos y muy interesantes.

Ascensor 5 (por marto)

2008-11-19T14:00:00.001-02:00

Private Sub borrar_Click()
contraseña = "contraseña."
cinco.Enabled = True
controlcinco.Enabled = True
End Sub

Private Sub cinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True

End Sub

Private Sub controlcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub controlss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub controltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub reiniciar_Click()
ccinco.Caption = "0"
ccuatro.Caption = "0"
ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
total.Caption = "0"
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
borrar.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
borrar.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub total_Click()

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Ascensor 4 (por marto)

2008-11-19T13:58:00.000-02:00

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 3 (por marto)

2008-11-19T13:57:00.000-02:00

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ccinco_Click(Index As Integer)

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 2 (por marto)

2008-11-19T13:55:00.001-02:00

Private Sub L1_Click()ascensor.Top = 4680End Sub
Private Sub L2_Click()ascensor.Top = 3720End Sub
Private Sub L3_Click()ascensor.Top = 2640End Sub
Private Sub L4_Click()ascensor.Top = 1560End Sub
Private Sub L5_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub

Private Sub llamar1_Click()ascensor.Top = 4680End Sub
Private Sub llamarcinco_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub
Private Sub llamarcuatro_Click()ascensor.Top = 1560End Sub
Private Sub llamardos_Click()ascensor.Top = 3720End Sub
Private Sub llamarpb_Click()ascensor.Top = 5640End Sub
Private Sub llamarss_Click()ascensor.Top = 6480End Sub
Private Sub llamartres_Click()ascensor.Top = 2640End Sub
Private Sub LPB_Click()ascensor.Top = 5640End Sub
Private Sub LSS_Click()ascensor.Top = 6480End Sub
Private Sub luz_Click()If ascensor.FillColor = vbBlack Thenascensor.FillColor = vbWhiteElseIf ascensor.FillColor = vbWhite Thenascensor.FillColor = vbBlack
End If
End IfEnd Sub
Private Sub stop_Click()If llamar1.Enabled = True Thenllamar1.Enabled = Falsellamardos.Enabled = Falsellamartres.Enabled = Falsellamarcuatro.Enabled = Falsellamarcinco.Enabled = Falsellamarss.Enabled = Falsellamarpb.Enabled = FalseL1.Enabled = FalseL2.Enabled = FalseL3.Enabled = FalseL4.Enabled = FalseL5.Enabled = FalseLPB.Enabled = FalseLSS.Enabled = Falseluz.Enabled = Falsell1.Enabled = Falsell2.Enabled = Falsell3.Enabled = Falsell4.Enabled = Falsell5.Enabled = Falsellss.Enabled = Falsellpb.Enabled = FalseElsellamar1.Enabled = Truellamardos.Enabled = Truellamartres.Enabled = Truellamarcuatro.Enabled = Truellamarcinco.Enabled = Truellamarss.Enabled = Truellamarpb.Enabled = TrueL1.Enabled = TrueL2.Enabled = TrueL3.Enabled = TrueL4.Enabled = TrueL5.Enabled = TrueLPB.Enabled = TrueLSS.Enabled = Trueluz.Enabled = Truell1.Enabled = Truell2.Enabled = Truell3.Enabled = Truell4.Enabled = Truell5.Enabled = Truellss.Enabled = Truellpb.Enabled = TrueEnd If
End Sub

Ascensor 1 (por marto)

2008-11-19T13:51:00.004-02:00

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click(Index As Integer)
ascensor.Top = 1200
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
End Sub

Private Sub cuatro_Click(Index As Integer)
ascensor.Top = 1800
End Sub

Private Sub dos_Click(Index As Integer)
ascensor.Top = 3000
End Sub

Private Sub pb_Click(Index As Integer)
ascensor.Top = 4200
End Sub

Private Sub ss_Click(Index As Integer)
ascensor.Top = 4800
End Sub

Private Sub tres_Click(Index As Integer)
ascensor.Top = 2400
End Sub

Private Sub uno_Click(Index As Integer)
ascensor.Top = 3600
End Sub

semana 29 (por marto)

2008-11-19T13:30:00.004-02:00

Bang & Olufsen BeoSound 5, un servidor musical a precio de lujo

Publicado por Redacción el 18 de Noviembre del 2008

El BeoSound 5 reúne todas las características fundamentales en un producto de Bang & Olufsen. Al igual que otras referencias de la firma, este servidor musical se presenta en sociedad con un diseño distinguido, con ese toque de elitismo que tanto les gusta. Y un precio desorbitado que, además de quitar el hipo a cualquiera, no se corresponde del todo con lo que ofrece. Que tampoco es nada del otro mundo, por cierto.

elegi este articulo por que me gusta el diseño
para saber mas

MSR-H01, una araña robot fácil de montar

Publicado por Borja Gil el 18 de Noviembre del 2008

Montar tú mismo un robot casero puede parecer complicado. Sobre todo si se trata de un modelo de seis patas, como este MSR-H01 de la compañía Micromagic Systems. Y para terminar de rizar el rizo, la cosa se complica del todo si ¡ni siquiera incluye las instrucciones de montaje! Pero no hay que alarmarse. Las indicaciones para ensamblar las piezas de esta araña robótica sólo están disponibles en la web para abaratar costes. Basta con seguir las instrucciones de los dibujos para darse cuenta de que, en realidad, no es para tanto.

elegi este articulo por que es un invento muy bueno
para saber mas

Flapping display. Samsung presenta una pantalla OLED de 0,05 milímetros de grosor

Publicado el 10 de Noviembre del 2008

Es una pantalla de cuatro pulgadas con sólo 0,05 milímetros de grosor. Se llama “Flapping display” emplea la tecnología OLED y la ha presentado la firma Samsung en la FDP International 2008 (feria que se celebra en Yokohama, Japón).

La noticia es que esta corporación coreana ha sido capaz de fabricar una de las pantallas flexibles más delgadas del mundo. Tiene el mismo grosor cinco folios juntos. El panel OLED es tan fino que podríamos moverlo con el aire que produce un simple ventilador, como si fuera una cartulina.

elegi este articulo por que es un diseño bueno
para saber mas