Ascensor de Visual Basic (por Telma)

Private Sub b0_Click()
ascensor.Top = pb.Top + 200
contadorpb.Caption = contadorpb.Caption + 1
End Sub

Private Sub b1_Click()
ascensor.Top = p1.Top + 200
contador1.Caption = contador1.Caption + 1
End Sub

Private Sub b2_Click()
ascensor.Top = p2.Top + 200
contador2.Caption = contador2.Caption + 1
End Sub

Private Sub b3_Click()
ascensor.Top = p3.Top + 200
contador3.Caption = contador3.Caption + 1
End Sub

Private Sub b4_Click()
ascensor.Top = p4.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub

Private Sub b5_Click()
Texto1.Visible = True
enter.Visible = True
contraseña.Visible = True
End Sub

Private Sub enter_Click()
If Texto1 = "1234" Then
ascensor.Top = p5.Top + 200
contador5.Caption = contador5.Caption + 1
Texto1 = ""
End If
End Sub

Private Sub off_Click()
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b0.Enabled = False
sub0.Enabled = False
ascensor.BackColor = vbBlack
contador1.BackColor = vbBlack
contador2.BackColor = vbBlack
contador3.BackColor = vbBlack
contador4.BackColor = vbBlack
contador5.BackColor = vbBlack
contadorpb.BackColor = vbBlack
contadorss.BackColor = vbBlack
piso5.Enabled = False
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset.Enabled = False
End Sub

Private Sub sub_Click()
ascensor.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Private Sub on_Click()
b1.Enabled = True
b2.Enabled = Trueb
3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b0.Enabled = True
sub0.Enabled = True
ascensor.BackColor = vbDesktop
contador1.BackColor = vbWhite
contador2.BackColor = vbWhite
contador3.BackColor = vbWhite
contador4.BackColor = vbWhite
contador5.BackColor = vbWhite
contadorpb.BackColor = vbWhite
contadorss.BackColor = vbWhite
piso5.Enabled = True
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset.Enabled = False
End Sub

Private Sub pb2_Click()
ascensor.Top = pb.Top + 200
contadorpb.Caption = contadorpb.Caption + 1
End Sub

Private Sub piso1_Click()
ascensor.Top = p1.Top + 200
contador1.Caption = contador1.Caption + 1
End Sub

Private Sub piso2_Click()
ascensor.Top = p2.Top + 200
contador2.Caption = contador2.Caption + 1
End Sub

Private Sub piso3_Click()
ascensor.Top = p3.Top + 200
contador3.Caption = contador3.Caption + 1
End Sub
Private Sub piso4_Click()
ascensor.Top = p4.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub

Private Sub piso5_Click()
Texto1.Visible = True
enter.Visible = True
contraseña.Visible = True
End Sub

Private Sub reset_Click()
contadorss.Caption = "0"
contadorpb.Caption = "0"
contador1.Caption = "0"
contador2.Caption = "0"
contador3.Caption = "0"
contador4.Caption = "0"
contador5.Caption = "0"
End Sub

Private Sub ss2_Click()
ascensor.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Private Sub sub0_Click()
ascensor.Top = ss.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub




Private Sub sub0_Click()
ascensor2.Top = pb.Top + 200
contadorpb.Caption = contadorpb.Caption + 1
End Sub

Private Sub b1_Click()
ascensor2.Top = p1.Top + 200
contador1.Caption = contador1.Caption + 1
End Sub

Private Sub b2_Click()
ascensor2.Top = p2.Top + 200
contador2.Caption = contador2.Caption + 1
End Sub

Private Sub b3_Click()
ascensor2.Top = p3.Top + 200
contador3.Caption = contador3.Caption + 1
End Sub

Private Sub b4_Click()
ascensor2.Top = p4.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub

Private Sub b5_Click()
Texto2.Visible = True
enter2.Visible = True
contraseña2.Visible = True
End Sub

Private Sub enter_Click()
If Texto2 = "1234" Then
ascensor2.Top = p5.Top + 200
contador5.Caption = contador5.Caption + 1
Texto2 = ""
End If
End Sub

