|
|
Curso gratis de Visual Basic ejemplo con variables
|
|
Uu 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 momentáneamente
Esto quedaría asi:
1) El resultado se
mostraría en un label1.
1) Un botón de suma y
otro de resta.
3) Suman y restan el
valor que se escriba en un cuadro de texto.
4) en un frame,
que se encuentre otro cuadro de texto con dos botones mas.
5) Uno para sumar y otro
para restar al valor general el valor que esta 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 así
Ahora variamos los caption, nombres que se
muestran y que en el caso del label y los text afectarán un resultado, por
ejemplo si dejáramos "Label1" y lo queremos sumar a un numero 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"
|
|
Olvide en esta
captura cambiar el Caption que dice Form1, hagalo
La alineación del
label la alinee hacia la izquierda con la propiedad del objeto label
alignment
El color del
frame1 lo modifique 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 numero 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 numero que ingreso, al que queda ingresado en lo
que seria 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. ;) |
|
|
-