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
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