Semana 29 (por Iaru)

ASUS presenta la torre de sobremesa plegable VENTO TA-F

03 / 11 / 2008

ASUS ha vuelto a sorprender con un producto mucho más útil de lo que pueda parecer, puesto que con este chasis plegable se puede ahorrar hasta un 30% en transporte y almacenamiento (siempre que esté plegada, claro). Los amantes del bricolaje les encantará descubrir que no son necesarias herramientas para su montaje y la cantidad de puertos y espacios con que viene el VENTO.Se venderá en dos colores: plateado (TA-FA21) o negro (TA-FA11), aunque por el momento no tenemos más detalles ni sobre el precio ni la fecha de lanzamiento.
Para ver más
Lo elegí porque me es muy práctico.

Las webcams con cristales Swarovski demuestran que si no brilla no sirve.

31 / 10 / 2008

No vamos a decir que aparatos sin cristales Swarovski no sirven para nada, sin embargo, estos parecen subir su valor (aunque sea netamente económico). Las webcams Laplace de Vicious and Divine se venden por alrededor de 50 euros. Incluyen resolución para fotos de 2 megapíxeles, video de 1,3 megapíxeles, flash y una articulación que permite montarlas en portátiles y monitores de panel plano. Como puedes ver en la fotografía superior, vienen en colores blanco y negro, y harán que seas el individuo más envidiado (¿odiado?) de la Campus Party. Claro que si compras una de estas, seguramente no te importará que la gente te odie.

Para ver más
Lo elegí porque me gusto el modelo

Tomy xiao digital camera has built in Zink printer, the spirit of Polaroids
Nov 6th 2008

Like just about everyone else, we miss the Polaroid film format; maybe it's just nostalgia, but we enjoyed having something we could hold on to (and shake) after taking a picture. Polaroids may be dead, but the basic concept lives on -- remember Zink, that company whose technology prints digital photos on the spot without ink? It's joined forces with toy-maker Tomy to make the xiao TIP-521, a digital camera with a printer built in. The xiao has a modest five megapixel resolution, so we might wait and see how Polaroid's own Zink camera turns out, but in either case we're stoked the tactile experience is back.

Para ver más

Lo elegí porque me gustaría tener una de estas cámaras y porque demuestra que todo vuelve ya que este tipo de cámaras ya se utilizaban años atras.

semana 29 (Por Cami)

viernes 31 de octubre 2008

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

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

para mas información

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

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

para mas información

Noticia 3: Memristor: Otra alternativa para la MRAM.

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

para mas información

Ascensor (por lula)

Private Sub L1_Click()
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub L2_Click()
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub L3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub L4_Click()
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub ll1_Click(Index As Integer)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub ll2_Click(Index As Integer)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub ll3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub ll4_Click(Index As Integer)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamar1_Click()
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub llamarpb_Click()
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub llpb_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llss_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub LPB_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub LSS_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

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

Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False

Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Semana 29 (por Galu)

Papeleras de seguridad con paneles informativos

En mi viaje a Japón pude comprobar de primera mano lo difícil que es encontrar una papelera por la calle. En Londres sucede algo similar, aunque cuando estuve allí no me fijé en ello. La excusa, en ambos casos, es la misma: la seguridad frente a ataques terroristas, que podrían utilizar las papeleras para poner bombas.
La compañía Media Metrica ha desarrollado unas papeleras especiales antibomba que podrían cambiar este panorama. Aunque no es eso por lo que aparecen en Xataka, sino porque irán equipadas con el sistema Renew.
Con un par de pantallas de gran tamaño en cada papelera, allí se puede mostrar información variada, desde noticias de actualidad, información sobre el transporte o, pensando que serán instaladas sobre todo en zonas financieras, cotizaciones de accio
31 de octubre de 2008
Para ver más

PoP, máquina de vending de contenidos

¿Alguna vez has querido comprar un DVD o un Blu-ray a las cuatro de la mañana? No, yo tampoco, pero Universal y Sony no quieren perder la oportunidad de hacer esa venta si, cualquier día, nos da por ahí. Para ello han desarrollado la PoP.
No es más que una máquina de vending aunque con algunas funciones avanzadas, en la cual se podrán adquirir DVDs, discos Blu-ray y juegos de Playstation 3, además de contenido digital que podremos almacenar en nuestros propios dispositivos conectándolos a la máquina.
31 de octubre de 2008
Para ver más

