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

Ascensor (por lula)

Private Sub L1_Click()
ascensor.Top = 4680
End Sub

Private Sub L2_Click()
ascensor.Top = 3720
End Sub

Private Sub L3_Click()
ascensor.Top = 2640
End Sub

Private Sub L4_Click()
ascensor.Top = 1560
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub

Private Sub llamar1_Click()
ascensor.Top = 4680
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
End Sub


Private Sub llamarpb_Click()
ascensor.Top = 5640
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
End Sub

Private Sub LPB_Click()
ascensor.Top = 5640
End Sub

Private Sub LSS_Click()
ascensor.Top = 6480
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
ll1.Enabled = False
ll2.Enabled = False
ll3.Enabled = False
ll4.Enabled = False
ll5.Enabled = False
llss.Enabled = False
llpb.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
ll1.Enabled = True
ll2.Enabled = True
ll3.Enabled = True
ll4.Enabled = True
ll5.Enabled = True
llss.Enabled = True
llpb.Enabled = True
End If

End Sub

Semana 28 (por Lula)

Electric Motorsport lanza su moto eléctrica GPR-S (sorprendentemente asequible)

Electric Motorsport es una compañía que llamó nuestra atención el año pasado, cuando presentó un prototipo de motocicleta eléctrica con una velocidad máxima de 160 km/h, una autonomía de 160 km y un precio de 15.000 dólares. Por suerte para todos los aficionados a las dos ruedas, el fabricante ha decidido fabricar su próximo modelo en serie. Su nombre es GPR-S, puede alcanzar unos 100 km/h aproximadamente, recorrer entre 56/96 km con una sola carga (dependiendo del uso que le des) y por 8.000 dólares (6.360 euros al cambio) parece una alternativa interesante si buscas un medio de transporte tan ecológico como silencioso.
Las baterías se recargan en cuatro horas con un simple enchufe, aunque también se ofrece un acelerador que reduce la espera a sólo 1,5 horas. Además, y dado que su construcción es modular, es posible actualizar el sistema de almacenamiento sin mayores complicaciones, cosa que siempre es interesante si consideramos la limitada vida útil de la mayoría de las baterías.
Para ver más.
24 de Octubre.
Elegí este articulo ya que me parece importante que cuiden el medio ambiente.

Imovio: ¿qué es esto… una notebook o un móvil?

Realmente la brecha de tecnología se afina cada vez más con la aparición de todo tipo de nuevos inventos, como este caso… parece una notebook pero tiene el tamaño de los teléfonos móviles ¿? En todo caso, seguramente se trate quizás de una versión mini de las ya conocidas Netbooks, lo bueno de este tipo de computadoras portátiles es que no debes acarrear con tu pesada laptop cuando quieres estar conectividad para revisar el correo, navegar o dejar algun mensaje rápido por la web.
Como casi todo dispositivo móvil de hoy en día, éste también posee una webcam incorporada que te asegurará largos ratos de diversión cuando estés chateando por MSN, como mencionabamos antes, tiene soporte para email, navegación y mensajería instantánea. Otras características son: tarjeta SD de 8GB, pantalla de 2.8 pulgadas QVGA, USB, Wi-Fi y Bluetooth.
Para ver más.
24 de Octubre.
Elegí este articulo ya que me parece muy bueno que creen nuevas notebooks cada vez más pequeñas.

Mamiya lanza cámara digital de 28 MP con tecnología DL28

Mamiya, la robusta marca de cámaras de fotografía de medio formato, ha anunciado una nueva gama de cámaras digitales con sensores de alta capacidad, se denomina a esta nueva tecnología como: DL28 Digital Camera system. Ya como comienzo, te comentamos que sólo el cuerpo de la cámara cuesta $25 mil dólares. Básicamente el DL28 se basa en el respaldo Leaf Aptus-II y sus 28.0 MPixeles han sido claves para concebir un nuevo sistema profesional de fotografía, con su capacidad al límite de calidad esta cámara puede tomar fotografías y llenar más de 159 MB de cualquier tarjeta Compact Flash, también puede generar archivos RAW que pueden pesar más o menos 50 MB cada uno). Dichos píxeles se reparten hacia un sensor que mide 3.5 pulgadas de diagoonal, pero incluso así el máximo ISO es de 800.
Para ver más.
24 de Octubre.
Elegí este articulo ya que me parece bueno que hagan camaras con mejor calidad para sacar mejores fotos.

