Calculadora 2 (por Lula)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub
Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub
Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."

End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
End Sub
Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub
Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub
Private Sub por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
pantalla.Caption = Sqr(pantalla.Caption)
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

Semana 24 (por Lula)

Samsung ha presentado Pixon, otro móvil con 8 megapíxeles

Los hiperactivos desarrolladores de Samsung han presentado un nuevo móvil de 8 megapíxeles al que han bautizado como M8800 Pixon. Este equipo cuenta con una pantalla táctil de 400x240, tribanda HSDPA, GPS, radio FM y slot para tarjetas microSD.

Dispone además de cámara con detección de rostro, georreferenciación de fotos y grabación de vídeo en WVGA. De todas las siglas que te hemos enumerado, seguro que echas de menos una: el WiFi, y es que se lo han dejado fuera confiando toda la conexión inalámbrica en el 3G. Llegará en noviembre por un precio de 550 euros (805 dólares).

26 de Septiembre.
Para ver más.
Elegí este artículo ya que me gusta mucho tener buenas fotos y un buen celular. Es por eso que me interesa cuando sacan celulares con muy buena definición.

Fusionman cruzó el Canal de la Mancha con una ala jet

Ya no tenemos la necesidad de inventarnos superhéroes voladores como Superman, porque ahora tenemos uno de verdad (advertencia: el sustantivo "superhéroe" ha sido usado muy libremente). El piloto suizo Yves Rossy, también conocido como Fusionman, cruzó exitosamente el Canal de la Mancha usando un ala con reactores. El despegue lo hizo desde un avión, a una altura de 2.500 metros, y en 10 minutos viajó 35,4 kilómetros entre Calais y Dover. Como indica la AFP, el ala posee una envergadura de sólo tres metros, y el tanque de combustible carga únicamente 30 litros, lo que limita los vuelos a una decena de minutos. Se controla el aparato moviendo la cabeza, los brazos y el cuerpo, y el piloto tiene un paracaídas que puede ser usado en casos de emergencia. Si te interesara realizar una hazaña parecida, te anticipamos que el precio de estas alas es de alrededor de 130.000 euros.
26 de Septiembre.
Para ver más.
Elegí este articulo ya que me encantaría poder volar y con el, se puede hacer, aunque a un precio elevado.

Un ingenio para el escaneo automático y masivo de libros encuadernados

El Treventus Buchscanner ScanRobot es un curioso ingenio alemán que escanea libros encuadernados, en alta resolución, a la velocidad de 2.500 páginas por hora – el sueño de cualquier bibliotecario. Utiliza un mecanismo robótico y chorros de aire (según parece verse en el vídeo). En cada pasada escanea dos caras de la hoja a la vez, y luego se añaden funciones de OCR y otras sutilezas. Una persona puede escanear libros a mano a un ritmo de entre 5 y 8 páginas por minuto; este ingenio alcanza las 25 páginas por minuto.
26 de Septiembre.
Para ver más.
Elegí este artículo ya que me parece bueno que inventen nuevos robots para realizar tareas más rápidamente aunque esto le saca trabajo a muchas personas.

Semana 23 (por Lula)

Wicler, manos libres multifunción para la bici

Una innovadora empresa española, Good for you, Good for the Planet (GFY, GFP), está decidida a que los ciclistas circulen más seguros y bajo ningún concepto suelten sus manos del manillar. El producto ha sido bautizado como Wicler y es muy similar al CY-Fi que vimos no hace mucho.

A fuer de ser sinceros, decir que se trata sólo de un manos libres es quedarse muy corto: Wicler incorpora un pequeño altavoz con reproductor MP3 incorporado y con capacidad de "hasta 300 canciones" y radio FM. El invento hace las veces también de faro y bocina. Va a ser presentado oficialmente hoy mismo y costará 119 euros. Tienes la nota de prensa un poco más abajo.

Madrid, 18 de septiembre de 2008.- Good for you, Good for the Planet (GFY, GFP), empresa especializada en economía de la innovación en el campo de la eficiencia energética, acaba de lanzar al mercado Wicler (www.wicler.com), el primer dispositivo multifunción diseñado especialmente para la bicicleta cuyo objetivo es favorecer su uso como medio de transporte. Se trata del primer "manos libres" para bicicleta con tecnología Bluetooth®, reproductor de MP3 con capacidad para 300 canciones y radio FM. Incorpora además, un faro delantero y una bocina con 2 sonidos diferentes. El dispositivo se acopla al manillar con un soporte de fijación.