Protege tu iPhone con estas carcasas metálicas

Si quieres proteger a tu iPhone (es caro, mejor que lo cuides bien) aquí les dejo unas carcasas metálicas que quizás les interese. Pueden comprarlas a través de la página oficial de sus creadores, Incase, por sólo US$35.
31 de octubre de 2008
Para ver más

Calculadora 4 (por Galu)

Private Sub cinco_Click()


If contraseña.Text = "1234" Then
auxiliar.Caption = (ascensor.Top - 720) / 840
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"

nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1

End If
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840

ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub

Private Sub dos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1


End Sub

Private Sub llcinco_Click()
auxiliar.Caption = (ascensor.Top - 720) / 840

ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"

marcacinco.Caption = marcacinco.Caption + 1

End Sub


Private Sub llcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840

ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"

marcacuatro.Caption = marcacuatro.Caption + 1

End Sub

Private Sub lldos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840

ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"

marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"

marcass.Caption = marcass.Caption + 1
End Sub

Private Sub lltres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840

ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1

End Sub

Private Sub lluno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840

ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub ss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub

Private Sub stop_Click()

If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"

marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub

Private Sub tres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1
End Sub

Private Sub uno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840

ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1

End Sub

Semana 29 (por Daniel)

Artículo 1:
31/10/08

Philips golite Blu, sube tu ánimo con luz

Con la llegada del invierno, en algunos países, principalmente del norte del planeta, la falta de luz solar suele provocar problemas de sueño, ánimo decaído o cansancio. Philips ha anunciado ya la disponibilidad de uno de esos típicos productos suyos que nacen como concepto en eventos como el Simplicity, en cuya edición de este año estuvo Xataka.
GoLite Blu será para muchos un producto sin uso real, pero la base científica ahí está. Este equipo para la salud personal usa luces LED para emitir una luz azul con una longitud de onda perfecta para que el organismo no note la ausencia prolongada de luz solar natural.

Para ver más.

Artículo 2:

31/10/08

Shuttle Barebone X27D, con Atom de doble núcleo

Los procesadores Atom no solo están de moda entre los ultraportátiles. Ordenadores de sobremesa, especialmente los tipo barebone, los están adoptando en situaciones que no requieren de un alto rendimiento. Lo vimos con el TVBE y lo comprobamos de nuevo con el Shuttle Barebone X27D.
Por características y salidas no es un ordenador pensado para colocar junto al televisor y funcionar como media center, sino más bien para tenerlo en el escritorio sin ocupar demasiado espacio, con un consumo razonable y generando muy poco ruido, ya que ofrece un sistema de ventilación pasiva sin ventiladores.

Para ver más.

Artículo 3:

31/10/08

Sharp presenta un LCD con memoria

Hasta ahora la tinta electrónica representaba un salto tecnológico frente a tecnologías ya implantadas como el LCD. Pero Sharp está mostrando unos modelos de LCD capaces de mantener la imagen incluso cuando no disponen de corriente.
Estas propiedades los convierten en buenos candidatos para ser usados en dispositivos como libros electrónicos, igual que ya se hace con la tinta electrónica. De momento, pero, presentan el problema de que para fijar la imagen requieren una buena cantidad de energía.

Para ver más.

Yo elegí estos artículos porque son ideas muy buenas e interesantes.

Ascensor 3 (por Iaru)

Private Sub L1_Click()
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub L2_Click()
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub L3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub L4_Click()
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub


Private Sub ll1_Click(Index As Integer)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub



Private Sub ll2_Click(Index As Integer)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub ll3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub ll4_Click(Index As Integer)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamar1_Click()
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub


Private Sub llamarpb_Click()
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub llpb_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llss_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub LPB_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub LSS_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

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

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False


Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Ascensor 3 (Melu)

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

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

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

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

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

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

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

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

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

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

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

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

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

Private Sub stop_Click()

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

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

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

Semana 27 (por Melu)

Entrevista a la Madre de Google

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



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




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


La elegí por ser una propuesta buena para disminuir estos problemas a travez de algo tan sencillo como un videojuego.


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

Más sobre este nuevo modelo...

Asensor 3 (por alan)

Private Sub Label2_Click()
Asensor.Top = 4560
End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Enter_Click()
If Contraseña.Text = jamon Then
Asensor.Top = 240
End If
End Sub

