1
Inicie Visual Studio o Visual Basic Express ( dependiendo de la versión que tiene instalada. ) Haga clic en " Nuevo proyecto" en la " página de inicio ".
2
Seleccione " Aplicación de Windows Forms ", y luego haga clic en el botón " Add" . Esto abre un nuevo formulario de Windows en la ventana de Visual Basic " Diseño" .
3
Desplazarse por o haz clic en la pestaña " Herramientas " en la parte superior izquierda de la ventana "Design " . Seleccione y arrastre dos controles TextBox " " , un control " Label " y un control " Button" en el formulario . Como alternativa , puede hacer doble clic en cada control para agregar al formulario .
4
Arrastre el control TextBox2 " " " TextBox1 " y en alineación vertical con las líneas de la cuadrícula de alineación de Visual Basic como guías. Coloque el control " Label1 " justo debajo de los " cuadros de texto " , utilizando de nuevo las líneas de la cuadrícula de alineación de Visual Basic para obtener ayuda. Coloque el control " Button1 " para la parte inferior izquierda del formulario.
5
Haga clic en el control " Button1 " para seleccionarlo. Desplácese por la ventana " Propiedades" de la parte inferior derecha de la ventana "Design " hasta que encuentre la propiedad "Texto " para el control " Button1 " . Cambie el texto a "Agregar ". El botón en el formulario debe contener ahora el texto " Añadir " en lugar de " Button1 ".
6
doble clic en el botón " Añadir" para abrir la ventana de Visual Basic "Código" . El código para convertir los datos introducidos en " TextBox1 " y " TextBox2 " se ejecutará cuando el usuario hace clic en el botón " Add" , por lo que aquí es donde tienes que poner el código. Visual Studio coloca el cursor entre las dos líneas que delimitan el inicio y el final del procedimiento Sub que controla el evento Click del botón.
7
código Escribe similar al siguiente código entre las dos líneas descritas en Paso 6 .
NumberOne Dim , NumberTwo , ResultNumber como Integer
Si textBox1.Text > "" Entonces
Si Textbox2.Text > "" Entonces
Prueba
NumberOne.Focus ()
NumberOne = Integer.Parse ( textBox1.Text )
NumberTwo.Focus ()
NumberTwo = Integer.Parse ( Textbox2.Text )
ResultNumber = NumberOne + NumberTwo
Label1.Text = ResultNumber.ToString ()
Catch
MessageBox.Show ("Usted debe ingresar sólo números en el campo. " )
End Try
demás
MessageBox.Show ("Usted debe introducir un número en la casilla dos. ")
Volver
demás
MessageBox.Show ("Usted debe introducir un número en la casilla uno . " )
Volver
End Si
la declaración " Dim " establece tres variables de tipo entero , seguido por dos "si " declaraciones que comprueban para asegurarse de que el usuario introduce algo en los " cuadros de texto ". El "Try /Catch /End Try " de código hace los intentos de conversión de reales en los datos introducidos en los " cuadros de texto ". Si hay datos no numéricos como en cualquier " TextBox " (según lo determinado por los comandos " Integer.Parse ", uno de los dos comandos " MessageBox.Show " consigue el control y muestra un mensaje de error. Si los datos de los dos cuadros de texto " " es numérico , entonces procede la adición. el resultado se coloca en la " propiedad Label1.Text ", que aparece en el formulario.