Indetectables

Indetectables es una Comunidad de Hacking, Seguridad Informática, Impresión 3d y Desarrollo
./index.php

Resolver Ecuacion 2Do Grado (Gambas)

https://www.indetectables.net/viewtopic.php?t=27230

Página 1 de 2

Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 26 Sep 2010, 20:31
por Kodeinfect
Un código que resuelve Ecuaciones de 2do grado e incluso les dibuja la parábola obtenida en el eje cartesiano, lo e estado usando para cuando tengo pereza mental

Imagen

Código: Seleccionar todo

' Gambas class file
PUBLIC SUB Form_Open()
reiniciar
var.zoom = 0
END



PUBLIC SUB ToolButton1_Click()
DIM discriminante AS Single

IF ValueBoxB.value = NULL THEN 
Message.Error("Debe de dar valores a B")
GOTO fincalcular
ENDIF 

IF ValueBoxA.Value = 0 THEN 
Message.Error("Debe de dar valores a A")
GOTO fincalcular
END IF


discriminante = ValueBoxB.Value * ValueBoxB.Value - 4 * ValueBoxA.Value * ValueBoxC.value

IF discriminante < 0 THEN 
  Labelsolucion.text = "Soluciones de X (con numeros complejos):"
  Labelsolucion.visible = TRUE
  i1.Visible = TRUE
  i2.Visible = TRUE
 labely.Visible = TRUE
  ValueBox1.visible = TRUE
  ValueBox2.Visible = TRUE
  ValueBox3.Visible = TRUE
  ValueBox4.visible = TRUE
  mas1.Visible = TRUE
  mas2.Visible = TRUE
  ValueBox1.value = - ValueBoxB.value / (2 * ValueBoxA.value)
  ValueBox2.value = ValueBox1.Value
  ValueBox3.value = Sqr(- discriminante) / (2 * ValueBoxA.Value)
  ValueBox4.value = - ValueBox3.Value
  dibujarecuacion
  ToolButton1.visible = FALSE
  GOTO fincalcular
  ELSE 
  
  
  IF discriminante = 0 THEN 
       Labelsolucion.visible = TRUE
       ValueBox1.visible = TRUE
       ValueBox1.value = - ValueBoxB.Value / (2 * ValueBoxA.value)
          ValueBox2.Visible = FALSE
     labely.visible = FALSE
       dibujarecuacion
       ToolButton1.visible = FALSE
       GOTO fincalcular
  ELSE 
     Labelsolucion.visible = TRUE
     ValueBox1.visible = TRUE
     ValueBox2.Visible = TRUE
     labely.visible = TRUE
     ValueBox1.Value = (- ValueBoxB.Value + Sqr(discriminante)) / (2 * ValueBoxA.Value)
     ValueBox2.Value = (- ValueBoxB.Value - Sqr(discriminante)) / (2 * ValueBoxA.Value)
dibujarecuacion
ToolButton1.visible = FALSE
  GOTO fincalcular
  ENDIF 
  ENDIF 

fincalcular:
'final del calculo
END

SUB reiniciar()
  
    Labelsolucion.visible = FALSE
  i1.Visible = FALSE
  i2.Visible = FALSE
 labely.Visible = FALSE
  ValueBox1.visible = FALSE
  ValueBox2.Visible = FALSE
  ValueBox3.Visible = FALSE
  ValueBox4.visible = FALSE
  mas1.Visible = FALSE
  mas2.Visible = FALSE
  ValueBoxA.value = 0
  ValueBoxB.value = 0
  ValueBoxC.value = 0
  
END




PUBLIC SUB Button2_Click()

  QUIT

END

PUBLIC SUB Button1_Click()
ToolButton1.visible = TRUE
  reiniciar()

END


SUB dibujarecuacion()

dibuja.dibuja_parabola(0)

  
END






PUBLIC SUB zoommas_Click()

var.zoom = var.zoom + 0.1
  dibuja.dibuja_parabola(var.zoom)

END

PUBLIC SUB zoommenos_Click()

  var.zoom = var.zoom - 0.1
  
  dibuja.dibuja_parabola(var.zoom)
 
END

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 27 Sep 2010, 10:51
por R-007
deberías averiguar por qué razón muestra en las soluciones de X "-,2" en vez de "-0,2" (que sería lo más lógico)
por cierto también te corrijo una cosa para que te sea de utilidad más adelante..
cuando tengas muchos controles a los que les vas a asignar el mismo valor (todos TRUE, todos FALSE) , trata de agruparlos en algún GroupBox para así con solo asignarle un valor de TRUE o FALSE al GroupBox ya se lo asignas a todos y así te quedará un code más limpio sin duda (y con la misma utilidad)

