Ich habe ein Formular, auf dem sich 3 Textboxen befinden. Dazu befindet sich ein ein Button mit der Aufschrift rechnen. Ich hatte vor meinen alten Taschenrechner zu erweitern, indem ich paar Funktionen hinzufüge, wie zum Beispiel das ausrechnen von quadratischen Gleichungen mit Hilfe der Lösungsformel. Ich habe 3 Double variablen dimensioniert (a,b und c).

Das hier der Hauptcode:




Um den Programmcode übersichtlicher zu halten, habe ich mir ein Modul erstellt:

VB.NET-Quellcode

1. Module rechner
3. PublicFunction Lösungsformel(a AsDouble, b AsDouble, c AsDouble) AsString
5. Dim Ergebnis1, Ergebnis2 AsDouble
6. Dim Ergebnis3 As String
7. Ergebnis1 = (-b + Math.Sqrt(b ^ 2 - 4 * a * c)) / 2 * a
8. Ergebnis2 = (-b - Math.Sqrt(b ^ 2 - 4 * a * c)) / 2 * a
9. Ergebnis3 = "x1 = " & Ergebnis1.ToString() & " x2 = " & Ergebnis2.ToString()
10. Return Ergebnis3EndFunction
11. EndModule

Wo ist der Denkfehler?



Danke!

Machiavelli schrieb:

Wo ist der Denkfehler?

Wo ist die Fehlermeldung?

Wo ist die Fehlermeldung?

Es gibt keine. Wenn ich auf den Rechnen Button klicke und es auf den Label ausgebe, kommen einfach falsche Werte raus.

Was gibst du ein und was kommt raus?
Probier mal, um2 * a auch noch Klammern zu machen.

Habe das jetzt in Klammern gesetzt.



Nehmen wir an a = 2 c = -3 b = 1 sollten folgende Ergebnisse rauskommen:

x1 = 1 ; x2 = -1,5



im Programm kommen aber diese Werte raus:

x1 = 1 ; x2 = 0,5



Warum?

So wie ich das sehe, willst du die P-Q-Formel implementieren? Dann schau dir mal dieses Bild an:

Diese gilt nur, wenn a = 1 ist!

Eine quadratische Gleichung besitzt normalerweise immer diese Form:




Und da gilt diese:

@tmmi31061
Wohl eher die ABC-Formel, auch wenn ich das nicht glaub.

@Machiavelli::
Und wie ists wenn du das machst?

Dann kommt das gleiche wie zuvor raus. (Falsche Werte!) & Was sollte am meinem Falsch sein? Ist doch das selbe?!

Du kannst auch das machen:
x^2+px+q

Wenn du jetzt einen Vorfaktor hast dann teilst du die übrigen Faktoren durch a und rechnest einfach die PQ Formel aus.
BSP.:

Machiavelli schrieb:

Dann kommt das gleiche wie zuvor raus.

Nimm ganz simple Testwerte: von Deinen a,b,c setze einen auf 1, die anderen auf 0 und löse das Lystem von Hand, dann vergleich Deine esultate mit denen vom Papier. So findest Du den Fehler ganz schnell. Verfolge im Debug die Werte der einzelnen Zwischenresultate.

Es scheint, als ob es mit negativen Zahlen nicht zurecht kommt. Warum?`

Nehmen wir an b sei negativ und ist eine reele Zahl.

Ergebnis1 = (-b + Math.Sqrt((b ^ 2) - (4 * a * c))) / (2 * a)
-(-b) = +b Dekt VB auch so?

@Machiavelli:

RodFromGermany schrieb:

Nimm ganz simple Testwerte

Zerlege Deine lange Zeile in mehrere kurze Teile, deren Ergebnisse Du nachrechnen kannst.
Gib Zwischenergebnisse aus.

Ich habe deinen Code (nur mit 2*a in Klammern, sonst ging es nicht) getestet, ich bekomme richtige Ergebnisse. Allerdings kann dein Code so nicht bei dir stehen, ich musste erst mal zig Leerzeichen einfügen. Du musst also irgendwo einen Tippfehler haben.

Habs mittlerweile selber geschafft! Danke.