Private Sub L1_Click()
Asensor.Top = 3120
L1.Enabled = False
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = False
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 3120 Then
P5.Caption = "1"
P4.Caption = "1"
P3.Caption = "1"
P2.Caption = "1"
P1.Caption = "1"
PSS.Caption = "1"
PPB.Caption = "1"
PT.Caption = "1"
End If
If Asensor.Top = 3120 Then
contador1.Caption = contador1.Caption + 1
End If
End Sub

Private Sub L2_Click()
Asensor.Top = 2400
L1.Enabled = True
L2.Enabled = False
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = False
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 2400 Then
P5.Caption = "2"
P4.Caption = "2"
P3.Caption = "2"
P2.Caption = "2"
P1.Caption = "2"
PSS.Caption = "2"
PPB.Caption = "2"
PT.Caption = "2"
End If
If Asensor.Top = 2400 Then
contador2.Caption = contador2.Caption + 1
End If
End Sub

Private Sub L3_Click()
Asensor.Top = 1680
L1.Enabled = True
L2.Enabled = True
L3.Enabled = False
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = False
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 1680 Then
P5.Caption = "3"
P4.Caption = "3"
P3.Caption = "3"
P2.Caption = "3"
P1.Caption = "3"
PSS.Caption = "3"
PPB.Caption = "3"
PT.Caption = "3"
End If
If Asensor.Top = 1680 Then
contador3.Caption = contador3.Caption + 1
End If
End Sub

Private Sub L4_Click()
Asensor.Top = 960
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = False
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = False
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 960 Then
P5.Caption = "4"
P4.Caption = "4"
P3.Caption = "4"
P2.Caption = "4"
P1.Caption = "4"
PSS.Caption = "4"
PPB.Caption = "4"
PT.Caption = "4"
End If
If Asensor.Top = 960 Then
contador4.Caption = contador4.Caption + 1
End If
End Sub

Private Sub L5_Click()
If Contraseña.Text = "jamon" Then
Asensor.Top = 240
End If
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = False
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 240 Then
L5.Enabled = False
End If
If Asensor.Top = 240 Then
P5.Caption = "5"
P4.Caption = "5"
P3.Caption = "5"
P2.Caption = "5"
P1.Caption = "5"
PSS.Caption = "5"
PPB.Caption = "5"
PT.Caption = "5"
End If
If Asensor.Top = 240 Then
contador5.Caption = contador5.Caption + 1
End If
End Sub

Private Sub Llamar1_Click()
Asensor.Top = 3120
L1.Enabled = False
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = False
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 3120 Then
P5.Caption = "1"
P4.Caption = "1"
P3.Caption = "1"
P2.Caption = "1"
P1.Caption = "1"
PSS.Caption = "1"
PPB.Caption = "1"
PT.Caption = "1"
End If
If Asensor.Top = 3120 Then
contador1.Caption = contador1.Caption + 1
End If
End Sub

Private Sub Llamar2_Click()
Asensor.Top = 2400
L1.Enabled = True
L2.Enabled = False
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = False
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 2400 Then
P5.Caption = "2"
P4.Caption = "2"
P3.Caption = "2"
P2.Caption = "2"
P1.Caption = "2"
PSS.Caption = "2"
PPB.Caption = "2"
PT.Caption = "2"
End If
If Asensor.Top = 2400 Then
contador2.Caption = contador2.Caption + 1
End If
End Sub

Private Sub Llamar3_Click()
Asensor.Top = 1680
L1.Enabled = True
L2.Enabled = True
L3.Enabled = False
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = False
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 1680 Then
P5.Caption = "3"
P4.Caption = "3"
P3.Caption = "3"
P2.Caption = "3"
P1.Caption = "3"
PSS.Caption = "3"
PPB.Caption = "3"
PT.Caption = "3"
End If
If Asensor.Top = 1680 Then
contador3.Caption = contador3.Caption + 1
End If
End Sub

Private Sub Llamar4_Click()
Asensor.Top = 960
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = False
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = False
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 960 Then
P5.Caption = "4"
P4.Caption = "4"
P3.Caption = "4"
P2.Caption = "4"
P1.Caption = "4"
PSS.Caption = "4"
PPB.Caption = "4"
PT.Caption = "4"
End If
If Asensor.Top = 960 Then
contador4.Caption = contador4.Caption + 1
End If
End Sub

