Formel berechnen

Question

Hallo,

ich bin Neuling in sachen Programmierung und versuche gerade ein kleines Programm zu schreiben um eine Formel zu berechen.

In TextBox4 soll folgende Formel berechnet werden:

TextBox4 = TextBox3 x TextBox1 / 100) – (TextBox3 x TextBox2 / 100)

Ich hoffe jemand kann mir dabei helfen. :)

Answer 1

Hallo, jede TextBox hat eine Text-Eigenschaft. Diese ist vom Typ String. Diesen musst du nun in eine Zahl, am besten Double, konvertieren um Damit rechnen zu können. Diese Werte kannst du dann "zusammen rechnen" und in einen String wandeln und schließlich ausgeben. Der Code dazu:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'TextBox4 = TextBox3 x TextBox1 / 100) – (TextBox3 x TextBox2 / 100)
        Dim d1 As Double = Double.Parse(TextBox1.Text)
        Dim d2 As Double = Double.Parse(TextBox2.Text)
        Dim d3 As Double = Double.Parse(TextBox3.Text)
        TextBox4.Text = ((d3 * d1 / 100) - (d3 * d2 / 100)).ToString()
    End Sub

Dabei wird allerdings nicht gegen Falsche eingaben abgefragt. Dazu müsste der Code so aussehen:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'TextBox4 = TextBox3 x TextBox1 / 100) – (TextBox3 x TextBox2 / 100)
        Dim d1 As Double = 0
        Dim d3 As Double = 0
        Dim d2 As Double = 0

        'Prüfen ob alles Zahlen sind
        If Not Double.TryParse(TextBox1.Text, d1) Or Not Double.TryParse(TextBox2.Text, d2) Or Not Double.TryParse(TextBox3.Text, d3) Then
            MessageBox.Show("Ungültige Zahlenwerte")
        Else
            TextBox4.Text = ((d3 * d1 / 100) - (d3 * d2 / 100)).ToString()
        End If
    End Sub

---

<Code:13/> - Koopakiller [kuːpakɪllɐ]
Webseite | Code Beispiele | Facebook | Snippets
Wenn die Frage beantwortet ist, dann markiert die hilfreichsten Beiträge als Antwort und bewertet die Beiträge. Danke.
Einen Konverter zwischen C# und VB.NET Code gibt es hier.

Answer 2

Vielen dank für die Antwort hat genau so funktioniert wie es sollte.