Semana 20 (por Telma)

MCU3E de Motorola, transforma y emite vídeo

Este pequeño aparato es un invento de Motorola, la parte buena, la que no hace móviles. Se trata del MCU3E, un pequeño aparato que se conecta a los sintonizadores de cable y satélite de Motorola mediante USB.

La genialidad de este pequeño aparato es que es capaz de transformar el vídeo del sintonizador en formatos “para llevar”, es decir, transforma señal en definición estándar o en alta definición en MPEG4 a 640×480 píxeles o a resoluciones más bajas como QVGA (320×240).

El mismo aparato se encargaría de emitir vía Bluetooth a un dispositivo como un teléfono móvil o inclusi a otro “set-top” que sea compatible vía WiFi. Es un dispositivo que esta en desarrollo, pero de comercializarse dentro de poco en España, por ejemplo, podría ser muy eficaz, ya que muchos de los descodificadores de cable o satélite son de Motorola.

La genialidad de este pequeño aparato es que es capaz de transformar el vídeo del sintonizador en formatos “para llevar”

Este es el link.

Sony ZS-S4iP, una boombox de la vieja escuela para iPod e iPhone

Como si fuese uno de esos viejos y enormes radios con cassette de los años 80, este sistema de audio de Sony exclusivo para iPod Touch o iPhone llega con el típico diseño de Sony de hace 15 años, todo negro.
Para que nos siga recordando a la vieja escuela tiene un botón para extraer el iPod o iPhone como si fuese un cassette. Tiene dos altavoces (sin subwoofer) de 2W, con radio AM/FM, lector de CD y compatible con archivos MP3. Lo curioso es que esta disponible en pre-pedido en Australia, por unos $140 (unos 100 euros).

Para recordar a los viejos y enormes radios con cassette de los años 80

Este es el link.

Panasonic Lumix G1

Panasonic muestra su primera cámara micro cuatro tercios antes del esperado Photokina. Es una cámara que se pone en lo más alto de la gama Lumix. Con un sensor de 13.1 megapíxeles no es precisamente una de esas grandes y monstruosas DSRL, si no que se encuentra entre la DSRL y las cámaras bridge, la verdad es que es un diseño muy corriente de Panasonic pero con compatibilidad de objetivos diferentes.
Su pantalla de 3 pulgadas y que puedes girar y mover con total libertad es un gran acierto, para esos ángulos extraños en los que algunas veces nos ponemos. Incluye el estabilizador de imagen MEGA OIS, un rango ISO de 100-3200, sistema de detección y seguimiento de rostros, salida HDMI y entrada para tarjetas SD o SDHC.

Esta cámara se pone en lo más alto de la gama Lumix.

Este es el link.

Semana 19 (por Telma)

4D2U: todo el Universo conocido enlatado en el navegador

"Ver todo el universo conocido", el botón más chulo nunca antes visto en una aplicación Flash.
El proyecto 4D2U (requiere Flash, en inglés y japonés), desarrollado por el Observatorio Astronómico de Japón, contiene en la ventana del navegador la jerarquía de todo lo conocido: de una mesa en la Tierra hasta los límites alcanzados por la luz desde el nacimiento del Universo, que se considera fue hace 13.700 millones de años.

También contiene imágenes e información de distintos cuerpos y varias animaciones: la teoría de la formación de la Luna, sobre cómo se forman las estrellas binarias o las galaxias en espiral, entre otras.

Es muy interesante. Desde el nacimiento del Universo.

Este es el link.

Rei Ayanami guardará tus datos

Hace poquitos días les mostramos un pendrive que simulaba ser una de las cápsulas donde se metían los pilotos de los EVAs en Evangelion. Esta vez el fanatismo va un poquito más lejos y la protagonista es Rei Ayanami
Como pueden ver en la fotografía, esta memory stick de Buffalo tiene forma de uno de los personajes más importantes del show, tiene 4GB de memoria interna y puedes comprarlo a través de GeekStuff4U.

Muy simpático para fanáticos de Rei Ayanami y práctico, como cualquier USB.

Este es el link.

Pendrives con forma de patitas de gato (¿no son preciosos?)

Estos pendrives son perfectos para regalar a una de tus amigas para su cumpleaños. Los Cat Paw USB vienen con una memoria interna de 2GB y podrás elegir el azul, negro o el blanco.
Puedes comprarlo por US$61.38.

La verdad es que son bastante caros para su capacidad de almacenamiento. Pero no digas que no son preciosos.

Este es el link.

Semana 20(por flor)

Noticia 1:

Apple entra en la recomendación con Genius

Ha sido prácticamente el único anuncio de cierto calado en la presentación de Apple de ayer: el desarrollo de Genius, una aplicación de recomendación para contenidos en iPod. La inclusión de la aplicación en iTunes 8 confirma la pujanza actual de las tecnologías de recomendación, y posiciona a la combinación iPod-iTunes como un soporte ideal para ellas, al combinar lo que un usuario hace en su dispositivo (playcounts, listas de reproducción, contenidos más reproducidos, ratings, etc.) con el poder de agregación colectiva de dichos datos a modo de filtro colaborativo en la plataforma - lógicamente, anonimizados (bueno el chiste que hacía el propio Steve, “nadie tiene porqué enterarse del mal gusto musical que tienes”) y con el correspondiente proceso de opt-in.
En un iPod podemos tener treinta mil canciones, con lo que el problema no es simplemente tenerlas, sino acceder a ellas de una manera que tenga sentido. Resulta interesante que una de las empresas destacadas en este tipo de tecnologías, la española Strands, tenga mucho que ver en su origen con la interacción de su fundador, Francisco Martín, con iTunes, programa del que en 2003 era un usuario intenso y con cuyos datos empezó a especular para construir sus primeros sistemas. Ahora, cuando Strands ya aplica sus sistemas de recomendación a todo aquello que podamos pensar, es el momento que Apple escoge para lanzar Genius, haciendo que el iPod no sea simplemente un almacén de música, sino un recomendador presuntamente inteligente que escoge qué canciones de nuestra librería combinan bien juntas, y nos permite incluir también si queremos canciones procedentes de la tienda iTunes, lo que podría suponer una dinamización en su consumo. Una función, la de construcción automatizada de playlists, que ya no resulta especialmente sofisticada hoy en día, pero que va a suponer una popularización fuerte de este tipo de tecnologías, a modo de “marea que eleva todos los barcos” en un segmento en el que sin duda vamos a seguir escuchando cosas cada vez más interesantes.




Noticia 2:
Chrome: mirando más allá

Cinco Días dedica su editorial y un análisis en Cinco Red al lanzamiento de Google Chrome, y consigue hacer lo que muy pocos otros diarios de información general o económica han hecho: mirar más allá. En su análisis, Cinco Días quita importancia a los factores específicos del navegador - velocidad, fallos de seguridad, etc. - y pone el énfasis en donde verdaderamente debe estar: en la idea de sistema operativo.
Criticada por algunos debido al uso amplio o liberal del término “sistema operativo” - obviamente, Chrome tiene que correr sobre “algo” que gestione los recursos de la máquina, - el hecho es que el movimiento de Google con Chrome va precisamente en esa línea: la de convertirse en el programa en el que un usuario pase un porcentaje importantísimo de su tiempo, desde que arranca el ordenador hasta que lo apaga, y sobre todo, en un programa que gestiona los recursos tanto de la máquina como de “la nube”, optando por lo que esté disponible o sea conveniente en ese momento. Ahí, en esa idea de “gestión de los recursos del usuario” sean online u offline es donde hay que encuadrar el movimiento.







