Ayuda con metodo biseccion ya hize el codigo?

[kosios]

Hola amigos hize el codigo para el metodo de biseccion....ahora q tengo tengo un textbox para el resultado, la ecuaicon es fija...tengo dos textbox uno para el intervalo y otro para el b...y tengo mi boton ejecutar y limpiar....q quiero..el siguiente codigo muestra q los intervalos a y b son como constantes...q quiero...y nohe podido lograr hacer q el bajor de los intervalos a y b no sean fijos...sino q los puedas digitar en sus respectivos textbox....... ya q si los dejo asi como si fuesen fijos cuando haga el mi archivo .EXE solo servira para esos puntos...me ghustaria q me ayudaran lo mas pronto posible les paso el codigo.... gracias por leerlo...cualquier ayuda les agradesco...

Option Explicit
Dim a, b As Double
Dim TOL As Double
Dim res As Double
Dim N As Integer

Function f(ByVal x As Double) As Double
f = Cos(x) - x
End Function

Sub Biseccion(ByVal a As Double, ByVal b As Double, ByVal TOL As Double, _
ByVal N As Integer, ByRef res As Double)
Dim p, fa, fp As Double
Dim i As Integer
Dim Flag As Boolean

i = 1
fa = f(a)
Flag = False
Do While (i <= N) And Not (Flag)
p = a + (b - a) / 2
fp = f(p)
If fp = 0 Or (b - a) / 2 < TOL Then
res = p
Flag = True
End If
i = i + 1
If fa * fp > 0 Then
a = p
fa = fp
Else
b = p
End If
Loop
If Not Flag Then
MsgBox "El método fracaso por exceder el numero de iteraciones", vbExclamation, "Bisección"
End If
End Sub

Private Sub cmdEjecutar_Click()
Call Biseccion(a, b, TOL, N, res)
txtr.Text = res
End Sub

Private Sub Form_Load()
a = 0.5
b = 0.785398163
TOL = 0.000001
N = 20
End Sub

Private Sub cmdSalir_Click()
Unload Me
End Sub

[kosios]

Iniciado por kosios

Hola amigos hize el codigo para el metodo de biseccion....ahora q tengo tengo un textbox para el resultado, la ecuaicon es fija...tengo dos textbox uno para el intervalo y otro para el b...y tengo mi boton ejecutar y limpiar....q quiero..el siguiente codigo muestra q los intervalos a y b son como constantes...q quiero...y nohe podido lograr hacer q el bajor de los intervalos a y b no sean fijos...sino q los puedas digitar en sus respectivos textbox....... ya q si los dejo asi como si fuesen fijos cuando haga el mi archivo .EXE solo servira para esos puntos...me ghustaria q me ayudaran lo mas pronto posible les paso el codigo.... gracias por leerlo...cualquier ayuda les agradesco...

Option Explicit
Dim a, b As Double
Dim TOL As Double
Dim res As Double
Dim N As Integer

Function f(ByVal x As Double) As Double
f = Cos(x) - x
End Function

Sub Biseccion(ByVal a As Double, ByVal b As Double, ByVal TOL As Double, _
ByVal N As Integer, ByRef res As Double)
Dim p, fa, fp As Double
Dim i As Integer
Dim Flag As Boolean

i = 1
fa = f(a)
Flag = False
Do While (i <= N) And Not (Flag)
p = a + (b - a) / 2
fp = f(p)
If fp = 0 Or (b - a) / 2 < TOL Then
res = p
Flag = True
End If
i = i + 1
If fa * fp > 0 Then
a = p
fa = fp
Else
b = p
End If
Loop
If Not Flag Then
MsgBox "El método fracaso por exceder el numero de iteraciones", vbExclamation, "Bisección"
End If
End Sub

Private Sub cmdEjecutar_Click()
Call Biseccion(a, b, TOL, N, res)
txtr.Text = res
End Sub

Private Sub Form_Load()
a = 0.5
b = 0.785398163
TOL = 0.000001
N = 20
End Sub

Private Sub cmdSalir_Click()
Unload Me
End Sub

hola podrian ayudarme ...urgente

[Avellaneda]

No veo cual es el problema.

Supongamos que le dices al usuario que introduzca el valor de 'a' en el Text1 y el de 'b' en el Text2, en el botón ejecutar, antes de llamar al procedimiento 'Biseccion', pones este código:

a = Text1.Text
b = Text2.Text

[kosios]

gracias voy a probarlo...y te digo como me fue...soy principiante en vvisual apenas llevo una semana

[kosios]

Private Sub cmdEjecutar_Click()
a = Text1.Text
b = Text2.Text
Call Biseccion(a, b, TOL, N, res)
txtr.Text = res
End Sub

mira lo coloque asi y listo...pero cuando coloco un valor en el intervalo text1...por ejemplo 0.5 y en el text2 osea intervalo 0.9.....me sale un valor q no corresponde osea 6.56657567657. y asi....cuando coloco....en el text1 osea intervalo a= 0 y b= 0.5 o b=0.9 ...cualquier decimal en b....sirve me da el q es....y halla la raiz... pero si cambio el valor de a diferente de 0 enseguida se daña-....mira el codigo q hize en biseccion q sera lo q pasa

[David]

Usa Val() para convertir las variables en numéricas:

Código vb:

a = Val(Text1.Text)
b = Val(Text2.Text)