طلب شرح برنامج الزكاة

[فيونكه فوشيه]

السلام عليكم ورحمه الله وبركاته
راح اذكر لكم مشكلتي(من طلب منك)
انا قدمت علي وظيفه مدرسه حاسب (وبعدين)
والمشكله اقبلوني وكنت فررررحانه
لكن المصيبه طلبو مني اشرح للطالبات ثالث ثانوي
تطيبق الزكاه في الفيجول بيسك والمصيبه انه مامعي
الا دبلوم حاسب لا ومخذتها من معهد اهلي
والمهندسه شرحته لكن ما شرحتلي برنامج الزكاة
وانا ماعندي خلفيه عن طريقه شرح تطبيق بكل مراحله
وطبعا معايا منافسات لكن
ارجو من قراء بان يساعدني كيف احضر الدرس
لو فيه افكار لاتبخلوا عليه انتو كرما وانا استاهل(ميانه)

[فيونكه فوشيه]

ياعالم ردووو تكفففووووون

[فيونكه فوشيه]

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

[متميزه]

مرحبا ..
لما نرغب تصميم برنامج في فجول بيسك
لابد ان نمر بـ مراحل
أولا ... تحديد عناصر المسألة
المدخلات .. مايتم ادخالة للبرنامج
عملية المعالجة ...مايتم من عمليات على المدخلات
المخرجات .. ناتج البرنامج من العملية

في برنامج الزكاة
المخلات .. المبلغ المرغوب تزكيته ونرمز له m
العمليه .. المبلغ ×0.025
يعني m ×0.025=Z
المخرجات .. قيمة الزكاة z

ثانيا .. كتابة الخطوات الخوارزمية
1 ادخل مبلغ الزكاة M
2 احسب m ×0.025=Z
3 اطبع Z
4 نهاية

ثالثا .. المخطط الإنسيابي

رابعا ..كتابة البرنامج وتمر بثلاث مراحل
1 تصميم الواجهه
2 ضبط الخصائص
3 كتابة التعليمات

وسنأخذ كل مرحلة بشيء من التفصيل
1 تصميم الواجهه



2 ضبط الخصائص
التحكم بخصائص ادوات النافذة وخصوصا
خاصية Caption


3 كتابة التعليمات
وهو كود البرنامج لاجراء عملية المعالجة واظهار المخرجات

Private Sub Command1_Click ( )
بداية الاجراء .. اذا نُقر على الاداة الامر نفذ التالي
Dim m As Single,z As Single
تعريف المتغيرين M ,Z
m = Text1.Text
تخزين قيمة المبلغ المدخل في مربع النص Text1 في المتغير M
z = 0.025 * m
اجراء العملية الحسابية على المبلغ وتخزين النتيجة في المتغيير Z
If m > 400 Then
z & " الزكاة= " = Text2.Text
اذا كانت قيمة Z اكبر من 400 فاجعل مربع النص Text2 يأخذ قيمة Z
Else
وإن لم تكن
"البرنامج يقوم بحساب الزكاة لأكثر من 400 ريال " = Text2.Text
فاجعل مربع النص Text2 يأخذ قيمة "البرنامج يقوم بحساب الزكاة لأكثر من 400 ريال"
End If
نهاية جملة If

End Sub
نهاية الإجراء

[فيونكه فوشيه]

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

[فيونكه فوشيه]

طيب اختي المميزة المدرسه طالبين مني ان احضر تحضير
للدرس وانا لاعرف طريقه ولا اعرف الاهداف ماذا اكتب فيها
ممكن تزويديني بها

[متميزه]

مادري ايش حدود درسك
فاخوذي من هنا مايناسبك

http://www.7asabco.com/showthread.php?t=9660&page=2