منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
في القريد فيو يتم احتساب الارقام او الاعداد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=36654)

في القريد فيو يتم احتساب الارقام او الاعداد - عمور2016 - 09-10-20

السلام عليكم

في القريد فيو يتم احتساب وجمع  الارقام  او الاعداد كما هو في الكود بالاسفل

كي يتم احتساب عدد الكلمات من نوع  مثلا كم عدد الذكور

PHP كود :
       
        TextBox5.Text = "0"
        For i As Byte = 0 To DataGridView1.RowCount - 1

            TextBox5.Text = CDbl(Val(TextBox5.Text)) + CDbl(DataGridView1.Rows(i).Cells(11).Value 
        Next
       TextBox5.Text = TextBox5.Text + Val(10) 


RE: في القريد فيو يتم احتساب الارقام او الاعداد - سعود - 09-10-20

(09-10-20, 10:15 PM)عمور2016 كتب : السلام عليكم

في القريد فيو يتم احتساب وجمع  الارقام  او الاعداد كما هو في الكود بالاسفل

كي يتم احتساب عدد الكلمات من نوع  مثلا كم عدد الذكور

PHP كود :
       
        TextBox5.Text = "0"
        For i As Byte = 0 To DataGridView1.RowCount - 1

            TextBox5.Text = CDbl(Val(TextBox5.Text)) + CDbl(DataGridView1.Rows(i).Cells(11).Value 
        Next
       TextBox5.Text = TextBox5.Text + Val(10) 

PHP كود :
 Dim f As Integer
        Dim m As Integer
        f = 0
        m = 0

        Dim i As Integer
        For i = 0 To dg.Rows.Count - IIf(dg.AllowUserToAddRows, 2, 1)
            If dg.Rows(i).Cells(0).Value.ToString = "female" Then
                f += 1
            ElseIf dg.Rows(i).Cells(0).Value.ToString = "male" Then
                m += 1
            End If

        Next
        MsgBox("الاناث: " & f & vbNewLine & " الذكور: " & m, MsgBoxStyle.Information, "") 


RE: في القريد فيو يتم احتساب الارقام او الاعداد - عمور2016 - 09-10-20

الله يكتب اجرك

والف الف شكرا اخي سعود

الله يحفظك تحياتي