Private Sub Llamar5_Click()
Asensor.Top = 240
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = False
LlamarSS.Enabled = True
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 240 Then
P5.Caption = "5"
P4.Caption = "5"
P3.Caption = "5"
P2.Caption = "5"
P1.Caption = "5"
PSS.Caption = "5"
PPB.Caption = "5"
PT.Caption = "5"
End If
If Asensor.Top = 240 Then
contador5.Caption = contador5.Caption + 1
End If
End Sub

Private Sub LlamarPB_Click()
Asensor.Top = 3840
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = False
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = False
Contraseña.Text = ""
If Asensor.Top = 3840 Then
P5.Caption = "PB"
P4.Caption = "PB"
P3.Caption = "PB"
P2.Caption = "PB"
P1.Caption = "PB"
PSS.Caption = "PB"
PPB.Caption = "PB"
PT.Caption = "PB"
End If
If Asensor.Top = 3840 Then
contadorPB.Caption = contadorPB.Caption + 1
End If
End Sub

Private Sub LlamarSS_Click()
Asensor.Top = 4560
Asensor.Top = 4560
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = False
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = False
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 4560 Then
P5.Caption = "SS"
P4.Caption = "SS"
P3.Caption = "SS"
P2.Caption = "SS"
P1.Caption = "SS"
PSS.Caption = "SS"
PPB.Caption = "SS"
PT.Caption = "SS"
End If
If Asensor.Top = 4560 Then
contadorSS.Caption = contadorSS.Caption + 1
End If
End Sub

Private Sub LPB_Click()
Asensor.Top = 3840
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = False
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = False
Contraseña.Text = ""
If Asensor.Top = 3840 Then
P5.Caption = "PB"
P4.Caption = "PB"
P3.Caption = "PB"
P2.Caption = "PB"
P1.Caption = "PB"
PSS.Caption = "PB"
PPB.Caption = "PB"
PT.Caption = "PB"
End If
If Asensor.Top = 3840 Then
contadorPB.Caption = contadorPB.Caption + 1
End If
End Sub

Private Sub LSS_Click()
Asensor.Top = 4560
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = False
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = False
LlamarPB.Enabled = True
Contraseña.Text = ""
If Asensor.Top = 4560 Then
P5.Caption = "SS"
P4.Caption = "SS"
P3.Caption = "SS"
P2.Caption = "SS"
P1.Caption = "SS"
PSS.Caption = "SS"
PPB.Caption = "SS"
PT.Caption = "SS"
PT.Caption = "SS"
End If
If Asensor.Top = 4560 Then
contadorSS.Caption = contadorSS.Caption + 1
End If
End Sub

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

Private Sub stop_Click()
If Llamar1.Enabled = True Then
Llamar1.Enabled = False
Llamar2.Enabled = False
Llamar3.Enabled = False
Llamar4.Enabled = False
Llamar5.Enabled = False
LlamarPB.Enabled = False
LlamarSS.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LSS.Enabled = False
LPB.Enabled = False
luz.Enabled = False
Else
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarPB.Enabled = True
LlamarSS.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
luz.Enabled = True
End If
Contraseña.Text = ""
End Sub

Acensor 3(Por Lucas)

