+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ايجاد قيمة المجموع العام (/showthread.php?tid=50754)
ايجاد قيمة المجموع العام - العيدروس - 06-12-24
السلام عليكم و رحمة الله
اخواني كيف يمكن ايجاد طريقة حسابية مناسبة حاولت لكن لم تضبط معي أنا شرحت العمليات على الفورم و بارك الله فيكم جميعا
RE: ايجاد قيمة المجموع العام - princelovelorn - 06-12-24
وعليكم السلام ورحمة الله وبركاته
كود :
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 SubRE: ايجاد قيمة المجموع العام - Zuhare - 06-12-24
وعليكم السلام ورحمة الله وبركاته
كود :
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 ClassRE: ايجاد قيمة المجموع العام - العيدروس - 06-12-24
جمعة مباركة الأخ Zuhare
أشكرك جزيل الشكر و بارك الله فيك و رزقك من حيث لا تحتسب ان شاء الله
فقط لو تكرمت بالتعديل
الكومبوبكس 1 فقط لجلب قيمة و وضعها بالتاكست بكس 5
عندما أختار من الكومبوبوكس 1 فإن قيمة التاكست بكس رقم 7 لا تتغير إلا بعد الإختيار من التشيك بكس 1 أو 2 أو 3
لأني كتبت أن تاكست بوكس 7 تساوي تاكست بكس 5 * تاكست بكس 6
يعني لو اخترت اسم من الكومبوبوكس 1 و لم اضغط على أي واحد من التشيك بكس هنا لا تتغير قيمة تكست بكس 7
و بارك الله فيك
RE: ايجاد قيمة المجموع العام - العيدروس - 06-12-24
بارك الله فيك و في والديك و هو بالذات يشتغل مضبوط الف الف شكر لك
RE: ايجاد قيمة المجموع العام - العيدروس - 06-12-24
السلام عليكم
اخ Zuhare ارجو منك المعذرة اذا اثقلت عليك لكن صدقني الله غالب
فقط بعد اذنك غيرت طريقة ملء الكومبوبوكس من قاعدة البيانات بدلا من ملؤها يدويا و لم اعرف كيف اغير بالأكواد
لو سمحت القاء نظرة الله يحفظك اخي الكريم
RE: ايجاد قيمة المجموع العام - Zuhare - 06-12-24
كود :
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 SubRE: ايجاد قيمة المجموع العام - العيدروس - 06-12-24
الله يبارك فيك يا رب و يرزقك و يسعدك و يحفظك باذن الله كله مضبوط الله يسترك اخي Zuhare