الصور لا تظهر...
السلام عليكم ورحمة الله وبركاته !!
طالبتكم طلب بليز لا تردوني ،، بكرهـ عندي إختبار حاسب ،، وماني عارفه اكتب أمر البرنامج إلي راح يجي بالإختبار ،، عشان كده بليز تساعدوني اليوم بلييييييييييييييز !!
البرنامج هو !!
قم بكتابة برنامج باستخدام فيجول بيسك يقوم بإدخال درجات طالب في المواد الشرعية وهي :
( القرآن الكريم ، التفسير ، الفقه ، الحديث ، التوحيد ) ثم يقوم البرنامج بحساب مجموع هذه الدرجات وطباعة المتوسط لها
علماً بأن المتوسط = مجموع الدرجات ÷ عدد الدرجات .
وبس !!
وأنا عملت التصميم و كتبت اوامر جمع الأعداد والجمع لمى بجي أجمع بيجمع صح ..!!
بس اوامر حساب المتوسط ما بتطلع معايه صح ..!!
وانا مو عارفه اش هوه الخطأ ؟؟!!!
بليييييييييييييييييييييييييييييييييييييييييييييييي يييييييز ساعدوني بكره إختباري !!
هادي صورة التصميم !!
وهادي صورة الأوامر !!
الصور لا تظهر...
السلام عليكم ورحمة الله وبركاته
كيف حالك تصدق أنك فكرتني بايام المدارس خخخخخ والله أنا سجت عشان خاطر عيونك
المهم أنا دحين راح أحاول أساعدك أنشاء الله وراح أعطيك مجموعة دروس راح تدعيلي أنشاء الله لا كن بعد ما نغلق هذا البرنامج
بالنسبة ل command2_Click
نسيت في ال Q
Q = Text1.Test
جرب تعدلها وردلي خبر
وعليكم السلاااام ورحمة الله وبركاته !!
الحمد لله بخير !!
**
حطيتها وبرضوا مافي فايدهـ !!
جاتني حاله نفسيه !!
خلاس اخوي لا تتعب نفسك ،، اليوم الإختبار الله يوفقني !!
وأشكرك كتيييييييييييييييييييييييير كتييييييييييييييييييييييير كتييييييييييييييييييييييييييييييير كتيييييييييييييييير ّّّ!!
الله يجزاك الجنه ياااااااااااااااااااااااااااااااااااااااااارب على تسجيلك عشان تساعدني !!
الله يوفقك يا أخوي !!
وترى انا بنت مو ولد ^ـ^ !!
إحترامي مع تقديري ّّّ!!
اعتقد والله اعلم
انه يطلع لك الخطأ بسبب
Text6
يجب تعديلها لتصبح
Text6.text
تحيتي
الله يعطيكم ألف ألف ألف عافيه
خلاس اختباري تأجل لبكره وصديقاتي طمنوني بسهولة الأسئلة
ربي يوفقكم
الله يعافيك
لكن ممكن تجربين الكود
بعد تعديلي
ودي اعرف وين الخطأ
كود الجمع صحيح أما كود المتوسط فيجب حصر عمليات الجمع بين قوسين ()
في الكود السابق سوف يجمع Q+t+ta+F ومن ثم يقسم h/5 لأولوية عملية القسمة , ويجمعها مع الناتج وهذا خطأ
الكود الصحيح :
الشكل الأمثل لكتابة هذا الكود :كود:Text7 =(Q+t+ta+F+h)/5
كود:Private Sub Command1_Click() On Error Resume Next Text6 = "" Text6 = CDbl(Text1) + CDbl(Text2) + CDbl(Text3) + CDbl(Text4) + CDbl(Text5) End Sub Private Sub Command2_Click() On Error Resume Next Text7 = "" Text7 = (CDbl(Text1) + CDbl(Text2) + CDbl(Text3) + CDbl(Text4) + CDbl(Text5)) / 5 End Sub
[CENTER]( لا إله إلا أنت سبحانك إني كنت من الظالمين )[/CENTER]
[CENTER]لم يدعُ بها مسلم في شيء إلا قد استجاب الله له . [/CENTER]
الله يجزاك بالفردوس يا أخوي
بس خلاس الحمد لله إختبرت وجاني نفس البرنامج هادا
والحمد لله أخذت الدرجه الكامله
^ـ^
وميرسي كتير على مساعدتك
المفضلات