Private Sub off_Click()
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
boton0.Enabled = False
sub0.Enabled = False
ascensor2.BackColor = vbBlack
contador1.BackColor = vbBlack
contador2.BackColor = vbBlack
contador3.BackColor = vbBlack
contador4.BackColor = vbBlack
contador5.BackColor = vbBlack
contadorpb.BackColor = vbBlack
contadorss.BackColor = vbBlack
piso5.Enabled = False
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset2.Enabled = False
End Sub

Private Sub sub_Click()
ascensor2.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Private Sub on_Click()
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
boton5.Enabled = True
boton0.Enabled = True
sub0.Enabled = True
ascensor2.BackColor = vbDesktop
contador1.BackColor = vbWhite
contador2.BackColor = vbWhite
contador3.BackColor = vbWhite
contador4.BackColor = vbWhite
contador5.BackColor = vbWhite
contadorpb.BackColor = vbWhite
contadorss.BackColor = vbWhite
piso5.Enabled = True
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset2.Enabled = False
End Sub

Private Sub pb2_Click()
ascensor2.Top = pb.Top + 200
contadorpb.Caption = contadorpb.Caption + 1
End Sub

Private Sub piso1_Click()
ascensor2.Top = p1.Top + 200
contador1.Caption = contador1.Caption + 1
End Sub

Private Sub piso2_Click()
ascensor2.Top = p2.Top + 200
contador2.Caption = contador2.Caption + 1
End Sub

Private Sub piso3_Click()
ascensor2.Top = p3.Top + 200
contador3.Caption = contador3.Caption + 1
End Sub

Private Sub piso4_Click()
ascensor2.Top = p4.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub

Private Sub piso5_Click()
Texto2.Visible = True
enter2.Visible = True
contraseña2.Visible = True
End Sub

Private Sub reset_Click()
contadorss.Caption = "0"
contadorpb.Caption = "0"
contador1.Caption = "0"
contador2.Caption = "0"
contador3.Caption = "0"
contador4.Caption = "0"
contador5.Caption = "0"
End Sub

Private Sub ss2_Click()
ascensor2.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Private Sub sub0_Click()
ascensor2.Top = ss.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub

Semana 25 (por Telma)

Un concepto comodísimo

Sí, lo sé, estás llorando de la emoción. Probablemente todos los que trabajen en su casa darían su pierna derecha por esta increíble silla. Bueno, lamentablemente es otro de los geniales conceptos de la gente de Yanko Design pero hacerlo realidad, como -casi- siempre es cuestión de dinero.

Una increíble silla para el que trabaja en casa.

Éste es el link.

Acer Aspire Predator con procesadores AMD y gráficas ATI este diciembre

Acer va a poner a la venta en Diciembre una variante del Acer Aspire Predator, ese PC dedicado al mundo de los gamers con posibilidad de instalar hasta 3 tarjetas gráficas. Hasta ahora solo existían tres versiones (configurables) pero todas con procesadores Intel y con gráficas NVIDIA SLI, todo elevado al máximo para poder ofrecer la máxima calidad en todos los aspectos.
Acer ha confirmado que van a lanzar la otra cara de la moneda, también una versión potente para gamers, pero en esta ocasión con procesadores AMD y con gráficas ATI.
Los precios variarán según la configuración, pero estarán entre los 1099 euros por la versión más barata hasta los 2199 euros en su versión más completa. Si la versión Intel/NVIDIA es de color naranja, esta versión será de color azul, por diferenciar más que nada.

todo elevado al máximo para poder ofrecer la máxima calidad en todos los aspectos.

Éste es el link.

Tokyo Flash Denshoku: Un reloj imposible

