miércoles, 19 de noviembre de 2008

Ascensor final (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()
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
Publicado por en No hay comentarios:
Etiquetas: ,

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



DownThemAll!: Gestor-Acelerador de descargas para Firefox
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.


Publicado por en No hay comentarios:
Etiquetas: , ,

semana 28 (por alan)



Tectoy Zeebo, consola con conexión 3G
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.






Energy Sistem presenta dos nuevos PMP de 8GB
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.






Smartphone Nokia E63, una versión accesible del E71
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.


Publicado por en No hay comentarios:
Etiquetas: , ,

semana 27 (por alan)





Camara Sony DSLR - A200
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











Nuevo PDA XDA Zest para móviles O2
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.






LG DB300, Full HD
Nov 17, 2008


Los productos FULL HD siempre son una variante positiva para lo que necesitamos reproducir. 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.


Publicado por en No hay comentarios:
Etiquetas: , ,

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
Publicado por en No hay comentarios:
Etiquetas: ,

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

Publicado por en No hay comentarios:
Etiquetas: , ,

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
Publicado por en No hay comentarios:
Etiquetas: ,

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">
Publicado por en No hay comentarios:
Etiquetas: ,

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

Publicado por en No hay comentarios:
Etiquetas: , ,

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
Publicado por en No hay comentarios:
Etiquetas: ,

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.



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.

Publicado por en No hay comentarios:
Etiquetas: , ,

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
Publicado por en No hay comentarios:
Etiquetas: ,

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.

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.



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.


Publicado por en No hay comentarios:
Etiquetas: , ,

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
Publicado por en No hay comentarios:
Etiquetas: , ,

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.


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.




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.
Yo lo elegí porque muestra como hay diferentes navegadores de internet.
SIN IMAGEN.
Publicado por en No hay comentarios:
Etiquetas: , ,

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
Publicado por en No hay comentarios:
Etiquetas: ,
Suscribirse a: Entradas (Atom)