Noticia 3:
eEnlace»El Cellphone de Google



HTC estaría sacando a la venta antes de Navidad (quizás en octubre) un Teléfono celular fabricado obviamente por ellos pero con el software de Google "Android" del que tanto se ha hablado y especulado.Como ya se ha mencionado antes, este Teléfono competirá directamente con el iPhone y otros smartphones como el Palm Treo, Nokia, etc. Tendrá pantalla táctil y además un teclado completo. T-Mobile será la primera empresa de comunicaciones en ofrecer la tecnología Android en EEEUU.A mi parecer este es un motivo Serio para esperar un poco y no apresurarse a comprar un iPhone, sobre todo a amarrandose a los planes (Movistar o Claro) tan caros y que ofrecen tan poco en términos de lo que uno realmente busca con un celular: COMUNICACION.Ahora si solo quieres lucir lo último en técnología o decir "yo fui uno de los primeros en tenerlo", adelante y felicitaciones.

Artículos de la semana 21 (Por Javier)

Artículos de la semana 21

1) Una selva tropical de 300 millones de años en Illinois

Un espectacular bosque fosilizado ha transformado el conocimiento que hasta ahora se tenía de la ecología de las primeras selvas de la Tierra. El bosque, de 300 millones de años de antigüedad, está compuesto de una exótica mezcla de vegetales extintos: abundante hierba de más de 40 metros de altura, elevándose por encima de una subcubierta de helechos, entremezclados con arbustos y con plantas del tamaño de árboles. En ningún otro lugar del planeta es posible caminar, literalmente, a través de tan extensa selva carbonífera.

Link:http://paleochristian.blogspot.com/2008/09/una-selva-tropical-de-300-millones-de.html

2) Los celulares pulsera, la novedad tecnológica

Se basan en la nanotecnología, que permite que el equipo se limpie a sí mismo además de captar datos del entorno como la temperatura o la contaminación ambiental. Conozca más detalles del Morph
Este modelo fue presentado por Nokia junto a la Universidad de Cambridge. Fue generado con tecnologías microscópicas agrupadas en lo que se conoce como nanotecnología.El Morph es el primer celular flexible, capaz de adaptarse a la muñeca del usuario y ser transportado como una pulsera o un reloj. Está diseñado con un material transparente y utiliza baterías de bajo consumo y mayor duración.

Link: http://www.infobae.com/contenidos/366135-100918-0-Los-celulares-de-pulsera,-la-novedad-tecnológica

3) Julian Beever "Parece increible lo que hace"

Buscando curiosidades sobre fotografía y técnicas que poder llevar acabo me he topado con Julian Beever y la verdad es que me he quedado impresionado.
Se trata de un pintor urbano de origen Británico que, mediante una técnica llamada anamorfosis, y con tizas de colores, crea unas ilusiones impresionantes en 3D en aceras, calles…

Link: http://pedrobarbero.wordpress.com/2008/09/10/julian-beever-parece-increible-lo-que-hace/

Articulos de la semana 20 (Por Javier)

ARTICULOS DE LA SEMANA 20

1) La deforestación en el Amazonas se disparó

La deforestación en el Brasil se ha acelerado y en solo cinco meses de septiembre 2007 a enero 2008 se tumbaron 3235 kilómentros cuadrados de selva tropical. La deforestacion se disparó de nuevo debido a los altos precios de los alimentos y materias primas. El presidente de Brasil Luis Inacio Lula da Silva llamó a una reunión de emergencia para discutir las medidas a tomar. La tala de árboles continúa.

Link: http://www.otexto.net/?p=1478

2) El servicio de Google Maps ahora estará en hebreo

El servicio de Google maps fue traducido al hebreo y ahora se podrán encontrar en detalle varias ciudades de Israel, según informó el portal Ynet.El programa permitirá ver calles, rutas y lugares turísticos con la ayuda del buscador, combinado con mapas y fotos satelitales. Hasta el momento, en los países donde funcionaba, los datos de Israel se podían encontrar en forma limitada

Link: http://sisoyjudio.blogspot.com/2008/09/el-servicio-de-google-maps-ahora-estar.html

3) Hasta en dias nublados

Las nubes no son protectoras para la piel. Aun en días nublados, un 60 por ciento de los rayos UV dañinos pueden llegar a la piel.

Hasta un 90 por ciento de las señales visibles del envejecimiento pueden ser a causa de los efectos dañinos de la radiación UVA y UVB. Este daño se conoce como fotoenvejecimiento y tiene como resultado resequedad, líneas, arrugas, bolsas y manchas oscuras.

Link: http://www.muymoderna.com.ar/2008/09/10/hasta-en-dias-nublados/

Semana 21 (Por Abi)

Noticia 1:
Crea encuestas con gráficos para tu sitio
Fotoll nos permite crear encuestas que cuentan con una ilustración o una imagen alusiva para cada encuesta, de ahí su nombre (Foto + Poll). Lo diferente de este sitio es que puedes agregar comentarios a cada encuesta para que los usuarios y las personas que votan complementen su participación dejando un mensaje. Además, existe una sección en donde puedes ver cuántos votos hay en total. quién votó y que opción eligió, esto da mucho más información que la mayoría de los sitios que crean encuestas.

Para fomentar la participación, en vez de tener botones con las opciones, se muestran imágenes, un ejemplo muy bueno es la encuesta de Mac vs PC, puedes ver una imagen para cada opción y al hacer clic sobre alguna de ellas, cuenta como un voto. Además puedes compartir las encuestas que realices con tus amigos y participar en otras creadas por los demás usuarios.

Noticia 2:
Convertir archivos de Word a PDF
Convertir documentos de Word (.doc) a PDF es una de las funcionalidades que más interés causan, especialmente entre las empresas y estudiantes, que en muchas ocasiones tienen la necesidad de distribuir trabajos o proyectos en un formato que sea útil y legible en la mayoría de las computadoras, por lo que se escoge generalmente el formato de archivo portable de Adobe (PDF) que ahora ya es un estándar de la industria.

Para poder convertir tus archivos de Word al formato de Adobe, puedes usar Universal Document Converter, aunque no es la única forma de lograrlo. Si decides usar este software, en realidad el proceso es muy sencillo. Lo primero que tienes que hacer es lanzar Microsoft Word y abrir el archivo que vas a convertir, no importa si tiene sólo texto o incluye también otros gráficos. Cuando tengas el archivo abierto y con todos los cambios listos, debes ir al Menú Archivo -> Imprimir (CTRL + P) y en el cuadro de diálogo, seleccionas “Universal Document Converter” como tu impresora.

