[Taha Okla]

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

كود :

For Each L As Control In Me.Controls
   If TypeOf (L) Is Label Then
       If Mid(L.Name, 1, 6) = "Lbl_S_" Then
           If (CType(L, Label)).Text = 8 Then
               Txt_MU.Text = 1
           Else
               'Txt_MU.Text = 2
           End If
       End If
   End If
Next

Txt_Total.Text = Val(Txt_NF.Text) + Val(Txt_ED.Text) + Val(Txt_NS.Text) + Val(Txt_MU.Text)

2 - 

كود :

For Each L As Control In Me.Controls
   If TypeOf (L) Is Label Then
       If Mid(L.Name, 1, 6) = "Lbl_S_" Then
           Select Case (CType(L, Label)).Text
               Case 7, 9, 10, 11, 12
                   Txt_ED.Text = Val(Txt_ED.Text) + 1
           End Select
       End If
   End If
Next

Txt_Total.Text = Val(Txt_NF.Text) + Val(Txt_ED.Text) + Val(Txt_NS.Text) + Val(Txt_MU.Text)

البحث عن أكواد مختصرة مضيعة للوقت دامك لا تتقن الأساسيات
الأفضل أن تدخل دورة عبر قناة من قنوات اليوتيوب لتعليم البرمجة من الصفر ..
ستجد فرقاً كبيراً في كل شيء بعد أول شهر ..

وإن كنت لا تملك الوقت لتعلم الأساسيات، فمن الخطأ أن تستمر بهذا المجال..
لأنك ستجد عمرك يضيع على أشياء تافهة، ولن تستطيع أن تنجز أي مشروع يستحق عناءه..

الأساسيات لا تعني (نافذة وزر وتكست وليبل وجدول) 
الأساسيات تعني :
1 - تعلم الخوارزميات أولاً - و حل تطبيقات عليها(وهي تقريباً مشتركة في كل لغات البرمجة).
2 - تعلم أساسيات اللغة التي تريد أن تدخل بها(أنواع المجموعات والمتغيرات فيها وطريقة التعريف والتحويل بينها).
3 - تعلم خصائص الكائنات التي سوف تستخدمها في اللغة التي تختار.
4 - تعلم البرامج الجانبية التي ستعتمد عليها جانباً إلى جنب مع اللغة التي تريد أن تعمل بها (برامج الأوفيس(أكسس- أكسل - وورد) - النوتباد - الرسام).
5 - تعلم البرمجة كائنية التوجه (OOP) ، فهي أساس التبسيط والاختصار وستجعل فهم وتطبيق الخوارزميات والمجموعات أبسط بكثير ..
..
..
..
هناك علوم من الخطأ ومضيعة الوقت التعلم بها دون معلم.  منها هذا البحر الواسع.