12-01-22, 01:49 PM
(آخر تعديل لهذه المشاركة : 12-01-22, 01:54 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الكريم رضوان بارك الله بك على اخذك بالنصيحة وانار الله طريقك الى النجاح
بالنسبة لسؤالك تفضل هذا الكود واهم نقطة فيه هو تحويل عناصر الليست بوكس الى integer حتى يتم الجمع وان كان فيها قيم لها فاصلة عشرية غير نوع البيانات الى Double مع تعريف المتغير AA ايضا Double وكذلك دالة التحويل الى CDbl
اخي الكريم رضوان بارك الله بك على اخذك بالنصيحة وانار الله طريقك الى النجاح
بالنسبة لسؤالك تفضل هذا الكود واهم نقطة فيه هو تحويل عناصر الليست بوكس الى integer حتى يتم الجمع وان كان فيها قيم لها فاصلة عشرية غير نوع البيانات الى Double مع تعريف المتغير AA ايضا Double وكذلك دالة التحويل الى CDbl
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim AA As Integer = 0
If ListBox1.Items.Count > 0 Then
For i As Integer = 0 To ListBox1.Items.Count - 1
AA += CInt(ListBox1.Items(i))
Next
TextBox1.Text = AA
Else
TextBox1.Text = 0
End If
End Subاعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