Puedes obtener mejores resultados si das clic en el botón “Propiedades”, ahí puedes seleccionar diferentes parámetros como resolución, calidad y tipo del archivo exportado. Obviamente debes seleccionado la opción de “Convertir a PDF” y eso es todo. Ahora sólo das clic en el botón de imprimir y esperas a que tu documento esté listo, aunque puedes seguir trabajando ya que la conversión se realiza en segundo plano.

Si no tienes tiempo/permisos de instalar software en la PC, puedes buscar otras opciones online como PDF Converter, o incluso puedes exportar los posts de tu blog a este formato usando JavaScript.

Noticia 3:
Feed My Inbox, suscríbete por correo a cualquier Feed RSS
Feed My Inbox es un servicio similar al Feedblitz o a la suscripción de Feedburner ya que te permite recibir en tu correo electrónico todas las actualizaciones de un sitio en específico; básicamente lo que este servicio hace es enviar un correo cada 24 horas con las actualizaciones que se reflejan en un Feed RSS específicamente, así que no te preocupes, sólo se envía un e-mail por día.

Esto no es nada nuevo, como ya lo mencioné ya hay varios servicios similares, el problema es que no todos los blogs tienen esta opción. Esta es una buena manera de mantenerte actualizado sin recurrir a un lector de feeds, es bastante sencillo y funciona muy bien.

Semana 20 (Por Abi)

Noticia 1:
Diferencias abismales
Dos navegadores, por un lado Firefox 3 RC2, y por el otro la versión final de Opera 9.5, con las mismas páginas abiertas:

Estoy impresionado con la gran diferencia que existe entre estos dos navegadores. Entiendo que no sea la versión final de Firefox y que tenga instaladas tres extensiones extras, pero es la segunda Release Candidate, ¿no la venden como la versión más ligera?.

Lo más impresionante es que cuando Opera está minimizado llega a consumir menos de 10,000 KB, y en Firefox no cambia nada.

Una lástima que la única razón por la que utilizo Firefox es por tres extensiones de las que soy dependiente. Pero bueno, que Mozilla siga jugando a los récords guinness, es divertido y todo

Noticia 2:
Capturar tu página Web en un documento PDF
Quizá en algún momento deseas tomar una captura de pantalla de tu sitio Web, pero en donde se vea sólo el contenido y no la ventana del navegador en sí. Esto puede ser muy útil si quieres crear documentos o imágenes con el contenido de tu sitio, para por ejemplo, montar un portafolio Web con tus trabajos. Para generar una captura, usaremos Universal Document Converter, un software que ya recomendé anteriormente.

Primero debes descargar e instalar el software de UDC. Cuando hayas finalizado la instalación, ve a Internet Explorer y luego dirígete al menú Herramientas -> Opciones de Internet -> Opciones avanzadas. Ahora tienes que ir a la pestaña Imprimir y marcar la opción que dice Imprimir colores e imágenes de fondo.

Ahora ya se ha configurado la impresora virtual para que tome todos los elementos de la página Web y los imprima en el documento PDF. Finalmente para generar el documento en sí, abre la página Web que desees en el navegador de tu preferencia, ve al menú Archivo -> Imprimir y selecciona Universal Document Converter como la impresora. Ahora da click en preferencias y elige Web-page, Web-form to JPEG, Color de la lista.

Ahora puedes seleccionar el tipo de documento que quieres generar a partir de la página Web, puede ser BMP, GIF, JPG, DCX, PCX, PNG, TIFF o PDF. Cuando hayas configurado los parámetros a tu gusto, sólo da clic en Imprimir y el proceso comenzará, posteriormente cuando esté listo, el documento de abrirá automáticamente.

Noticia 3:
bTT cliente para Twitter y FriendFeed
Aquí viene otro a sumarse a la lista de clientes para Twitter, en este caso se trata de bTT, un software sólo para Windows que integra perfectamente tu cuenta de Twitter y FriendFeed en un mismo panel para que no tengas problemas al visualizar tu actividad social en la Web. Este programa requiere que tengas .NET Framework 3.5 instalado, ya sea en WIndows XP o Windows Vista.

Para mi gusto es un software común y corriente, nada de qué presumir, además la limitante de que sólo funciona en Windows lo hace parecer menos interesante, habiendo opciones mucho mejores que funcionan sobre Adobe AIR. Además, a mi parecer, FriendFeed se puede convertir en un flujo interminable de información, lo cual es poco práctico para tenerlo en tu escritorio

Visual Basic, Codigos (Por Denu)

Private Sub brillomas_Click()
TV.Left = TV.Left + 100
End Sub
Private Sub brillomenos_Click()
TV.Left = TV.Left - 100
End Sub
Private Sub canalmas_Click()
If Numerocanal.Caption < 120 Then
Numerocanal.Caption = Numerocanal.Caption + 1
Else
Numerocanal.Caption = 1
End If
End Sub
Private Sub canalmenos_Click()
If Numerocanal.Caption > 1 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
Numerocanal.Caption = 120
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 Label1_Click()
End Sub
Private Sub enter_Click()
Auxiliar.Caption = Auxiliar.Caption
Numerocanal = ""
Numerocanal.Caption = Auxiliar.Caption
Auxiliar = ""
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Auxiliar.Caption = ""

End Sub
Private Sub on_Click()
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
End Sub
Private Sub onoff1_Click()
If uno.Enabled = False Then
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Else
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
End If

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 sonidomas_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100

End Sub
Private Sub sonidomenos_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub
Private Sub tvcatv1_Click()
End Sub
Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub
Private Sub VScroll1_Change()
End Sub

Código de Visual Basic (por Bruno y Ezequiel)

Private Sub b0_Click()
tele.Caption = tele.Caption + "0"
End Sub

Private Sub b1_Click()
tele.Caption = tele.Caption + "1"
End Sub

Private Sub b2_Click()
tele.Caption = tele.Caption + "2"
End Sub

Private Sub b3_Click()
tele.Caption = tele.Caption + "3"
End Sub

Private Sub b4_Click()
tele.Caption = tele.Caption + "4"
End Sub

Private Sub b5_Click()
tele.Caption = tele.Caption + "5"
End Sub

Private Sub b6_Click()
tele.Caption = tele.Caption + "6"
End Sub

Private Sub b7_Click()
tele.Caption = tele.Caption + "7"
End Sub

Private Sub b8_Click()
tele.Caption = tele.Caption + "8"
End Sub

Private Sub b9_Click()
tele.Caption = tele.Caption + "9"
End Sub

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

Private Sub enter_Click()
ncanal.Caption = tele.Caption
tele.Caption = ""
End Sub

Private Sub mas1_Click()
If ncanal.Caption < 120 Then
ncanal.Caption = ncanal.Caption + 1
Else
ncanal.Caption = 1
End If
End Sub

Private Sub mas2_Click()
cuadrado1.Top = cuadrado1.Top + 100
tele.Top = tele.Top + 100
End Sub

Private Sub mas3_Click()
cuadrado1.Left = cuadrado1.Left + 100
tele.Left = tele.Left + 100
End Sub

Private Sub menos1_Click()
If ncanal.Caption > 1 Then
ncanal.Caption = ncanal.Caption - 1
Else
ncanal.Caption = 120
End If
End Sub