Semana 27 (por Lula)

Usar teléfonos móviles en los aviones tal vez sea posible

En un futuro no muy lejano, tal vez todos nosotros podamos usar teléfonos móviles a la hora de viajar en avión. La agencia de Comunicaciones de Australia está proponiendo a las aerolineas australianas que permitan usar los móviles en viajes locales e internacionales. Para lograrlo, necesitarían instalar lo que se denomina como “jammer”, un dispositivo que bloquearía los móviles de los pasajeros para evitar que interfirieran con las señales de las estaciones de vuelo ubicadas en tierra. Quizás en un futuro se podría lograr.
Elegí este articulo ya que me pareceria muy util poder usar el celular en cualquier momento ya que si ocurre una emergencia se podrìa estar comunicado.
Para ver más.
17 de Octubre

Sony PS2: un increíble concepto de Tai Chiem

Seguramente si eres un fanático de las consolas y videojuegos y eres un feliz poseedor de un PSP, te habrás dado cuenta que el tiempo pasa.. pasa y no llegan nuevas actualizaciones de modelos para el PSP, si hay actualizaciones a nivel de software pero a todos nos gusta tener algo nuevo para deleitar nuestros ojos. Y esperando y esperando el diseñador Tai Chiem se adelantó a Sony y ha lanzado un concepto de diseño para el próximo PSP 2.
Como vemos es un diseño muy vanguardista y que creo serían sin dudas un éxito si se lanzara, nos encontramos con una pantalla flexible OLED que puede ser enrollada a la hora de no jugar con la consola para guardarla en un lugar seguro, altavoces estereo a cada lado nos darán también una gran experiencia a la hora de jugar y como la frutilla de la torta, nos encontramos con posibilidad de usar dos joysticks!
Elegí este articulo ya que me parece bueno que creen nuevas psp, que sean más faciles de guardar, y que se pueda jugar con dos joysticks.
Para ver más.
17 de Octubre.

Toshiba Portege R600: notebook ultraliviana de 12.1″


La nueva Toshiba Portege R600 ya está disponible para la venta en EE.UU. Esta belleza de notebook nos ofrece un delgado diseño lo que la hace super portable, cuenta con pantalla de 12.1 pulgadas y por dentro corre un procesador Intel con tecnología Centrino 2, actualmente las computadoras disponibles a configuraciones son los modelos R600-S4201 y R600-S4202. Ambos sistemas corren Intel Core 2 DUO SU9400 a 1.4 GHz, placa de vídeo GMA 4500MHD integrada, 3 GB de memoria DDR2, grabadora de DVD y pantalla widescreen con soporte para resoluciones de hsata 1280×800 píxeles.
Elegí este articulo ya que me parece bueno que hagan nuevas notebooks y mas si son
livianas!!!
Para ver más.
17 de Octubre.

Semana 26

Analizan la BlackBerry Curve 8900 y recibe las primeras alabanzas

Cuando todavía estamos inmersos en la vorágine del lanzamiento de la Bold, RIM prosigue su frenético ritmo y nos recuerda que también está muy presente la Curve 8900 (Javelin), y que llegará al mercado en unos pocos meses. CrackBerry entra un poco en detalle de lo que trae y destaca que tiene una pantalla un poco más pequeña y de mayo resolución y que mezcla en el teclado un poco de la Bold y de la propia Curve.
Lo curioso del caso es que este prototipo cuenta con un viejo trackball que será remplazado con uno de diseño más actual cuando se ponga a la venta. La falta de 3G va a resultar imperdonable para algunos, pero le vemos un gran futuro si el precio es competitivo. Además, en cualquier caso, tiene WiFi.

