Receta de cocina: calcula calcula calcula calculadora. Parte 3

Una idea genial de Dark_seid guardada en Visual Basic

Dejemos de lado las presentaciones y vamos directo al grano… no tengo ganas de escribir de más hoy asi que partimos con la última patita… tiquitiquiti… se nos viene el 18 jejeje…

Nos queda sólo programar las teclas de operaciones matemáticas y la tecla igual que nos entrega el resultado de lo que sea que estemos haciendo. Aunque parezca muy complicado, en realidad es re fácil… a si que tranquilitos que a nadie le va a dar un derrame por tratar de entender como funcionan las teclitas.

Para las 4 funciones es el mismo código, sólo deben ir cambiando las variables y la operación que realiza el bloque de código por la que corresponda a cada botón. En seudo código sería algo más o menos así:

Evento Operacion_Click()
INICIO
Si var_operacion = 0 entonces
var_operacion = visor.Text
visor.Text = 0
Sino
var_operacion = var_operacion # visor.Text
visor.Text = 0
fin si
FIN

… … … … … … y eso sería… no wn si no estoy wueveando… si es en serio… es eso no más… con esa mierda de código serás capaz de hacer que tu calculadora te sume, te reste, te multiplique y te divida… sólo se debe reemplazar var_operacion por el nombre de la variable asignada a cada operación y el signo # por el signo del operador correspondiente… yo no se si hay otra solución más elaborada pero esta resulta a la perfección…

Veamos que hace ese pedazo de código… la idea es que cuando el usuario haga click en la tecla de operación, el sistemita busque la variable asignada a la operación que va a realizar y vea si está vacía (igual a 0), si es así lo único que hace es tomar el valor que aparece en el visor y guardarlo en la variable y queda a la espera del siguiente evento. Si la variable no está vacía (es distinta a 0), realiza la operación pedida entre el valor de la variable y lo del visor, el resultado lo guarda en la variable de la operación y espera el siguiente evento… … … si ya se que no es ninguna genialidad pero funciona.

Guarde, presione F5 y pruebe el asuntito… métale números… juegue.

Vamos con la última teclita. Esta es un poco más larga pero es igual de simple. El listado en seudo código:

Evento Igual_Click()
INICIO
si sumar != 0 entonces
resultado = sumar + visor.Text
visor.Text = resultado
sumar = 0
sino si restar != 0 entonces
resultado = restar - visor.Text
visor.Text = resultado
restar = 0
sino si multiplicar != 0 entonces
resultado = multiplicar * visor.Text
visor.Text = resultado
multiplicar = 0
sino si dividir != 0 entonces
resultado = dividir / visor.Text
visor.Text = resultado
dividir = 0
fin si
fin si
fin si
fin si
resultado=0
FIN

Este es un poquito enredado pero no es complicado… pónga atención para que no se pierda: al hacer click en el botón, el sistema comienza a buscar en cada una de las variables de las operaciones cúal es distinta de 0… cuando encuentra una entra en el ciclo y realiza la operación correspondiente entre la variable y lo del visor y lo guarda en la variable resultado, despúes asigna el valor de resultado al visor para que este lo imprima en el cuadro de texto y vuelve a 0 la variable de la operacion. Finalmente vuelve a 0 la variable resultado por si acaso.

Y eso era todo… guarde y presione F5… pruebe. Si siguió las instrucciones no debería tener ningún error… si por esas razones de la vida le aparece algún error cuando esté en tiempo de ejecución sólo me queda decirle…

USTED ES TONTITO????

Nah… es broma… revisen como tradujeron el seudo código a visual basic… primero revise sis efectivamente tradujo el seudo código a visual basic y no copy/pasteo directo… si hizo eso ahi si que le grito…

USTED ES TONTITO????

Lo que queda después es ponerle colorcito, corazoncitos, florcitas y esas cosas… pero eso se los dejo a ustedes…

Espero que esta primera experiencia con un ejercicio de verdad en Visual basic no sea traumática para nadie, la verdad, a mi me sirvió para darme cuenta que es cierto lo que dicen de este lenguaje… es harto fácil la wuevadita… esperemos que siga así no más.

Eso sería!!!

Receta de cocina: calculadora parte 2

Una idea genial de Dark_seid guardada en Visual Basic