La gente de Tokyo Flash parece que lo que quiere es confundirnos al lanzar nuevos relojes. La verdad que el diseño geek de este último que han lanzado es realmente interesante pero aprender a utilizarlo será realmente complicado.
Para saber la hora hay que presionar un botón al costado y te indicará las barras con las horas, seguido por los minutos (en decenas) y finalmente los minutos (en unidades).
Viene en negro y plateado, está fabricado en aluminio y las líneas se van actualizando cada minuto (en series de 12). El reloj, llamado Denshoku, pesa 95g y cuesta US$247 incluyendo el costo de envío.

Aprender a utilizarlo será realmente complicado.

Éste es el link.

Semana 24 (por Telma)

Nuevas versiones de las IdeaPad con QuickStart en noviembre

Lenovo Europa anunció que las nuevas IdeaPad S10e y S9e con la característica QuickStart comenzará a venderse a finales de noviembre. Esta tecnología te permitirá navegar, realizar videoconferencias y más en cuestión de segundos y sin tener que si quiera bootear la ultraportátil.
Otra nueva característica es que los compradores podrán elegir entre los sistemas operativos Windows XP Home o Pro y Novel SLED 10 Linux.
Podrás comprar las nuevas netbooks por US$460.

Estarán disponibles desde fines de noviembre.

Éste es el link.

Nueva pantalla LCD Full HD de Green House

La gente de Green House anunció que lanzó una nueva pantalla LCD Full HD que comenzará a estar a la venta desde principios de diciembre.
La nueva pantalla tiene 21 pulgadas con una resolución de 1920×1080, un ratio de contraste de 1000:1 (20000:1 con DCR), un brillo de 300cd/m2 y un tiempo de respuesta de 5ms.
También viene con puertos HDMI y DVI y trae también dos altavoces (2×1W) integrados.

Todavía no se habló sobre el precio.

Éste es el link.

Toshiba anuncia tarjetas microSDHC y SDHC de 16GB

Toshiba anuncia dos nuevas tarjetas de clase 6 con una capacidad de 16GB cada una, en dos formatos diferentes, microSDHC y SDHC.
En la parte positiva de estas tarjetas están los 2MB/s en transferencia que aseguran alcanza, como siempre en la parte negativa está el precio que por ahora no se conoce, pero se pondrán a la venta en Japón.

Si los 16GB son demasiados para ti, pondrán a la venta una tarjeta SDHC de 8GB con la misma velocidad.

Éste es el link.

Semana 23 (por Telma)

En China copian el HTC Touch Pro y el HTC Touch Diamond

Ya saben como es la filosofía respecto a los gadgets en China: “Si fue inventado, podemos copiarlo”. Y exactamente eso fue lo que pasó con los HTC. El HB 778 es el móvil en cuestión que imita el diseño del HTC Touch Diamond y el del Touch Pro.
Tiene una pantalla de 2.8 pulgadas, un dual slider, teclado QWERTY, TV, radio FM integrada, feedback Haptic, una cámara de 1Mpx, Bluetooth, dos ranuras para tarjetas SIM y slot para tarjeta de memoria microSD.

Lo más gracioso de todo es la cámara de 1Mpx. Al menos el precio es mucho más rentable que nuestros amigos originales. Puedes comprarlo por US$151.

Éste es el link.

Arma tu propia laptop con PC-Koubou

PC-Koubou comenzó a vender su nueva Amphis BTO GSN618GW TYPE-S, una notebook en la que podrás elegir sus características. Podrás optar por un procesador Intel Core 2 Duo P8400, P8600, T9400 y P9500 y costará, la versión con menores capacidades, 1075 euros.
Esta versión de la que les hablo viene con un procesador Core 2 Duo P8400 de 2.26GHz, un DVD SperMulti, una pantalla LCD de 15.4 pulgadas con una resolución de 1920×1200 y una placa de video GeForce 9600M GT con 512MB de VRAM.
Por ahora sólo está a la venta en Japón así que si estás viajando para el país asiático y no quieres gastar mucho dinero en una notebook con buenas características ya sabes por donde ir.

Una notebook en la que podrás elegir sus características. Muy bueno!

Éste es el link.

Acer se estrena con los procesadores Intel i7 con el Aspire M7720

