calculadora de visualbasic

Private Sub borrar_Click()auxiliar.Caption = ""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 coma_Click()auxiliar.Caption = auxiliar.Caption + "."End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dividido_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "/"auxiliar.Caption = ""End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub igual_Click()If auxiliarop.Caption = "+" Thenauxiliar.Caption = Val(auxiliarnumero.Caption) + Val(auxiliar.Caption)auxiliarnumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "-" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) - Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "*" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) * Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "/" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) / Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfEnd Sub
Private Sub mas_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "+"auxiliar.Caption = ""End Sub
Private Sub menos_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "-"auxiliar.Caption = ""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 por_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarsigno.Caption = "*"auxiliar.Caption = ""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

Segundo codigo visual basic

Private Sub apagar_Click()ceito.Caption = ""tvcatv.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = FalseCinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = FalseCero.Enabled = Falseenter.Enabled = Falseonoff.BackColor = vbBlack
End Sub
Private Sub catv_Click()tvcatv.Caption = "catv"End Sub
Private Sub Cero_Click()auxiliar.Caption = auxiliar.Caption + "0"
End Sub
Private Sub Cinco_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub
Private Sub 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 enter_Click()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption > 12 Then If tvcatv.Caption = "TV" Then ceito.Caption = 1 Else ceito.Caption = 1 End IfElseceito.Caption = ceito.Caption + 1End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption < 1 Then If tvcatv.Caption = "TV" Then ceito.Caption = 13 Else ceito.Caption = 130 End IfElseceito.Caption = ceito.Caption - 1End IfEnd Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" tvcatv.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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

Codigo visual basic, con sofi

Private Sub apagar_Click()ceito.Caption = ""tvcatv.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = FalseCinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = FalseCero.Enabled = Falseenter.Enabled = Falseonoff.BackColor = vbBlack
End Sub
Private Sub catv_Click()tvcatv.Caption = "catv"End Sub
Private Sub Cero_Click()auxiliar.Caption = auxiliar.Caption + "0"
End Sub
Private Sub Cinco_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub enter_Click()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption < 120 Then ceito.Caption = ceito.Caption + 1 Else ceito.Caption = 1 End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption > 1 Then ceito.Caption = ceito.Caption - 1 Else ceito.Caption = 120 End If End Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" tvcatv.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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

Semana 20

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.

Semana 19

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