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
viernes, 31 de octubre de 2008
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
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
jueves, 30 de octubre de 2008
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
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
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
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
viernes, 17 de octubre de 2008
Semana 27 (por Galu)
Televisión en el Nokia N96
Una de las preguntas que más recibimos desde que salió al mercado el Nokia N96, tiene como protagonista a la televisión en el móvil. Y es que este teléfono de Nokia viene preparado para recibir la televisión digital terrestre, pero bajo el formato DVB-H, adaptación de la TDT que recibimos en nuestra televisión de casa.
El problema de la televisión en el Nokia N96 es que aunque el teléfono viene con sintonizador, en España todavía no disponemos de canales que emitan en ese formato, y por lo tanto no vamos a aprovechar esa funcionalidad que atrae la atención de muchos consumidores cuando miran las especificaciones del Nokia N96. Hay alguna prueba en determinadas zonas, pero la televisión digital en el móvil sin pagar a las operadoras vía DVb-H, en España, de momento no existe.
¿Cuándo podremos aprovechar esta tecnología DVB-H? Pues todo parece indicar que para el año 2010 ya se dispondrá de emisiones regulares y no solo de algún canal en prueba.
Publicado el día 17 de octubre.
Para ver más
Plantas robóticas que lanzarán aromatizantes y florecerán cuando te acerques
Investigadores de la Universidad Nacional de Chonnam desarrollaron una planta robótica que es parecida a las que actualmente conocemos como sintéticas. Son de bajo coste, no necesita ningún tipo de mantenimiento y en lugar de generar oxígeno como lo hacen las verdaderas, estas emiten un aromatizante para el ambiente.
Las plantas sintéticas tienen que ser mejoradas para levantar sus ventas y los investigadores crearon esta interesante forma para hacerlo.
Estas plantas están diseñadas para que cuando una persona se acerque a 40cm de distancia ‘mire’ hacia el visitante y ‘florezca’. También florecerá cuando se le hable. Además, imitará la fotosíntesis realizada por las plantas reales, ya que cuando reciban luz se abrirán y cuando no, se cerrarán.
Publicado el día 17 de octubre
Para ver más
Philips Flavors, televisores con marcos intercambiables
Philips Flavors es el último elemento de la estrategia de tecnología amiga y de sentidos que la compañía holandesa quiere colar en nuestros hogares. Llamar la atención hay que admitir que lo hacen y muy bien. Con líneas e ideas que nos recuerdan a sus Philips Ambilight, los nuevos televisores Philips Flavours son algo más, pues incluyen un sistema de cine en casa para acompañarlos.
Lo llamativo a nivel estético de los equipos Philips Flavours es el diseño y la posibilidad de intercambiar carcasas de forma sencilla (hasta 12 para elegir). Sin ninguna de ellas, el diseño es más minimalista que nunca. El mando a distancia acompaña la apariencia del resto del sistema de imagen. Llamar la atención, divertir. Es su misión. Esperemos que sin olvidar el interior, la calidad de imagen.
El colmo de la personalización y fijación en el diseño lo podemos comprobar en el hecho de que los menús podemos ajustarlos en apariencia con los colores y diseño de la carcasa que estemos en ese momento usando.
Publicado el día 16 de octubre
Para ver más
Una de las preguntas que más recibimos desde que salió al mercado el Nokia N96, tiene como protagonista a la televisión en el móvil. Y es que este teléfono de Nokia viene preparado para recibir la televisión digital terrestre, pero bajo el formato DVB-H, adaptación de la TDT que recibimos en nuestra televisión de casa.
El problema de la televisión en el Nokia N96 es que aunque el teléfono viene con sintonizador, en España todavía no disponemos de canales que emitan en ese formato, y por lo tanto no vamos a aprovechar esa funcionalidad que atrae la atención de muchos consumidores cuando miran las especificaciones del Nokia N96. Hay alguna prueba en determinadas zonas, pero la televisión digital en el móvil sin pagar a las operadoras vía DVb-H, en España, de momento no existe.
¿Cuándo podremos aprovechar esta tecnología DVB-H? Pues todo parece indicar que para el año 2010 ya se dispondrá de emisiones regulares y no solo de algún canal en prueba.
Publicado el día 17 de octubre.
Para ver más
Plantas robóticas que lanzarán aromatizantes y florecerán cuando te acerques
Investigadores de la Universidad Nacional de Chonnam desarrollaron una planta robótica que es parecida a las que actualmente conocemos como sintéticas. Son de bajo coste, no necesita ningún tipo de mantenimiento y en lugar de generar oxígeno como lo hacen las verdaderas, estas emiten un aromatizante para el ambiente.
Las plantas sintéticas tienen que ser mejoradas para levantar sus ventas y los investigadores crearon esta interesante forma para hacerlo.
Estas plantas están diseñadas para que cuando una persona se acerque a 40cm de distancia ‘mire’ hacia el visitante y ‘florezca’. También florecerá cuando se le hable. Además, imitará la fotosíntesis realizada por las plantas reales, ya que cuando reciban luz se abrirán y cuando no, se cerrarán.
Publicado el día 17 de octubre
Para ver más
Philips Flavors, televisores con marcos intercambiables
Philips Flavors es el último elemento de la estrategia de tecnología amiga y de sentidos que la compañía holandesa quiere colar en nuestros hogares. Llamar la atención hay que admitir que lo hacen y muy bien. Con líneas e ideas que nos recuerdan a sus Philips Ambilight, los nuevos televisores Philips Flavours son algo más, pues incluyen un sistema de cine en casa para acompañarlos.
Lo llamativo a nivel estético de los equipos Philips Flavours es el diseño y la posibilidad de intercambiar carcasas de forma sencilla (hasta 12 para elegir). Sin ninguna de ellas, el diseño es más minimalista que nunca. El mando a distancia acompaña la apariencia del resto del sistema de imagen. Llamar la atención, divertir. Es su misión. Esperemos que sin olvidar el interior, la calidad de imagen.
El colmo de la personalización y fijación en el diseño lo podemos comprobar en el hecho de que los menús podemos ajustarlos en apariencia con los colores y diseño de la carcasa que estemos en ese momento usando.
Publicado el día 16 de octubre
Para ver más
Ascensor 2 (por Galu)
Private Sub cuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
End Sub
Private Sub luz_Click()
ascensor.BackColor = vbYellow
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
End Sub
Private Sub stop_Click()
If uno.Enabled = False And dos.Enabled = False And tres.Enabled = False And cuatro.Enabled = False and
cinco.Enabled = False Then
uno.Enabled = True
End If
cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
cuentapisos.Caption
lluno.Enabled = False
lldos.Enabled = False
lltres.Enabled = False
llcuatro.Enabled = False
llcinco.Enabled = False
llss.Enabled = False
llpb.Enabled = False
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
End Sub
Private Sub luz_Click()
ascensor.BackColor = vbYellow
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
End Sub
Private Sub stop_Click()
If uno.Enabled = False And dos.Enabled = False And tres.Enabled = False And cuatro.Enabled = False and
cinco.Enabled = False Then
uno.Enabled = True
End If
cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
cuentapisos.Caption
lluno.Enabled = False
lldos.Enabled = False
lltres.Enabled = False
llcuatro.Enabled = False
llcinco.Enabled = False
llss.Enabled = False
llpb.Enabled = False
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub
viernes, 10 de octubre de 2008
Semana 26 (por Galu)
Manos libres para motos
En el último Mobile World Congress estuvimos viendo algunos de los productos que Parrot iba a lanzar este año. Y es ahora cuando se presenta en España de manera oficial el Parrot SK-4000, un manos libres para motos.
Este accesorio nos permite no solo realizar y recibir llamadas mientras vamos en moto, sino también escuchar la radio o música de nuestro móvil, gracias al soporte del perfil A2DP de Bluetooth, todo ello con un control de volumen automático, que se ajusta dependiendo del ruido ambiente.
Publicado el día 10 de Octubre
Para ver más
Cargador solar para tu iPhone
Bueno, según mi largo razonamiento filosófico llegamos a la conclusión de que todas aquellas personas que posean un iPhone querrán este gadget. ¿Por qué? Porque te permitirá recargarlo sin gastar ni energía ni dinero ya que utiliza celdas solares para hacerlo.
Esta batería solar para tu iPhone tiene una batería con capacidad para 800mAh. Además te permitirá recargar tu móvil a través de tu puerto USB si llueve hace días y la energía solar no alcanza.
Lo mejor de todo es que lo puedes comprar por sólo US$22.
Publicado el día 10 de Octubre
Para ver más
Auriculares inalámbricos para tu iPod
Si hay algo que odio muchísimo son los cables de todos los auriculares que tengo y tuve y por ese motivo este me pareció realmente genial. El MHP-Uw2 de Onkyo es un auricular inalámbrico que opera en una frecuencia de 2.4GHz.
Lo único que tienes que hacer es conectar la base del gadget en tu iPod y comenzará a funcionar. Eso sí, para transportar mejor que lleves una mochila o una gran cartera porque lugar es lo único que tendrás que tener para transportarlo.
Este auricular será lanzado el 14 de noviembre en Japón y costará alrededor de US$197. Es cierto, son un poco caros, pero nada como la comodidad de olvidarse por completo de esos odiosos cables.
Publicado el día 10 de Octubre
Para ver más
En el último Mobile World Congress estuvimos viendo algunos de los productos que Parrot iba a lanzar este año. Y es ahora cuando se presenta en España de manera oficial el Parrot SK-4000, un manos libres para motos.
Este accesorio nos permite no solo realizar y recibir llamadas mientras vamos en moto, sino también escuchar la radio o música de nuestro móvil, gracias al soporte del perfil A2DP de Bluetooth, todo ello con un control de volumen automático, que se ajusta dependiendo del ruido ambiente.
Publicado el día 10 de Octubre
Para ver más
Cargador solar para tu iPhone
Bueno, según mi largo razonamiento filosófico llegamos a la conclusión de que todas aquellas personas que posean un iPhone querrán este gadget. ¿Por qué? Porque te permitirá recargarlo sin gastar ni energía ni dinero ya que utiliza celdas solares para hacerlo.
Esta batería solar para tu iPhone tiene una batería con capacidad para 800mAh. Además te permitirá recargar tu móvil a través de tu puerto USB si llueve hace días y la energía solar no alcanza.
Lo mejor de todo es que lo puedes comprar por sólo US$22.
Publicado el día 10 de Octubre
Para ver más
Auriculares inalámbricos para tu iPod
Si hay algo que odio muchísimo son los cables de todos los auriculares que tengo y tuve y por ese motivo este me pareció realmente genial. El MHP-Uw2 de Onkyo es un auricular inalámbrico que opera en una frecuencia de 2.4GHz.
Lo único que tienes que hacer es conectar la base del gadget en tu iPod y comenzará a funcionar. Eso sí, para transportar mejor que lleves una mochila o una gran cartera porque lugar es lo único que tendrás que tener para transportarlo.
Este auricular será lanzado el 14 de noviembre en Japón y costará alrededor de US$197. Es cierto, son un poco caros, pero nada como la comodidad de olvidarse por completo de esos odiosos cables.
Publicado el día 10 de Octubre
Para ver más
Ascensor (por Galu)
Private Sub cuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub
viernes, 3 de octubre de 2008
Calculadora 3 (por Galu)
Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
coma.Enabled = True
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
coma.Enabled = True
End Sub
Private Sub divpant_Click()
cuenta.Caption = 1 / cuenta.Caption
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
cuenta.Caption = cuenta.Caption * -1
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
coma.Enabled = True
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
coma.Enabled = True
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
If cuenta.Caption > -1 Then
cuenta.Caption = Sqr(Val(cuenta.Caption))
Else
cuenta.Caption = "error"
End If
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
coma.Enabled = True
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
coma.Enabled = True
End Sub
Private Sub divpant_Click()
cuenta.Caption = 1 / cuenta.Caption
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
cuenta.Caption = cuenta.Caption * -1
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
coma.Enabled = True
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
coma.Enabled = True
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
If cuenta.Caption > -1 Then
cuenta.Caption = Sqr(Val(cuenta.Caption))
Else
cuenta.Caption = "error"
End If
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub
Semana 25 (por Galu)
La TV más grande del mundo se pondrá a la venta el año que viene
Si la pantallas que se anuncian hoy ya te parecen lo suficientemente grandes para poner en tu casa, esta es prácticamente para invitar a tus amigos a ver un estreno cinematográfico.
Panasonic presentó esta “televisión del futuro” (como le dicen en Gizmodo) de 150 pulgadas y, aunque todavía no esté a la venta, explicaron que se espera que se comience a vender al público en cualquier momento del 2009.
¿El precio? Todavía no tenemos idea cuánto saldrá este plasma, pero seguro que el usuario convencional (como yo) no va a poder darse el lujo de tener una.
Publicado el día 3 de Octubre.
Para ver más
Reloj luminoso con pantalla LCD
Este pequeñito reloj creado por la empresa Aurora tiene una pantalla LCD (la cual te permitirá tener una visión perfecta a una considerable distancia) y además cambia de color cada mes que pasa.
Fue creado con goma transparente, lo que te permitirá apagar esa luz molesta de noche con un simple toque. Además, tiene una alarma que hará un juego de luces cada vez que te levantes a la mañana. Puedes comprarlo por US$26.
Publicado el día 3 de Octubre.
Para ver más
Pantallas ultrafinas de Sony en funcionamiento
Sony está apostando muy fuerte por el desarrollo de televisores ultrafinos, con unas dimensiones que hace sólo unos años eran totalmente impensables. En Xataka nos hemos hecho eco del Sony Bravia ZX1, un televisor de 40 pulgadas FullHD de sólo un centímetro de grosor, así como de las OLED de la propia Sony con unos míseros 0.3 milímetros de profundidad.
Estos días en la CEATEC, Sony ha mostrado el funcionamiento de ambos televisores, lo cual han plasmado desde CrunchGear en sendos vídeos. El de arriba, el impresionante funcionamiento del OLED de Sony, con total nitidez. Y a continuación, otro vídeo pero esta vez del funcionamiento del Sony Bravia ZX1 que quizá sea menos impactante pero que llama la atención igualmente
Publicado el día 3 de Octubre.
Para ver màs
Si la pantallas que se anuncian hoy ya te parecen lo suficientemente grandes para poner en tu casa, esta es prácticamente para invitar a tus amigos a ver un estreno cinematográfico.
Panasonic presentó esta “televisión del futuro” (como le dicen en Gizmodo) de 150 pulgadas y, aunque todavía no esté a la venta, explicaron que se espera que se comience a vender al público en cualquier momento del 2009.
¿El precio? Todavía no tenemos idea cuánto saldrá este plasma, pero seguro que el usuario convencional (como yo) no va a poder darse el lujo de tener una.
Publicado el día 3 de Octubre.
Para ver más
Reloj luminoso con pantalla LCD
Este pequeñito reloj creado por la empresa Aurora tiene una pantalla LCD (la cual te permitirá tener una visión perfecta a una considerable distancia) y además cambia de color cada mes que pasa.
Fue creado con goma transparente, lo que te permitirá apagar esa luz molesta de noche con un simple toque. Además, tiene una alarma que hará un juego de luces cada vez que te levantes a la mañana. Puedes comprarlo por US$26.
Publicado el día 3 de Octubre.
Para ver más
Pantallas ultrafinas de Sony en funcionamiento
Sony está apostando muy fuerte por el desarrollo de televisores ultrafinos, con unas dimensiones que hace sólo unos años eran totalmente impensables. En Xataka nos hemos hecho eco del Sony Bravia ZX1, un televisor de 40 pulgadas FullHD de sólo un centímetro de grosor, así como de las OLED de la propia Sony con unos míseros 0.3 milímetros de profundidad.
Estos días en la CEATEC, Sony ha mostrado el funcionamiento de ambos televisores, lo cual han plasmado desde CrunchGear en sendos vídeos. El de arriba, el impresionante funcionamiento del OLED de Sony, con total nitidez. Y a continuación, otro vídeo pero esta vez del funcionamiento del Sony Bravia ZX1 que quizá sea menos impactante pero que llama la atención igualmente
Publicado el día 3 de Octubre.
Para ver màs
Suscribirse a:
Entradas (Atom)
