أنين الفجر
05-10-2007, 02:38 AM
أسااتذتي أستاذاتي
تكفووووووون ساعدوني عندي تطبيق في درس مشاريع
تدريب (7-7)ص 173 المشروع الثالث بنات
ونفسه تدريب ( 3-5) في كتاب البنين
والمشكله هي أنو البرمجة مو موجودة في الكتاب
وأنا كتبت برمجة بناء على الدروس السابقة لكن يطلع لي عند التنفيذ خطأ
والسؤال كالتالي قومي بكتابة برنامج يقوم بادخال درجات طالب في المواد الشرعية ( قرآن- فقه- توحيد تفسير - حديث)
ثم يقوم بحساب مجموع هذه الدرجات وطباعة المتوسط
وياليت ماتقولون ارجعي لكتاب المعلم لان حملته مرتين ومافتح معي
تكفووووووون لا عدمت مساعدتكم
وهذي البرمجة اللي كتبتها أتمنى ترشدوني عن خطأي
Dim A, B, C, D, E As Single
A = Text1.Text
B = Text2.Text
C = Text3.Text
D = Text4.Text
E = Text5.Text
If Check1.Value = 1 Then Text6.Text="=------"& A+B+C+D+F
If Check1.Value = 1 Then Text7.Text = "++++ " & (A + B + C + D + E) / 5
End Sub
نظرا لانه اللي بين الاقواس عجزتاكتبهم فهي كالتالي
"-------"=مجموع الدرجات
"++++"= المتوسط
تكفوون جبت المعلومات كامله ساعدوني
تكفووووووون ساعدوني عندي تطبيق في درس مشاريع
تدريب (7-7)ص 173 المشروع الثالث بنات
ونفسه تدريب ( 3-5) في كتاب البنين
والمشكله هي أنو البرمجة مو موجودة في الكتاب
وأنا كتبت برمجة بناء على الدروس السابقة لكن يطلع لي عند التنفيذ خطأ
والسؤال كالتالي قومي بكتابة برنامج يقوم بادخال درجات طالب في المواد الشرعية ( قرآن- فقه- توحيد تفسير - حديث)
ثم يقوم بحساب مجموع هذه الدرجات وطباعة المتوسط
وياليت ماتقولون ارجعي لكتاب المعلم لان حملته مرتين ومافتح معي
تكفووووووون لا عدمت مساعدتكم
وهذي البرمجة اللي كتبتها أتمنى ترشدوني عن خطأي
Dim A, B, C, D, E As Single
A = Text1.Text
B = Text2.Text
C = Text3.Text
D = Text4.Text
E = Text5.Text
If Check1.Value = 1 Then Text6.Text="=------"& A+B+C+D+F
If Check1.Value = 1 Then Text7.Text = "++++ " & (A + B + C + D + E) / 5
End Sub
نظرا لانه اللي بين الاقواس عجزتاكتبهم فهي كالتالي
"-------"=مجموع الدرجات
"++++"= المتوسط
تكفوون جبت المعلومات كامله ساعدوني