|
|
Práctica en Visual Basic Express N° 2
|
|
Variables, ejemplo
del programa que suma y resta
Variable es un lugar en la Memoria reservado para
tomar un valor determinado, con ancho de tatos también determinado.
Se puede a una variable asignarle un tipo de
datos, es
decir que tome el valor que se encuentra en dicho espacio temporal
en memoria como un valor especial, por ejemplo: el numero 1 (uno)
puede interpretarse como texto o como numero.
|
Esta es la
culminación de este ejemplo que lo he llamado Practica N° 2 reproduzco el código
a continuación con el cual ya le debería poder verificar si realizó bien el
ejercicio, o mejor dicho acá hay una opción de como realizar lo que se
pidió. El ZIP con los archivos de
esta practica ocupan 3,44 KB [ Practica N° 2 ].
El código que también está incluido en la
descarga es el siguiente:
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim resultado As Double
Dim numero As Double
Dim suma As Double
resultado = Label1.Text
numero = TextBox1.Text
suma = resultado + numero
Label1.Text = suma
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
Dim resultado As Double
Dim numero As Double
Dim suma As Double
resultado = Label1.Text
numero = TextBox1.Text
suma = resultado - numero
Label1.Text = suma
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button3.Click
Dim resultado As Double
Dim numero As Double
Dim suma As Double
resultado = TextBox1.Text
numero = TextBox2.Text
suma = resultado + numero
Label1.Text = suma
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button4.Click
Dim resultado As Double
Dim numero As Double
Dim suma As Double
resultado = TextBox1.Text
numero = TextBox2.Text
suma = resultado - numero
Label1.Text = suma
End Sub
End Class
End Sub
Private Sub Command3_Click()
Dim numE As Double
Dim Resul As Double
Dim Snum As Double
Resul = Label1.Caption
numE = Text2.Text
Snum = Resul - numE
Label1.Caption = Snum
End Sub
Private Sub Command4_Click()
Dim numE As Double
Dim Resul As Double
Dim Snum As Double
Resul = Label1.Caption
numE = Text2.Text
Snum = numE + Resul
Label1.Caption = Snum
End Sub |
|
|
-