السلام عليكم و رحمة الله
اخواني كيف يمكن ايجاد طريقة حسابية مناسبة حاولت لكن لم تضبط معي أنا شرحت العمليات على الفورم و بارك الله فيكم جميعا
وعليكم السلام ورحمة الله وبركاته
كود :
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
TextBox10.Text = (Val(TextBox4.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) - Val(TextBox9.Text))
End Sub
وعليكم السلام ورحمة الله وبركاته
كود :
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
جمعة مباركة الأخ Zuhare
أشكرك جزيل الشكر و بارك الله فيك و رزقك من حيث لا تحتسب ان شاء الله
فقط لو تكرمت بالتعديل
الكومبوبكس 1 فقط لجلب قيمة و وضعها بالتاكست بكس 5
عندما أختار من الكومبوبوكس 1 فإن قيمة التاكست بكس رقم 7 لا تتغير إلا بعد الإختيار من التشيك بكس 1 أو 2 أو 3
لأني كتبت أن تاكست بوكس 7 تساوي تاكست بكس 5 * تاكست بكس 6
يعني لو اخترت اسم من الكومبوبوكس 1 و لم اضغط على أي واحد من التشيك بكس هنا لا تتغير قيمة تكست بكس 7
و بارك الله فيك
بارك الله فيك و في والديك و هو بالذات يشتغل مضبوط الف الف شكر لك
السلام عليكم
اخ Zuhare ارجو منك المعذرة اذا اثقلت عليك لكن صدقني الله غالب
فقط بعد اذنك غيرت طريقة ملء الكومبوبوكس من قاعدة البيانات بدلا من ملؤها يدويا و لم اعرف كيف اغير بالأكواد
لو سمحت القاء نظرة الله يحفظك اخي الكريم
كود :
Private Sub Populate_Category()
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim da As New OleDbDataAdapter("select CategoryName , CategoryValue From Category order by CategoryName Asc", conn)
Dim Dt As New DataTable
da.Fill(Dt)
ComboBox1.DataSource = Dt
ComboBox1.DisplayMember = "CategoryName"
ComboBox1.ValueMember = "CategoryValue"
ComboBox1.SelectedIndex = -1
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 IsNumeric(ComboBox1.SelectedValue) Then
SUMComboBox1 = ComboBox1.SelectedValue
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
اكتفي ب SUMME في ComboBox1_SelectedIndexChanged
كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
SUMME()
End Sub
الله يبارك فيك يا رب و يرزقك و يسعدك و يحفظك باذن الله كله مضبوط الله يسترك اخي Zuhare