[Zuhare]

وعليكم السلام ورحمة الله وبركاته

كود :

Public Class Form1
   Dim dt As New DataTable
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

       dt.Columns.Add("ID")
       dt.Columns.Add("itemName")
       dt.Columns.Add("itemPrice")

       DataGridView1.DataSource = dt

   End Sub
   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       dt.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text)
       SUMME()
   End Sub

   Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
       SUMME()
   End Sub
   Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved
       SUMME()
   End Sub
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       SUMME()
   End Sub
   Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
       SUMME()
   End Sub
   Private Sub TextBox6_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox6.TextChanged
       SUMME()
   End Sub
   Private Sub TextBox8_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox8.TextChanged
       SUMME()
   End Sub
   Private Sub TextBox9_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox9.TextChanged
       SUMME()
   End Sub

   Private Sub SUMME()
       Dim SUMDATAGRIDVIEW As Decimal = 0.0
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           SUMDATAGRIDVIEW = SUMDATAGRIDVIEW + DataGridView1.Rows(i).Cells("itemPrice").Value
       Next
       TextBox4.Text = SUMDATAGRIDVIEW

       Dim SUMComboBox1 As Decimal = 0.0
       If ComboBox1.SelectedIndex = 0 Then
           SUMComboBox1 = "1000.10"
       ElseIf ComboBox1.SelectedIndex = 1 Then
           SUMComboBox1 = "1500.20"
       ElseIf ComboBox1.SelectedIndex = 2 Then
           SUMComboBox1 = "2000.30"
       End If
       TextBox5.Text = SUMComboBox1.ToString()

       Dim SUMCHECKEDCHECKBOX As Decimal = 0.0
       Dim checks() As CheckBox = {CheckBox1, CheckBox2, CheckBox3}
       SUMCHECKEDCHECKBOX = (From cb In checks Where cb.Checked Order By cb.Text Select cb.Checked).Count
       TextBox6.Text = SUMCHECKEDCHECKBOX

       Dim SUBTOTAL As Decimal = 0.0
       SUBTOTAL = SUMComboBox1 * SUMCHECKEDCHECKBOX
       TextBox7.Text = SUBTOTAL

       Dim CHARGES As Decimal = 0.0
       CHARGES = Val(TextBox8.Text)

       Dim DISCOUNT As Decimal = 0.0
       DISCOUNT = Val(TextBox9.Text)

       Dim FULLTOTAL As Decimal = 0.0
       FULLTOTAL = (SUMDATAGRIDVIEW + SUBTOTAL + CHARGES) - DISCOUNT
       TextBox10.Text = FULLTOTAL
   End Sub
End Class