Foro de elhacker.net

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  ;)

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

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

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:

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

Un Saludo  ;)

gracias!! me sirvio, mejoro el resultado pero sigue sin darme. Te muestro el codigo qqu hice, no te asustes si hay errores!

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

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

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

me da que esto va en el .net no?

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