“Ingresar número 1” A

“Ingresar número 2” B

S= A + B

R= A – B

M = A * B

D= A / B

“La suma de 2 Números es;” S

“La resta de 2 Números es;” R

“La Multiplicación de 2 Números es;” M

“La Divisiób de 2 Números es;” D

Dos cajas de texto

Un botón de comando para cada operación.

Una caja de Texto para mostrar el resultado que corresponda.

Frame 1 – Prpiedad Caption = “Ingresar Números”

3 Label

3 Cajas de Texto (Txt)

Frane 2 – Propiedad Caption = “Comandos”

5 Botones de comandos (command)

Programa en Visual Basic

Un evento es una respuesta a una acción del usuario

Para que el usuario pueda ver la suma de los dos números ingresados, hay que programar el botón Sumar (Command1”, en el evento Clic del comando

Doble clic en el boton Sumar para ingresar al procedimiento del control

Private Sub Command1_Click()

Dim a As IntegerDim b As IntegerDim r As Integer

a = Text1.Textb = Text2.Text

r = a + b

Text3.Text = r

End Sub

Procedimiento del control Command1 “Sumar”

Declarar 3 variables, dos para ingresar los números (a y b), y otra para mostrar el resultado

Le asigno lo que ingresa en la caja de texto 1 a la variable a y a la variable b lo que ingresa en la caja de texto 2

Sumo a + b, y el resultado lo guardo en la variable r

Muestro en la caja de texto 3 el resultado de la suma que se encuentra en la variable r.

Realizar lo mismo para cada uno de los comandos

Private Sub Command5_Click()

Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocus

End Sub

Limpio el contenido de cada una de las cajas de texto

Paso el cursor a la caja de texto 1, para que el usuario pueda ingresar un nuevo par de números.

Sin utilizar Variables

Private Sub Command1_Click()

Text3.Text = Text1.Text + Text2.Text

End Sub

Código botón Sumar

Sumo lo que ingresa en la caja de texto1 más lo que ingresa en la caja de texto 2 y lo muestro en la caja de texto 3

El problema es que Visual no reconoce al contenido ingresado como números, sino que lo hace como texto y no suma los números los junta, los concatena. Es decir que si en la caja de texto 1 ingresa el número 2 y en la caja de texto 2 ingresa el número 5, en la caja 3 se vera el resultado 23.

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Solución

La función Val, reconoce el primer número dentro de una cadena de caracteres.

No es necesario para el resto de las operaciones.

Prof.: Ricardo VIQUEIRA