19de Septiembre
Para ver más.
Elegí este articulo ya que me parece muy bueno que creen nuevas cosas para que las personas que utilizan bicicletas puedan viajar escuichando musica o hablando por celular sin despegar las manos del manubrio y asi evitamos accidentes.

Altavoz portátil iLuv iSP100, con la música a todas partes

iLuv vuelve a presentarnos un nuevo sistema de audio -oferta no le falta sin duda- aunque esta vez con dimensiones más pequeñas de lo que acostumbra. Y es que se trata de un altavoz portátil estéreo que te promete mayor libertad de movimiento sin con ello perder en calidad.

El iLuv iSP100 dispone de dos altavoces con 2 W cada uno y cuenta con la tecnología jAura Acoustic Speaker, que presume de ofrecer una mayor calidad y definición de sonido. Aunque en principio pueda parecerte que está solo diseñado para el iPod/iPhone cuenta con conector de 3,5 mm, de manera que podrás acoplarle cualquier otro reproductor que desees.

19 de Septiembre
Para ver más
Elegi este articulo ya que me gusta que inventen cosas para poder escuchar musica de a muchas personas en cualquier lado.

Apple anuncia la retirada del mercado de algunos adaptadores de corriente USB "ultracompactos"


¿Te acuerdas de la emoción que sentiste al abrir la caja de tu iPhone y ver ese pequeñísimo conector eléctrico USB? Pues despídete del aparato. Bueno, no seamos tan drásticos, Apple sólo quiere que lo cambies por uno nuevo, al menos si vives en América. Según la compañía de la manzanita, los conectores metálicos pueden romperse y existe el "riesgo de descarga eléctrica". No se dice nada de muertos ni heridos, pero si eres el propietario de un "adaptador de corriente con USB ultracompacto" y lo compraste en América o Japón, deberás ponerte en contacto con Apple, y tener mucho cuidado al desconectar el adaptador.

19 de Septiembre.
Para ver más.
Elegi este articulo ya que me parece bien que prevengan accidentes que pueden ocurrir en un futuro.

Calculadora (por Lula)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub
Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub
Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + ","
End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
End Sub
Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub
Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub
Private Sub por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub

Semana 22 (por Lula)

Sony Ericsson G705: móvil que sube tus vídeos a Youtube!

Se trata del nuevo Sony Ericsson G705 PowerHouse 3G slider, todos los rumores que recaían sobre este teléfono móvil han sido confirmados, como por ejemplo su pantalla LCD de 2.4 pulgadas que posee tecnología de rotación, un GPS con mapas de Google Maps, 1GB de memoria, radio FM, lector de feeds RSS y un completo navegador web HTML.
Otra novedad es que incluye una cámara digital de 3.2 megapíxles que puede capturar vídeo y subirlo automáticamente a tu cuenta en Youtube.
12 de septiembre.
Para ver más.
Elegí este articulo ya que me gustan los celulares, y que creen nuevos, con nuevas cosas me parece interesante.

HP y Vivenne Tam lanzan notebook super portable especial para chicas!

HP y Vivenne Tam han decidido hacer algo un poco fuera de lo común para presentar la notebook Digital Clutch diseñada por Vivienne. Esta edición especial representa la primera vez que una empresa de diseños como VT y una compañia de computadoras unen fuerazas no sólo para presentar algo que tiene mucho estilo, sino también una notebook super portable en la semana de la moda en Bryant Park. Vivenne Tam ha trabajado con HP para diseñar el paquete así como los accesorios de la portátil.
12 de septiembre
Para ver más.
Elegí este articulo ya que me parece interesante que creen nuevas notebooks con un estilo femenino, distinto.