Private Sub menos2_Click()
cuadrado1.Top = cuadrado1.Top - 100
tele.Top = tele.Top - 100
End Sub

Private Sub menos3_Click()
cuadrado1.Left = cuadrado1.Left - 100
tele.Left = tele.Left - 100
End Sub

Private Sub OFF_Click()
tele.Caption = ""
tv2.Caption = ""
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b6.Enabled = False
b7.Enabled = False
b8.Enabled = False
b9.Enabled = False
b0.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
mas3.Enabled = False
menos1.Enabled = False
menos2.Enabled = False
menos3.Enabled = False
TV.Enabled = False
CATV.Enabled = False
enter.Enabled = False
tvcatv.Enabled = False
etiq.Caption = "OFF"
etiq.BackColor = vbBlack
etiq.ForeColor = vbWhite
tv2.BackColor = vbInactiveBorder
ncanal.BackColor = vbInactiveBorder
ncanal.Caption = ""
End Sub

Private Sub ON_Click()
tele.Caption = "0"
tv2.Caption = "TV"
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b6.Enabled = True
b7.Enabled = True
b8.Enabled = True
b9.Enabled = True
b0.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
mas3.Enabled = True
menos1.Enabled = True
menos2.Enabled = True
menos3.Enabled = True
TV.Enabled = True
CATV.Enabled = True
enter.Enabled = True
tvcatv.Enabled = True
etiq.Caption = "ON"
etiq.BackColor = vbDesktop
ncanal.BackColor = vbDesktop
ncanal.ForeColor = vbWhite
tv2.BackColor = vbDesktop
tv2.ForeColor = vbWhite
ncanal.Caption = ""
End Sub

Private Sub onoff_Click()
If b1.Enabled = True Then
tele.Caption = ""
tv2.Caption = ""
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b6.Enabled = False
b7.Enabled = False
b8.Enabled = False
b9.Enabled = False
b0.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
mas3.Enabled = False
menos1.Enabled = False
menos2.Enabled = False
menos3.Enabled = False
TV.Enabled = False
CATV.Enabled = False
enter.Enabled = False
tvcatv.Enabled = False
etiq.Caption = "OFF"
Else
tele.Caption = "0"
tv2.Caption = "TV"
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b6.Enabled = True
b7.Enabled = True
b8.Enabled = True
b9.Enabled = True
b0.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
mas3.Enabled = True
menos1.Enabled = True
menos2.Enabled = True
menos3.Enabled = True
TV.Enabled = True
CATV.Enabled = True
enter.Enabled = True
tvcatv.Enabled = True
etiq.Caption = "ON"
End If
End Sub

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

Private Sub tvcatv_Click()
If tv2.Caption = "TV" Then
tv2.Caption = "CATV"
Else
tv2.Caption = "TV"
End If
End Sub

Códigos de Visual Basic (Por Abi y Javier)

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()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ''
End Sub
Private Sub MAS_Click()
If NroCANAL.Caption > 120 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 1
End If
End Sub
Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub
Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub
Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption > 1 Then
NroCANAL.Caption = NroCANAL.Caption - 1
Else
NroCANAL.Caption = 120
End If
End Sub
Private Sub MENOS2_Click()
tvv.Top = tvv.Top - 100
End Sub
Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.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()
NroCANAL.Caption = ''
TVCATV.Caption = ''
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub
Private Sub ON_Click()
NroCANAL.Caption = '0'
TVCATV.Caption = 'TV'
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.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 uno_Click()
auxiliar.Caption = auxiliar.Caption + '1'
End Sub

Codigos de Visual Basic, TV (Por Javier y Abi)

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()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub MAS_Click()
If NroCANAL.Caption > 120 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 1
End If
End Sub

Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub

Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub

Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption > 1 Then
NroCANAL.Caption = NroCANAL.Caption - 1
Else
NroCANAL.Caption = 120
End If
End Sub

Private Sub MENOS2_Click()
tvv.Top = tvv.Top - 100
End Sub

Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.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()
NroCANAL.Caption = ""
TVCATV.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub

Private Sub ON_Click()
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.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 uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Semana 19

Google, y su particular Software móvil…

Android”, es el flamante OS (sistema operativo) que Google ha desarrollado para teléfonos celulares. Con una estrategia que pretende irrumpir en todos los servicios y productos a nivel de tecnología e Internet, Google pretende entrar en el gigantesco mercado de la telefonía móvil.

Esta plataforma, fue programada para celulares incluyendo Middleware y un completo grupo de aplicaciones para trasformar el teléfono móvil en un completo ordenador portátil. Fabricado bajo código abierto (Linux Kernel), es totalmente factible desarrollar todo tipo de aplicaciones en lenguaje JAVA. Dentro de sus principales componentes, Android contara con aplicaciones básicas como servicio de correo, agenda sincronizada, red inalámbrica, navegador Web, chat, GPS, entre otros. Por otra parte Android es totalmente autónomo e intuitivo ofreciendo la posibilidad de desarrollar aplicaciones que por ejemplo permiten a un determinado usuario ver la ubicación geográfica de sus contactos, alertándolos cuando estos se encuentran en un radio cercano, y pudiendo así conectarse de manera instantánea con ellos.

Rápido y fácil: Extraer las pistas de audio de CDs de música

FairStars CD Ripper es uno de los programas más completos que encontré para ripear los CDs de música que tengamos; ¿qué es ripear? Consiste en extraer el audio de cualquier disco de audio. Lo mejor de este programa es su prolongada capacidad y compatibilidad.

De los ripeadores de música más potentes, FairStars CD Ripper es el mejor. Soporta los formatos de audio más conocidos como: MP3, WMA, WAV, OGG, VQF, FLAC y APE.

Por otro lado FairStars CD Ripper tiene una opción bastante i

nteresante, ya que permite que se establezca conexión directamente con una base de datos de álbumes musicales que muchos conocemos, la cual se llama CDDB. También puedes normalizar el audio.

El mercado de los Navegadores recibe a Google

Este browser posee un motor de JavaScript llamado V8 y es "más poderoso para impulsar la siguiente generación de aplicaciones web que ni siquiera son posibles en los navegadores de hoy".

Para explicar cómo se utiliza este browser, Google puso

a dispo

sición de los internautas un libro online.

Las principales características

-Un cuadro para todo: Búsqueda en la web. Historial web. Barra de direcciones. Sugerencias mientras escribes. Todas estas funciones de navegación desde un mismo cuadro.

-Nuevas pestañas: Cada vez que abras una pestaña nueva tendrás un resumen visual de los sitios web más visitados, de los buscadores más utilizados, de las últimas pestañas que has cerrado y de las últimas páginas que has guardado como marcador.

-Accesos directos a aplicaciones: Permite utilizar aplicaciones web sin abrir el navegador. Los accesos directos de las aplicaciones pueden iniciar tus aplicaciones online favoritas.

-Pestañas dinámicas: Se pueden crear ventanas nuevas a partir de las pestañas del navegador simplemente arrastrándolas. Permite agrupar varias pestañas en una única ventana u organizarlas según le interese al usuario.

