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

Semana 26 (por alan)

Reproductor Blu Ray Victor JVC DR-BX500
Oct 16, 2008

Con el aval de Victor-JVC llega un nuevo reproductor Blu Ray que se alista a la alta definición. El dispositivo es el DR-BX500 y saldrá a la venta en Japón el próximo mes de noviembre aunque aún no hay noticias sobre si será un lanzamiento mundial.

El reproductor cuenta con un disco duro de 500 GB y dos sintonizadores de TV digital además de uno dedicado a la TV analógica.

Por otra parte, consigue grabaciones de vídeo en los formatos MPEG4 y AVC/H.264. En lo que hace a sus conexiones, cuenta con una entrada HDMI y una S-Video.

Su precio de venta en Oriente es de 1299 euros, al cambio.

Para ver mas








Sony Ericsson W705, saldra para finales de mes
Oct 16, 2008





Ya se han filtrado las características del Sony Ericsson W705 , un teléfono de la gama Walkman que complementa al G705 con unas especificaciones similares pero más centrado en la música.
Nos encontramos, así, con un teléfono con pantalla de 2.4 pulgadas y resolución de 320 × 240 píxeles con un formato tipo slider que “esconde” un teclado convencional de móvil que, por las primeras fotos que se han visto, parece muy plano. Habrá que ver si es cómodo escribir con él.
El G705 estaba pensado para acceder a Internet y el Sony Ericsson W705 no le va a la zaga, por lo que también incorpora Wi-Fi e, imaginamos, que conectividad HSDPA . Disponiendo también de una cámara de 3.2 megapíxeles es de esperar que mantenga la posibilidad de subir vídeos directamente a Youtube.
Siendo de la gama Walkman no podía faltar conectividad Bluetooth con soporte del perfil A2DP, que nos permitirá escuchar música sin necesidad de cables, mediante los auriculares apropiados. Para acabar, también nos ofrece un receptor GPS con soporte de aGPS.
El Sony Ericsson W705 será anunciado durante este mes y se pondrá a la venta a principios del próximo año.


Para ver mas


Portátil MSI Bravo EX620, con tecnología Cinema Pro
Oct 15, 2008

MSI presentó hace unos días, un modelo de sus portátiles llamado Bravo EX620 , que incluye la tecnología Cinema Pro, la cual permite tras tocar un botón, reproducir un vídeo con la mejor configuración de vídeo y audio, ideal para cuando nos cansamos de trabajar/estudiar y queremos tomarnos un descanso con una buena película.

Este modelo incluye una buena configuración de hardware, como veremos a continuación:

Dimensiones: 374 x 246 x 26.8~35 mm
Peso: 2.7 Kg
Procesador Intel Core 2 Duo
Hasta 4GB de RAM DDR2 a 667/800 MHz
SO: Windows Vista Home Premium
Pantalla LCD de 16” con resolución WSXGA (16:9)
Cámara Web de 2 Megapíxeles
ATI Radeon HD 3470, con 256 VRAM DDR2
Disco SATA de 160, 250 o 320GB

Lectograbadora de DVD o Lectora de Blu-ray
Dolby Surround
Altavoces Hi-Fi
Ethernet 10/100/1000
Bluetooth 2.0 + EDR
WiFi 802.11 b/g/n
Salida HDMI
Lector de memorias SD, MMC, MS, xD
3x puertos USB 2.0
1x puerto eSATA
Batería de 6 o 9 celdas
Si no la quieren usar como una portátil para trabajar, tranquilamente pueden sacarle provecho como un centro multimedia, ya que básicamente cuenta con todo lo necesario.

La MSI Bravo EX620 aún no tiene precio de lanzamiento, aunque eso lo sabremos pronto ya que no tardará mucho en salir al mercado.

Para ver mas

NO TIENE FOTO