Private Sub boton1_Click()
asensor.Top = 6360
conteo.Caption = conteo.Caption + 1
c1.Caption = c1.Caption + 1
If asensor.Top = 6360 Then
boton1.Enabled = False
llamar1.Enabled = False
End If
If asensor.Top = 5040 And 3600 And 2400 And 1080 Then
boton1.Enabled = True
llamar1.Enabled = True
End If
End Sub
Private Sub boton2_Click()
asensor.Top = 5040
conteo.Caption = conteo.Caption + 1
c2.Caption = c2.Caption + 1
End Sub
Private Sub boton3_Click()
asensor.Top = 3600
conteo.Caption = conteo.Caption + 1
c3.Caption = c3.Caption + 1
End Sub
Private Sub boton4_Click()
asensor.Top = 2400
conteo.Caption = conteo.Caption + 1
c4.Caption = c4.Caption + 1
End Sub
Private Sub boton5_Click()
asensor.Top = 1080
conteo.Caption = conteo.Caption + 1
c5.Caption = c5.Caption + 1
End Sub
Private Sub enter_Click()
If tclave = "text2" Then
boton5.Enabled = True
Else
boton5.Enabled = False
End If
End Sub
Private Sub llamar1_Click()
asensor.Top = 7560
conteo.Caption = conteo.Caption + 1
c1.Caption = c1.Caption + 1
End Sub
Private Sub llamar2_Click()
asensor.Top = 5040
conteo.Caption = conteo.Caption + 1
c2.Caption = c2.Caption + 1
End Sub
Private Sub llamar3_Click()
asensor.Top = 3600
conteo.Caption = conteo.Caption + 1
c3.Caption = c3.Caption + 1
End Sub
Private Sub llamar4_Click()
asensor.Top = 2400
conteo.Caption = conteo.Caption + 1
c4.Caption = c4.Caption + 1
End Sub
Private Sub llamar5_Click()
asensor.Top = 1080
conteo.Caption = conteo.Caption + 1
c5.Caption = c5.Caption + 1
End Sub
Private Sub llamarpb_Click()
asensor.Top = 7800
conteo.Caption = conteo.Caption + 1
cpb.Caption = cpb.Caption + 1
End Sub
Private Sub llamarss_Click()
asensor.Top = 8880
conteo.Caption = conteo.Caption + 1
css.Caption = css.Caption + 1
End Sub
Private Sub luz_Click()
If asensor.BackColor = vbBlack Then
asensor.BackColor = vbYellow
Else
asensor.BackColor = vbBlack
End If
End Sub
Private Sub plantab_Click()
asensor.Top = 7800
conteo.Caption = conteo.Caption + 1
cpb.Caption = cpb.Caption + 1
End Sub
Private Sub play_Click()
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
plantab.Enabled = True
ss.Enabled = True
luz.Enabled = True
enter.Enabled = True
llamar1.Enabled = True
llamar2.Enabled = True
llamar3.Enabled = True
llamar4.Enabled = True
llamar5.Enabled = True
llamarpb.Enabled = True
llamarss.Enabled = True
End Sub
Private Sub ss_Click()
asensor.Top = 8880
conteo.Caption = conteo.Caption + 1
css.Caption = css.Caption + 1
End Sub
Private Sub stop_Click()
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
plantab.Enabled = False
ss.Enabled = False
luz.Enabled = False
enter.Enabled = False
llamar1.Enabled = False
llamar2.Enabled = False
llamar3.Enabled = False
llamar4.Enabled = False
llamar5.Enabled = False
llamarpb.Enabled = False
llamarss.Enabled = False
End Sub

ascensor 3 (Por Dani B.)

Private Sub cinco_Click()
If contraseña.Text = "1234" Then
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub Form_Load()
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub

Private Sub llcuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub

Semana 27 (por guido)

Exposición de Videojuegos Argentina 2008, en Capital Federal

La Asociación de Desarrolladores de Videojuegos Argentina (AVDA), realizará el 15 y 16 de noviembre, la edición 2008 de su Exposición de Videojuegos Argentina (EVA).
Esta exposición tiene como fin reunir tanto a desarrolladores, estudiantes, publicadores, investigadores y hasta hobbistas de la industria local del desarrollo de videojuegos.

Este evento es de entrada libre y gratuita, pudiendo encontrarse con conferencias, stands, premios, entre otras actividades.
Entre las conferencias, habrán representantes de Sony USA, Intel, Digital Investments, y algunos invitados como Jorge Ceballos, Luis Valerdi (México) y Sebastían Enrique (Electronic Arts).
Los interesados, deben inscribirse previamente desde el sitio web oficial del evento.

para saber algo mas....



Need for Speed: Undercover vendrá con sorpresa de Nissan


Parece increíble que una empresa como Nissan haya tomado la decisión de presentar un nuevo modelo de sus vehículos dentro de un juego, antes de ponerlo a la venta (en el mundo real, digamos).

El modelo en cuestión es el Nissan 370Z Coupé, que hará su primera aparición dentro del juego Need for Speed: Undercover, de Electronic Arts.

No es raro que una empresa se vuelque a lo virtual para mostrar un producto, aunque si para presentarlo de forma exclusiva, lo cual le permitirá atraer potenciales admiradores (aunque no se hasta que punto logrará captar la atención de algún comprador).
La experiencia le servirá tanto a Electronic Arts, al dar un motivo de “exclusividad” para que se sumen jugadores, como también a Nissan, para recibir retroalimentación de quienes lo prueben “virtualmente”.
Sin duda, una excelente propuesta de Marketing, que deberían imitar otras empresas para darle un toque más de realismo a los juegos… o al menos, de exclusividad.
El juego saldrá a la venta en pocos días, mientras que el auto recién estará en el mercado para el año que viene.

