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:
Wo ist der Denkfehler?
Danke!
Das hier der Hauptcode:
VB.NET-Quellcode
- Public Class Form1
- Private Sub cmdRechnen_Click(sender As Object, e As EventArgs) Handles cmdRechnen.Click
- Dim a, b, c As Double
- Dim Ergebnis As String
- a = Convert.ToDouble(txtA.Text)
- b = Convert.ToDouble(txtB.Text)
- c = Convert.ToDouble(txtC.Text)
- Ergebnis = Lösungsformel(a, b, c)
- lblErgebnis.Text = Ergebnis
- End Sub
- End Class
Um den Programmcode übersichtlicher zu halten, habe ich mir ein Modul erstellt:
VB.NET-Quellcode
- Module rechner
- PublicFunction Lösungsformel(a AsDouble, b AsDouble, c AsDouble) AsString
- Dim Ergebnis1, Ergebnis2 AsDouble
- Dim Ergebnis3 As String
- Ergebnis1 = (-b + Math.Sqrt(b ^ 2 - 4 * a * c)) / 2 * a
- Ergebnis2 = (-b - Math.Sqrt(b ^ 2 - 4 * a * c)) / 2 * a
- Ergebnis3 = "x1 = " & Ergebnis1.ToString() & " x2 = " & Ergebnis2.ToString()
- Return Ergebnis3EndFunction
- EndModule
Wo ist der Denkfehler?
Danke!