TextBox =/= RichTextBox

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von magerquark.

    TextBox =/= RichTextBox

    Hallo,
    ich hab mich heute mal drangesetzt einen etwas erweiterten Taschenrechner
    zu Programmieren. Es gibt ja den Recht weit verbreiteten Code für einen Taschenrechner mit einer einfachen Textbox, der auch sehr leicht nachvollziehbar ist.

    VB.NET-Quellcode

    1. TextBox.Text = TextBox.Text + "Zahl"

    Wenn ich diesen aber nun auf meine RichTextBox übertragen will (diese wird benötigt um eine Art Verlauf zu ermöglichen), dann passiert im Praxistest überhaupt nichts.

    VB.NET-Quellcode

    1. RichTextBox.Text = RichTextBox.Text + "Zahl"

    Das es jedoch bei der Textbox sowie bei der RichTextBox die Eigenschaft .Text gibt leuchtet mir dieser Fehler nicht ganz ein. Könnt ihr mir nen kleinen Typ geben was ich falsch mache?
    Danke und lg, magerquark

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim a
    3. Dim b
    4. Dim c
    5. Dim d
    6. Dim Rechenart
    7. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    8. RichTextBox.Text = RichTextBox.Text + "8"
    9. End Sub
    11. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    12. RichTextBox.Text = RichTextBox.Text + "3"
    13. End Sub
    15. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    16. RichTextBox.Text = RichTextBox.Text + "9"
    17. End Sub
    19. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    20. RichTextBox.Text = RichTextBox.Text + "2"
    21. End Sub
    23. Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    24. RichTextBox.Text = RichTextBox.Text + "0"
    25. End Sub
    27. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    28. RichTextBox.Text = RichTextBox.Text + 1
    29. End Sub
    31. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    32. RichTextBox.Text = RichTextBox.Text + "4"
    33. End Sub
    35. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    36. RichTextBox.Text = RichTextBox.Text + "5"
    37. End Sub
    39. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    40. RichTextBox.Text = RichTextBox.Text + "6"
    41. End Sub
    43. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    44. RichTextBox.Text = RichTextBox.Text + "7"
    45. End Sub
    47. Private Sub ButtonCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    48. RichTextBox.Text = ""
    49. End Sub
    51. Private Sub Buttonoff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonoff.Click
    52. End
    53. End Sub
    54. Private Sub ButtonKomma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    55. RichTextBox.Text = RichTextBox.Text + "."
    56. End Sub
    58. Private Sub ButtonWurzel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    59. RichTextBox.Text = Math.Sqrt(CDbl(RichTextBox.Text))
    60. End Sub
    62. Private Sub Buttonplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    63. Rechenart = "Plus"
    64. a = RichTextBox.Text
    65. RichTextBox.Text = ""
    66. End Sub
    68. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    69. Select Case True
    70. Case Rechenart = "Plus"
    71. RichTextBox.Text = CDbl(a) + CDbl(RichTextBox.Text)
    72. Case Rechenart = "Minus"
    73. RichTextBox.Text = CDbl(b) - CDbl(RichTextBox.Text)
    74. Case Rechenart = "Geteilt"
    75. RichTextBox.Text = CDbl(c) / CDbl(RichTextBox.Text)
    76. Case Rechenart = "Mal"
    77. RichTextBox.Text = CDbl(d) * CDbl(RichTextBox.Text)
    78. End Select
    79. End Sub
    81. Private Sub Buttonminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    82. Rechenart = "Minus"
    83. b = RichTextBox.Text
    84. RichTextBox.Text = ""
    85. End Sub
    87. Private Sub Buttongeteilt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    88. Rechenart = "Geteilt"
    89. c = RichTextBox.Text
    90. RichTextBox.Text = ""
    91. End Sub
    93. Private Sub Buttonmal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    94. Rechenart = "Mal"
    95. d = RichTextBox.Text
    96. RichTextBox.Text = ""
    97. End Sub
    98. End Class

    zum Verständnis: Button10 ist der Gleichbutton!
    Der Fehler ist, dass einfach gar nichts passiert.

    PS: Der BBCode für Spoiler ist doch
    Spoiler anzeigen
    , funktioniert aber nicht.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „magerquark“ ()

    Wir haben ja jetzt diese schöne Diskussion über unschönen Stil. Das würde sehr gut passen:

    VB.NET-Quellcode

    1. Dim a
    2. Dim b
    3. Dim c
    4. Dim d
    5. Dim Rechenart

    So werden alle Variablen als Variant deklariert. Stichwort schlechter Stil.

    Bei dir sollen a, b, c, d Double sein und Rechenart ein String.

    VB.NET-Quellcode

    1. Dim a As Double
    2. Dim b As Double
    3. Dim c As Double
    4. Dim d As Double
    5. Dim Rechenart As String

    Allerdings musst du jetzt auf folgendes achten:

    VB.NET-Quellcode

    1. a = RichTextBox.Text


    Fehlermeldung müsste jetzt, wenn ich mich nicht irre "Ungültige Konvertierung des Typens String in Double" sein.
    Macht auch Sinn, da RichTextBox.Text ein String ist. Also konvertieren, wie du es weiter unten schon hast.

    VB.NET-Quellcode

    1. a = CDbl(RichTextBox.Text)

    Allerdings ist es sehr unsicher, da auch Zeichen in eine Textbox eingegeben werden können.

    Ich hoffe das hilft dir in dieser Beziehung :)

    PS: Für dein eigentliches Problem müsste .Append() oder & seinen Dienst tun.

Facebook
Telefonspende