Hallo zusammen,

ich habe heute mich mal an Visual Basic gewagt. Und nun stehe ich vor einem Problem.
Ich habe einen Taschenrechner programmieren wollen laut der Anleitung:

http://www.tutorials.de/forum/visual...enrechner.html

Jedoch kommt bei mir dieser Fehler:

Code :

1	Fehler  1   Der +-Operator ist für die Typen "System.Windows.Forms.TextBox" und "String" nicht definiert.   C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Taschenrechner\Form1.vb    11  17  Taschenrechner

Wie gesagt ich war ja schon lange hier registriert, ein Wunder das ich meine Zugangsdaten noch weiß :-D

Hier ist mal der ganze Code:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119

Public Class Form1     Dim zahl1 As String     Dim rechenart As String           Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click         Text1 = Text1 + "0"         'Display = Display + 0     End Sub       Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click         Text1 = Text1 + "1"         'Display = Display + 1     End Sub       Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click         Text1 = Text1 + "2"         'Display = Display + 2     End Sub       Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click         Text1 = Text1 + "3"         'Display = Display + 3     End Sub       Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click         Text1 = Text1 + "4"         'Display = Display + 4     End Sub       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click         Text1 = Text1 + "5"         'Display = Display + 5     End Sub       Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click         Text1 = Text1 + "6"         'Display = Display + 6     End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Text1 = Text1 + "7"         'Display = Display + 7     End Sub       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Text1 = Text1 + "8"         'Display = Display + 8     End Sub       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Text1 = Text1 + "9"         'Display = Display + 9     End Sub       Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click         zahl1 = Text1         'die Variable soll genau den Wert des Displays erhalten         rechenart = "addieren"         'variable "rechenart" soll den Wert "addieren" erhalten         Text1 = ""         'Display leeren     End Sub       Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click         zahl1 = Text1         'die Variable soll genau den Wert des Displays erhalten         rechenart = "subtrahieren"         'variable "rechenart" soll den Wert "addieren" erhalten         Text1 = ""         'Display leeren     End Sub       Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click         zahl1 = Text1         'die Variable soll genau den Wert des Displays erhalten         rechenart = "multiplizieren"         'variable "rechenart" soll den Wert "addieren" erhalten         Text1 = ""         'Display leeren     End Sub       Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click         zahl1 = Text1         'die Variable soll genau den Wert des Displays erhalten         rechenart = "dividieren"         'variable "rechenart" soll den Wert "addieren" erhalten         Text1 = ""         'Display leeren     End Sub       Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click         Text1 = ""         zahl1 = ""         'Variable und Display lösche     End Sub       Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click         ' Bei Fehler zu "Fehler springen         If zahl1 = "" Then             MsgBox("Bitte zuerst erste Zahl eingeben!")             ' überprüfen ob vor der Rechenart eine Zahl eingegeben wurde         ElseIf Text1 = "" Then         End If         MsgBox("Bitte zuerst Zahl eingeben!")         ' überprüfen ob Text1 leer ist         If rechenart = "addieren" Then             Text1 = CDbl(zahl1) + CDbl(Text1)             'mit cdbl() wird der jeweilige Inhalt in Zahlen umgewandelt         ElseIf rechenart = "subtrahieren" Then             Text1 = CDbl(zahl1) - CDbl(Text1)         ElseIf rechenart = "multiplizieren" Then             Text1 = CDbl(zahl1) * CDbl(Text1)         ElseIf rechenart = "dividieren" Then         End If         Text1 = CDbl(zahl1) / CDbl(Text1)     End Sub End Class

Ich hoffe es war Ok das ich den Code gepostet habe.

Also erstmal Herzlich Willkommen, dass du endlich "richtig" hier angekommen bist.

Dann mal los:

1. Dein Code ist in VB.NET. Dafür gibt es ein Extra Forum.

2. In VB.NET kannst du als Zuweisung zu einer TextBox nicht mehr einfach "Text1" schreiben, sondern musst Text1.Text benutzen. Dann verschwindet auch der Fehler.

3. Würde ich dir raten, zum Verketten von Zeichenfolgen den &-Operator zu verwenden.

Cool danke für die rasche Antwort. Nun sind meine 24 Fehler weg. Jedoch bleiben 5

Der Fehler:

Code :

1	Fehler  1   Der Wert vom Typ "String" kann nicht in "System.Windows.Forms.TextBox" konvertiert werden.  C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Taschenrechner\Form1.vb    61  17  Taschenrechner

Die "" sind unterstrichen:

Code :

1	Text1 = ""

Der ganze Code:

Code :

1 2 3 4 5 6 7 8

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click         zahl1 = Text1.Text         'die Variable soll genau den Wert des Displays erhalten         rechenart = "dividieren"         'variable "rechenart" soll den Wert "addieren" erhalten         Text1 = ""         'Display leeren     End Sub

Das Problem habe ich jetzt nähmlich 5 mal

Ahja und kann mir jemand sagen wie ich ein komma definiere das wenn ich das Komma drücke das auch dann das Komma benutzt wird sprich auch via Tastatur.

Danke nochmals für eure super Hilfe !

Ändere

Code vb:

1	Text1 = ""

in

Code vb:

1	Text1.Text = ""

Total übersehen. Sorry

Danke