|
|
Curso gratis de Visual Basic ejemplo con variables
|
|
Un ejemplo sencillo
con variables
Se me ocurre
un ejemplo de uso de variables
realizando una aplicación que sume y reste. Incluso pueda almacenar
un valor momentaneamente
Esto quedaría así:
1) El resultado se
mostraría en un label1.
1) Un botón de suma y
otro de resta.
3) Suma y resta, el
valor que se escriba en un cuadro de texto.
4) En un frame,
que se encuentre otro cuadro de texto con dos botones más.
5) Uno para sumar y otro
para restar al valor general el valor que está en el cuadro de texto del
frame.
|
... no es tan sencillo en
ejemplo para lo que conoce hasta ahora, pero usaremos lo que se ha aprendido
y seguramente se agregarán algunos pequeños detalles.
Una vez insertados todos
los objetos requeridos en un form podría quedar por ejemplo algo asi
Ahora variamos los caption, nombres que se
muestran y que en el caso del label y los text afectaron un resultado, por
ejemplo si dejáramos "Label1" y lo queremos sumar a un número nos daría
error. Entonces quedaria modificando la propiedad caption de cada
objeto de la siguiente forma:
Nota:
Para el caption de los cuadros de texto hay que modificar la
propiedad "text"
|
|
Olvidé en esta
captura cambiar el Caption que dice Form1, hágalo.
La alineación del
label la alineé hacia la izquierda con la propiedad del objeto label
alignment.
El color del
frame1 lo modifiqué desde la propiedad del objeto frame1Backcolor.
Un primer código
para luego agregar mas y mejorar sería el siguiente doble click en botón
suma.
| Código botón suma por ahora: |
Private Sub Command1_Click()
Dim num
Dim Resul
Dim Snum
Resul = Label1.Caption
num = Text1.Text
Snum = num + Resul
Label1.Caption = Snum
End Sub |
|
Lo que acá hicimos en este código (que no va a funcionar y ya veremos por
que.)
|
|
Es lo siguiente, asignar una variable al número que
voy a ingresar (Num), otra al resultado (Resul) y otra a la suma en si
(Resul). Es decir asignarle un
espacio de memoria a el número que ingreso, al que queda ingresado en lo
que sería algo así como el visor de una calculadora y una variable para
que realice la suma.
Declaro a que será igual cada variable y le digo
al final con "Label1.Caption = Snum" que lo
muestre, es decir que muestre el contenido de la variable Snum.
Guarde y pruebe la aplicación observará que suma dando
cualquier valor. En el próximo escrito vemos por que este error y como
arreglarlo. El problema está en que suma los números como si fueran
textos. ;-) |
|
|
-