بعد جهد جهيد من القراءة ومحاولة تعلم هذه اللغة أشرح الآن ما فهمته على مشروع عملي بسيط جدا أرجو أن ينال على إعجابكم .
سنجعل أول برنامج نكتبه هو برنامج حساب نسبة الأرباح
الخطوة الأولى:
قم بكتابة كروكي متكامل الخطوات عن مشروعك، مثال ذلك :
نريد أن نكتب برنامج يحسب لنا نسبة أرباح فإننا سنرسم الشكل الذي نراه مناسبا على سبيل المثال هذا الشكل :
ونجعله مقسما على القيمة ، نسبة الربح ، المجموع ويوجد زرين حدث هما خروج وإحسب لحساب الناتج.
الخطوة الثانية :
قم بتعيين أسماء لأدوات مشروعك .
على سبيل المثال :
سنسمي المربع الذي سندخل فيه المبلغ
txtSales
وطريقة كتابة الاسم :
أن نجعل الفأرة على المربع ونضغط عليها بالزر الأيمن ثم نختار خصائص ثم نجد من ضمن الخصائص :
Text
وهذه نكتب فيها ما نشاء أو نتركها فارغة.
وتجد من ضمن الخصائص :
Name
في هذه الخانة يجب أن يكون بالإنجليزي ونكتب فيها في مثالنا هذا
txtSales
ثم نسمي بقية المربعات كما فعلنا :
مربع النسبة نسميه:
txtPercent
مربع المجموع نسميه :
txtTotal
الخطوة الثالثة :
نسمي الأزرار أيضا كما فعلنا في مربعات الإدخال :
فنسمي مربع الخروج :
cmdExit
ونسمي مربع الحساب :
cmdCalculate
الخطوة الرابعة :
ننقر على زر الحدث وهو زر الحساب في مثالنا هذا مرتين بالفأرة ثم نبدأ بكتابة الكود البرمجي (كود الإجراء).
الخطوة الخامسة :
الإعلان عن المتغيرات :
نقوم بالإعلان عن المتغير بهذه العبارة :
Dim اسم المتغيرAs نوع المتغير
سنقوم بالإعلان بأن المتغير الأول من نوع الأعداد العشرية فيكون الإعلان بهذا الشكل :
Dim dcSales As Decimal
فـ dcSales
اسم المتغير
و Decimal
نوع المتغير وهو متغير موجود في الدوت نت للأعداد العشرية.
سنقوم الآن بالإعلان عن المتغيرات الأخرى وعليك اكتشافها بنفسك :
Dim sgPercent As Single
Dim crTotal As Decimal
الآن انتهينا من الإعلان عن المتغيرات والآن سيتم كتابة كود الإجراء (المراد يكود الإجراء هو توزيع الحدث على واجهة البرنامج)
كتابة كود الإجراء وكيفية الكتابة كالتالي :
نكتب اسم المتغير الذي أعلنا عنه وهو في الإعلان الأول :
dcSales
ثم نكتب علامة =
ثم نكتب اسم المربع الذي نريد أن يكون من الأحداث وهو المربع الأول الذي سيتم إدخال القيمة الأولى فيه ثم نضع نقطة
(.)
ثم نضع نوعه وهو
Text
فيكون الإجراء بهذا الشكل :
dcSales = txtSales.Text
المكتوب بالأحمر هو اسم المربع الأول
ثم نكتب كود الإجراء الثاني والثالث بنفس الطريقة الأولى فيكون بهذا الشكل :
sgPercent = txtPercent.Text / 100
crTotal = sgPercent * dcSales
txtTotal.Text = Format(crTotal, "Fixed")
وبالنسبة لزر الخروج اضغط عليه مرتين واكتب
End
والآن يصبح ما تم كتابته في كود الإجراء يهذا الشكل :
Dim dcSales As Decimal
Dim sgPercent As Single
Dim crTotal As Decimal
dcSales = txtsales.Text
sgPercent = txtPercent.Text / 100
crTotal = sgPercent * dcSales
txtTotal.Text = Format(crTotal, "Fixed")
الخطوة السادسة :
تشغيل التطبيق وإن شاء الله يعمل التطبيق بكل وضوح.
جرب التطبيق واكتب في المربع الأول :
1000
وفي المربع الثاني النسبة
10
سيخرج لك في المربع الثالث مجموع ربحك :
100.00
وبالتوفيق إن شاء الله
لدي بعض الأسئلة للإخوة الخبراء ولا غنى لنا عن إبداء الرأي والتصحيح .