Ascensor (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 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
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
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
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
End Sub

Private Sub L5_Click()
Asensor.Top = 240
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = False
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
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
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
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
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
End Sub

Private Sub Llamar5_Click()
Asensor.Top = 240
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = False
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
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
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
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
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
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
End Sub

Calculadora 3 (por alan)

Private Sub Borrar_Click()
Numeros.Caption = "0"
coma.Enabled = True
End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command13_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()

End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()

End Sub

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub coma_Click()
Numeros.Caption = Numeros.Caption + ","
coma.Enabled = False
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dividir_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "/"
coma.Enabled = True
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar5.Caption = "+" Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "-" Then
Numeros.Caption = Val(Auxiliar.Caption) - Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "/" Then
Numeros.Caption = Val(Auxiliar.Caption) / Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "*" Then
Numeros.Caption = Val(Auxiliar.Caption) * Val(Numeros.Caption)
Auxiliar.Caption = ""
Else
If Auxiliar5.Caption = "%" Then
Numeros.Caption = Val(auxiliar2.Caption) * 100 / Val(Numeros.Caption)
auxiliar2.Caption = ""
End If
End If
End Sub

Private Sub masmenos_Click()
Numeros.Caption = Numeros.Caption * -1
coma.Enabled = True
End Sub

Private Sub multiplicar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "*"
coma.Enabled = True
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub Porcentaje_Click()
Auxiliar5.Caption = "%"
auxiliar2.Caption = Numeros.Caption
Numeros.Caption = "0"
coma.Enabled = True
End Sub

Private Sub raiz_Click()
If Numeros.Caption < caption = "Error" caption =" Sqr(Numeros.Caption)" enabled =" True" caption =" Numeros.Caption" caption = "0" caption = "-" enabled =" True" caption =" 0" caption = "" caption = "6" caption =" Numeros.Caption" caption =" 0" caption = "" caption = "7" caption =" Numeros.Caption" caption =" Numeros.Caption" caption = "0" caption = "+" enabled =" True" caption =" 0" caption = "" caption = "3" caption =" Numeros.Caption" caption =" 0" caption = "" caption = "1" caption =" Numeros.Caption">

Semana 25 (por alan)

Nuevos TomTom GO 630… con modificación de mapas
Oct 09, 2008

TomTom nos tiene preparado para noviembre, el lanzamiento oficial de sus sistema de navegación GPS GO 630 … con una pantalla de 4.3” (480×272 píxeles)…

Si bien la tendencia de los sistemas GPS es cada vez tener pantallas más grandes, no es la única característica importante que nos regalará TomTom, también podemos apreciar un procesador a 400MHz, 2GB de memoria interna además de una ranura para tarjetas SD, conectividad Bluetooth y una batería con autonomía de 5 horas.

Otra cosa que me parece bastante interesante, es la posibilidad de hacer modificaciones de los mapas al instante, importante en ciudades modernas que siempre están en ejecución de nuevas obras… y mucho mejor aún, las modificaciones pueden ser compartidas con otros usuarios a través de al tecnología P2P de los mapas…

El sistema Bluetooth nos permitirá utilizarlo en modo manos libres y gracias a su micrófono se puede usar para dar instrucciones de voz.


El GO 630, saldrá en dos versiones, la más básica costará 299€ y la otra con información de tráfico llegará a los 349€.

Para ver mas

La PSP permitirá el acceso directo a la PS Store
Oct 09, 2008

Finalmente Sony Computer Entertainment Japan, hace anuncio de unos de los cambios más esperados por los dueños de consolas PlayStation Portable (PSP), la posibilidad de acceder de forma directa a la PS Store.

Actualmente, quienes poseen una PSP, requieren de al menos una computadora o una Playstation 3, para poder acceder a los contenidos, algo que cambiará a partir del 15 de octubre (al menos, para Japón).Podría parecer sin sentido que desde Sony no hicieran este cambio, aunque viendo la caída que está teniendo su consola portátil, era necesario que lo hicieran.

El cambio será inicialmente válido para los usuarios japoneses, aunque se espera que esté disponible para el resto del mundo en el futuro (tal cual han hecho con cada Firmware, cambio, etc).

Por otro lado, SCEJ también anunció que varios títulos que están próximos a ser lanzados, tendrán un lanzamiento dual, en el sentido que podrán adquirirse por tienda (en formato UMD), o bien por medio de la PS Store, abriendo así las puertas a contenido legal en aquellos países donde la piratería es altísima, culpa de los -abusivos- precios locales (como es el caso de Argentina, en donde algunos juegos cuestan 50 dólares, mientras que en Estados Unidos solo cuestan 19 dólares).

Si la movida le sale bien a Sony, seguramente veremos un incremento en interés por parte de los desarrolladores de juegos, trayendo nuevos títulos para el próximo año, e incrementando también así las ventas de su consola, que últimamente están un tanto mal paradas respecto a la consola de Nintendo, DS.

Para ver mas

Philips Streamium Wireless Micro, música inalámbrica
Oct 08, 2008

Actualizando anteriores modelos llega el Philips Streamium Wireless Micro Hi-Fi System . Tras ese largo nombre nos encontramos con una cadena de música pensada para los tiempos digitales.
Por ello, además de permitir la reproducción de CDs de música, dispone también de un disco duro interno de 160 GB, en el cual podremos almacenar nuestros ficheros digitales y ripear esos mismos CDs, todo ello complementado con una conexión a la red que nos permitirá tenerlos perfectamente clasificados.
La conexión puede hacerse mediante Ethernet o a través de Wi-Fi, siendo compatible con 802.11g, y nos permitirá etiquetar y clasificar la música mediante el servicio Gracenote. Al mismo tiempo, con esta conectividad podremos copiar música a la cadena desde nuestro ordenador y escuchar la radio a través de Internet.
El Philips Streamium Wireless dispone de una pantalla LCD en la que se muestran los datos de lo que estemos escuchando, además de la carátula correspondiente. También incluye un sintonizador de radio FM y soporte para música en formato MP3, WMA y AAC .
Viene con dos altavoces con una potencia de salida de 50 vatios cada uno y podremos controlarlo mediante un mando a distancia incluido en el pack. Su precio, al cambio, ronda los 500 euros.

Para ver mas

Calculadora 2 (por alan)

Private Sub Borrar_Click()
Numeros.Caption = "0"
End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command13_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()

End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()

End Sub

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dividir_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "/"
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar5.Caption = "+" Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "-" Then
Numeros.Caption = Val(Auxiliar.Caption) - Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "/" Then
Numeros.Caption = Val(Auxiliar.Caption) / Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "*" Then
Numeros.Caption = Val(Auxiliar.Caption) * Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
End Sub

Private Sub multiplicar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "*"
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub Porcentaje_Click()

End Sub

Private Sub restar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "-"
End Sub

Private Sub seis_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "6"
Else
Numeros.Caption = Numeros.Caption + "6"
End If
End Sub

Private Sub siete_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "7"
Else
Numeros.Caption = Numeros.Caption + "7"
End If
End Sub

Private Sub sumar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "+"
End Sub

Private Sub tres_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "3"
Else
Numeros.Caption = Numeros.Caption + "3"
End If
End Sub

Private Sub uno_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "1"
Else
Numeros.Caption = Numeros.Caption + "1"
End If
End Sub

Semana 23 (por alan)

Camara Reflex Pentax K-m
Sep 24, 2008

Finalmente y luego de numerosos rumores Pentax se han confirmado las prestaciones de su nueva réflex, la Pentax K-m. Esta cámara fotográfica se ha posicionado en un lugar clave para los usuarios no especializados en la imagen pues si bien se trata de una SLR, es decir que cuenta con lentes intercambiables y controles manuales, el funcionamiento de este equipo se parece al de algunas compactas del mercado por lo que casi podríamos decir que “toca” el buque de las compactas de avanzada aunque, por supuesto, con prestaciones superiores.

La Pentax K-m entonces es un dispositivo con un sensor de 10.2 megapíxele s que cuenta con un estabilizador de imagen así como un sistema de limpieza de sensor que se ocupa de eliminar el molesto polvo que se adhiere al sensor a través de un sistema de vibración.

Este modelo cuenta con 16 modos automáticos y un botón de ayuda , que facilita su manipulación a la hora de realizar una captura. En cuanto a su sensibilidad, oscila en un rango de entre 100 y 3200 ISO . La pantalla es de 2.7 pulgadas y llama la atención que en lugar de una batería, la cámara utiliza cuatro pilas AA, con lo cual deberán tener cuidado de recargarlas o bien tener pilas de repuesto siempre que sea necesario pues éstas se agotan rápidamente.


La Pentax K-m se venderá a partir de noviembre por un precio de 499 euros y al momento de adquirirla viene con un objetivo de 18-55 mm.

Para ver mas

Samsung M8800 Bresson, con cámara de 8 megapíxeles
Sep 24, 2008

Samsung quiere mejorar el i8510, uno de los terminales más potentes que hemos visto hasta el momento, con el Samsung M8800 Bresson , con el que comparte parte del diseño externo y la cámara de ocho megapíxeles .

En este modelo se sustituye el teclado deslizante por una pantalla táctil de 3.2 pulgadas , desde la que controlaremos sus funciones. Se aumenta, además, la resolución, algo pobre en el i8510, la cual podría llegar a los 800 × 480 píxeles.

Esta pantalla se integra en el intento del Samsung M8800 Bresson de convertirse en un móvil con una buena experiencia multimedia, para lo cual no solo se ha mejorado la parte física, sino también el software , adaptándolo a las funciones táctiles y de reproducción.


No se olvida, por eso, de la conectividad, soportando HSDPA (y esperemos que también Wi-Fi), y de un receptor GPS , que nos permitiría usarlo como navegador y para geolocalizar las fotografías que tomemos. La cámara, por cierto, dispone de autoenfoque y de flash.

De momento, las especificaciones de este Samsung M8800 Bresson todavía no son oficiales, por lo que podrían variar ligeramente, pero ya nos hacen suponer que no nos encontramos ante un terminal barato, sino frente a uno de los de más alta gama del fabricante coreano.

Samsung quiere mejorar el i8510, uno de los terminales más potentes que hemos visto hasta el momento, con el Samsung M8800 Bresson , con el que comparte parte del diseño externo y la cámara de ocho megapíxeles .
En este modelo se sustituye el teclado deslizante por una pantalla táctil de 3.2 pulgadas , desde la que controlaremos sus funciones. Se aumenta, además, la resolución, algo pobre en el i8510, la cual podría llegar a los 800 × 480 píxeles.
Esta pantalla se integra en el intento del Samsung M8800 Bresson de convertirse en un móvil con una buena experiencia multimedia, para lo cual no solo se ha mejorado la parte física, sino también el software , adaptándolo a las funciones táctiles y de reproducción.
No se olvida, por eso, de la conectividad, soportando HSDPA (y esperemos que también Wi-Fi), y de un receptor GPS , que nos permitiría usarlo como navegador y para geolocalizar las fotografías que tomemos. La cámara, por cierto, dispone de autoenfoque y de flash.
De momento, las especificaciones de este Samsung M8800 Bresson todavía no son oficiales, por lo que podrían variar ligeramente, pero ya nos hacen suponer que no nos encontramos ante un terminal barato, sino frente a uno de los de más alta gama del fabricante coreano.

Para ver mas

Cámara compacta BenQ E1050
Sep 23, 2008

Estamos acostumbrados a recibir noticias de BenQ pero sobre todo con respecto a monitores, esta vez nos han sorprendido con el lanzamiento de una cámara compacta … se trata del modelo E1050 .
Esta cámara usa tecnología “apunta y dispara”, y nos ofrece un sensor de 1 0 megapíxeles, zoom óptico de 3x , ISO 1600 y pantalla de 3”.
Además trae la opción de grabación de vídeo en VGA (640×480 píxeles), e incluye ranura para tarjetas microSD (viene con una de 10 megas).
Pues, nada especial ni sobresaliente, mejor nos quedamos con sus monitores.

Para ver mas

Calculadora (por alan)

Private Sub Borrar_Click()
Numeros.Caption = "0"
End Sub

Private Sub Command10_Click()
Numeros.Caption = ""

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar.Caption = Numeros.Caption Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
Else
Numeros.Caption = Val(Auxiliar2.Caption) - Val(Numeros.Caption)
Auxiliar2.Caption = ""
End If
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub restar_Click()
Auxiliar2.Caption = Numeros.Caption
Numeros.Caption = "0"
End Sub

Private Sub seis_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "6"
Else
Numeros.Caption = Numeros.Caption + "6"
End If
End Sub

Private Sub siete_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "7"
Else
Numeros.Caption = Numeros.Caption + "7"
End If
End Sub

Private Sub sumar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
End Sub

Private Sub tres_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "3"
Else
Numeros.Caption = Numeros.Caption + "3"
End If
End Sub

Private Sub uno_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "1"
Else
Numeros.Caption = Numeros.Caption + "1"
End If
End Sub

Semana 22 (por alan)

BenQ E1050, una tímida compacta de 10 mp
Sep 18, 2008

BenQ ha entrado en escena para presentar una pequeña cámara compacta bautizada como E1050 .
Este modelo ofrece un sensor de 10 mp y un zoom óptico de 3x , por lo que podemos dar cuenta que se trata de un modelo sin grandes posibilidades aún cuando funcionará en forma correcta, sobre todo si se trata de fotografías caseras.
Una buena ventaja es que permite tomar fotografías tanto en formato tradicional como panorámico y su sensibilidad es otro punto a favor, con una máxima de 3200 ISO . En lo que hace al vídeo, consigue grabaciones con una resolución de 640 x 480 píxeles a una velocidad de 30 fotogramas por segundo.
Como podrán ver en la imagen, se trata de un equipo discreto que no pretende llamar la atención aunque sí ampliar las opciones de los usuarios a la hora de elegir una compacta para las vacaciones o los fines de semana. Y no está mal que existan estas opciones.

Para ver mas

Móvil Philips M200, mas centrado en la música
Sep 18, 2008

Philips sigue sacando nuevos productos de telefonia al mercado, ahora se trata de un producto enfocado en la música de su línea de teléfonos móviles, siendo este el M200 .
Su diseño es bien simple, aunque sin duda es atractivo, mientras que sus características solo buscan aportar lo mínimo para sacar provecho de un poco de buena música.
Veamos que nos ofrece el Philips M200 :
Dimensiones: 105 x 44.5 x 13.2 mm
Peso: 70 gramos
GSM 900/1800 MHz
GPRS Clase 10
Pantalla cSTN de 1.8” con hasta 65 mil colores y resolución de 128 x 160px
Reproductor de audio en MP3
Sintonizador de radio FM
Memoria interna de 3MB
Ranura microSD
Batería de Ion Litio de 1050 mAh
De momento no hay información sobre el precio del producto, aunque se espera que esté disponible próximamente.
Aquellos que anden buscando un móvil simple pero “musical”, seguramente no querrán dejar pasar al Philips M200.

Para ver mas

El iPod Nano de 4GB es real
Sep 18, 2008

En el evento “Lets Rock” de Apple, en donde se presentaron los nuevos iPod Nano disponibles en 9 diferentes colores y con capacidades de 8/16GB. Sin embargo, recientemente aparecieron una serie de fotografías de unos de los iPod Nano de 4ta generación de 4GB donde las fuentes dicen que a pesar de no ser anunciados oficialmente, estos están disponibles en Europa. Las imágenes estuvieron siendo regadas por toda la blogósfera como un rumor, hasta que al final se ha confirmado su existencia.

Para ver mas

Semana 21 (por Alan)

Nuevo iPod touch 2G
Sep 10, 2008

La nueva generación del iPod touch no representa un salto demasiado importante respecto a la anterior, al menos desde el punto de vista del hardware , en el que ha habido modificaciones mínimas aunque interesantes, pero si en el de software.

Para ver mas

Yo lo elegí porque muestra como se inventan muchas cosas de tecnologia diferentes.

Sony Walkman NW-630F y NWS730
Sep 10, 2008

Siempre que la protagonista sea Sony , las noticias están a la orden del día. Y quizá no siempre merezca los aplausos pero lo cierto es que sucede como con los grandes jugadores de fútbol, no importa si es un gran gol de Maradona o la última tendencia en peinados de la mano de Beckham, lo importante es que se habla de ellos.

Para ver mas

Yo lo elegí porque muestra como sony inventa diferentes cosas.

Convertir Firefox en Google Chrome
Sep 10, 2008

Con la aparición de Google Chrome, a muchos usuarios al igual que a mi, nos encantó el diseño minimalista de dicho navegador y es por ello que algunos desarrolladores han creado 2 temas para Firefox de Google Chrome. Para ello utilizaremos ChromiFox y aunque también está disponible otro tema llamado Chrome Package, al intentar instalar me tira un error, lo que es una completa lástima, ya que por lo que se ve, la apariencia que entrega es idéntica a Chrome.

Para ver mas

Yo lo elegí porque muestra como hay diferentes navegadores de internet.

SIN IMAGEN.

Visual Basic (por alan)

Private Sub Label1_Click()

End Sub

Private Sub CATV_Click()
tvcatv.Caption = "CATV"
End Sub

Private Sub catvtv_Click()
Numerocanal.Caption = "0"
If tvcatv.Caption = "TV" Then
tvcatv.Caption = "CATV"
Else
tvcatv.Caption = "TV"
End If
End Sub

Private Sub Cero_Click()
Auxiliar.Caption = Auxiliar.Caption + "0"
End Sub

Private Sub Cinco_Click()
Auxiliar.Caption = Auxiliar.Caption + "5"
End Sub

Private Sub Cuatro_Click()
Auxiliar.Caption = Auxiliar.Caption + "4"
End Sub

Private Sub Dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub

Private Sub Enter_Click()
If tvcatv.Caption = "TV" Then
If Auxiliar.Caption < caption =" Auxiliar.Caption" caption = "" caption =" 0" caption = "" caption = "CATV" caption =" Auxiliar.Caption" caption = "" caption =" 0" caption = "" caption =" Numerocanal.Caption" caption = "TV" caption =" 0" caption =" 0" top =" Pantalla.Top" left =" Pantalla.Left"> 0 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
If tvcatv.Caption = "CATV" Then
Numerocanal.Caption = 129
Else
Numerocanal.Caption = 13
End If
End If
End Sub

Private Sub menos1_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub

Private Sub menos2_Click()
Pantalla.Left = Pantalla.Left - 100
End Sub

Private Sub Nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub

Private Sub Ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub

Private Sub Off_Click()
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Auxiliar.Caption = ""
mas.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
menos1.Enabled = False
menos.Enabled = False
menos2.Enabled = False
catvtv.Enabled = False

End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Auxiliar.Caption = ""
mas.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
menos1.Enabled = False
menos.Enabled = False
menos2.Enabled = False
catvtv.Enabled = False
Else
Numerocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
mas.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
menos1.Enabled = True
menos.Enabled = True
menos2.Enabled = True
catvtv.Enabled = True

End If

End Sub

Private Sub On_Click()
Numerocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
mas.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
menos1.Enabled = True
menos.Enabled = True
menos2.Enabled = True
catvtv.Enabled = True

End Sub

Private Sub Seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub

Private Sub Siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub

Private Sub Tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
tvcatv.Caption = "TV"
End Sub

Private Sub Uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Visual Basic (por alan)

Private Sub Label1_Click()

End Sub

Private Sub CATV_Click()
tvcatv.Caption = "CATV"
End Sub

Private Sub Cero_Click()
Auxiliar.Caption = Auxiliar.Caption + "0"
End Sub

Private Sub Cinco_Click()
Auxiliar.Caption = Auxiliar.Caption + "5"
End Sub

Private Sub Cuatro_Click()
Auxiliar.Caption = Auxiliar.Caption + "4"
End Sub

Private Sub Dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub

Private Sub Enter_Click()
If Auxiliar < caption =" Auxiliar.Caption" caption =" 0" caption = "" caption =" Numerocanal.Caption" caption =" 1" top =" Pantalla.Top" left =" Pantalla.Left"> 0 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
Numerocanal.Caption = 129
End If
End Sub

Private Sub menos1_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub

Private Sub menos2_Click()
Pantalla.Left = Pantalla.Left - 100
End Sub

Private Sub Nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub

Private Sub Ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub

Private Sub Off_Click()
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Auxiliar.Caption = ""
End Sub

Private Sub On_Click()
Numerocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True

End Sub

Private Sub Seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub

Private Sub Siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub

Private Sub Tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
tvcatv.Caption = "TV"
End Sub

Private Sub Uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Semana 19 (por alan)

Móvil 3G Nokia N85, con GPS, pantalla OLED y cámara de 5 Megapíxeles
Aug 28, 2008

Uno de los modelos presentados oficialmente por Nokia hoy para sus móviles NSeries, es el N85, un producto que venía siendo objetivo de rumores desde hace algunas semanas.

Sin duda, el producto no nos desiluciona por sus características… para nada, como veremos a continuación:

Dimensiones: 103 x 50 x 16 mm
Peso: 128 gramos
GSM 850/900/1800/1900 MHz
UMTS 850/1900/2100 MHz o 900/1900/2100 MHz
HSDPA a 3.6 Mbps (3G)
SO: Symbian 9.3 con S60 3rd Ed. (FP 2)
Pantalla OLED con hasta 16 millones de colores y resolución de 240 x 320px
Cámara de 5 Megapíxeles, con lente Carl Zeiss, enfoque automático, Flash LED Dual, GeoTagging, estabilizador de vídeo
Cámara frontal para vídeollamada
Sintonizador de radio FM, con RDS
Memoria interna de 74MB

Ranura microSD/microSDHC
GPS/A-GPS
MicroUSB
WiFi 802.11 b/g
Bluetooth 2.0
Conector de 3.5 mm
Batería de Ion Litio de 1200 mAh
Autonomía de 410 minutos en uso, 360 horas en espera

Sin Imagen

Para ver mas

Yo lo elegi porque me sorprendio todo lo que tiene este celular

Asus N10, con pantalla de 10.2 pulgadas
Aug 27, 2008

La cantidad de modelos de ordenadores que Asus tiene en el mercado es increíblemente grande, desde portátiles de gran tamaño a ultraportátiles, pasando por portátiles más convencionales. En breve le toca el turno al Asus N10 , difícil de englobar en una categoría.

Aunque por el tamaño de la pantalla, 10.2 pulgadas, podría parecer que se engloba dentro de la gama Eee de ultraportátiles, en realidad se trata de un modelo de gama superior, mucho más potente, pero a pesar de eso con un precio reducido, o al menos eso se espera.

El Asus N10 presenta características que no encontramos en la mayoría de ultraportátiles, como un disco duro de 320 GB, un lector de huellas digitales o una salida HDMI, que probablemente vendrá acompañada de una tarjeta gráfica algo decente. La idea de este portátil es que sea capaz de ejecutar Windows Vista.


También dispone de salida VGA, de un lector de tarjetas SD y de una ranura ExpressCard, poniéndolo a la altura de cualquier otro portátil, pero con una pantalla mucho más reducida, las 10.2 pulgadas comentadas, con una resolución de 1024 x 600 píxeles.

El precio del Asus N10 estará algo por encima de los 400 euros, realmente asequible, pero para ver si puede competir contra otros ultraportátiles (cosa que dudo) tendremos que conocer el procesador que lleva, la autonomía de la batería y, muy importante, el peso final.

Para ver mas

Yo lo elegi porque muestra como avanzo la tecnologia de las nootbook

Sony S-AIRPLAY: estación inalámbrica para iPod
Aug 26, 2008

Parece que Sony sigue desarrollando sistemas de altavoces para tu iPod, esta vez se trata de uno inalámbrico que estará listo para septiembre… el S-AIRPLAY (modelo AIR-SA20PK).
Nos ofrece la tecnología más nueva de Sony: S-Air (solución inalámbrica) con la que podrás escuchar tu música a todo volumen a 50 metros de tu estación.
También posee un sistema de alarma, sintonizador AM/FM y puedes conectarlo a tu home theater.
Su costo será de unos 270€, y los speakers S-Air costarán 90€.

Para ver mas

Yo lo elegi porque muestra como Sony realiza muchas cosas para la tecnologia

Mapa (por alan)

Este es el mapa con todas las ubicaciones donde estuve en las vacaciones


Ver mapa más grande

Semana 18 (por alan)

Palm presenta la Treo Pro, con Windows Mobile 6.1, GPS y WiFi
Aug 20, 2008

Palm presentó finalmente hoy, una nueva versión de sus tan queridos y reconocidos Smartphones de la línea Treo, que venía ocultando desde hace algunas semanas atrás.
La nueva versión se llama Pro e incluye el sistema operativo para móviles de Microsoft, Windows Mobile, en su versión 6.1 Professional, y viene listo para operar en redes de tercera generación, entre otras bondades.
Este producto de Palm, podría ser una respuesta a la continua batalla que tiene con competidores como Research In Motion, que con sus BlackBerry suele conquistar el mercado corporativo.
Cabe destacar, que la pantalla de este Smartphone es táctil, y viene con una resolución de 320 x 320px, lo cual es suficiente como para no sacarse los ojos a la hora de utilizarlo.

Para ver mas

Llegó el Nokia 8800 Carbon Arte
Aug 21, 2008

Nokia ha presentado su nuevo teléfono móvil: el Nokia 8800 Carbon Arte, un auténtico móvil lleno de sofisticación y elegancia… fabricado con materiales a partir de la fibra de carbón, titanio, cristal y aluminio…
Este terminal 3G, nos ofrece una cámara de fotos de 3.2 megapíxeles, y memoria interna de 4 GB, capaz de ser expandida gracias a su ranura para tarjetas microSD, además viene con una pantalla OLED y recubrimiento especial para evitar que se ensucie la superficie o que dejes tus huellas por ahí…
Viene con una funda de cuero o función manos libres con controles táctiles a un precio de 1.100 euros para finales de año.
¿Valdrá la pena el precio?

Para ver mas

BlackBerry 8220 y 8210, los modelos clamshell
Aug 20, 2008

BlackBerry KickStart es el nombre en clave de una de las apuestas de RIM para la nueva temporada: un terminal que sigue la filosofía de sus anteriores modelos pero con un diseño de tipo clamshell , toda una novedad para este fabricante.
No ha sido RIM en presentación oficial la que ha desvelado todas sus características, sino la tienda online Expansys, que se está preparando para vender, en un futuro, este móvil, del que habrá dos modelos distintos, la BlackBerry 8220 y la BlackBerry 8210 , que se distinguen por incorporar Wi-Fi la primera y GPS la segunda.

Para ver mas

Mis vacaciones (por alan)

El lunes 28 de julio fui al cine village caballito a ver una pelicula

El martes 29 de julio vinieron primos a mi casa

El miercoles 30 de julio fui a lo de un amigo a dormir.

El jueves 31 de julio estaba en lo de un amigo.

El viernes 1 de agosto vinieron amigos a mi casa a hacer un trabajo

El lunes 4 de agosto fui al village caballito a ver una pelicula.

El martes 5 de agosto me quede en mi casa sin hacer nada.

El miercoles 6 de agosto vinieron amigos a mi casa.

El jueves 7 de agosto fui a lo de un amigo.

El viernes 8 de agosto vinieron amigos a dormir a mi casa.

Semana 17 (por alan)

Nvidia termina el segundo cuarto con números rojos
Aug 14, 2008

Luego de varios cuartos consecutivos con beneficios, Nvidia finalizó su segundo cuarto fiscal del 2008 en números rojos.
Parte de esto se explica por algunos problemas que tuvo la firma con algunas GPUs falladas, además del éxito de las nuevas placas de AMD.
En total sus ventas fueron de 893 millones de dólares (-5% en relación al cuarto anterior) y sus pérdidas de 120.9 millones. Nvidia tuvo que llevar a cabo un programa de reemplazo de GPUs que le costó 196 millones.
Jen-Hsun Huang, CEO de Nvidia, además comentó que la firma subestimo el “precio/rendimiento” de las GPUs más recientes de AMD. Los productos de Nvidia quedaron descolocados y la firma tuvo que ajustar los precios a la baja, lo que redujo sus márgenes de ganancia.
Sus ventas cayeron un 25% en relación al mismo cuarto del año pasado, denotando que AMD les está quitando terreno y que el mercado está algo saturado. Los precios promedios de venta también cayeron un 25%.
Huang cree que esta reducción en el consumo está siendo agravada por el aumento de ventas de portátiles frente a PCs de escritorio, además de que ahora mayor parte de la demanda se inclina por PCs de gama baja. Agregó que Nvidia comenzará a hacerse fuerte en este sector lanzando GPUs de bajo costo este cuarto.

Para ver mas

El reproductor “Nido de Pájaro” MP3
Aug 14, 2008

¿Deseas estar a la moda durante las Olimpiadas de Beijing 2008? Entonces, no debes tardar en hacer dueño del reproductor “Nido de Pájaro” MP3, el cual ofrece una pantalla LCD, radio FM y un avanzado sistema de seguridad anti-robo, ya que puedo ser confundido con un accesorio o llavero.
Viene disponible en diferentes capacidades, 1GB por 19 dólares, 2GB por 24, y 4GB 33 dólares.

Para ver mas

LG KP106, sencillo y barato
Aug 14, 2008

LG KP106, un móvil nuevo presentado por LG… a simple vista parece un móvil cualquiera, pero en su sencillez es muy interesante…
Veamos sus especificaciones:
Dimensiones 101 x 46 x 13 mm
Peso 63 gramos.
Compatible con redes GSM 900/1800 MHz y GPRS Clase 10.
Pantalla LCD de 1.5″, con 65 mil colores y resolución de 128 x 128px
Sintonizador de radio FM.
Batería de Ion Litio de 900 mAh y ofrece una autonomía de 4 horas y media en uso, 420 horas en espera.

Para ver mas

Semana 16 (por alan)

Google cambia su logotipo: Da comienzo a Beijing 2008 Aug 08, 2008

Más de uno sabrá que Google comenmora fechas importantes dedicando su logotipo, y como hoy se inaugura oficialmente las Olimpiadas Beijing 2008, hoy Google nos deleita con el siguiente:
Un buen trabajo, me ha encatado y ¿a ustedes?.

Para ver mas

Yo lo elegi porque muestra como la tecnologia se junta con muchas otras cosas.

Grand Theft Auto IV saldrá para PC en septiembre
Aug 07, 2008

Se confirmó lo que averiguaron dos adolescentes: la firma Rockstar Games ha anunciado el lanzamiento del popular juego Grand Theft Auto IV para PC.
“Estamos muy contentos por lanzar la versión de ordenador de Grand Theft Auto IV”, dijo Sam Houser, el fundador de la compañía.
Según declaraciones de Houser, el equipo de desarrollo está trabajando para que los usuarios de PC puedan disfrutar cien por ciento de la experiencia de jugar GTA IV. “El juego se ve hermoso en PC y no podemos esperar a que la gente lo esté jugando”, dijo.
El juego será prácticamente el mismo que el de las consolas, salvo por el modo multiplayer, que estará renovado para la versión PC.
Grand Theft Auto IV llegará a EEUU el 18 de septiembre y a Europa el 21 de septiembre.

Para ver mas

Yo lo elegi porque muestra como avanzan los juegos gracias a la tecnologia.

iPhone 3G este 22 de Agosto en Latinoamérica
Aug 07, 2008

El CFO de Apple, Tim Cook, compartió este Miércoles el nombre de tan sólo 16 de los 20 países que comercializaran este 22 de Agosto a el iPhone 3G de la mano de Movistar. Los países latinoamericanos que fueron “oficialmente” confirmados para esta fecha hasta ahora son:

Argentina
Chile
Colombia
Ecuador
El Salvador
Guatemala
Perú
Uruguay

Y como es costumbre no figuran Brasil, Ecuador, Puerto Rico, Panamá, República Dominicana y Venezuela. Los próximos 4 países confirmados se espera en las próximas horas, mientras que India, la República Checa, Estonia, Polonia, Rumania, Filipinas, Hungría y Singapur, completan la lista.

¿Estás preparad@ para comprar el iPhone 3G?

Para ver mas

Yo lo elegi porque muestra que la tecnologia se expande por todo el mundo.

Semana 15 (por alan)

Firefox supera el 50% de la cuota del mercado en Indonesia
Jul 23, 2008

Y esto no es una suposición mía sino el resultado de un informe de Net Applications. El 50% de la cuota del mercado de Indonesia no es un número para nada despreciable ya que es el cuarto país más poblado del planeta.
Luego de coquetear con esta cifra en varios países de Europa lo ha logrado en Indonesia, que cuenta con una baja penetración de internet en su población a pesar de estar en constante y vertiginoso crecimiento.
A finales del año pasado la cuota en ese país era del 35% en base a un informe realizado por otra empresa, WebSideStory, la cual ya no existe. La comunidad Mozilla en dicho país es muy fuerte y la salida de Firefox 3 la ha fortalecido aún más, logrando que la tendencia de crecimiento sea la mayor entre todos los países.

Para ver mas

Yo lo elegí porque muestra como internet influye en el mercado.

Veinte países más trendrán el iPhone 3G para el 22 de Agosto
Jul 22, 2008

Si por casualidad sos uno de los que aún no se pudo comprar un iPhone 3G porque aún no ha llegado a tu país, seguramente te interesará saber que el 22 de agosto será lanzado en 20 países más.
Esta información ha surgido durante la conferencia con analistas financieros de Apple, donde también se anunciaron los resultados trimestrales de la empresa.
Los analistas cuestionaron sobre los problemas que Apple está teniendo para suplir una demanda que consideran abrumadora, a lo que Tim Cook ha respondido que están suficientemente seguros de poder aumentar su producción para expandirse y cubrir la demanda para el lanzamiento del iPhone 3G en estos 20 países.
De momento se desconocen puntualmente que países entrarán en el nuevo lanzamiento, dato que seguramente se dará a conocer días antes de que se presente en dichos lugares.
Cabe destacar que Apple planea insertar su producto en más de 70 países para fines del corriente año, como también que se han fijado un objetivo (nada ambicioso) de vender 10 millones de unidades en el mismo periodo (ya han vendido 1 millon durante la primera semana).
Esperemos que cuando llegue el iPhone 3G a estos “nuevos” destinos, no existan los problemas de activación que acontecieron durante el 11 de julio pasado.

Para ver mas

Yo lo elegí porque es importante como la tecnologia esta por todo el mundo.

Desbloquear el firmware 2.0 del iPhone, iPhone 3G e iPod Touch
Jul 20, 2008

Hace tan sólo un par de horas fue liberada la primera versión de la mejor herramienta para liberar o desbloquear iPhone de 1era Generación, iPhone 3G e iPod Touch. El iPhone Dev Team publicó la Pwnage Tool 2.0, pudiendo cualquier activar y “jailbreakear” los dispositivos de Apple.

Muchos usuarios ya han probado esta herramienta y ahora disfrutan de grandes funcionalidades como la App Store y otras mejoras, en un iPhone libre. En AppsMac la han probado y les ha funcionado, publicando una guía de utilización
Si tienes un iPhone con la versión 2.0 del firmware, no dudes en utilizar el Pwnage Tool 2.0, eso sí, bajo tu propia responsabilidad.

Para ver mas

Yo lo elegí porque muestra como se puede desbloquear la tecnologia.