مثال 3-3 الفصل الثالث تطبيق على Listbox

[س ا يوسف]

يوضح الشكل واجهة المستخدم لبرنامج فوائد البنوك . في هذا البرنامج يقوم العميل بادخال قيمة رأس المال ومعدل الفائدة وعدد سنوات الاستثمار ويقوم البرنامج بعرض قيمة مستحقات العميل التى يمكنه ان يسحبها من اول سنة الايداع حتى اخر سنة في مدة الاستثمار
ويمكنك استخدام المعادلة التالية لحساب القيمة المستحة بعد عدة سنوات
Amount= principal (1+rate/100)^n
حيث القيمة المستحقة = Amount و قيمة رأس المال = principal و معدل الفائدة = rate وعدد السنوات = n

[س ا يوسف]

احنا عندنا
زر لحساب وعرض المبالغ
وزر لمسح البيانات استعداد لادخال بيانات اخري
نبدأ بالاسهل المسح
نكتب الاكواد داخل معالج الحدث button2 اللي هو clear
لمسح المدخل في textbox اللي اسمها txtPrince الموجودة على الشكل اللي احنا بنسميه Me

""=Me.txtPrinc.Text

لمسح المدخل التاني في textbox اللي اسمها txtInterest الموجودة على الشكل اللي احنا بنسميه Me

""= Me.txtInterest.Text

لمسح المدخل الثالث في textbox اللي اسمها txtYears الموجودة على الشكل اللي احنا بنسميه Me

"" = Me.txtYears.Text

لمسح الـ listbox اللي اسمها lstAmount الموجودة على الشكل اللي احنا بنسميه Me

() Me.lstAmount.Items.Clear

لجعل المؤشر داخل الـ textbox اللي اسمها txtPrince الموجودة على الشكل اللي احنا بنسميه Me

()Me.txtPrinc.Focus

[س ا يوسف]

الاكواد الخاصة بحساب الفائدة تكتب في معالج الحدث button1 اللي اسمه calculate
احنا عندنا مدخل من txtPrinc رأس المال يبقى لازم يحول الي عددي ( والنوبدي حنستخدم val علشان تتجاهل $ لو المستخدم ادخلها مع المبلغ وكمان لا يظهر رسائل خطاء لو دخل احرف ويعتبرها صفر ) ونضع ما ينتج عن التحويل في مخزن اسمه principal
نعمل المخزن الاول بـ dim والنوع decimal علشان دا فلوس

Dim principal as decimal

نحول المدخل من txtPrinc اللي موجود على الشكل Me ب val ونضعه في principal

(principal = Val(Me.txtPrinc.Text

احنا عندنا كمان مدخل من txtInterest معدل الفائدة يبقى لازم يحول الي عددي ( والنوبدي حنستخدم val علشان تتجاهل $ لو المستخدم ادخلها مع المبلغ ) ونضع ما ينتج عن التحويل في مخزن اسمه Interest
نعمل المخزن الاول بـ dim والنوع decimal علشان دا كسر ويهمنا الدقة فيه

Dim Interest as decimal

نحول المدخل من txtInterest اللي موجود على الشكل Me ب val ونضعه في Interest

( Interest = Val(Me. txtInterest.Text

احنا عندنا كمان مدخل من txtYears عدد السنوات يبقى لازم يحول الي عددي ممكن برده نستخدم val ونضع ما ينتج عن التحويل في مخزن اسمه Years
نعمل المخزن الاول بـ dim والنوع integer علشان دا عدد صحيح

Dim Years as integer

نحول المدخل من txtYears اللي موجود على الشكل Me ب val ونضعه في Years

(Years= Val(Me. txtYears.Text

المبلغ المستحق لابد ان يكون له مخزن نسميه Amount ولابد من النوع decimal علشان فلوس

Dim amount As Decimal

عايزين نعمل كلمة " السنة" وبعد منها بمجموعة مسافات كلمة " مبلغ مستحق " داخل ال listbox اللي اسمها lstAmount ب اضافة add عنصر items داخل ال lstAmount اللي داخل الشكل Me
وحنستخدم ControlChars.Tab لترك عدة مسافات

("السنة" & ControlChars.Tab & "المبلغ المستحق")Me.lstAmount.Items.Add

احنا عايزين نحسب المبلغ حسب المعادلة ونضع القيمة والسنة داخل الـ listbox وكمان نكرر دا عدد السنوات المدخله Years
يبقى لابد من وجود عداد اي كل سنة لوحدها ولازم يكون لها مخزن اسمه year بدون s ومن التوع integer

Dim year As Integer

نكرر باستخدام for …. Next

For year = 1 To years

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

(amount = principal * ((1 + interest / 100) ^ year

وكمان ايه اللي حيكرر وضع السنة والمبلغ الناتج داخل ال listbox

(("Me.lstAmount.Items.Add(year & ControlChars.Tab & Format(amount, "###.00

وعملنا format علشان المبلف لا يزيد عن خانتين عشريتين
ننهي الحلقة التكرارية

Next

[س ا يوسف]

وهذا هو البرنامج

[أميرة الدنيا]

يسلموووووووووو

[الزهراء]

شكرا
جزاكم الله خيرا

[محمد بيك حواش]

مشكوووور