10 de Octubre
Para ver más.
Elegí este articulo ya que me parece bueno que hagan nuevo celulares y que a la gente les gusten.

Diamantes incrustados para auriculares (o cómo tirar 60.000 dólares)

No parece un artículo muy adecuado para tiempos de crisis, pero en fin. Si te sobran 60.000 dólares (44.154,66 euros) y eres un poco hortera excéntrico, puedes comprarte este set de diamantes de DEOS que se adhieren a los auriculares del iPod. Si la crisis te ha pegado de pleno, pero aun así quieres llamar un poco la atención, también puedes optar por un kit de cristales de Swarovski por tan solo 110 dólares (80,95 euros). Vivir para ver.

10 de Octubre
Para ver más.
Elegí este articulo ya que me parece muy bueno que hagan auriculares a la “moda” aunque son un poco costosos.

Mozilla lanzaría version móvil de Firefox

Mozilla ha confirmado la primera versión Alpha de Firefox Mobile, el navegador web que se destinará a teléfonons móviles y otros dispositivos que estará disponible en las próximas semanas. El CEO de la compañia John Lilly ha confirmado que están trabajando en una plataforma de navegador web móbil open source y que será bastante similar a la versión que todos conocemos de Firefox para computadoras portátiles y de escritorio.
10 de Octubre
Para ver más.
Elegí este articulo ya que me parece interesante que se pueda utilizar el mozilla en los celulares.

Calculadora 3 (por Lula)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub
Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub
Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
coma.Enabled = True
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
pantalla.Caption = pantalla.Caption * -1
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub
Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub
Private Sub por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
If Val(pantalla.Caption) > -1 Then
pantalla.Caption = Sqr(pantalla.Caption)
Else
pantalla.Caption = "error"
End If
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

Semana 25 (por Lula)

Nuevos MV100 y MZ100, ordenadores ecológicos de Samsung

A día de hoy, los fabricantes no sólo luchan por la máxima potencia, el mejor rendimiento o la estética, también pelean por el medio ambiente. Samsung parece la más concienciada en este aspecto, y lanza ahora una pareja de equipos de sobremesa que destacan por su excelente consumo. Se trata del MV100 y el MZ100 (el delgado), dos ordenadores equipados con el chipset G43 de Intel y la posibilidad de elegir entre una 9600GT y una 9500GS en cuanto a gráficos. El ahorro energético que ofrecen se debe a que en funcionamiento sólo gastan 60W, mientras que si están suspendidos, el consumo baja a 1W.

3 de Octubre.
Para ver más
Elegí este articulo ya que me parece muy importnate que se preocupen por el medio ambiente.

Anna Konda: un robot para luchar contra el fuego

Anna Konda mide 3 metros y pesa 75 kilos, pero no es la “Anaconda” de las películas, es una imitación de una serpiente pero a nivel de robótica. Este robot no solo puede lanzar agua, sino que basa su funcionamiento en el agua, posee 20 articulaciones y cada una de ellas están compuestas por válvulas hidráulicas y cilindros capaces de manejar hasta 101 kg de presión de agua.
Anna Konda está diseñado para ser un robot de lucha contra incendios, la alta presión del agua que posee dentro hace de este un robot muy fuerte, pero también sirve para mantenerlo fresco y a temperaturas bajar mientras recorre zonas de riesgo como túneles, edificios en llama o lugares con químicos inflamables.

3 de Octubre
Para ver más
Elegí este articulo ya que me parece interesante que creen robots para proteger a los bomberos.

Último LG KP500 desde este mes ya disponible en Europa


LG ha anunciado su último lanzamiento de tecnología movil, el teléfono LG KP500. ¿Otro competidor del iPhone quizás? Posee una pantalla de 3 pulgadas touchscreen de alta calidad, incluye una cámara digital de 3 MegaPíxeles, teclado QWERTY con software de reconocimiento de escritura, realmente al mirar la fotografía podemos decir que luce realmente bien!.

3 de Octubre
Para ver más
Elegi este articulo ya que me encantan los celulares y me gusta que hagan nuevos modelos.