طريقة عمل تطبيق حساب المساحات

[حاسوب2010]

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

كيف ياعضاء وعضوات منتديات حاسبكو انا عضو جديد

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

واتمنى تقبلوني

اريد طريقة تصميم تطبيق حساب المساحة
وهذا السوال صمم النوافذ الخاصة ببرنامج حساب المساحات اذا علمت انا واجهة form تسمح للمستخد بان يختار اما حساب مساحة المستطيل او المثلث او الدائرة
علما بان مساحة المستطيل = الطول في العرض
مساحة المثلث القاعده في الارتفاع قسمة 2
مساحة الدائرة نصف القطر تربيع في3و14

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

[متميزه]

حلو البرنامج ^_^ ادري ماشاورتن

المهم

نقدر نقول ان البرنامج يشابه برنامج الحسابات والمساحات

شاشة المقدمة (نفس الشيء مع اضافة خيار ثالث)

شاشة لحساب مساحة المستطيل

شاشة لحساب مساحة المثلث

شاشة لحساب مساحة والدائرة

وبس

[تماراTMARA]

هذا تصميم بسيط للواجهات

طبعا البداية تنشئي مثل كتاب العملي مشروع مع اربعة فورمات ( نماذج)
ا
لأول مقدمة

http://www.7asabco.com/attachment.php?attachmentid=2569&stc=1&d=1262436537
والثاني مساحة المستطيل
في كتاب التدريب العملي ص 35

والثالث مساحة الدائرة

http://www.7asabco.com/attachment.php?attachmentid=2568&stc=1&d=1262436537

والرابع مساحة المثلث

http://www.7asabco.com/attachment.php?attachmentid=2567&stc=1&d=1262436501

الأكواد

الاول كوده
Private Sub Command1_Click()
If Option1.Value = True Then Form2.Show
If Option2.Value = True Then Form3.Show
If Option3.Value = True Then Form4.Show

End Sub

والثاني كوده مثل كود برنامج مساحات في الكتاب

أما الثالث

Private Sub Command1_Click()
Dim a As Single
Const n = 3.14
a = text1.Text
text2.Text = n * a ^ 2
End Sub

والرابع

Private Sub Command1_Click()
Dim a, b As Single
a = text1.Text
b = text2.Text
text3.Text = a * b / 2
End Sub

[نهر الاحلام]

جربت الآكوآآد آللي حطيتيها متميزه
بس مآضبطت معي يطلع لي الناتج 0

>>> آدري دآآخله عررض =)

[متميزه]

اي كود

؟؟؟؟؟

وضحي

عندنا ثلاث مسائل

والاستاذه تمارا صاحبة الأكواد ^ ^

[نهر الاحلام]

اكواد
المثلث والدائره

خطآ مطبعي =)
اقصد الاستاذه تمارا

وعذرا ع الازعاج

[تماراTMARA]

اختي الغالية

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

[نهر الاحلام]

ايه فآآهمه بس مدري لييه ما ظبط
سويت آكثر من مره ونفس الحكآآيه

[تماراTMARA]

جربتها وماشية معي تمام 100%
ماني عارفة ايش السبب اللي ما شغل الكود تمام معاك

[نهر الاحلام]

الحمد لله اشتغل معي
كان عندي خلل بسيط وما انتبهت له زين

تمارا
مشكوره وآسفه اتعبتك معي

[تماراTMARA]

العفو يا غالية
لا تعب ولا شيء الناس لبعضها
وفقك الله