Es una página en la cual te puedes auxiliar en caso de problemas, especialmente con el programa Visual Basic.
これは、Visual Basicプログラムで、特に問題が発生した場合に助けることができるページです。
jueves, 26 de mayo de 2011,12:14
¿Cómo resolver una ecuacion cuadrática?
Una ecuacion cuadrática del tipo Ax2+BX+C=0 se puede resolver con la fórmula general.
Se obtendrán dos raices (x1 y x2) determinadas por:
x1=(-B + sqr (B ^ 2 - 4 * A * C)) / (2 * A)
x2=(-B - sqr (B ^ 2 - 4 * A * C)) / (2 * A)
En estas ecuaciones, sqr es la funcion de Visual Basic para obtener la raíz cuadrada.
1.- Crea la interfaz del programa según se muestra. Cambia los nombres de los controles como sigue: txtA, txtB, txtC, txtX1, txtX2, cmdCalcular, cmdLimpiar, cmdSalir.
2.- En la venta de código declara las variables A,B,C,X1 y X2 dentro del evento click del botón de calcular. Como estas variables pueden contener números decimales, usa el tipo de Single.
Private Sub cmdCalcular_Click()
Dim A,B,C,X1,X2 as Single
3.- Asigna a las variables A, B y C los valores de las cajas de texto correspondientes.
A = Val (txtA.Text)
B = Val (txtB.Text)
A = Val (txtB.Text)
la funcion Val obtiene el valor númerico de una cadena de caracteres
4.-El botón Calcular realizará los cálculos necesarios con las variables para obtener los resultados X1 y X2.
x1=(-B + sqr (B ^ 2 - 4 * A * C)) / (2 * A)
x1=(-B - sqr (B ^ 2 - 4 * A * C)) / (2 * A)
5.- Las cajas de texto para los resultados desplegarán los valores finales de X1 y X2
txtX1.text = X1
txtX2.text = X2
6.- El botón limpiar borra los contenidos de todas las cajas de texto
Private Sub cmdLimpiar_Click()
txtA.text = ""
txtB.text = ""
...etc.
7.- El botón Salir termina el programa (puedes usar el comando End).
Private Sub cmdSalir_Click()
End
End Sub
8.- Si el valor de A es cero, ocurrirá un error. Cuando el usuario presione el botón de Calcular, debes revisar si A es diferente de cero, antes de realizar los calculos. Si A tiene el valor de cero, no se deben realizar los cálculos y se deben borrar automáticamente todos los datos de las cajas de texto.
9.- Cuando termines el programa pruébalo con las siguientes ecuaciones.
a) x2+2x-3=0 x1= x2=
b) 4x2+12x+6=0 x1= x2=
c) 2x2+x=0 x1= x2=
Se obtendrán dos raices (x1 y x2) determinadas por:
x1=(-B + sqr (B ^ 2 - 4 * A * C)) / (2 * A)
x2=(-B - sqr (B ^ 2 - 4 * A * C)) / (2 * A)
En estas ecuaciones, sqr es la funcion de Visual Basic para obtener la raíz cuadrada.
1.- Crea la interfaz del programa según se muestra. Cambia los nombres de los controles como sigue: txtA, txtB, txtC, txtX1, txtX2, cmdCalcular, cmdLimpiar, cmdSalir.
2.- En la venta de código declara las variables A,B,C,X1 y X2 dentro del evento click del botón de calcular. Como estas variables pueden contener números decimales, usa el tipo de Single.
Private Sub cmdCalcular_Click()
Dim A,B,C,X1,X2 as Single
3.- Asigna a las variables A, B y C los valores de las cajas de texto correspondientes.
A = Val (txtA.Text)
B = Val (txtB.Text)
A = Val (txtB.Text)
la funcion Val obtiene el valor númerico de una cadena de caracteres
4.-El botón Calcular realizará los cálculos necesarios con las variables para obtener los resultados X1 y X2.
x1=(-B + sqr (B ^ 2 - 4 * A * C)) / (2 * A)
x1=(-B - sqr (B ^ 2 - 4 * A * C)) / (2 * A)
5.- Las cajas de texto para los resultados desplegarán los valores finales de X1 y X2
txtX1.text = X1
txtX2.text = X2
6.- El botón limpiar borra los contenidos de todas las cajas de texto
Private Sub cmdLimpiar_Click()
txtA.text = ""
txtB.text = ""
...etc.
7.- El botón Salir termina el programa (puedes usar el comando End).
Private Sub cmdSalir_Click()
End
End Sub
8.- Si el valor de A es cero, ocurrirá un error. Cuando el usuario presione el botón de Calcular, debes revisar si A es diferente de cero, antes de realizar los calculos. Si A tiene el valor de cero, no se deben realizar los cálculos y se deben borrar automáticamente todos los datos de las cajas de texto.
9.- Cuando termines el programa pruébalo con las siguientes ecuaciones.
a) x2+2x-3=0 x1= x2=
b) 4x2+12x+6=0 x1= x2=
c) 2x2+x=0 x1= x2=
Publicar un comentario