Taschenrechner, Ausgabe vom Ergebnis

Question

Hallo...

Ich habe mir vorgenommen einen sehr einfachen Taschenrechner zum lernen zu Programmieren. Habe nur sehr, sehr wenig Erfahrung mit programmieren.
Das ganze soll so aussehen: 2 Texboxen in die man die 1. und die 2. Zahl einträgt. Bei einem Klick auf z.B. Mal (Geteilt, Plus, Minus) soll das Ergebnis in einem Label (Label4) angezeigt werden.
1. Wie lese ich die Eingabe aus "Text1" und "Text2" (TextBox) aus und weise einer Variable diesen Wert zu?
2. Wie schreibe ich dass die Zahlen Addiert (substrahiert, dividiert, multipliziert) werden?
3. Wie gebe ich das Ergebnis (Über Label4) aus, mit dem was ich bis jetzt gefunden habe ging es nicht...?

MFG
FranzBauer

PS.: Wenn mir jemand sagen könnte was ich im wesentlichen alles brauche wäre ich dankbar...

Answer 1

Hallo FranzBauer,

ich habe Dir mal eben einen kleinen Mini Calculator geschrieben, weil ich kein
geeignetes Codebeispiel im Netz gefunden habe.

Multipilziert 2 Zahlen aus den Textboxen und zeigt das Ergebniss im Label an.
Achtung. Eine Überprüfung auf korrekte Eingabe findet nicht statt. (Mit TryParse arbeiten)

Den Rest kannst Du ja alleine machen (+ - / usw)

weiterhin viel Spaß und Erfolg mit VB NET und
schöne Grüße
Ellen

Public Class Form1
    Private x, y As Double

    Private Sub Button_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Clear.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label_Ergebnis.Text = ""
    End Sub

    Private Sub Button_calc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_calc.Click
        x = CType(TextBox1.Text, Double)
        y = CType(TextBox2.Text, Double)
        Label_Ergebnis.Text = (x * y).ToString
    End Sub
End Class

Answer 2

Hallo Franz Bauer,

Hier noch ein Beispiel des Taschenrechners mit einer einzigen TextBox.
Sicher kann man ihm verfeinern indem man prüft ob man ein Valider Numerischen Wert in die TextBox eingibt.

Public Class Form1

    Dim Zahl As Double
    Dim Zahl1 As Double
    Dim Zahl2 As Double
    Dim Verfahren As Double

    Private Sub Plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plus.Click
        Zahl1 = Zahl
        Verfahren = 1
    End Sub

    Private Sub Minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minus.Click
        Zahl1 = Zahl
        Verfahren = 2
    End Sub

    Private Sub Mal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mal.Click
        Zahl1 = Zahl
        Verfahren = 3
    End Sub

    Private Sub Dividieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dividieren.Click
        Zahl1 = Zahl
        Verfahren = 4
    End Sub

    Private Sub Ergebnis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ergebnis.Click
        Zahl2 = Zahl

        '//plus
        If (Verfahren = 1) Then
            Zahl = Zahl1 + Zahl2
        End If

        '//minus
        If (Verfahren = 2) Then
            Zahl = Zahl1 - Zahl2
        End If

        '//mal
        If (Verfahren = 3) Then
            Zahl = Zahl1 * Zahl2
        End If

        '//durch
        If (Verfahren = 4) Then
            Zahl = Zahl1 / Zahl2
        End If

        TextBox1.Text = Convert.ToString(Zahl)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Zahl = Convert.ToDouble(TextBox1.Text)

    End Sub
End Class

Grüße,

Robert

Answer 3

Danke Ellen, es hat funktioniert. *Happy*