بليز ساعدوني بكتابة أوامر برنامج بسيط بالفيجول بيسك

**ماهتبان** · 23-01-2009, 18:11

السلام عليكم ورحمة الله وبركاته !!

طالبتكم طلب بليز لا تردوني ،، بكرهـ عندي إختبار حاسب ،، وماني عارفه اكتب أمر البرنامج إلي راح يجي بالإختبار ،، عشان كده بليز تساعدوني اليوم بلييييييييييييييز !!

البرنامج هو !!

قم بكتابة برنامج باستخدام فيجول بيسك يقوم بإدخال درجات طالب في المواد الشرعية وهي :
( القرآن الكريم ، التفسير ، الفقه ، الحديث ، التوحيد ) ثم يقوم البرنامج بحساب مجموع هذه الدرجات وطباعة المتوسط لها
علماً بأن المتوسط = مجموع الدرجات ÷ عدد الدرجات .

وبس !!

وأنا عملت التصميم و كتبت اوامر جمع الأعداد والجمع لمى بجي أجمع بيجمع صح ..!!

بس اوامر حساب المتوسط ما بتطلع معايه صح ..!!

وانا مو عارفه اش هوه الخطأ ؟؟!!!

بليييييييييييييييييييييييييييييييييييييييييييييييي يييييييز ساعدوني بكره إختباري !!

هادي صورة التصميم !!

وهادي صورة الأوامر !!

**Ibrahim.Hamdy** · 23-01-2009, 20:47

الصور لا تظهر...

**الغراب الرمادي** · 24-01-2009, 01:45

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

المهم أنا دحين راح أحاول أساعدك أنشاء الله وراح أعطيك مجموعة دروس راح تدعيلي أنشاء الله لا كن بعد ما نغلق هذا البرنامج

بالنسبة ل command2_Click

نسيت في ال Q
Q = Text1.Test

جرب تعدلها وردلي خبر

**ماهتبان** · 24-01-2009, 06:01

وعليكم السلاااام ورحمة الله وبركاته !!

الحمد لله بخير !!

**

حطيتها وبرضوا مافي فايدهـ !!

جاتني حاله نفسيه !!

خلاس اخوي لا تتعب نفسك ،، اليوم الإختبار الله يوفقني !!

وأشكرك كتيييييييييييييييييييييييير كتييييييييييييييييييييييير كتييييييييييييييييييييييييييييييير كتيييييييييييييييير ّّّ!!

الله يجزاك الجنه ياااااااااااااااااااااااااااااااااااااااااارب على تسجيلك عشان تساعدني !!

الله يوفقك يا أخوي !!

وترى انا بنت مو ولد ^ـ^ !!

إحترامي مع تقديري ّّّ!!

**HacSec** · 24-01-2009, 18:44

اعتقد والله اعلم
انه يطلع لك الخطأ بسبب

Text6

يجب تعديلها لتصبح

Text6.text

تحيتي

**ماهتبان** · 24-01-2009, 23:19

الله يعطيكم ألف ألف ألف عافيه

خلاس اختباري تأجل لبكره وصديقاتي طمنوني بسهولة الأسئلة

ربي يوفقكم

**HacSec** · 26-01-2009, 00:38

الله يعافيك

لكن ممكن تجربين الكود
بعد تعديلي

ودي اعرف وين الخطأ

**aziz-50** · 26-01-2009, 23:05

كود الجمع صحيح أما كود المتوسط فيجب حصر عمليات الجمع بين قوسين ()

في الكود السابق سوف يجمع 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