Parking de bicicletas en Japón administrado por un robot!
En Japón viven millones de personas, en un espacio bastante reducido a decir verdad y el tema del transporte aveces se vuelve un tanto complicado, al igual que en china, en Japón se usan muchísimo las bicicletas pues los trenes y coches no dan a basto. Pero resulta que también las bicicletas ahora ante la gran demanda están teniendo problemas para encontrar un estacionamiento. Y en base a esto se ha creado un parking para bicicletas, pero cuenta con un mecanismo automatizado para dejar y retirar tu vehículo: un robot se encarga de hacerlo por ti!
12 de Septiembre.
Para ver más.
Elegí este articulo ya que me llama la atención que cada vez haya mas robots que remplazen las actividades de los humanos.

Visual Basic 3 (por Lula)

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

End Sub

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

Private Sub catvtv_Click()
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 < 13 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If
Else
If auxiliar.Caption < 129 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If

End If

End Sub



Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If NroCanal.Caption < 13 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
Else
If NroCanal.Caption < 129 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
End If
End Sub

Private Sub Mas1_Click()
Pantalla.Top = Pantalla.Top + 100
auxiliar.Top = auxiliar.Top + 100
Shape2.Top = Shape2.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
onoff.Top = onoff.Top + 100
NroCanal.Top = NroCanal.Top + 100

End Sub

Private Sub Mas2_Click()
Pantalla.Left = Pantalla.Left + 100
auxiliar.Left = auxiliar.Left + 100
Shape2.Left = Shape2.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
onoff.Left = onoff.Left + 100
NroCanal.Left = NroCanal.Left + 100
End Sub

Private Sub Menos_Click()
If NroCanal.Caption > 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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 = ""
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
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
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
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
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
TV.Enabled = True
CATV.Enabled = True
End Sub

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

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

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

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


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

Semana 21 (por Lula)

LG DP889: portaretratos digital que incluye reproductor de DVD!

LG ha lanzado recientemente su propia versión de portaretratos digitales, introduciendo al mercado el modelo LG DP889, que además de ser un portaretratos digital, también es un reproductor de DVDs, la pantalla es de 8 pulgadas. Como si fuera poco también incorpora una tarjeta 3 en 1, parlantes incorporados y auriculares. Su batería tiene una duración de 3 horas y media en continua reproducción, este gadget tendrá un precio de $279.95 dólares.
Me parece bueno tener un objeto que además de tener fotos puede reproducir películas.
Para ver más
5 de Agosto.

Llega la Energy Ball: energía eólica para tu casa

Estamos más acostumbrados al clásico molino de viento de tres aspas, pero como pudimos comprobar, vibra en exceso y puede resultar peligroso para el hogar. Para solventar estos problemas llega Energy Ball, una esfera que captura el viento de forma más eficiente (eso es lo que dicen por lo menos).
Se encuentra en fase de prototipo y ha sido diseñado por la empresa sueca Home Energy, que asegura que esta pequeña bola puede producir el 15% de la electricidad consumida en el hogar.
Elegí este articulo porque me parece muy importante utilizar energía, cuidando el medio ambiente.
Para ver más
6 de Agosto.

Philips retira varios televisores de las tiendas por riesgo de electrocución

A este paso vamos a tener que pluriemplearnos para pagar el seguro doméstico. Philips ha llamado a revisión sus HDTV 19PFL5403D/1020PFL3403/10, 20PFL3403D/1022PFL5403D/1026PFL3403/10 y 26PFL3403D/10 con números de serie CG1A0813xxxxxx y CG1A0832xxxxxx por riesgo de electrocución. ¿El motivo? Pues la verdad es que suena un tanto extraño, pero según el comunicado emitido por el departamento de Protección de los Consumidores de la UE, estos televisores incluyen "componentes contaminados" que "afectan a la construcción mecánica interna", con el resultado de que podrían soltarse piezas de alto voltaje sobre otras como la entrada de antena. De entrada parece que las teles han sido retiradas de las tiendas; si por un caso eres propietario de uno de los modelos afectados, lo mejor es que te pongas en contacto con el fabricante lo antes posible.
Elegí este articulo ya que me parece importante que puedan reconocer que tiene un error y sacarlo del mercado para que la gente no lo compre más, y no fijarse en la plata que pueden ganar a costa de cualquier cosa.
Para ver más
6 de Agosto.

Visual Basic 2 (por Lula)

Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If Nrocanal.Caption < caption =" Nrocanal.Caption" caption =" 0" caption =" Nrocanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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 = ""
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
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
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
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If
End Sub

Private Sub On_Click()
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
TV.Enabled = True
CATV.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