para saber algo mas....


Superstickies: Crea notas Post-it o Stickynotes online


Las notas Post-it son muy útiles para recordar todo tipo de cosas, y mayor aún si las utilizamos en el ordenador. En este caso, Superstickies es una sitio web en donde podemos crear estas notas también conocidas como Stickynotes, en forma de imágenes y que son descargables a nuestro ordenador, e inclusive se pueden almacenar en ImageShack o Flickr.

Superstickies permite personalizar el color de la nota, la alineación del texto y su color, aunque no las dimensiones de la imagen. La imagen resultante, es tiene su fondo transparente.

para saber algo mas....



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

Semana 26 (por guido)

Notebook de Toshiba para gamers: Toshiba Qosmio X305-Q708



Toshiba también dedica su último lanzamiento de notebooks pare los gamers, se trata de la nueva Toshiba Qosmio X305-Q708.

Con un colorido diseño y características propias de los usuarios exigentes, Toshiba lanza una nueva línea esperando captar a los mas exigentes de éste sector.

A la lista de notebooks de alta gama de Toshiba Qosmio, se le agrega ahora la X305-Q708, modelo que sobresale visualmente por su extrañamente llamativo diseño, y por sus características generales: Procesador Intel Core 2 Extreme QX9300, memoria RAM de 4GB DDR3, disco duro de 320GB, y una gran pantalla de 17″. Como es para gamers, obviamente viene con tarjeta gráfica nVidia GeForce 9800M GTS y puertos USB y HDMI. En cuanto a conectividad no podían faltar WiFi y Bluetooth.

para saber algo mas....




Proyector interactivo multimedia con Bluetooth


Su nombre es eBeam Projection, y es todo un sistema de presentación multimedia, ideal para conferencias y todo tipo de proyecciones.

Incluso el eBeam Projection nos permite controlar las proyecciones como si fuera un mouse, sobre cualquier superficie blanca.

Con el eBeam Projection podemos controlar todo lo que sucede en la pizarra donde se está reproduciendo la presentación multimedia, con el simple uso de un lápiz interactivo, el que nos permite realizar anotaciones encima de cualquier aplicación y guardar los cambios en la computadora, haciendo las veces de mouse.

El eBeam Projection incluye un pequeño dispositivo receptor que se adhiere en cualquier esquina de la pizarra (o donde sea que estemos proyectando), un lápiz electrónico y un sencillo software que se instala en la computadora, conectándose vía cable USB o Bluetooth, y funciona conjuntamente con cualquier tipo de proyector.

De éste modo, el área de proyección se convierte en una pizarra interactiva, que nos permite navegar por Internet, hacer anotaciones a mano, capturar imágenes, convirtiendo la proyección estática en una experiencia multimedia completa.

para saber algo mas....





Microsoft revela Windows Azure, su SO en las nubes…


Se está celebrando la Microsoft Professional Developers Conference, y tal como lo prometió Steve Ballmer hace pocas semanas, la empresa ha dado a conocer su plataforma Windows de servicios web.El nombre elegido ha sido Windows Azure, y representa un cambio importante para Microsoft, como también para los desarrolladores que se vuelquen a desarrollar en esta plataforma.La empresa ha liberado una Community Technology Preview a algunos desarrolladores presentes en la PDC 2008, para que puedan jugar con él y planificar futuros desarrollos.

Los componentes detrás de la plataforma de servicios Azure, serían:

• Windows Azure
• Microsoft SQL
• Microsoft .NET
• Microsoft Live
• Microsoft SharePoint y Microsoft Dynamics CRM

Microsoft dice haber estado creando nuevos Data centers, para poder dar servicios de una forma confiable a sus clientes (esperemos que no existan las pantallas azules aquí).
Seguramente podremos probar Windows Azure y la plataforma que lo soporte dentro de algunos meses… por lo que recién ahí podremos dar una opinión más “objetiva” (de momento, suena un tanto en el aire…).

para saber algo mas....

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

Ascensor 3 (por Galu)

Private Sub cinco_Click()
If contraseña.Text = "1234" Then
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"

nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1

End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub

Private Sub dos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub Form_Load()

End Sub

Private Sub llcinco_Click()
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"

marcacinco.Caption = marcacinco.Caption + 1

End Sub


Private Sub llcuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"

marcacuatro.Caption = marcacuatro.Caption + 1

End Sub

Private Sub lldos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub llpb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"

marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub llss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"