-Control de fallas: Cada pestaña funciona de forma independiente en el navegador, de modo que si una aplicación falla, el resto de pestañas seguirá funcionando.

-Modo incógnito: ¿Quieres que las páginas que visitas no aparezcan en el historial web? Elige el modo incógnito para navegar de forma privada. Similar al sistema que incorporará Microsoft en su Internet Explorer 8.

-Navegación segura: Google Chrome advierte si se está a punto de visitar un sitio web inseguro que pueda alojar software malintencionado o hacer phishing.

-Marcadores instantáneos: Para guardar como favorita una página web sólo se tiene que hacer click en el ícono en forma de estrella situado a la izquierda de la barra de direcciones.

-Importación de configuración: Con Chrome se puede continuar con los mismos marcadores y contraseñas del navegador que se utiliza actualmente.

-Administración de descargas: El estado de la descargar se observa en la parte inferior de la ventana.

Semana 21, Joy

Primer articulo:

Buena recopilación de 30 colecciones de impresionantes iconos
En outlawdesignblog nos dejan una buena colección de las últimas novedades en cuanto a iconos que están saliendo e Internet, la mayoría vienen de los siguientes lugares: Yellow Icons, Deviant Art y David Lanham. En el artículo 30 Free Icon Sets: More awesome free icons, tenemos los enlaces con sus muestras, seguro que serán de gran utilidad, un modo de ver las tendencias y estilos en este tema. La siguiente ilustración es un ejemplo de dichos iconos.

Segundo articulo:

Conjunto "Simplicio" con un total de 78 iconos
Se trata de otro conjunto de iconos que he visto en SmashingMagazine, que siempre nos sorprenden por sus artículos, que por regla general son impresionantes.

Para más información entrar a: http://www.cosassencillas.com/2008/09/04/conjunto-simplicio-con-un-total-de-78-iconos/

Tercer noticia:

Selección de 25 artículos esenciales para todos los principiantes con WordPress
Es normal que en algunas ocasiones se presenten algunos problemas a la hora hora de empezar a utilizar WordPress, por el tema del desconocimiento. Así que el articulo que encontramos en Elite, puede ser de gran ayuda a los miles de nuevos blogs que surgen todos los días, ya que puede ser bastante desalentador para un usuario nuevo enfrentarse por primera vez a un interfaz y plataforma de blogs que desconoce. Por eso en el artículo 25 Essential Articles For Every WordPress Beginner, podemos empezar desde cero a los fundamentos esenciales con 25 artículos para los principiantes en WordPress. Es una lástima que estos artículos no estén en castellano.

codigo del control (Joy)

Private Sub Command7_Click()
End Sub
Private Sub brillomas_Click()tv.Left = tv.Left + 100auxiliar.Left = auxiliar.Left + 100base.Left = base.Left + 100nrocanal.Left = nrocanal.Left + 100onoff.Left = onoff.Left + 100tvcatv.Left = tvcatv.Left + 100End 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 Command1_Click()
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 Label2_Click()
End Sub
Private Sub enter_Click()nrocanal.Caption = auxiliarauxiliar.Caption = ""End Sub
Private Sub mascanal_Click()nrocanal.Caption = nrocanal.Caption + 1End Sub
Private Sub massonido_Click()
End Sub
Private Sub masvolumen_Click()tv.Top = tv.Top + 100auxiliar.Top = auxiliar.Top + 100base.Top = base.Top + 100nrocanal.Top = nrocanal.Top + 100tvcatv.Top = tvcatv.Top + 100onoff.Top = onoff.Top + 100
End Sub
Private Sub menosbrillo_Click()tv.Left = tv.Left - 100auxiliar.Left = auxiliar.Left - 100base.Left = base.Left - 100nrocanal.Left = nrocanal.Left - 100onoff.Left = onoff.Left - 100tvcatv.Left = tvcatv.Left - 100
End Sub
Private Sub menoscanal_Click()If nrocanal.Caption > 1 Then nrocanal.Caption = nrocanal.Caption - 1Else nrocanal.Caption = 120End IfEnd Sub
Private Sub menosvolumen_Click()tv.Top = tv.Top - 100auxiliar.Top = auxiliar.Top - 100base.Top = base.Top - 100nrocanal.Top = nrocanal.Top - 100tvcatv.Top = tvcatv.Top - 100onoff.Top = onoff.Top - 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()nrocanal.Caption = ""tvcatv.Caption = ""onoff.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = False
End Sub
Private Sub offon_Click()If uno.Enabled = True Then nrocanal.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 enter.Enabled = False masvolumen.Enabled = False menosvolumen.Enabled = False masbrillo.Enabled = False menosbrillo.Enabled = False mascanal.Enabled = False menoscanal.Enabled = False tv1.Enabled = False tvctv1.Enabled = FalseElse nrocanal.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 enter.Enabled = True masvolumen.Enabled = True menosvolumen.Enabled = True masbrillo.Enabled = True menosbrillo.Enabled = True mascanal.Enabled = True menoscanal.Enabled = True tv1.Enabled = True tvctv1.Enabled = TrueEnd If

End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "tv"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnd 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 tv1_Click(Index As Integer)tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub tvcatv2_Click()
End Sub
Private Sub tvctv1_Click()tvcatv.Caption = tvcatvtvcatv = "tvcatv"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

Codigo del Visual Basic (Por Kevin H.)

Private Sub Apagar_Click()
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
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
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
Televisión.Left 240
End Sub


Private Sub Brillomas_Click()
Televisión.Left = Televisión.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
Base.Left = Base.Left + 100
Ncanal.Left = Ncanal.Left + 100
Nrocanal.Left = Nrocanal.Left + 100
onoff.Left = onoff.Left + 100
TVcanal.Left = TVcanal.Left + 100
Kevson.Left = Kevson.Left + 100
End Sub

Private Sub Brillomenos_Click()
Televisión.Left = Televisión.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Base.Left = Base.Left - 100
Ncanal.Left = Ncanal.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
onoff.Left = onoff.Left - 100
TVcanal.Left = TVcanal.Left - 100
Kevson.Left = Kevson.Left - 100
End Sub

Private Sub Canalmas_Click()
If Ncanal.Caption < 100 Then
Ncanal.Caption = Ncanal.Caption + 1
Else: Ncanal.Caption = 1
End If
End Sub

Private Sub Canalmenos_Click()
If Ncanal.Caption > 1 Then
Ncanal.Caption = Ncanal.Caption - 1
Else: Ncanal.Caption = 100
End If
End Sub

Private Sub CATV_Click()
TVcanal.Caption = "CATV Canal"
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 Encender_Click()
Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
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
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
End Sub

Private Sub Enter_Click()
Ncanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Nrocanal.Caption = "Numero de Canal:"
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 offon_Click()
If uno.Enabled = True Then
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
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
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
TVCATV.Enabled = False
Else: Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
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
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
TVCATV.Enabled = True
End If
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()
TVcanal.Caption = "TV Canal"
End Sub

Private Sub TVCATV_Click()
If TVcanal.Caption = "TV Canal" Then
TVcanal.Caption = "CATV Canal"
Else: TVcanal.Caption = "TV Canal"
End If
End Sub

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

