Rechnung

Jim · 4. September 2010, 12:50

hi

ich will eine art rechnungsprogramm schreiben.
nun habe ich aber in problem.
wenn ich den inhalt der textboxen zusammen rechne kommt dann eine komma zahl raus
und wenn ich damit dann weiter rechnen will mit einer weiteren komma zahl rechnet er nur das vor dem komma zusammen.
Wie kann man das ändern?
entweder das er es schafft mit dem komma zu rechnen oder das er mit dem punkt anstatt nem komma ausgibt?

hier meine ganzer code

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "FirstDataBaseDataSet.Adressen". Sie können sie bei Bedarf verschieben oder entfernen.
Me.AdressenTableAdapter.Fill(Me.FirstDataBaseDataSet.Adressen)
End Sub
Private Sub AdressenBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdressenBindingNavigatorSaveItem.Click
Me.Validate()
Me.AdressenBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.FirstDataBaseDataSet)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear()
Dim rnd As New Random
For i As Integer = 0 To 15
If i = 4 Or i = 8 Or i = 12 Then
TextBox2.Text &= "-"
End If
TextBox2.Text &= rnd.Next(0, 9)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox8.Text = Val(TextBox6.Text) * Val(TextBox7.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox12.Text = Val(TextBox10.Text) * Val(TextBox11.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox16.Text = Val(TextBox14.Text) * Val(TextBox15.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox20.Text = Val(TextBox18.Text) * Val(TextBox19.Text)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox24.Text = Val(TextBox22.Text) * Val(TextBox23.Text)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox28.Text = Val(TextBox26.Text) * Val(TextBox27.Text)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox32.Text = Val(TextBox30.Text) * Val(TextBox31.Text)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox36.Text = Val(TextBox34.Text) * Val(TextBox35.Text)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox37.Text = (TextBox8.Text) + (TextBox12.Text) + Val(TextBox16.Text) + Val(TextBox20.Text) + Val(TextBox24.Text) + Val(TextBox28.Text) + Val(TextBox32.Text) + Val(TextBox36.Text)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TabPage2.Show()
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
End Sub
End Class

singu · 4. September 2010, 12:53

Wo rechnest du die Sachen zusammen, bei den Buttons? Verwende statt Val am besten CDbl. Und stell die Option Strict auf On

Beep! · 4. September 2010, 12:55

CDbl, wie singu schon gesagt hat. Außerdem kann es vorkommen dass bei der Konvertierung eines Double-Objekts zu einem String-Objekt statt einem '.' ein ',' ausgegeben wird oder eben umgekehrt.

Jim · 4. September 2010, 13:06

okay hab jetzt auf CDbl umgestellt so kann ich jetzt kommas schreiben und wird auch im ergebniss mit nem komma angezeigt.
aber die einzelnen ergebnisse mit den komma zahlen zusammen rechnen funktioniert ned.

singu · 4. September 2010, 13:14

Kommt eine Fehlermeldung?

Jim · 4. September 2010, 13:15

ja

Ungültige Konvertierung von der Zeichenfolge in Typ Double.

weiß aber ned was das heißen soll

singu · 4. September 2010, 13:16

Und in welcher Zeile kommt der Fehler? Wahrscheinlich hast du auch Buchstaben im Text, deshalb kommt die Fehlermeldung

Jim · 4. September 2010, 13:22

in zeile 53
Ungültige Konvertierung von der Zeichenfolge in Typ Double.

buchstaben im text?

singu · 4. September 2010, 13:24

Hast du überhaupt CDbl hinzugefügt? Poste die aktualisierte Zeile im Code und den Inhalt der TextBoxen

Jim · 4. September 2010, 13:26

ja hab ich

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "FirstDataBaseDataSet.Adressen". Sie können sie bei Bedarf verschieben oder entfernen.
Me.AdressenTableAdapter.Fill(Me.FirstDataBaseDataSet.Adressen)
End Sub
Private Sub AdressenBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdressenBindingNavigatorSaveItem.Click
Me.Validate()
Me.AdressenBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.FirstDataBaseDataSet)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear()
Dim rnd As New Random
For i As Integer = 0 To 15
If i = 4 Or i = 8 Or i = 12 Then
TextBox2.Text &= "-"
End If
TextBox2.Text &= rnd.Next(0, 9)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox8.Text = CDbl(TextBox6.Text) * CDbl(TextBox7.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox12.Text = CDbl(TextBox10.Text) * CDbl(TextBox11.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox16.Text = CDbl(TextBox14.Text) * CDbl(TextBox15.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox20.Text = CDbl(TextBox18.Text) * CDbl(TextBox19.Text)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox24.Text = CDbl(TextBox22.Text) * CDbl(TextBox23.Text)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox28.Text = CDbl(TextBox26.Text) * CDbl(TextBox27.Text)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox32.Text = CDbl(TextBox30.Text) * CDbl(TextBox31.Text)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox36.Text = CDbl(TextBox34.Text) * CDbl(TextBox35.Text)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox37.Text = CDbl(TextBox8.Text) + CDbl(TextBox12.Text) + CDbl(TextBox16.Text) + CDbl(TextBox20.Text) + CDbl(TextBox24.Text) + CDbl(TextBox28.Text) + CDbl(TextBox32.Text) + CDbl(TextBox36.Text)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TabPage2.Show()
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
End Sub
End Class

die textboxen sind doch leer

singu · 4. September 2010, 13:29

Bau mal folgendes ein. Du musst es noch an die Anzahl der TextBoxes anpassen.

VB.NET-Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim value1 As Double = 0
Dim value2 As Double = 0
Double.TryParse(Me.TextBox1.Text, value1)
Double.TryParse(Me.TextBox2.Text, value2)
Me.TextBox3.Text = CStr(value1 + value2)
End Sub
End Class

Jim · 4. September 2010, 13:37

okay danke jetzt gehts

so sieht jetzt mein ganzer code aus

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "FirstDataBaseDataSet.Adressen". Sie können sie bei Bedarf verschieben oder entfernen.
Me.AdressenTableAdapter.Fill(Me.FirstDataBaseDataSet.Adressen)
End Sub
Private Sub AdressenBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdressenBindingNavigatorSaveItem.Click
Me.Validate()
Me.AdressenBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.FirstDataBaseDataSet)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear()
Dim rnd As New Random
For i As Integer = 0 To 15
If i = 4 Or i = 8 Or i = 12 Then
TextBox2.Text &= "-"
End If
TextBox2.Text &= rnd.Next(0, 9)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox8.Text = CDbl(TextBox6.Text) * CDbl(TextBox7.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox12.Text = CDbl(TextBox10.Text) * CDbl(TextBox11.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox16.Text = CDbl(TextBox14.Text) * CDbl(TextBox15.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox20.Text = CDbl(TextBox18.Text) * CDbl(TextBox19.Text)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox24.Text = CDbl(TextBox22.Text) * CDbl(TextBox23.Text)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox28.Text = CDbl(TextBox26.Text) * CDbl(TextBox27.Text)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox32.Text = CDbl(TextBox30.Text) * CDbl(TextBox31.Text)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox36.Text = CDbl(TextBox34.Text) * CDbl(TextBox35.Text)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim value1 As Double = 0
Dim value2 As Double = 0
Dim value3 As Double = 0
Dim value4 As Double = 0
Dim value5 As Double = 0
Dim value6 As Double = 0
Dim value7 As Double = 0
Dim value8 As Double = 0
Double.TryParse(Me.TextBox8.Text, value1)
Double.TryParse(Me.TextBox12.Text, value2)
Double.TryParse(Me.TextBox16.Text, value3)
Double.TryParse(Me.TextBox20.Text, value4)
Double.TryParse(Me.TextBox24.Text, value5)
Double.TryParse(Me.TextBox28.Text, value6)
Double.TryParse(Me.TextBox32.Text, value7)
Double.TryParse(Me.TextBox36.Text, value8)
Me.TextBox37.Text = CStr(value1 + value2 + value3 + value4 + value5 + value6 + value7 + value8)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TabPage2.Show()
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
End Sub
End Class

und nochmal danke schön!

singu · 4. September 2010, 13:50

Ich würde das ganze mit Double.TryParse auch in den anderen Button-Click Events machen. Und stell am besten die Option Strict auf On, das machst du über die Projekteigenschaften -> Kompilieren, weil so wird dir in deinem Code gezeigt wo du konvertieren musst

Rechnung

Rechnung

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

1 Benutzer hat hier geschrieben