Calcular raiz cuadrada

[zered]

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] Expandir

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!!

[Hendrix]

Si no sabes la funcion para raiz cuadrada (Math.Sqr) puedes implementarte tu propia función:

Código (vb) [Seleccionar] Expandir

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] Expandir

Private Sub Command1_Click()
MsgBox Math.Sqr(8)
End Sub

Un Saludo 

[zered]

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] Expandir

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

[Hendrix]

No entiendo exactamente que quieres hacer....as puesto el codigo al reves....

Código (vb) [Seleccionar] Expandir

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

[Hans el Topo]

me da que esto va en el .net no?

[zered]

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...