حل المشروع الثالث صفحة 156 فيجوال بيسك [الأرشيف] - منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

مشاهدة النسخة كاملة : حل المشروع الثالث صفحة 156 فيجوال بيسك

Chairman

12-25-2010, 07:33 PM

السلام عليكم ورحمة الله وبركاته
تلبية لطلب احد الاعضاء
هذا حل للمشروع الثالث في منهج ثالث ثانوي الفصل الدراسي الاول صفحة 156
والذي نص السؤال فيه يقول

( قم بكتابة برنامج باستخدام لغة فيجوال بيسك يقوم بادخال درجات طالب في المواد الشرعيه وهي ( قران كريم -الفقه - التوحيد - التفسير - الحديث) ثم يقوم البرنامج بحساب مجموع هذه الدرجات وطباعة المتوسط الحسابي لها
علما بأن المتوسط = مجموع الدرجات / عدد الدرجات

متميزه

12-25-2010, 09:11 PM

ابداع .. عافاك الرحمن ,,,

Chairman

12-25-2010, 09:46 PM

الله يعافيك وشكرا على مرورك

ملاذ99

12-26-2010, 01:43 AM

ياااااااارب يجزااااااك بالجنة

طالب المزيد

12-26-2010, 02:00 AM

يعطيك العافية يا التجميعي

جميل جدا ما فعلت

موفق إن شاء الله

Chairman

12-26-2010, 09:49 AM

ملاذ طالب المزيد شكرا على مروركم واتمنى لي ولكم التوفيق و للجميع

كبرياء الجرح

01-06-2011, 12:02 AM

يعطيك العافيه كفيت ووفيت

بس عندي سؤال
الأكواد كيف أقدر آخذهم؟

متميزه

01-06-2011, 10:45 AM

اخذ الاكواد .. التعامل معه مثل اي نص .. بالنسخ واللصق .. :^^:

كبرياء الجرح

01-06-2011, 02:01 PM

بس كيف اقدر اظهر الكود وأخذه ؟؟
وشكرا^^
لان تسليم المشاريع يوم السبت ومافي وقت

متميزه

01-06-2011, 06:12 PM

من داخل برنامج فجول افتحي الفورم وبعدين دبل كلك على زر الامر حساب المتوسط او المجموع .. تظهر شاشة الاكود

تماراTMARA

01-06-2011, 07:34 PM

جزاك الله كل خير
مجهود رائع

كبرياء الجرح

01-07-2011, 01:58 AM

ماتقصروووون

ربــــــــــــــــي يجزاكم الجنه

صدى الصمت

01-08-2011, 07:41 PM

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

أنا كتبت كود بس ابغى أتاكد قبل ما أسلم المشروع اذا الكود صحيح أو لا
أتمنى انو في احد يقدر يفيدني
وهذا هو الكود اللي كتبته

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text4.Text
m = a + b + c + d + e
r = m / 5
Text6.Text = m
Text7.Text = r

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

طالب المزيد

01-08-2011, 08:46 PM

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

أنا كتبت كود بس ابغى أتاكد قبل ما أسلم المشروع اذا الكود صحيح أو لا
أتمنى انو في احد يقدر يفيدني
وهذا هو الكود اللي كتبته

Dim a , b , c , d , e , m As Integer طريقتك صحيحة وهذه صح أيضا بس أفضل
Dim r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
m = a + b + c + d + e
r = m / 5
Text6.Text = m
Text7.Text = r

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

إذا كانت عمل البرنامج السابق هو

إدخال 5 أعداد في مربعات نص text1,text2,text3,text4,text5

وحساب المجموع ووضعه في مربع نص text6

و حساب المعدل ووضعه في مربع نص text7

إذا الكود صح إن شاء الله

وبالتوفيق

صدى الصمت

01-08-2011, 09:57 PM

شكرا اخ طالب المزيد
نبهتني على غلط في الكود ما انتبهت عليه انا
e=Text5.Text

يعطيك العافية
بس ما ادري لما جيت انفذه قلت بغير وخزنت المجموع والمتوسط في خاصية Lable8.Caption=m
Lable9.Caption=r

ما يغير شي في الكود يعني يعتبر صحيح ولا ؟؟

طالب المزيد

01-08-2011, 10:12 PM

شكرا اخ طالب المزيد
نبهتني على غلط في الكود ما انتبهت عليه انا
e=text5.text

يعطيك العافية
بس ما ادري لما جيت انفذه قلت بغير وخزنت المجموع والمتوسط في خاصية lable8.caption=m
lable9.caption=r

ما يغير شي في الكود يعني يعتبر صحيح ولا ؟؟

لو تضعي المشروع كامل مع الفورم عشان اشوف التصميم هل هو يلائم الكود

صدى الصمت

01-08-2011, 10:41 PM

شكرا للمساعدة أدري ثقلتها الموضوع ما يستاهل بس المعلمات يتفننون في التعذيب

Chairman

01-08-2011, 11:39 PM

شكرا للمساعدة أدري ثقلتها الموضوع ما يستاهل بس المعلمات يتفننون في التعذيب

برنامجك حلو بس يبغى بعض التعديلات البسيطه وماثقلتيها على احد انتي تبغي تتعلمي

هذا هو الكود الي سويتيه

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
m = a + b + c + d + e
r = m / 5
Label8.Caption = m
Label9.Caption = r
End Sub

انتي حطيتي متغيرات M-r وكان تقدري تستغني عنها باظهار النتيجه مباشره في label

يعني يكون الكود الموضوع في زر المجموع

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text

Label8.Caption = a + b + c + d + e

يعني تختاري بان النتيجه تظهر مباشره في label8

ويكون الكود الذي يظهر في زر المتوسط
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text

Label9.Caption = (a + b + c + d + e) / 5
End Sub

تختاري ظهور النتيجه بعد اجراء العميله الحسابيه في label9

ان شالله وضحت الفكره

طالب المزيد

01-09-2011, 12:41 AM

شكرا للمساعدة أدري ثقلتها الموضوع ما يستاهل بس المعلمات يتفننون في التعذيب

بس في النهاية لو تعرفي .. أنت مستفيده

" و راح تتذكري كلامي هذا "

طاسه

01-10-2011, 10:52 PM

الله يعافيك

Essa saad

01-11-2011, 10:02 PM

Chairman

01-11-2011, 11:12 PM

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

أول مشاركه لي في المنتدى
وحبيت أشارك وكتبت الكود حق المشروع الثالث ولا أدري هل صح أم

خطأ. وهل اعتقد أن الإختصار أفادني.

Private Sub Command1_Click()

text 6 .text.=text1.text+text 2.text+text3.text +text4.text+text5.text
وهذه تمثل مجموع الدرجات
________________________________________________

Private Sub Command2_Click()

5/ ( text7 .text.= (text1.text+text 2.text+text3.text +text4.text+text5.text

وهذا يمثل المتوسط الحسابي..

ياليت تفيدوني إذا كان في الكود خطأ .. لأن بصراحه ما أحس إني فهمت من المدرس

وبالتوفيق أنشاء الله للجميع

يااخي اعتقد لوانك ركزت مع المعلم كان سهلت عليك المساله
لكن على العموم
ابغاك تسال نفسك ماهي نوع الاعداد الموجوده في text
وليش تلخبط نفسك بكتابه اسم التكست وانت تقدر تستغني عن ذلك لو حطيتها في متغيرات
طبق الخطوات هذي وان شالله تمشي معك

الخطوه الاولى تعريف متغيرات للتكست وتكون اعداد صحيحه من نوع integer راجع كتابك ص 31على ماذكر لتعرف انواع المتغيرات
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer

هذي لخمس صناديق نصيه

الخطوه الثانيه اسناد الصناديق للمتغيرات بحيث كل تكست تربطه مع متغير زي كذا
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text

الخطوه الثالثه يكون عندك زرين زر تجمع بواسطته الدرجات المدخله وزر اخر يحسب المتوسط
هذا الجمع الي سويته انت (text 6 .text.=text1.text+text 2.text+text3.text +text4.text+text5.text
)
وهذي الطريقه الي اقولك عليها وانت شوف ايهما افضل انا بخلي الجمع يظهر في label

Label1.Caption = a + b + c + d + e

بنفس الطريقه لزر المتوسط ارجع عرف المتغيرات لصناديق النص ثم سوي عملية الاسناد
وبعد كذا الكود لزر المتوسط Label2.Caption = (a + b + c + d + e) / 5

بالتوفيق

Essa saad

01-13-2011, 06:14 PM

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

طالب المزيد

01-13-2011, 06:26 PM

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

يالله مبروك .. والله يوفقك

خذ من عندي لاب توب هدية :m00ktrg:

وعقبال ما تجيب الدرجة الكاملة في النظري

حطموكـ ياقلبي

09-06-2011, 12:05 AM

الله يعطيك العافية

道频 شايف وساكت 频道

09-06-2011, 04:19 PM

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
شكراً جزيلاً لك.

ق ل ق 6 6 6

09-06-2011, 10:56 PM

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

جزاك الله الف خير

اليزيد

09-07-2011, 01:33 AM

رااااااااااااااااائع

teach me2007

12-10-2012, 12:35 AM

موفق إن شاء الله

مجمع العين

12-14-2012, 02:48 PM

الله يجزاك حير