marcass.Caption = marcass.Caption + 1
End Sub

Private Sub lltres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1

End Sub

Private Sub lluno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub ss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub

Private Sub stop_Click()

If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"

marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1
End Sub

Private Sub uno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Semana 28 (por Galu)

Teclado con ventiladores

Muchas personas tienen problemas de transpiración en las manos y la verdad es que andar presionando teclas todo el día en la oficina, además de empeorarlo, es bastante molesto.
Pero siempre hay una solución para los problemas. Lo único que tendrás que hacer para solucionar este es comprar este teclado de Thanko con tres ventiladores en los lugares donde nuestras manos están todo el tiempo sobre el teclado.
Tiene conexión USB y si por casualidad piensas que no vale la pena comprarlo porque se está acercando el invierno, no te preocupes, porque también lanza aire caliente.
30 de Octubre de 2008
Para ver más

Robot que copia nuestras expresiones

Xatakeros, os presento a Jules. Jules, aquí los lectores de Xataka. Tras las formalidades, ya os puedo contar que lo que véis en el vídeo de arriba no es una persona sino un robot llamado Jules y que ha saltado a la fama por poder copiar gestos y caras de otras personas que están frente a él.
Jules es un desarrollo de David Hanson en colaboración con la Universidad de Bristol, en el Reino Unido. Es un robot humanoide cuyo rostro con piel es movido por 34 motores escondidos bajo ella. El robot de Hanson recibe la información de un software desarrollado por la Universidad de Bristol, que convierte los gestos de una persona en instrucciones para los motores. Lo hace en tiempo real a 25 movimientos por segundo.
El mayor inconveniente que tiene hasta ahora este tipo de robots que imitan el rostro y expresiones humanas es que al no ser perfecto del todo, alguna expresión nos puede parecer extraña e incluso de miedo a los humanos, pues no estamos acostumbrados a verla en nuestros semejantes.
30 de Octubre de 2008
Para ver más

Samsung SDI logra crear una pantalla OLED de 0,05mm de grosor y 4 pulgadas de tamaño

La filial de Samsung dedicada a la I+D de pantallas, Samsung SDI acaba de darle otra alegría a la tecnología para un futuro no muy lejano.
Samsung presenta en el FPD de Japón una nueva pantalla OLED, de solo 0,05mm de grosor y con un tamaño de 4 pulgadas. No hace falta decir que es semiflexible, no puedes doblarla del todo (como si fuese una hoja de papel) pero puede formar curvas sin problemas. Para que te hagas una idea, una hoja de papel normal tiene un grosor de 0.06mm.
Para demostrar que tiene el grosor de una hoja lo han puesto debajo de un torrente de aire, así se puede ver como bambolea. Esta pantalla alcanza una resolución de 480×272 píxeles, con un contraste de 1.000.000:1, un brillo de 200cd/m2 y con un muestreo del 100% en color NTSC.
30 de Octubre de 2008
Para ver más

Semana 27 (por Lau)

AppGet: software gratuito para mantener todos tus programas actualizados

Un software gratuito para Windows que permite tener actualizados todos los programas instalados en nuestra PC.

Se trata de AppGet, un pequeño programa que al ser ejecutado por primera vez, busca todo el software que está instalado en nuestra computadora para luego realizar comparaciones con su base de datos online y así determinar si hay disponible una nueva versión. Si este es el caso, Appget muestra un aviso para que así podamos actualizarlo.
AppGet es totalmente gratuito y puede ser utilizado en Sistemas operativos Windows en sus versiones 2000, XP y Vista.

Ver el artículo completo

Lo elegí porque me parece útil y es más fácil utilizar este programa que buscar manualmente las actualizaciones de cada programa.

Mensajes gratis a celulares

Si deseas enviar mensajes gratis a celulares, a continuación te dejo un par de enlaces hacia webs que te brindan el servicio y la posibilidad de enviar SMS gratis a celulares.

SinSaldo: al igual que el anterior, este es otro sitio para mandar mensajes de texto gratis a celulares en toda la República de Argentina. Trabaja con celulares de las compañías Movistar, CTI, Nextel, Personal.

Ver el artículo completo

Lo elegí porque me parece muy conveniente este servicio.

Descarga fácil de Rapidshare, Megaupload, etc.

