Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: zered en 4 Noviembre 2007, 16:12 PM

Título: Calcular raiz cuadrada
Publicado por: zered en 4 Noviembre 2007, 16:12 PM
hola q tal, soy nuevo en esto de progrogramar y se me dio por hacer un programa q resuelva las funciones cuadraticas. Pero al llegar a la raiz no supe q acer y aunque busque no lo pude descifrar.Agradeceria q alguien me ayude  ;)

Código (vb) [Seleccionar]
Visual Basic (Declaration)
Public Shared Function Sqrt ( _
d As Double _
) As Double

Visual Basic (Usage)
Dim d As Double
Dim returnValue As Double

returnValue = Math.Sqrt(d)



este es el codigo q te da la ayuda de vb, pero no entiendo.
espero q me ayuden, gracias!!
Título: Re: Calcular raiz cuadrada
Publicado por: Hendrix en 4 Noviembre 2007, 17:31 PM
Si no sabes la funcion para raiz cuadrada (Math.Sqr) puedes implementarte tu propia función:

Código (vb) [Seleccionar]
Public Function Raiz(n As Integer) As Double
Dim a As Double
a = n ^ 0.5
Raiz = a
End Function

Private Sub Command1_Click()
Dim b As Double
b = Raiz(8)
MsgBox b
End Sub


Y con la función que trae el VB:

Código (vb) [Seleccionar]
Private Sub Command1_Click()
MsgBox Math.Sqr(8)
End Sub


Un Saludo  ;)

Título: Re: Calcular raiz cuadrada
Publicado por: zered en 4 Noviembre 2007, 18:07 PM
gracias!! me sirvio, mejoro el resultado pero sigue sin darme. Te muestro el codigo qqu hice, no te asustes si hay errores!

Código (vb) [Seleccionar]
Public Class Form1

    'Programa para sacar las raices en una funcion cuadratica
    'por ahora solo raiz positiva
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Double
        Dim d As Double
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        d = Math.Sqrt(x)
        x = ((b * b) - (4 * a * c))
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        TextBox4.Text = (((-1 * b) + d) / (2 * a))


    End Sub
End Class
Título: Re: Calcular raiz cuadrada
Publicado por: Hendrix en 4 Noviembre 2007, 18:19 PM
No entiendo exactamente que quieres hacer....as puesto el codigo al reves....

Código (vb) [Seleccionar]
Public Class Form1

    'Programa para sacar las raices en una funcion cuadratica
    'por ahora solo raiz positiva
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Double
        Dim d As Double
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        TextBox4.Text = (((-1 * b) + d) / (2 * a))
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        x = ((b * b) - (4 * a * c))
        d = Math.Sqrt(x)
    End Sub
End Class


Título: Re: Calcular raiz cuadrada
Publicado por: Hans el Topo en 4 Noviembre 2007, 18:37 PM
me da que esto va en el .net no?
Título: Re: Calcular raiz cuadrada
Publicado por: zered en 4 Noviembre 2007, 19:13 PM
Lo que quiero es q al apretar un boton (luego de haber ingresado los 3 valores en los tres textbox's ) me calcule la raiz positiva de la funcion cuadratica, considerando que el textbox1  es el numero en el cual la x esta elevada al cuadrado(A), el textbox2 es el numero el cual tiene x a la 1(B) y el textbox3 es el numero sin x(C).

(f(x) = a x2 + b x + c).
Supongo que conocen la funcion y la resoluciòn.

Espero q me entiendan...quedo re mezclado...