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

ascensor final (por ARI)

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)

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)

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)

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)

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)

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)

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)

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

semana 25(por nico)

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)

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)

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)

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