Private Sub Volmas_Click()
Televisión.Top = Televisión.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Base.Top = Base.Top + 100
Ncanal.Top = Ncanal.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
onoff.Top = onoff.Top + 100
TVcanal.Top = TVcanal.Top + 100
Kevson.Top = Kevson.Top + 100
End Sub

Private Sub Volmenos_Click()
Televisión.Top = Televisión.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
Base.Top = Base.Top - 100
Ncanal.Top = Ncanal.Top - 100
Nrocanal.Top = Nrocanal.Top - 100
onoff.Top = onoff.Top - 100
TVcanal.Top = TVcanal.Top - 100
Kevson.Top = Kevson.Top - 100
End Sub

Codigos de VISUAL BASIC (por nikomaxpower007 y Telma)

Private Sub catcat_Click()
If catv.Caption = "TV" Then
catv.Caption = "CATV"
Else
catv.Caption = "CATV"
catv.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()
Canal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrill_Click()
tele.Top = tele.Top - 100
auxiliar.Top = auxiliar.Top - 100
base.Top = base.Top - 100
rojonegro.Top = rojonegro.Top - 100
catv.Top = catv.Top - 100
Canal.Top = Canal.Top - 100
End Sub

Private Sub mascanal_Click()
If Canal.Caption < 120 Then
Canal.Caption = Canal.Caption + 1
Else
Canal.Caption = 1
End If


End Sub

Private Sub masvol_Click()
tele.Left = tele.Left + 100
auxiliar.Left = auxiliar.Left + 100
base.Left = base.Left + 100
rojonegro.Left = rojonegro.Left + 100
catv.Left = catv.Left + 100
Canal.Left = Canal.Left + 100

End Sub

Private Sub menbrill_Click()
tele.Top = tele.Top + 100
auxiliar.Top = auxiliar.Top + 100
base.Top = base.Top + 100
rojonegro.Top = rojonegro.Top + 100
catv.Top = catv.Top + 100
Canal.Top = Canal.Top + 100
End Sub

Private Sub mencan_Click()
If Canal.Caption > 1 Then
Canal.Caption = Canal.Caption - 1
Else
Canal.Caption = 120
End If
End Sub

Private Sub menosvol_Click()
tele.Left = tele.Left - 100
auxiliar.Left = auxiliar.Left - 100
base.Left = base.Left - 100
rojonegro.Left = rojonegro.Left - 100
catv.Left = catv.Left - 100
Canal.Left = Canal.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()
Canal.Caption = ""
rojonegro.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
auxiliar.BackColor = vbButtonFace
catv.Caption = ""
auxiliar.Caption = ""
laser.BackColor = vbBlack






End Sub

Private Sub offon_Click()
If uno.Enabled = False Then
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
catv.Enabled = True
enter.Enabled = True
catv.Caption = "TV"
rojonegro.BackColor = vbRed
Else
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
enter.Enabled = False
catv.Enabled = False
Canal.Caption = ""
catv.Caption = ""
rojonegro.BackColor = vbBlack
End If
End Sub

Private Sub on_Click()
Canal.Caption = "0"
rojonegro.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
auxiliar.BackColor = vbGreen
laser.BackColor = vbRed











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()
catv.Caption = "Tv"
End Sub

Private Sub tvcat_Click()
catv.Caption = ""
End Sub



Private Sub tvcatv_Click()
if catvtv.caption=
End Sub

Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"

End Sub

Semana 19 (por flor)

Noticia 1 :





En sus tres páginas, Don Reisinger menciona los tres elementos que, según él, Apple necesita para dejar de ser un competidor de nicho (a pesar del arrollador éxito y fortísimo crecimiento de los últimos años, Apple sigue comandando únicamente un 8% de cuota de mercado) y pasar a representar una verdadera opción para un conjunto más amplio de clientes: reducción de precios significativa (Apple mantiene un importante diferencial de precios con sus competidores, lo que le permite mantener márgenes de un 35% en una industria en la que éstos suelen ser habitualmente muy competitivos y de un solo dígito); entrada fuerte en el mercado corporativo mediante sus ordenadores, la virtualización y el iPhone; y licencia de Mac OS X a otros fabricantes, que permita un crecimiento fuerte en ventas del sistema operativo en una industria en la que todos sus líderes (HP, Dell, Lenovo, Acer, etc.) han expresado su patente descontento con la política y productos de Microsoft y apreciarían la oportunidad de poseer un codiciado factor diferencial para impulsar las ventas de sus productos.
Nada que no se haya comentado ya en otras ocasiones, pero bien hilado y con un cierto tono de “ahora sí que es el momento”: alguna de estas opciones, como la de un cierto descenso controlado de precios, se intuye que estarán pronto entre nosotros - Apple ha anunciado en su presentación de cuentas un descenso de un 5% en su margen bruto debido a dicho factor - mientras que otras, como licenciar OS X, entran dentro de las cuestiones que fueron ya examinadas por la compañía y descartadas en su momento. Para muchos, el artículo es simplemente una recopilació de viejas ideas entre las que falta únicamente la de volver a llamar a Sculley, el CEO que casi hunde Apple en los ‘90, y la idea de mantener una compañía “enfocada”, con crecimiento “ordenado” y alejada de este tipo de “ideas locas” resulta estratégicamente mucho más atractiva. Sin duda, Apple y la discusión acerca de su modelo de negocio va a seguir siendo durante bastante tiempo material para las clases de las escuelas de negocios de todo el mundo…

ESTE ES EL LINK

Noticia 2:

Google termina de lanzar su propio navegador de Internet, hablamos de Chrome. Este nuevo navegador promete mayor estabilidad, rapidez (a la hora de abrir páginas y también al momento de cargar su contenido) y seguridad lo cual ira en teoría a competir con los favoritos al momento de navegar: Internet Explorer y Firefox
La interfaz es clara y simple. Las pestañas se abren en la parte superior del navegador, arriba de la barra de direcciones. Cada pestaña cuenta con un proceso independiente, esto permite que si una de ellas se tranca, el navegador no sea afectado. Esto viene acompañado de un control de tareas en cada pestaña.Posee una nueva herramienta para correr aplicaciones Javascript mas rápido, hablamos del V8, y trae también una función que esta presente en Opera: muestra miniaturas de las páginas más visitadas.En términos de seguridad, el nuevo browser permite la navegación anónima: no se registra ningún dato en la PC. Ideal para usar en maquinas compartidas. Además, si el usuario entra en un sitio malicioso en una pestaña, no tendrá las demás comprometidas pues ellas correrán en procesos independientes.Por ser escrito en código abierto, Chrome puede ser usado por desarrolladores para criar aplicativos en otras plataformas. De hecho una de las novedades del nuevísimo Chrome esta dirigida a los desarrolladores web y nerds en gral.: es posible acceder a funcionalidades específicas para desarrolladores como por ejemplo info sobre el uso de memoria común y memoria virtual.También es posible mostrar código fuente (función antigua, disponible hasta en IE 6) y depurar JavaScript. En lo personal, hoy (02/09/08) lo instalamos y comenzamos a testearlo. La instalación fue rapidísima y sencilla, el primer problema surgió con flash para lo cual el propio navegador nos sugiere instalar el plug-in necesario. En resumen la primera impresión a nivel de usuario sobre este nuevo navegador es buena. Chrome ya cuenta con un comic propio, vale la pena verlo.

