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()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub L2_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub L3_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub L4_Click()
auxiliar.Caption = Asensor.Top
0 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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub L5_Click()
auxiliar.Caption = Asensor.Top
If Contraseña.Text = "Honda" 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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub Llamar1_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub Llamar2_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub Llamar3_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub Llamar4_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub Llamar5_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub LlamarPB_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub LlamarSS_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub LPB_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
End Sub
Private Sub LSS_Click()
auxiliar.Caption = Asensor.Top
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
total.Caption = Val(total.Caption) + ((Abs(Val(auxiliar.Caption) - Asensor.Top)) / 720)
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
miércoles, 19 de noviembre de 2008
martes, 18 de noviembre de 2008
semana 29 (por alan)
BatteryBar: Medir la carga de la batería del 
portátil
Nov 18, 2008
BatteryBar es una sencilla aplicación que se encarga de medir la carga de la batería de nuestro ordenador portátil y mostrar información adicional que nos ayudará a prevenir apagados inoportunos.
Una vez ejecutada la aplicación, BatteryBar nos mostrará el porcentaje restante de la batería en color verde (si supera al 40%), amarillo (si está entre 25-40%) y rojo (si es inferior al 25%). Además, nos indicará el tiempo aproximado restante de la batería en horas y minutos.
Por ejemplo, mi ordenador portátil HP, me muestra un aviso del porcentaje total restante, cuando este es igual o inferior al 10%, lo que otorga algunos minutos para conectarla a la red eléctrica y salvar lo que esté haciendo. BatteryBar añade una pequeña ventana de notificación cuando el porcentaje de la batería llega a un valor predefinido y emite sonidos cuando la batería llega a diferentes estados.
Necesitas .NET Framework 2.0 para correr la aplicación.
Para ver mas
Los vídeos más vistos de YouTube en tu país
Nov 17, 2008
GeoBestOfYouTube combina a YouTube y a Google Maps, para crear un sitio web
que nos permite saber los vídeos más vistos de diferentes países por un período de tiempo, es decir, los vídeos más vistos de hoy, de esta semana, de este mes y de todo e tiempo.
Al hacer click en un país, se abrirá un diálogo que mostrará una vista previa del vídeo, descripción, duración, veces que fue visualizado, categoría, entre otros. Este sitio, a pesar de no ser muy útil que digamos, nos permite conocer nuevos vídeos y así, de alguna u otra forma, conocer el gusto de tu país.
GeoBestOfYouTube sólo muestra la información de algunos países como Brasil, México, EEUU, Canadá, España, Francia, India, entre otros.
Para ver mas
portátilNov 18, 2008
BatteryBar es una sencilla aplicación que se encarga de medir la carga de la batería de nuestro ordenador portátil y mostrar información adicional que nos ayudará a prevenir apagados inoportunos.
Una vez ejecutada la aplicación, BatteryBar nos mostrará el porcentaje restante de la batería en color verde (si supera al 40%), amarillo (si está entre 25-40%) y rojo (si es inferior al 25%). Además, nos indicará el tiempo aproximado restante de la batería en horas y minutos.
Por ejemplo, mi ordenador portátil HP, me muestra un aviso del porcentaje total restante, cuando este es igual o inferior al 10%, lo que otorga algunos minutos para conectarla a la red eléctrica y salvar lo que esté haciendo. BatteryBar añade una pequeña ventana de notificación cuando el porcentaje de la batería llega a un valor predefinido y emite sonidos cuando la batería llega a diferentes estados.
Necesitas .NET Framework 2.0 para correr la aplicación.
Para ver mas
Los vídeos más vistos de YouTube en tu país
Nov 17, 2008
GeoBestOfYouTube combina a YouTube y a Google Maps, para crear un sitio web
que nos permite saber los vídeos más vistos de diferentes países por un período de tiempo, es decir, los vídeos más vistos de hoy, de esta semana, de este mes y de todo e tiempo.Al hacer click en un país, se abrirá un diálogo que mostrará una vista previa del vídeo, descripción, duración, veces que fue visualizado, categoría, entre otros. Este sitio, a pesar de no ser muy útil que digamos, nos permite conocer nuevos vídeos y así, de alguna u otra forma, conocer el gusto de tu país.
GeoBestOfYouTube sólo muestra la información de algunos países como Brasil, México, EEUU, Canadá, España, Francia, India, entre otros.
Para ver mas
DownThemAll!: Gestor-Acelerador de descargas para Firefox
Nov 15, 2008
Nov 15, 2008
El administrador de descargas que por defecto incorpora Firefox, es muy simple y sólo sirve para visualizar su progreso y listar los últimos archivos descargados. En busca de una extensión que me ofreciera más opciones, encontré a DownThemAll!.
DownThemAll! se define como el primer y más efectivo gestor-acelerador de descargas desarrollado para Firefox. Esta extensión tiene todo lo que un gestor para Windows pueda ofrecer:
Descargar múltiples archivos simultáneamente y limitarlas.
Descargar todos los enlaces o imágenes que se encuentren en una página web.
Optimizar la descarga y aumentar su velocidad hasta un 400%.
Posiblidad de detener y reanudar las descargas.
Con su intuitiva interfaz gráfica, hace que DownThemAll! sea fácil y rápida de usar.
DownThemAll! se define como el primer y más efectivo gestor-acelerador de descargas desarrollado para Firefox. Esta extensión tiene todo lo que un gestor para Windows pueda ofrecer:
Descargar múltiples archivos simultáneamente y limitarlas.
Descargar todos los enlaces o imágenes que se encuentren en una página web.
Optimizar la descarga y aumentar su velocidad hasta un 400%.
Posiblidad de detener y reanudar las descargas.
Con su intuitiva interfaz gráfica, hace que DownThemAll! sea fácil y rápida de usar.
semana 28 (por alan)
Tectoy Zeebo, consola con conexión 3G 
Nov 17, 2008
Nov 17, 2008
¿Tiene una nueva consola de sobremesa posibilidades de competir contra opciones ya establecidas como la Xbox 360 o la Playstation 3? Lo veo muy complicado, pero la Tectoy Zeebo lo quiere intentar con un modelo similar al del Kindle .
Esta consola incorpora una conexión 3G a través de la cual es posible descargar nuevos juegos y contenido, además de, imaginamos, permitir un modo multijugador online . Con ello se consigue reducir el precio de los juegos y luchar contra la pirateria.
La conexión 3G es gratuita y permite tener la consola siempre actualizada. Un modelo de distribución que empezarán a probar en Brasil, donde la Tectoy Zeebo se pondrá a la venta por unos 200 dólares, con juegos que costarán entre 10 y 30 dólares.
Entre los juegos que vendrán preinstalados en la consola estarán Quake, Action Hero 3D y Evil Prey, aunque para que consiga algo de éxito será necesario que el catálogo sea suficientemente amplio, terreno en el que veo más complicado que consigan títulos de suficiente enjundia.
Esta consola incorpora una conexión 3G a través de la cual es posible descargar nuevos juegos y contenido, además de, imaginamos, permitir un modo multijugador online . Con ello se consigue reducir el precio de los juegos y luchar contra la pirateria.
La conexión 3G es gratuita y permite tener la consola siempre actualizada. Un modelo de distribución que empezarán a probar en Brasil, donde la Tectoy Zeebo se pondrá a la venta por unos 200 dólares, con juegos que costarán entre 10 y 30 dólares.
Entre los juegos que vendrán preinstalados en la consola estarán Quake, Action Hero 3D y Evil Prey, aunque para que consiga algo de éxito será necesario que el catálogo sea suficientemente amplio, terreno en el que veo más complicado que consigan títulos de suficiente enjundia.
Energy Sistem presenta dos nuevos PMP de 8GB
Nov 14, 2008
Nov 14, 2008
Energy Sistem tiene dos nuevos reproductores multimedia portátiles para nosotros ! Se trata de los recién anunciados modelos: ES6030 y ES6031 .
Ambos poseen un espesor de tan solo 7mm y un precio de 95 euros, además los colores
en que se presentan son bastante llamativos, el 6030 vendrá en color negro, mientras que el 6031 estará disponible en rosa y blanco…
Los reproductores vienen con pantalla de 2.8” y resolución de 400×240 píxeles, permiten la visualización de fotos en formatos JPG / BMP, reproducen videos en formatos AVI (DivX,XviD) / FLV / RM / RMVB, y música en MP3 / WMA / WAV, además tienen agenda integrada, leen archivos TXT y tienen 8GB de capacidad de almacenamiento que pueden ser expandidos hasta 32GB con tarjetas microSDHC.
Ahora solo queda elegir el que más nos guste, el ES6030 ya está disponible y el ES 6031 estará listo el 19 de noviembre.
Ambos poseen un espesor de tan solo 7mm y un precio de 95 euros, además los colores
en que se presentan son bastante llamativos, el 6030 vendrá en color negro, mientras que el 6031 estará disponible en rosa y blanco…Los reproductores vienen con pantalla de 2.8” y resolución de 400×240 píxeles, permiten la visualización de fotos en formatos JPG / BMP, reproducen videos en formatos AVI (DivX,XviD) / FLV / RM / RMVB, y música en MP3 / WMA / WAV, además tienen agenda integrada, leen archivos TXT y tienen 8GB de capacidad de almacenamiento que pueden ser expandidos hasta 32GB con tarjetas microSDHC.
Ahora solo queda elegir el que más nos guste, el ES6030 ya está disponible y el ES 6031 estará listo el 19 de noviembre.
Smartphone Nokia E63, una versión accesible del E71
Nov 14, 2008
Nov 14, 2008
Es sabido que Nokia intenta evitar convertirse en una empresa dependiente de un solo nicho de mercado, por lo que no es raro que lancen un nuevo smartphone que viene a ser una versión “reducida” del Nokia E71 , igual de bonita… y un poco más accesible.
En este caso, hablamos del Nokia E63 , que mantiene su diseño, pero que viene en dos colores (rojo y azul) que lo diferencian de su modelo ‘referencia’.
En cuanto a sus características, las enunciamos a continuación:
Dimensiones: 113 x 59 x 13 mm
Peso: 126 gramos
GSM 850/900/1800/1900 MHz
UMTS 900/2100; 850/1900 o 850/2100 MHz (Según mercado)
SO: Symbian S60 v3.1
Pantalla TFT de 2.36” con hasta 16 millones de colores y resolución de 320 x 240px
Cámara de 2 Megapíxeles
Sintonizador de radio FM con RDS
Memoria interna de 110MB
Ranura microSD/ microSDHC , hasta 8GB
WiFi
Bluetooth 2.0
La ausencia de opciones como GPS, conectividad HSDPA y una cámara más modesta, hacen que este producto pueda situarse por debajo del precio de su modelo de referencia, logrando llegar así a una mayor cantidad de potenciales compradores.
¿Su precio? unos 199 euros, y saldrá a la venta en un par de semanas, según lo dicho por la empresa.
En este caso, hablamos del Nokia E63 , que mantiene su diseño, pero que viene en dos colores (rojo y azul) que lo diferencian de su modelo ‘referencia’.
En cuanto a sus características, las enunciamos a continuación:
Dimensiones: 113 x 59 x 13 mm
Peso: 126 gramos
GSM 850/900/1800/1900 MHz
UMTS 900/2100; 850/1900 o 850/2100 MHz (Según mercado)
SO: Symbian S60 v3.1
Pantalla TFT de 2.36” con hasta 16 millones de colores y resolución de 320 x 240px
Cámara de 2 Megapíxeles
Sintonizador de radio FM con RDS
Memoria interna de 110MB
Ranura microSD/ microSDHC , hasta 8GB
WiFi
Bluetooth 2.0
La ausencia de opciones como GPS, conectividad HSDPA y una cámara más modesta, hacen que este producto pueda situarse por debajo del precio de su modelo de referencia, logrando llegar así a una mayor cantidad de potenciales compradores.
¿Su precio? unos 199 euros, y saldrá a la venta en un par de semanas, según lo dicho por la empresa.
semana 27 (por alan)
Camara Sony DSLR - A200 
Nov 18, 2008
Nov 18, 2008
Para los que quieren saltar al mundo de las cámaras digitales semi-profesionales hoy os vamos a recomendar el modelo de Sony DSLR A200 . Este es un equipo para iniciarse muy recomendable y que posiblemente os pueda cuadrar en vuestro presupesto de cara a haceros de un buen equipo.
Las principales características de este modelo son:
- Bloqueo de exposición (AE Lock)- Control de brillo automático- Tipo de pila InfoLITHIUM NP-FM500H- Número de disparos en ráfaga 3 FPS- Píxels efectivos (megapíxels) 10.2- Control de exposición Sí (±2,0 EV, pasos de 1/3 EV)- Ajuste de sensibilidad ISO Sí (Menu,AUTO,100,200,400,800,1600,3200)- Velocidad de obturación máx. (seg.) 1/4000-30
- Visor, color- Peso (g) 532- Formato de grabación JPEG, RAW- Reducción de ojos rojos- Balance de blancos Autom./Luz del día/Nublado/Fluorescente/Incandescente/Flash
Las principales características de este modelo son:
- Bloqueo de exposición (AE Lock)- Control de brillo automático- Tipo de pila InfoLITHIUM NP-FM500H- Número de disparos en ráfaga 3 FPS- Píxels efectivos (megapíxels) 10.2- Control de exposición Sí (±2,0 EV, pasos de 1/3 EV)- Ajuste de sensibilidad ISO Sí (Menu,AUTO,100,200,400,800,1600,3200)- Velocidad de obturación máx. (seg.) 1/4000-30
- Visor, color- Peso (g) 532- Formato de grabación JPEG, RAW- Reducción de ojos rojos- Balance de blancos Autom./Luz del día/Nublado/Fluorescente/Incandescente/Flash
Nuevo PDA XDA Zest para móviles O2
Nov 18, 2008
Nov 18, 2008
De la mano de O2 nos llega el exclusivo XDA Zest, un nuevo móvil Xda que pasa a engrosar la gama de teléfonos marca O2 . Este nuevo PDA estará disponible para Pay& go y también para planes de pago mensuales. 
El O2 XDA Zest ha sido fabricado por Asus y es ejecutado mediante Windows mobile OS v6.1, incluye una buena pantalla VGA TFT de 2.8 pulgadas y dispone de conectividad Wi-Fi y un GPS con el chip SIRF Star 3. También incluye reproductor MP3, Radio FM y cámara de 3 MPX con autofoco, además de una versión de prueba de aplicación CoPilot SAT NAV con mapas completos de Reino Unido e Irlanda.
El O2 XDA Zest utiliza el rápido procesador Marvell TavorP de 624MHz, con 128 MB de SDRAM y 256 MB de Flash ROM. El teléfono de triple banda GPRS / EDGE también ofrece soporte 3G y conectividad HSDP, cámara de vídeo llamada, Bluetooth v2.0 con perfil A2DP, y una ranura para tarjetas microSD completan su lista de especificaciones.
Este nuevo PDA estará a la venta en las tiendas de O2 y en su sitio Web a partir del 17 de noviembre de 2008 (hoy mismo). El precio es de 250 dólares para Pay&Go y en forma gratuita para determinados planes mensuales.
El O2 XDA Zest ha sido fabricado por Asus y es ejecutado mediante Windows mobile OS v6.1, incluye una buena pantalla VGA TFT de 2.8 pulgadas y dispone de conectividad Wi-Fi y un GPS con el chip SIRF Star 3. También incluye reproductor MP3, Radio FM y cámara de 3 MPX con autofoco, además de una versión de prueba de aplicación CoPilot SAT NAV con mapas completos de Reino Unido e Irlanda.
El O2 XDA Zest utiliza el rápido procesador Marvell TavorP de 624MHz, con 128 MB de SDRAM y 256 MB de Flash ROM. El teléfono de triple banda GPRS / EDGE también ofrece soporte 3G y conectividad HSDP, cámara de vídeo llamada, Bluetooth v2.0 con perfil A2DP, y una ranura para tarjetas microSD completan su lista de especificaciones.
Este nuevo PDA estará a la venta en las tiendas de O2 y en su sitio Web a partir del 17 de noviembre de 2008 (hoy mismo). El precio es de 250 dólares para Pay&Go y en forma gratuita para determinados planes mensuales.
LG DB300, Full HD
Nov 17, 2008
Nov 17, 2008
Los productos FULL HD siempre son una variante positiva para lo que necesitamos repro
ducir. Si bajas música o películas de internet el nuevo LG DB300 puede ser lo que estéis necesitando.
El producto posee varios formatos de lectura y audio, por lo cual no tendréis problemas para reproducir lo que deseas. Posee conexiones USB 2.0, salidas de audio, vídeo y Ethernet.
No sale fuera de lo común, pero el LG DB300 puede cumplir con tus expectativas sin problemas.
ducir. Si bajas música o películas de internet el nuevo LG DB300 puede ser lo que estéis necesitando.El producto posee varios formatos de lectura y audio, por lo cual no tendréis problemas para reproducir lo que deseas. Posee conexiones USB 2.0, salidas de audio, vídeo y Ethernet.
No sale fuera de lo común, pero el LG DB300 puede cumplir con tus expectativas sin problemas.
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
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 la
s 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
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 la
s 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.
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
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
Suscribirse a:
Entradas (Atom)
