طلب كود حساب المعدل

مرحبا مطلوب القاعدة الي يمشى معها البرنامج

يعني الدرجة النهائية كم تساوي

والدرجة الفعلية للمادة كم

والساعات تدخل في عملية الحساب ولا لا

بعد ما توضع هذه المعلومات سيتم حلها وهي من أبسط المسائل حساب المعدل .. تحياتي

انتي قولي لنا اليه حساب المعدل والثوابت المطلوبه واحنا نصيغ الكود بحول الله

لحساب المعدل نستخدم مجموع ( عدد ساعات المادة * العلامة)/ مجموع عدد الساعات* 100

وفي الكود

txt_avg = (subject1 * hours1 + subject2 * hours2 + subject3 * hours3 + subject4 * hours4 + subject5 * hours5 + subject6 * hours6) / ((hours1 + hours3 + hours3 + hours4 + hours5 + hours6) * 100)

مع تغيير اسماء ادوات العلامات والساعات بما يناسبها عند في الفورم

محمدvb كتب:

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

مشكور وجزاك الله خير مقدما

والقاعده هي:

grade1*hour1+grade2*hour2+ grade3*hour3+grade4*hour4+grade5*hour5

grade6*hour6)\total hour

total hours =مجموع الساعات

انا استخدمت combobox for grade and hours

i use this code but i cant see any action

grade1.itemdata*hour1.itemdata+grade2.itemdata*hour2.itemdata

+grade3.itemdata*hour3.itemdata+grade4.itemdata*hour4.itemdata+grade5.itemdata*h

ur5.itemdata +grade6.itemdata*hour6.itemdata)\total hour

السموحه بس انا مبتدئه وعاد تحملونا

شوي

serious

TareqVB

مشكورين وجزاكم الله خير ع الردود ولا عدمناكمتقبلوا تحياتي

نفس الكود الذي ارفقته سابقا لكن انا اطلعت المعدل بدل المجموع

تغيير ليتناسب مع اسماء الحقول عندك ولا لزوم لاستخدام itemdata لان الارقام تكون في text

MsgBox (grade1 * hours1 + grade2 * hours2 + grade3 * hours3 + grade4 * hours4 + grade5 * hours5 + grade6 * hours6) / ((hours1 + hours3 + hours3 + hours4 + hours5 + hours6

))

TareqVB كتب:

نفس الكود الذي ارفقته سابقا لكن انا اطلعت المعدل بدل المجموع

تغيير ليتناسب مع اسماء الحقول عندك ولا لزوم لاستخدام itemdata لان الارقام تكون في text

MsgBox (grade1 * hours1 + grade2 * hours2 + grade3 * hours3 + grade4 * hours4 + grade5 * hours5 + grade6 * hours6) / ((hours1 + hours3 + hours3 + hours4 + hours5 + hours6

))

مشكور بس انا سويت نفس الكود

والنتيجه تكون فوق 4

 
Private Sub Command1_Click()
Dim sum
sum = (grade1 * hour1 + grade2 * hour2 + grade3 * hour3) / (hour1 + hour2 + hour3)
Text1.Text = sum

ماا اعرف وين المشكله باضبط

بليييز اريده بكره

الحمدلله تم الانتهاء من الفورم بنجاح

بس اريد احفظ المشروع بصيغةexe

بس الامر

make project.exe

غير فعال(deactvivated

شوالحل؟؟؟؟؟؟؟؟