الحل
بعد عمل ال Formوما عليها كما بالشكل
نكتب الاكواد داخل الحدث Button1
اولا نجعل مكان ادخال الاسم فارغ حتى لا يعرض اسم المريض السابق
نتأكد من ادخال اسم للمريض وفي حالة عدم وجود اسم يظهر رسالة
If txtName.Text = "" Then
("ادخل اسم ")MsgBox
والا
Else
في حالة وجود اسم
نعمل مخزن لمجموع ثمن التحاليل وجعله صفر في البداية لعدم تداخل اي قيم سابقة
Dim total As Decimal = 0.0
في حالة اختيار checkBox الاولي
If chkCBC.Checked = True Then
يضع بمخزن مجموع ثمن المحاليل ما يوجد من قبل ذلك من ثمن تحاليل مضاف اليه ثمن هذا الاختيار
total = total + 21.0
ننهي هذه الحالة ب
End If
نكرر الثلاثة خطوات الاخيرة مع تغير اسم checkBox والثمن المضاف لها ل 2 و3 و4
If chkTIC.Checked = True Then
total = total + 7.5
End If
If chkRBC.Checked = True Then
total = total + 5.5
End If
If chkHB.Checked = True Then
total = total + 5.0
End If
نظهر ثمن مجموع التحاليل في label الثامن
ننهي حالة if الاولي
End If
المفضلات