Otro PC de sobremesa desde Acer, este con los nuevos procesadores Intel i7 de cuádruple núcleo.
Será el Aspire M7720 el PC de sobremesa que lleve estos nuevos procesadores, presentados esta misma semana.
Llevará un Intel i7 920 de 2.66GHz quad-core, hasta 3GB de memoria RAM ampliable a 12GB, con una ATI Radeon HD 4850 como tarjeta gráfica y disco duro de 750GB.
El precio será de unos 100 1000 euros en su versión más sencilla

Otro PC de sobremesa desde Acer.

Éste es el link.

Semana 22 (por Telma)

Barata e interesante computadora de Mouse Computer en Japón

La gente de Mouse Computer Japón lanzó una nueva PC a 800 euros bastante interesante por las características que tiene.

La Lm-iS453X tiene un procesador Core 2 Quad Q9550, 4GB de memoria RAM, 500GB de HDD, un chipset G45 Express, DVD Multi y viene con Windows Vista Home Premium instalado.

Lógicamente no esperes que la pantalla LCD venga con el ordenador porque no va a pasar.

Muy interesante y barata. Aunque la pantalla LCD no viene con el ordenador.

Éste es el link.

Se vendieron más de 5 millones de netbooks Aspire One en lo que va del año

Acer reveló los datos de las ventas estimadas de su Aspire One y esto suma nada menos que 5,06 millones de netbooks vendidas.
Primer trimestre: 0
Segundo trimestre: 800,000
Tercer trimestre: 2,2 millones
Cuarto trimestre: 2.8 millones (hasta ahora)
Nada mal para un comercio que, si bien está en alza, es completamente nuevo. Ya ven, la creación de tantas netbooks no es por nada. Deja mucho, mucho dinero.

Nada mal para un comercio que, si bien está en alza, es completamente nuevo.

Éste es el link.

Teclado rosa para rubias (…con grandes dotes de humor)

Antes de bombardearme a comentarios que no vienen al caso una nota: es puro humor, que nadie se sienta ofendido. Se trata del último producto de una larga lista de «WTF!?» que hemos descubierto, el “Teclado para rubias” (en serio, el teclado se llama así) es un teclado completo que funciona a la perfección, pero que sus teclas tienen ciertas modificaciones.
Ejemplo, la L es “LOL“, la O es “OMG” o por ejemplo la tecla de mayúsculas es algo así como “Cuidado! letras en tamaño XXL” y así en algunas de las teclas.

Aseguran que es un teclado que funciona como cualquier otro mediante USB, pero no pasará de anecdótico, ¿de verdad alguien lo va a comprar?

Éste es el link.

Lo mejor... (por Telma)

Calculadora de Visual Basic (por Nicolás y Telma)

Private Sub borrar_Click()
barra.Caption = " "
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub

Private Sub cinco_Click()
barra.Caption = barra.Caption + "5"
End Sub

Private Sub coma_Click()
barra.Caption = barra.Caption + "."
End Sub

Private Sub cuatro_Click()
barra.Caption = barra.Caption + "4"
End Sub

Private Sub diagonal_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "/"
barra.Caption = ""
End Sub

Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxopr.Caption = "+" Then
barra.Caption = Val(auxnro.Caption) + Val(barra.Caption)
auxnro.Caption = ""
auxopr.Caption = ""
End If
If auxopr.Caption = "-" Then
barra.Caption = Val(auxnro.Caption) - Val(barra.Caption)
auxnro.Caption = ""
auxopr.Caption = ""
End If
If auxopr.Caption = "*" Then
barra.Caption = Val(auxnro.Caption) * Val(barra.Caption)
auxnro.Caption = ""
auxopr.Caption = ""
End If
If auxopr.Caption = "/" Then
barra.Caption = Val(auxnro.Caption) / Val(barra.Caption)
auxnro.Caption = ""
auxopr.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "+"
barra.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "-"
barra.Caption = ""
End Sub

Private Sub multiplicar_Click()
auxnro.Caption = barra.Caption
auxopr.Caption = "*"
barra.Caption = ""
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub