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

[متميزه]

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

في برنامج الزكاة
المخلات .. المبلغ المرغوب تزكيته ونرمز له 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
نهاية الإجراء