Compañeros… que tal?… estoy de vuelta para seguir con la segunda parte del problemita que nos dejó nuestro querido profesor de Visual Basic. En el capítulo anterior vimos como configurar los numeritos para que aparecieran en la pantallita (cuadro de texto en realidad). Lo que haremos hoy será ver los botones de funciones y si no resulta muy largo, también los de operaciones… así que sin mayor cháchara… VAMOS AVER!!!

La calculadora que vamos a hacer tiene 5 teclas con funciones: 2 para borrar datos, la tecla C que borra todo lo que se ha hecho y la tecla CE que borra sólo el último número ingresado; y 3 para las funciones de memoria, la tecla M+ que suma lo que está en pantalla a la memoria, la tecla MR que sirve para leer lo que tiene guardada la memoria y mostrarlo en pantalla, y la tecla MC que borra lo que guarda la memoria.

Vamos por parte. Lo primero que debemos hacer en este momento es definir las variables globales que vamos a ocupar: suma, resta, división, multiplicación, memoria, igual. Creo que no es necesario explicar para que sirve cada variable ¿o si? Si les voy a recordar, por si el coágulo cerebral está en reposo, que la declaración se hace arriba de todas las funciones y siempre de tipo single, la sintaxis debería quedarles algo como esto:

Dim nombre_variable As Single

Los nombres que le ponga dan lo mismo, pueden ser los que anoté más arriba u otros… nuevamente es al gusto del cliente, pero si deben tomar en cuenta que represente el tipo de dato que va a guardar… tal y como dijo el papi de Brito.

Si todavía no entiende bien en que parte se declaran las variables globales (las que sirven para todos los botones y funciones), le tengo un consejo… haga doble clic sobre todos los botones, pero no escriba nada en el código aún… que no se le olvide ninguno… … … … … ¿terminó? ¿Si? Entonces en la vista de código lleve el cursor una línea más arriba de la primera línea donde le aparezca Private Sub algo… haga enter… ahí escriba las declaraciones de variables.

Presione F5 para compilar y ejecutar, no va a notar ningún cambio porque en rigor no ha hecho nada divertido aún, sólo prepara los ingredientes para montar el plato.

Funciones para borrar

Con las variables listas podemos empezar con la parte entretenida del cocido… la primera que vamos a intervenir será la tecla C… lo que hace esta tecla es re simple… borra todo lo que esté en pantalla y en las variables de las operaciones… pero ojo que la variable asignada a la memoria NO la toca… esa queda igual no más si tiene datos. En seudocódigo el funcionamiento de esta tecla me quedó mas o menos así:

Evento botonC_Click()
INICIO
visor.Text = 0
suma = 0
resta = 0
multiplicacion = 0
division = 0
FIN

Como ven, no tiene ninguna ciencia. Más facil aún es el botón CE que borra el último numero digitado, o lo que dicho de otro modo, limpia la pantalla. Para lograr eso, sólo deben volver a 0 el valor que tiene el cuadro de texto, algo como esto:

Evento botonCE_Click()
INICIO
visor.Text = 0
FIN

Guarde, presione F5 para compilar y ejecutar. Pruebe, apriete numeritos y vea como desaparecen de la pantalla… con moderación que puede resultar adictivo.

Funciones de memoria

Las funciones de memoria no son mucho más complicadas, asi que no voy a entrar en mayores explicaciones sobre como funcionan, creo que se explican solas.

Partimos con la tecla M+ que suma lo del visor a la memoria:

Evento botonM+_Click()
INICIO
memoria = memoria + visor.Text
visor.Text = 0
FIN

Seguimos con el boton MR que lee lo que está en memoria y lo pone en pantalla:

Evento botonMR_Click()
INICIO
visor.Text = memoria
FIN

Y para terminar, el boton MC que borra la memoria:

Evento botonMC_Click()
INICIO
Memoria = 0
FIN

Ufff… me agoté con tanta línea de código… la cagó, y uno que se pega contra la muralla por resolver el problema y son tan solo dos líneas de código máximo por función… tranquilos que ya viene la parte más divertida.

Como siempre… guarde, presione F5 y pruebe… ¿vió que ahora puede hacer más cosas?… increíble…

¿Como vamos hasta ahora? fácil ¿o no?… por hoy sería todo… mañana o más tarde seguimos…

Eso sería!!!