|
|
Curso de Visual Basic Express programa que suma
|
|
Se realizará a modo
de ejemplo, una aplicación muy sencilla (ósea se le podrían añadir
muchas cosas), con uso de variables que sume y reste. Incluso pueda almacenar
un valor momentáneamente. Se hará de la siguiente forma:
1) El resultado se
mostraría en un Label1.
2) Tendrá un botón de suma y
otro de resta.
3) Suman y restan el
valor que se escriba en un cuadro de texto en relacion al Label1 (display).
4) Tendrá en un frame
(GroupBox),
otro cuadro de texto con dos botones más.
5) Uno para sumar y otro
para restar en este caso entre los cuadros de texto.
|
... No es tan sencillo este
ejemplo para lo que conoce hasta ahora (si solo está haciendo este curso), pero usaremos lo que se ha aprendido
y se agregarán algunos pequeños detalles.
Una vez insertados todos
los objetos requeridos en un Form podría quedar por ejemplo algo así:
Se varían los textos de los objeto, como se comentó. En el caso del Label y los
TextBox afectarán un resultado, por
ejemplo si dejáremos "Label1" y lo queremos sumar a un numero nos daría
error. Entonces modificando la propiedad Text de cada
objeto se le asigna un número cero:
|
|
Para poder modificar las dimensiones del
Label variar la propiedad AutoSice a "False".
La alineación del
Label a la hacia la izquierda con la propiedad TextAlign.
Un principio de código
para luego agregar mas y mejorarlo sería el siguiente doble click en botón
suma:
| Código botón suma por ahora: |
Dim resultado
Dim numero
Dim suma
resultado = Label1.Text
numero = TextBox1.Text
suma = resultado + numero
Label1.Text = suma |
|
Realice este ejemplo,
notará que no funciona si lo prueba, eso es porque en la hoja siguiente se
explicará. No obstante:
|
|
Se
realizó lo siguiente (está bien solo que falta algo): asignar una variable al
resultado ("resultado"), otra al número que
voy a ingresar ("numero") y otra a la suma en sí
(suma). Es decir, asignarle un
espacio de Memoria a el numero ingresado (cero si se comienza), lo que
sería algo así como el visor de una calculadora; y otro al que se
ingrese; por último una variable para
que realice la suma.
Declaro a que será igual cada variable y le digo
al final con "Label1.Text = suma"
para que muestre el contenido de la variable suma, quedando
de esta forma ese valor también en resultado (listo para otra operación).
Guarde y pruebe la aplicacián observará que
la suma da cualquier valor. En el próximo escrito vemos por qué este
error y cómo arreglarlo. El problema está en que suma los números como
si fueran textos. |
|
|
-