un saludo!

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 27 Sep 2010, 13:13
por Kodeinfect
Gracias por la sugerencia R..
Si, me doy cuenta que agrupándolo se vería mucho mas ordenado y se ahora espacio con las variables "True/False"

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 27 Sep 2010, 17:22
por KainRazor
Jajaja no tenés un code por ahí que resuelva logaritmos combinados con ecuaciones de segundo grado? Odio las matemáticas xD

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 28 Sep 2010, 14:08
por Gigabyte
R-007 escribió:... en las soluciones de X "-,2" en vez de "-0,2"...
R-007, acuerdate que -0 no existe.

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 28 Sep 2010, 14:32
por CronuX
pero -0,2 si, o eso me han hecho creer toda la vida

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 28 Sep 2010, 19:38
por osnaraus
Cydonia escribió:
R-007 escribió:... en las soluciones de X "-,2" en vez de "-0,2"...
R-007, acuerdate que -0 no existe.
Usa la calculadora de Windows o la calculadora de bolsillo o el celular... y pon 1-1.2
Fijate el resultado y despues me contas

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 28 Sep 2010, 20:02
por ps1c0s1s
acuerdate que -0 no existe.
Eso es notación, -0 no tiene sentido, o que es lo mismo que 0, da igual. Pero -0,5 es un número perfectamente válido.

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 29 Sep 2010, 02:56
por Gigabyte
ps1c0s1s escribió:
acuerdate que -0 no existe.
Eso es notación, -0 no tiene sentido, o que es lo mismo que 0, da igual. Pero -0,5 es un número perfectamente válido.
no existe menos cero, a mi me ponen mal un examen si esta ese numero escrito. según yo no existe.

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 29 Sep 2010, 16:56
por ps1c0s1s
no existe menos cero, a mi me ponen mal un examen si esta ese numero escrito. según yo no existe.
lee mi respuesta de arriba parece que no la leiste...Eso es notación, -0 no tiene sentido, o que es lo mismo que 0, da igual. Pero -0,5 es un número perfectamente válido.

La respuesta no es "segun vos" es segun los grandes matematicos el profesor q te corriga que entre al foro y que hable conmigo , asi tenemos una larga charla tendida de mi parte decile .

Saludos

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 29 Sep 2010, 18:55
por Word
ps1c0s1s escribió:
no existe menos cero, a mi me ponen mal un examen si esta ese numero escrito. según yo no existe.
lee mi respuesta de arriba parece que no la leiste...Eso es notación, -0 no tiene sentido, o que es lo mismo que 0, da igual. Pero -0,5 es un número perfectamente válido.

La respuesta no es "segun vos" es segun los grandes matematicos el profesor q te corriga que entre al foro y que hable conmigo , asi tenemos una larga charla tendida de mi parte decile .

Saludos
Supongo que esto esta claro y habrá sido una pequeña confusión, el único numero que no tiene "signo" es el 0 , puede haber claramente 0,5 como -0,5 , si aun así no lo veis coger dos reglas y poner los 0 juntos, una los positivos y la otra los negativos ...

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 30 Sep 2010, 03:04
por Gigabyte
ps1c0s1s escribió:
no existe menos cero, a mi me ponen mal un examen si esta ese numero escrito. según yo no existe.
lee mi respuesta de arriba parece que no la leiste...Eso es notación, -0 no tiene sentido, o que es lo mismo que 0, da igual. Pero -0,5 es un número perfectamente válido.

La respuesta no es "segun vos" es segun los grandes matematicos el profesor q te corriga que entre al foro y que hable conmigo , asi tenemos una larga charla tendida de mi parte decile .

Saludos
ps1c0... menos cero no existe es el unico numero que no puede tener signohace la preuba en una calculadora que no sea la de windows si quieres cientifica y veraz.

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 30 Sep 2010, 14:04
por Word
Cydonia escribió:
ps1c0s1s escribió:
no existe menos cero, a mi me ponen mal un examen si esta ese numero escrito. según yo no existe.
lee mi respuesta de arriba parece que no la leiste...Eso es notación, -0 no tiene sentido, o que es lo mismo que 0, da igual. Pero -0,5 es un número perfectamente válido.

La respuesta no es "segun vos" es segun los grandes matematicos el profesor q te corriga que entre al foro y que hable conmigo , asi tenemos una larga charla tendida de mi parte decile .

Saludos
ps1c0... menos cero no existe es el unico numero que no puede tener signohace la preuba en una calculadora que no sea la de windows si quieres cientifica y veraz.
Lee bien el post de ps1c0

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 01 Oct 2010, 02:02
por WindHack
¿No queda claro aún?...Pues más simple no lo puedo definir:

Imagen


¿Dudas?

Código: Seleccionar todo

irb(main):004:0> puts "0.5 - 1 = #{0.5-1}"
0.5 - 1 = -0.5

Re: Resolver Ecuacion 2Do Grado (Gambas)

Publicado: 01 Oct 2010, 03:26
por Gigabyte
WindHack escribió:¿No queda claro aún?...Pues más simple no lo puedo definir:

Imagen


¿Dudas?

Código: Seleccionar todo

irb(main):004:0> puts "0.5 - 1 = #{0.5-1}"
0.5 - 1 = -0.5
exacto !
Todos los horarios son UTC+02:00
Página 1 de 2

© Indetectables Team

Desarrollado por Indetectables LAB