Cómo convertir un cuadro de texto a un número entero





Educación

Inicie Visual Studio o Visual Basic Express (dependiendo de la versión instalada.) Click " Nuevo proyecto en la página principal".

Seleccione " aplicación de Windows Forms",, y luego haga clic en el botón Agregar . Una nueva forma de basado en Windows " Estructura del Visual ".



Desplácese hacia arriba o haga clic en la ficha Herramientas en la parte superior izquierda de la ventana de diseño . 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.

Arrastre los TextBox1 y TextBox2 controles en alineación vertical con las líneas de la cuadrícula de Visual Basic como las guías de alineación. Coloque el " Label1 " control, justo por debajo de los cuadros de texto , siempre con la retícula de alineación de Visual Basic para obtener ayuda. Coloque el " Button1 " de control en la esquina inferior izquierda del módulo.

Haga clic en el Button1 control para seleccionarlo. Desplácese Propiedades ventana en la parte inferior derecha de la ventana de diseño hasta que encuentre la propiedad text para Button1 control. Cambie el texto a " Add". botón en el formulario debe contener el texto " Añadir " lugar de " Button1".

Haga doble clic en el botón Agregar para para abrir la ventana de código de Visual Basic . El código para convertir los datos introducidos en TextBox1 y TextBox2 se ejecuta cuando el usuario hace clic en el botón Agregar para , por lo que aquí es donde se debe colocar el código. Visual Studio colocará 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.

Introduzca el código como el siguiente código entre las dos líneas que se describen en la sección 6.

Dim NumberOne, NumberTwo, ResultNumber como Integer

Si TextBox1.Text> Entonces

Si Textbox2.Text> Entonces

Intentar

NumberOne.Focus ()

NumberOne = Integer.Parse (TextBox1.Text)

NumberTwo.Focus ()

NumberTwo = Integer.Parse (Textbox2.Text)

ResultNumber = NumberOne + NumberTwo

Label1.Text = ResultNumber.ToString ()

Coger

MessageBox.Show (" Es necesario introducir sólo números en el campo".)

End Try

Más

MessageBox.Show (" Debe introducir un número en el cuadro de dos".)

Volver

Más

MessageBox.Show (" Debe introducir un número en el cuadro de uno".)

Volver

End If

La instrucción Dim establece tres variables de tipo entero, seguido por dos declaraciones " Si " comprobar para asegurarse de que el usuario ha entrado algo en el cuadro de texto ". El try / catch / End Try " sección del código no el intento de conversión real de los datos introducidos en el cuadro de texto . Si hay datos no numéricos en tanto " como TextBox " (según lo determinado por Integer.Parse comandos, uno de los dos comandos MessageBox.Show ganancias de control y muestra un mensaje de error. Si los datos están en " cuadros de texto " es numérico, entonces procede a agregar. El resultado se coloca en la propiedad Label1.Text , que muestra en el formulario.



Deja un comentario