ESTE ES EL LINK



Noticia 3:

A través de el blog de StatCounter me entero que a un día de su lanzamiento Oficial, el nuevo navegador Web de Google denominado Chrome ya ha capturado el 1% del mercado a nivel mundial.Y de verdad que vale la pena probarlo pues nos brinda una opción más limpia y simple para navegar con una performance bastante buena y rápida. Pero de esto ya se esta hablando bastante y hay especialistas en el tema haciendole pruebas por todos lados.Lo preocupante para mi es: ¿Qué pasará con Firefox?.Como sabemos el navegador que ha dominado el mercado desde hace muchos años es el Internet Explorer de Microsoft (a pesar de sus fallas de seguridad entre otras cosas) y hasta ahora el único navegador alternativo que le había dado pelea era el Firefox de Mozilla. Desde el lanzamiento de la versión 1.0 allá por el año 2004 Firefox fue penetrando de a pocos en los usuarios cansados de las constantes fallas y limitaciones del Internet Explorer. Como mencionamos en el anterior post, el apoyo que Google le dío fue importantísimo y fue el pasado 17 de Junio que alcanzó una cifra record digna de entrar en Guiness con más de 8 millones de descargas de su versión 3 en las primeras 24 horas en el tan sonado Download Day.Ahora, Google ha marcado claramente su posición lanzandose al ataque frontal con su propio navegador web Chrome . Pero para muchos no queda claro si realmente Internet Explorer sufrirá una dramática pérdida de mercado o lo que sería peor: que Firefox quede atrapado en medio de la guerra entre Microsoft y Google y pase a ser parte del "daño colateral" producto de la misma (poniendolo en términos militares) , convirtiendose en parte de la historia de Internet junto a otros Browsers como Netscape Navigator.Ojo que no estamos discutiendo o diciendo que Chrome sea malo o no tan bueno como Firefox. La verdad por lo poco que he probado hasta ahora no me atreveria mas que a decir que "esta muy interesante" y hay que seguir probandolo. Pero nuevamente surge la interrogante: Y Firefox?Aunque Google seguirá apoyando a Mozilla hasta el 2011 muchos están justamente cuestionando este punto pues la Google dependencia de los proyectos de Mozilla (en el 2006 Google financió el 85% del proyecto) pondría a Firefox en una posición aún más frágil que otros navegadores de menor uso como Safari u Opera.

ESTE ES EL LINK

Codigo Visual Basic (Por Vicky y Denu)

Private Sub brillomas_Click()
TV.Left = TV.Left + 100
End Sub
Private Sub brillomenos_Click()
TV.Left = TV.Left - 100
End Sub
Private Sub canalmas_Click()
If Numerocanal.Caption < caption =" Numerocanal.Caption" caption =" 1"> 1 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
Numerocanal.Caption = 120
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 Label1_Click()
End Sub
Private Sub enter_Click()
Auxiliar.Caption = Auxiliar.Caption
Numerocanal = ""
Numerocanal.Caption = Auxiliar.Caption
Auxiliar = ""
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Auxiliar.Caption = ""

End Sub
Private Sub on_Click()
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
End Sub
Private Sub onoff1_Click()
If uno.Enabled = False Then
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Else
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
End If

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 sonidomas_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100

End Sub
Private Sub sonidomenos_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub
Private Sub tvcatv1_Click()
End Sub
Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub
Private Sub VScroll1_Change()
End Sub

Código TV Visual Basic (por Leandro y Lukas)

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub canal0_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub canal1_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Private Sub canal2_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub canal3_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

Private Sub canal4_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub canal5_Click()
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub canal6_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub canal7_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub canal8_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub

Private Sub canal9_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub

Private Sub Catv_Click()
teve.Caption = "CATV"
End Sub

Private Sub enter_Click()
ncanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrillo_Click()
borde1.Left = borde1.Left + 75
borde2.Left = borde2.Left + 75
borde3.Left = borde3.Left + 75
Sony.Left = Sony.Left + 75
television.Left = television.Left + 75
auxiliar.Left = auxiliar.Left + 75
borde0.Left = borde0.Left + 75

End Sub

Private Sub mascanal_Click()
If ncanal.Caption < 120 Then
ncanal.Caption = ncanal.Caption + 1
Else
ncanal.Caption = 1
End If
End Sub

Private Sub masvol_Click()
borde1.Top = borde1.Top - 75
borde2.Top = borde2.Top - 75
borde3.Top = borde3.Top - 75
Sony.Top = Sony.Top - 75
television.Top = television.Top - 75
auxiliar.Top = auxiliar.Top - 75
borde0.Top = borde0.Top - 75
End Sub

Private Sub menosbrillo_Click()
borde1.Left = borde1.Left - 75
borde2.Left = borde2.Left - 75
borde3.Left = borde3.Left - 75
Sony.Left = Sony.Left - 75
television.Left = television.Left - 75
auxiliar.Left = auxiliar.Left - 75
borde0.Left = borde0.Left - 75

End Sub

Private Sub menoscanal_Click()
If ncanal.Caption > 1 Then
ncanal.Caption = ncanal.Caption - 1
Else
ncanal.Caption = 120
End If
End Sub

Private Sub menosvol_Click()
borde1.Top = borde1.Top + 75
borde2.Top = borde2.Top + 75
borde3.Top = borde3.Top + 75
Sony.Top = Sony.Top + 75
television.Top = television.Top + 75
auxiliar.Top = auxiliar.Top + 75
borde0.Top = borde0.Top + 75

End Sub

Private Sub Off_Click()
auxiliar.Caption = ""
teve.Caption = ""
ncanal.Caption = ""
Off.Enabled = False
onoff.BackColor = vbBlack
tvcatv.Enabled = False
canal1.Enabled = False
canal2.Enabled = False
canal3.Enabled = False
canal4.Enabled = False
canal5.Enabled = False
canal6.Enabled = False
canal7.Enabled = False
canal8.Enabled = False
canal9.Enabled = False
canal0.Enabled = False
enter.Enabled = False
Catv.Enabled = False
TV.Enabled = False
masvol.Enabled = False
mascanal.Enabled = False
masbrillo.Enabled = False
menosvol.Enabled = False
menoscanal.Enabled = False
menosbrillo.Enabled = False
End Sub

