الفــــــوزان
28-02-2002, 08:31 PM
اليكم الجزء الثاني من سلسلة دروس الفيجوال بيسك-تصميم البرامج
اليوم نستعرض كيفية انشاء برنامج لحساب الزكاة للمبالغ المالية
اولاً//
كود البرنامج:
Private Sub Command1_Click()
Dim m, z
m = Text1.Text
z = 0.025 * m
If m > 1000 Then
Text2.Text = "الزكاة=" & z
Else
Text2.Text = "البرنامج يقوم بحساب الزكاة اكثر من 1000"
End If
End Sub
ثانيا طريقة التصميم//
1/ انشاء مربع نص للادخال العدد 1textboox
2/ انشاء مربع نص للاخراج العدد 2textbox
3/انشاء زر الامرcommandbutn والنقر عليه مرتين للادخال الكود السابق وتسمية الزر (احسب الزكاة)
ثالثا/شرح الكود
Private Sub Command1_Click()عند تنفيذ الاجراء بالنقر على زر احسب الزكاة
Dim m, zالمتغيرات المبلغ و حساب الزكاة
m = Text1.Text الحصول على البيانات المدخله وتخزينها في المتغير m
z = 0.025 * m قيمة الزكاة المبلغ m مضروب في0.025
If m > 1 Then اداة الشرط اذا كان المبلغ اكثر من ريال 1
Text2.Text = "الزكاة=" & z اذا تحقق الشرط نحسب الزكاة
Else والا
Text2.Text = "البرنامج يقوم بحساب الزكاة اكثرريال0" اظهار الرساله
End If نهاية اداة الشرط
End Sub نهاية الاجراء
رابعا//
قم بحفظ عملك
اي استفسار احنا حاضرين
وهذه صورة البرنامج
اليوم نستعرض كيفية انشاء برنامج لحساب الزكاة للمبالغ المالية
اولاً//
كود البرنامج:
Private Sub Command1_Click()
Dim m, z
m = Text1.Text
z = 0.025 * m
If m > 1000 Then
Text2.Text = "الزكاة=" & z
Else
Text2.Text = "البرنامج يقوم بحساب الزكاة اكثر من 1000"
End If
End Sub
ثانيا طريقة التصميم//
1/ انشاء مربع نص للادخال العدد 1textboox
2/ انشاء مربع نص للاخراج العدد 2textbox
3/انشاء زر الامرcommandbutn والنقر عليه مرتين للادخال الكود السابق وتسمية الزر (احسب الزكاة)
ثالثا/شرح الكود
Private Sub Command1_Click()عند تنفيذ الاجراء بالنقر على زر احسب الزكاة
Dim m, zالمتغيرات المبلغ و حساب الزكاة
m = Text1.Text الحصول على البيانات المدخله وتخزينها في المتغير m
z = 0.025 * m قيمة الزكاة المبلغ m مضروب في0.025
If m > 1 Then اداة الشرط اذا كان المبلغ اكثر من ريال 1
Text2.Text = "الزكاة=" & z اذا تحقق الشرط نحسب الزكاة
Else والا
Text2.Text = "البرنامج يقوم بحساب الزكاة اكثرريال0" اظهار الرساله
End If نهاية اداة الشرط
End Sub نهاية الاجراء
رابعا//
قم بحفظ عملك
اي استفسار احنا حاضرين
وهذه صورة البرنامج