Si eres de los que descarga con frecuencia de sitios como Depositfiles.com, Filefactory.com, Filer.net, Freakshare.net, Meinupload.com, Megaupload.com, Netload.com, RapidShare.com, RapidShare.de, Uploaded.to y YouTube.com, entonces esta herramienta te hará la vida más fácil.Se trata de jDownloader, un programa gratuito para Windows/Linux que te hará el proceso de descarga mucho más sencillo. Sólo tienes que añadir todos los enlaces del contenido que quieres descargar e iniciar la descarga para que el programa se encargue de todo: accede al enlace, espera el tiempo necesario, valida los mensajes e inicia la descarga. Así con todos los enlaces incluidos en la cola.

Ver el artículo completo

Lo elegí porque me pareció muy interesante y útil.

Semana 28, por Ariel .M.

Cowon O2, nuevo reproductor multimedia

Oct 29, 2008 19:32:24 GMT

Cowon sigue sorprendiéndonos con nuevos lanzamientos de atractivos reproductores multimedia, su última creación es el Cowon O2.

¿Qué nos ofrece? Lo primero que observamos es su pantalla de 4.3” de tipo táctil y con una resolución de 480×272 píxeles, brillo de 400 cd/m2 y 16 millones de colores… en cuanto al almacenamiento interno, nos permite 8, 16 o 32 GB basadas en memorias flash, ampliables con tarjetas microSD.

Cowon O2 además es compatible con diferentes formatos de audio , por no decir todos, destacando, MP3, WMA, AAC, AC3, FLAC, OGG y Monkey; en vídeo podemos mencionar VI, WMV, MP4, MKV, H.264, DivX y XviD, y por supuesto es capaz de mostrarnos imágenes en JPG, GIF, PNG, TIF, BMP, y RAW.

¿Qué más podemos pedir? Veamos, con el reproductor Cowon O2 podemos leer libros electrónicos y grabar audio en formato Flac, tiene salida de televisión y autonomía de 8 horas reproduciendo vídeo y 18 horas de audio.

Está a la venta en EEUU y sus precios son bastante accesibles, los modelos de 8, 16 y 32 GB cuestan 219, 249 y 299 dólares respectivamente.

Motorola Motonav TN20 y TN30, navegadores GPS

Oct 29, 2008 07:12:39 GMT

Cuando hablamos de Motorola asociamos automáticamente esta marca a teléfonos móviles, aunque tocará repensarlo tras el lanzamiento del Motorola MOTONAV TN30 y del MOTONAV TN20 , un par de navegadores GPS enfocados al mercado de consumo.

No es la primera introducción del fabricante americano en este mercado, que el año pasado ya presentó el T815 , aunque se trataba de un receptor GPS externo para usarlo con teléfonos móviles. Ahora expanden su mercado aprovechando el buen nombre que tiene, sobre todo en Estados Unidos.

El modelo más simple es el Motorola TN20 , con una pantalla de 3.5 pulgadas y que incluye los mapas de Estados Unidos. Ofrece navegación con conversión de texto a voz, con lo que puede pronunciar los nombres de las calles que debemos tomar, y ajuste automático del brillo de la pantalla, para hacerla visible tanto de día como de noche.

Su hermano mayor, el Motorola TN30 viene con una pantalla de 4.3 pulgadas y con mapas de Estados Unidos, Canadá y Puerto Rico. Incluye, además, conectividad Bluetooth para funcionar como manos libres de nuestro teléfono móvil y más de cuatro millones de puntos de interés en su base de datos.

Como curiosidad, los mapas son de la compañía Navteq, propiedad de Nokia . De momento se ponen a la venta solo en Estados Unidos, con precios de 200 y 300 dólares respectivamente.

H2O iDive 300… música bajo el agua

Oct 28, 2008 19:33:29 GMT

Si eres de esos que no puede pasar un segundo sin música, y por lo tanto llevar tu reproductor mp3 a donde vayas, este producto seguro te va a gustar…

Ahora cada vez que vayas a la playa o a bucea, no tendrás porqué dejar de escuchar música, el reproductor multimedia portátil H2O iDive 300 te sigue a las profundidades del mar.

El dispositivo cuenta con una carcasa de policarbonato y mediante botones externos es podrás controlar las funciones del reproductor, mientras que los dos pequeños altavoces pueden ser colocados en la correa de la máscara o directamente bajo la capucha de neopreno del traje de buzo.

Con el H2O iDive 300 podrás sumergirte hasta 90 metros y seguirás disfrutado de tu música favorita o ver videos… será tuyo por $350…