Addition, Multiplikation, Division und Subtraktion via VB ?

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von der_Kurt.

    Addition, Multiplikation, Division und Subtraktion via VB ?

    Halli hallöle
    Ich bin ganz neu auf dem Thema Visual Basic und hab erst mal die 2008er Express Edition runtergeladen.

    Ich wollte anfang ein kleines Projekt Programmieren das eigentlich relativ einfach aufgebaut ist

    3 Eingabefelder, 1 Option feld 3 Buttons
    Eingabefeld1: Eingabe1
    Optionfeld: Text "Bitte auswählen", Option1: Addition (+), Option2: Subtraktion (-), Option3: Multiplikation (*) und Option4: Division (/)
    Eingabefeld2: Eingabe2
    Eingabelfed3: Ergebnis

    Buttons:
    Berechnen Zurücksetzen Schließen

    Den schließen button hab ich noch geschafft :D dass der richtig läuft
    Nun aber zu meinen eigentlichen problemen

    Kann man via IF (wenn) abfrage für die option am ende beim berechnen ausgeben welche operation durchgeführt wird ?
    Also wenn nun + ausgewählt ist dann wird beim berechnen auch + ausgeführt usw.
    außerdem wie mache ich überhaupt eine berechnung per button klick ?
    Also welcher befehl ist dafür notwendig ?
    Hat jemand gute online tuturials für neueinsteiger perrat wo eventuell mein problem auch steht ?

    *Topic verschoben, VB 2008 ist kein VB Script!*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Also bei mir heist nun dieses Dropdown feld ComboBox
    Ich kann auch gern mal den Code von meinem Bisherigen Formular schicken:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    5. End Sub
    7. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    9. End Sub
    11. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    13. End Sub
    15. Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
    17. End Sub
    19. Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
    21. End Sub
    23. Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
    25. End Sub
    27. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    29. End Sub
    31. Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
    33. End Sub
    35. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    36. Close()
    37. End Sub
    39. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    41. End Sub
    42. End Class

    Ich bin noch totaler anfänger in VB und weiß daher nicht was ich machen muss dass wenn zB "Addition" in CombiBox ausgewählt ist am ende auch eingabe 1 und eingabe 2 zusammen gerechnet wird...
    Und um genau zu sein weiß ich nicht mal den Code für berechnungen....

    Daher auch meine Frage nach Tutorials...

    Also die Rechenoperationen:

    VB.NET-Quellcode

    1. Dim a, b, c As Integer
    2. c = a + b
    3. c = a - b
    4. c = a * b
    5. c = a / b

    So einfach.
    Feststellen, was ausgewählt wurde:

    VB.NET-Quellcode

    1. Dim auswahl As String = cmbRechenart.Text
    2. Select Case auswahl
    3. Case "Addition (+)" 'usw...
    4. End Select

    Ausgeben:

    VB.NET-Quellcode

    1. txtErgebnis.Text = CStr(c) 'Wobei c das Ergebnis als Integer (s.o.) ist

    So ich hab nun mal wieder ein bisschen daran gewerkelt... Nun kommt nur noch aus dem ersten Eingabefeld das ganze im Ergebnisfeld an...
    Achja ich hab gleich ne ganz neue Version aufgesetzt also von vorne angefangen...

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    8. Close()
    9. End Sub
    11. Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
    13. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. Dim a, b, c As Double
    18. a = CDbl(TextBox1.Text)
    19. b = CDbl(TextBox2.Text)
    21. c = a + b
    22. c = a - b
    23. c = a * b
    24. c = a / b
    26. Dim auswahl As String = "ComboBox1.Text"
    27. Select Case auswahl
    28. Case "+"
    29. Case "-"
    30. Case "*"
    31. Case "/"
    32. End Select
    35. TextBox3.Text = CStr(c)
    36. End Sub
    37. End Class


    In der hoffnung dass jemand den Fehler findet und ihn mir zeigen kann...

    Hi!
    In den Zeilen 21 bis 24 hast du die Berechnung aus deinen Textboxen. Ich glaube, es war nicht Sinn der Sache, dies einfach von oben abzuschreiben.
    Ab der Zeile 27 befindet sich die Select-Case-Verzweigung. Diese führt je nach Fall ("Case") einen bestimmten Zweig aus.
    Die Zeilen 21 bis 24 gehören hier (sinnvoll) untergebracht...

Facebook
Telefonspende