منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

منتديات حاسبكو المتخصصة بمادة الحاسب الآلي (http://www.7asabco.org/index.php)
-   الأرشـــــــــيــــــــــــف (http://www.7asabco.org/forumdisplay.php?f=87)
-   -   طريقة عمل تطبيق حساب المساحات (http://www.7asabco.org/showthread.php?t=9894)

حاسوب2010 12-31-2009 06:32 PM

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

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

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

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

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


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

متميزه 01-01-2010 08:44 PM

مشاركة: طريقة عمل تطبيق حساب المساحات
 
حلو البرنامج ^_^ ادري ماشاورتن

المهم

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

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

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

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

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

وبس

تماراTMARA 01-02-2010 05:02 PM

مشاركة: طريقة عمل تطبيق حساب المساحات
 
3 مرفق
هذا تصميم بسيط للواجهات

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

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

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

http://www.7asabco.com/attachment.ph...1&d=1262436537

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

http://www.7asabco.com/attachment.ph...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

نهر الاحلام 01-02-2010 11:10 PM

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

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

متميزه 01-02-2010 11:20 PM

مشاركة: طريقة عمل تطبيق حساب المساحات
 
اي كود

؟؟؟؟؟

وضحي

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

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

نهر الاحلام 01-03-2010 12:41 AM

مشاركة: طريقة عمل تطبيق حساب المساحات
 
اكواد
المثلث والدائره

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

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

تماراTMARA 01-03-2010 01:10 AM

مشاركة: طريقة عمل تطبيق حساب المساحات
 
اختي الغالية

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

نهر الاحلام 01-03-2010 01:24 AM

مشاركة: طريقة عمل تطبيق حساب المساحات
 
ايه فآآهمه بس مدري لييه ما ظبط
سويت آكثر من مره ونفس الحكآآيه

تماراTMARA 01-03-2010 08:19 PM

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

نهر الاحلام 01-03-2010 11:34 PM

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

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


الساعة الآن 12:35 PM.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, vBulletin Solutions, Inc. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ

a.d - i.s.s.w