Cómo agregar 2 Valores en Visual Basic

Un requisito básico de cualquier lenguaje de programación es la posibilidad de añadir dos valores, si los valores de valor o cadena numérica. Visual Basic de Microsoft proporciona tanto de estas capacidades para el programador. Para los valores numéricos, se puede elegir cualquier número de tipos de datos, incluyendo enteros, decimales y otros, más científico, tipos. Cualquiera que sea los valores es necesario agregar, Visual Basic debe ser capaz de manejar la operación con bastante facilidad.

Instrucciones

Configuración inicial

1 Iniciar la aplicación de Visual Basic. Abra el proyecto existente o haga clic en "Nuevo proyecto".

2 Pasa el cursor sobre el menú de la caja de herramientas a la izquierda y haga doble clic en dos cuadros de texto, un botón y una etiqueta. Esto se suma estos controles para su formulario en la ventana de diseño.

3 Arrastre los controles alrededor de la forma hasta que están correctamente alineados de una manera que parece organizado y tiene sentido. Los dos cuadros de texto sostendrán la entrada del usuario, la etiqueta recibirá los resultados de su código, y el botón de hecho se ejecutará el código.

4 Haga doble clic en el botón en el formulario. La ventana de codificación se abrirá y el editor de Visual Basic se coloque el cursor entre un encabezamiento procedimiento Sub y una línea End Sub. Su código irá entre estas líneas. Cuando en realidad se ejecuta el programa, este es el código que se ejecutará cuando se hace clic en el botón.

Adición de valores numéricos

5 Para añadir números, añadir el siguiente código entre la línea procedimiento Sub y la línea End Sub para sumar dos números:

Dim Num1, Num2, TotalNum as Integer

Si TextBox1.Text> nada entonces

Si Textbox2.Text> nada entonces

Tratar

Num1.Focus ()

Num1 = Integer.Parse (TextBox1.Text)

Num2.Focus ()

Num2 = Integer.Parse (Textbox2.Text)

TotalNum = Num1 + Num2

Label1.Text = TotalNum.ToString ()

Captura

MessageBox.Show ( "Se necesita un número válido")

Try End

Más

MessageBox.Show ( "Se requiere un número en el segundo campo")

Regreso

Más

MessageBox.Show ( "Se requiere un número en el primer campo")

Regreso

Terminara si

La instrucción Dim declara tres variables de tipo entero, y el código subsiguiente obliga al usuario a introducir valores numéricos o se genera un mensaje de error. Al hacer clic en el botón hace que el código para ejecutar y analizar las cadenas al número de operaciones matemáticas por Visual Basic. Los números se suman y se colocan en el campo TotalNum, que VB entonces se convierte en un valor de cadena y lugares en el campo Label1.Text.

6 Haga clic en el icono de la flecha verde para depurar el proyecto. Su forma debe abrir para probar su código.

7 Realizar una prueba positiva, que a veces se llama va por el "camino feliz". un número de clave en el primer campo y un número en el segundo campo. Clic en el botón. Debería ver el resultado aparece en el campo de etiqueta.

8 Realizar una prueba negativa tecleando caracteres alfabéticos en uno o ambos campos y haga clic en el botón. Debería ver un mensaje de error para cualquier campo en el que tecleado caracteres no numéricos.

La adición de la concatenación (cadenas de caracteres)

9 Inserte el siguiente código entre la cabecera procedimiento sub y la línea Sub extremo trasero:

If Textbox1.Text > Nothing Then

Si Textbox2.Text> nada entonces

Label1.Text = TextBox1.Text y Textbox2.Text

Más

MessageBox.Show ( "Se requiere una cadena en el segundo campo")

Regreso

Más

MessageBox.Show ( "Se requiere una cadena en el primer campo")

Regreso

Terminara si

Este código se comprueba para asegurarse de que un valor se introduce en cada campo y luego concatena las dos cadenas, la colocación de la cadena resultante en el campo Label1.Text.

10 Haga clic en el icono de la flecha verde para depurar el proyecto. Su forma debe abrir para probar su código.

11 Realizar una prueba positiva tecleando una cadena en el primer campo y una cadena en el segundo campo. Haga clic en el botón y el código debe virar las dos cadenas juntas y poner el resultado en el campo Label1.Text.

12 Realizar una prueba negativa al teclear nada en uno o ambos campos y haga clic en el botón. Debería ver un mensaje de error para cualquier campo donde no teclear nada