Private Sub offon_Click()
If canal1.Enabled = True Then
canal1.Enabled = False
canal2.Enabled = False
canal3.Enabled = False
canal4.Enabled = False
canal5.Enabled = False
canal6.Enabled = False
canal7.Enabled = False
canal8.Enabled = False
canal9.Enabled = False
canal0.Enabled = False
enter.Enabled = False
Catv.Enabled = False
TV.Enabled = False
masvol.Enabled = False
mascanal.Enabled = False
masbrillo.Enabled = False
menosvol.Enabled = False
menoscanal.Enabled = False
menosbrillo.Enabled = False
Off.Enabled = False
auxiliar.Caption = ""
teve.Caption = ""
ncanal.Caption = ""
onoff.BackColor = vbBlack
Else
teve.Caption = "TV"
ncanal.Caption = "0"
onoff.BackColor = vbRed
Off.Enabled = True
canal1.Enabled = True
canal2.Enabled = True
canal3.Enabled = True
canal4.Enabled = True
canal5.Enabled = True
canal6.Enabled = True
canal7.Enabled = True
canal8.Enabled = True
canal9.Enabled = True
canal0.Enabled = True
enter.Enabled = True
Catv.Enabled = True
TV.Enabled = True
masvol.Enabled = True
mascanal.Enabled = True
masbrillo.Enabled = True
menosvol.Enabled = True
menoscanal.Enabled = True
menosbrillo.Enabled = True
Off.Enabled = True
End If
End Sub

Private Sub On_Click()
teve.Caption = "TV"
ncanal.Caption = "0"
onoff.BackColor = vbRed
Off.Enabled = True
tvcatv.Enabled = True
canal1.Enabled = True
canal2.Enabled = True
canal3.Enabled = True
canal4.Enabled = True
canal5.Enabled = True
canal6.Enabled = True
canal7.Enabled = True
canal8.Enabled = True
canal9.Enabled = True
canal0.Enabled = True
enter.Enabled = True
Catv.Enabled = True
TV.Enabled = True
masvol.Enabled = True
mascanal.Enabled = True
masbrillo.Enabled = True
menosvol.Enabled = True
menoscanal.Enabled = True
menosbrillo.Enabled = True
End Sub

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

Private Sub tvcatv_Click()
If teve.Caption = "TV" Then
teve.Caption = "CATV"
Else
teve.Caption = "CATV"
teve.Caption = "TV"
End If

End Sub

Codigo de Visual Basic(Por Julian)

Private Sub canalmas_Click()
If NCANAL.Caption < 120 Then NCANAL.Caption = NCANAL.Caption + 1Else NCANAL.Caption = 1End IfEnd Sub
Private Sub canalmenos_Click() If NCANAL.Caption > 1 Then NCANAL.Caption = NCANAL.Caption - 1Else NCANAL.Caption = 120End IfEnd Sub
Private Sub CATV_Click()TVCATV.Caption = "CATV"
End Sub
Private Sub cero_Click()aux.Caption = aux.Caption + "0"End Sub
Private Sub cinco_Click()aux.Caption = aux.Caption + "5"End Sub
Private Sub Command1_Click()
End Sub
Private Sub Command10_Click()
End Sub
Private Sub Command11_Click()NCANAL.Caption = "1"
End Sub
Private Sub Command12_Click()NCANAL.Caption = "2"End Sub
Private Sub Command13_Click()NCANAL.Caption = "3"End Sub
Private Sub Command14_Click()NCANAL.Caption = "4"End Sub
Private Sub Command15_Click()NCANAL.Caption = "5"End Sub
Private Sub Command16_Click()NCANAL.Caption = "6"End Sub
Private Sub Command17_Click()NCANAL.Caption = "7"End Sub
Private Sub Command18_Click()NCANAL.Caption = "8"End Sub
Private Sub Command19_Click()NCANAL.Caption = "9"End Sub
Private Sub Command2_Click()





End Sub
Private Sub Command20_Click()NCANAL.Caption = "0"End Sub
Private Sub Label1_Click()
End Sub
Private Sub Command21_Click()
End Sub
Private Sub cuatro_Click()aux.Caption = aux.Caption + "4"End Sub
Private Sub dos_Click()aux.Caption = aux.Caption + "2"End Sub
Private Sub enter_Click()NCANAL.Caption = aux.Captionaux.Caption = ""
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub masbrillo_Click()TV.Left = TV.Left - 100TV.Left = NCANAL.Left - 100TV.Left = tvcanal.Left - 100TV.Left = dubi.Left - 100TV.Left = aux.Left - 100
End Sub
Private Sub masvol_Click()TV.Top = TV.Top - 100End SubPrivate Sub menosbrillo_Click()TV.Left = TV.Left + 100End Sub
Private Sub menosvol_Click()TV.Top = TV.Top + 100End Sub
Private Sub nueve_Click()aux.Caption = aux.Caption + "9"End Sub
Private Sub o_Click()
End Sub
Private Sub ocho_Click()aux.Caption = aux.Caption + "8"End Sub
Private Sub off_Click()NCANAL.Caption = ""TVCATV.Caption = ""dubi.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = False
End Sub
Private Sub on_Click()TVCATV.Caption = "TV"NCANAL.Caption = "0"dubi.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnd Sub
Private Sub onoff_Click()If uno.Enabled = True Then NCANAL.Caption = ""TVCATV.Caption = ""dubi.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = FalseElse TVCATV.Caption = "TV" NCANAL.Caption = "0" dubi.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 = TrueEnd IfPrivate Sub seis_Click()aux.Caption = aux.Caption + "6"End Sub
Private Sub siete_Click()aux.Caption = aux.Caption + "7"End Sub
Private Sub tres_Click()aux.Caption = aux.Caption + "3"End Sub
Private Sub TV2_Click()TVCATV.Caption = "TV"End Sub
Private Sub TVCATV_Click()
End Sub
Private Sub uno_Click()aux.Caption = aux.Caption + "1"End Sub

Captura de Visual Basic (por Leandro y Lucas)

Semana 19 (por Teo)

Artículo 1:

Dell Inspiron Mini 9 en España, mañana no

El esperadísimo Dell Inspiron Mini 9 o ultraportátil de Dell ya tiene fecha de salida oficial. Será mañana, tal y como se ha venido rumoreando durante todo el día de hoy. El lanzamiento será en primer lugar en EEUU y algunos países de Europa como Alemania, Francia o el Reino Unido, pero no en España. En nuestro país se retrasa su puesta a la venta hasta Octubre.

Artículo2:

Cowon S9 en Europa

Con la presentación del Cowon S9 mucho nos temíamos que sería uno de esos reproductores que nunca ven la luz fuera de Corea, a pesar de sus excelentes características y el espectacular diseño. Pero las conversaciones con distribuidores en el IFA han debido dar sus frutos, y octubre ha sido el mes escogido para el lanzamiento en Europa.

Artículo 3:

Ultraportátiles con XP con discos duros de mayor tamaño

Aunque los ultraportátiles baratos que inauguraron este segmento optaron por usar discos SSD, sobretodo por peso y consumo, no tardaron demasiado en aparecer más modelos que integran un disco duro. Pero los más curiosos se habrán fijado que estos discos nunca tenían capacidades superiores a los 80 GB.

semana 17(por Nikomaxpower007)

noticiaS DE la semana 17:

not1: es soibre que el campeon de la ultima copa del mundo, Italia agregara a su clasica casaca azul, un parche de campeon del mundo.

link

Projecto Visual Basic (por dario)

Aca esta mi projecto del Visual Basic.

Visual basic, (por Teo)