مثال 2-4 على chekBox

[س ا يوسف]

يريد مدير معمل تحاليل كتابة برنامج يستطيع من خلاله تحرير فواتير بحيث يسمح للمشغل ان يدخل اسم المريض وتحديد التحاليل ويجب عدم اصدار فاتورة الا بعد ادخال الاسم وفي حالة عدم ادخال اسم يظهر رسالة خطأ

ويبين الجدول الخدمات المتاحة واسعارها



والشكل 1 يبين واجهة المستخدم


والشكل 2 في حالة عدم ادخال اسم


والشكل 3 الشكل النهائي بعد ادخال جميع البيانات

[ايات مجاهد]

بارك الله لك
وشكرا على الدعاء

[س ا يوسف]

الحل

بعد عمل ال Formوما عليها كما بالشكل
نكتب الاكواد داخل الحدث Button1

اولا نجعل مكان ادخال الاسم فارغ حتى لا يعرض اسم المريض السابق

""= lblTotal.Text

نتأكد من ادخال اسم للمريض وفي حالة عدم وجود اسم يظهر رسالة

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 الثامن

lblTotal.Text = total

ننهي حالة if الاولي

End If

[hany wasel]

مشكورررررررررررررررررررررررر

[طاطا جادو]

مشكووووووووووووووووووووووووووووووووووووووور