المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مثال 2-4 على chekBox


س ا يوسف
30-03-2009, 02:29 PM
يريد مدير معمل تحاليل كتابة برنامج يستطيع من خلاله تحرير فواتير بحيث يسمح للمشغل ان يدخل اسم المريض وتحديد التحاليل ويجب عدم اصدار فاتورة الا بعد ادخال الاسم وفي حالة عدم ادخال اسم يظهر رسالة خطأ

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

You can see links before reply

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

You can see links before reply
والشكل 2 في حالة عدم ادخال اسم

You can see links before reply
والشكل 3 الشكل النهائي بعد ادخال جميع البيانات

You can see links before reply
ايات مجاهد
30-03-2009, 09:07 PM
بارك الله لك
وشكرا على الدعاء
س ا يوسف
31-03-2009, 07:05 PM
الحل


بعد عمل ال 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
13-09-2010, 07:47 PM
مشكورررررررررررررررررررررررر
طاطا جادو
26-01-2012, 02:22 PM
مشكووووووووووووووووووووووووووووووووووووووور