Programación General > Visual Basic para principiantes
Como asiganar un edit a una variable
jairj02:
Hola amigos soy nuevo y tengo este algoritmo de biseccion y quiero colocar dos edit para a y b...pero no se como me ayudan porq alli estan como constantes..... y le e jalado y nada me salen muchos errores gracias por todo..asi sea por leerlo...cualquier respuesta jairj02@yahoo.es porfavor
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
m0skit0:
Etiquetas de código, que no hay quién lea eso...
Las respuestas se publican aquí y no se mandan a tu correo.
Explica un poco qué pretendes hacer más en detalle
También si pusieras los errores que te salen, sería más fácil y menos costoso para todos.
Salud
jairj02:
Amigo... quiero hacer un programa q del metodo de biseccion......... tengo mi interzas d ela siguinete maneras....un textbox de resultado, un textbox para el intervalo a...y otro paa el intervalo b....un botom de ejecutar.....y limpiar.....
logre hacer elcodigo ...pero si te fijas aqui en esta parte del codigo...el intervalo a y b estan como constantes....yo no quiero eso...porq coloque los dos textbox...es para q escriban los intervalos....no q sean fijos como yo los tengo..ese es mi principal problema...como hacer q tu ingreses a= 0.5 y b= 0.9 pero en los textbox...y q te arroje un resultado con dicha ecuacion costantes...en el textbox..de resultado ...luego limpio...y meto otros intervalos por ejemplo, a= 4.23 y b= 6.4 y me de otro resultado....................
asi como lo tengo el funciona...pero si creo mi .exe asi cuando abra mi programa solo servira para ese punto y ningun otro....ya q los textbox no funcionarian.... eso e slo unico q quiero.... creo q fui demasiado...explicito gracias espero me puedas ayudar..y no asi no tiene ningun error al ejecutar...el unico error q tengo es q si lo voy a presentar tendria q llevarme el visual basic...pa acada rato cambiar manualmente en el codigo los intervalos a y b...y de eso no se trata...se trata de cambiarlos...pero en sus textbox...cuando ya este en .exe...el programita...gracias amigo te agradesco por responder...anteriormente...y disculpa lo del correo...me gustaria q hablarmos por el msn si tiene y asi podria explicarte cualquier duda mas facilmente.
Private Sub Form_Load()
a = 0.5
b = 0.785398163
TOL = 0.000001
N = 20
End Sub
m0skit0:
Mucho más claro, ahora sí que te puedo solucionar el problema ^_^
Supongamos que el textbox para a lo llamamos TextA y el otro para b TextB. También vamos a necesitar un botón (cmdConfirmar) para que al pulsarlo se carguen los valores de TextA y TextB en las variables a y b.
--- Código: Visual Basic ---Public a as DoublePublic b as Double Private Sub cmdConfirmar_Click() a = CDbl(TextA.Text) b = CDbl(TextB.Text)End Sub Y listo. Ten en cuenta que también deberías implementar un control para asegurarte que los valores introducidos en TextA y TextB son válidos para un tipo Double. De esta forma puedes mantener los valores por defecto que ya asignas, pero que se pueden modificar cuando se pulse el botón cmdConfirmar. Incluso podrías poner un botón que devuelva a y b a sus valores por defecto.
Salud y suerte
jairj02:
hola amigo gracias por responder...voy a poner lo q me dijiste y haber q tengo q borrar del codigo q hize..para q funcione lo q me diste...cualquier error te lo voy informando enseguida listo...gracias ^_^
Navegación
[#] Página Siguiente
Ir a la versión completa