[أسامة صلاح]

جامعـة الإسكندرية

كليــــة التجـــــــارة

دبلوم الحاسب الآلي

الفرقــــة الثانيــــــة

الطالب/أسامة صلاح الدين محمود

خطوات تصميم البرنامج

1-تصميم التطبيق:

·وظيفة أو مهام التطبيق

·تحديد كيفية تنفيذ هذه المهام

·تحديد شكل وسلوك واجهة البرنامج

2-كتابة كود التطبيق الذى يعكس التصميم الثابت .

3-اختبار وتصحيح الأخطاء في الكود .

4-تنقيح التطبيق أو تحسينه .

5-توثيق التطبيق .

وبالنسبة للبرنامج الذى نحن بصدد إنشاؤه

خطوات تصميم المشروع

1-وظيفة أو مهمة التطبيق:

تحديد متوسط التكلفة المتغيرة للوحدة وتحديد هامش ونسبة هامش الربح

أ‌-كيفية تنفيذ مهمة أو وظيفة التطبيق

a. يسمح التطبيق للمستخدم بإدخال سعر بيع الوحدة والمواد المباشرة والاجور المباشرة ومعدل التحميل التقديرى الكلى والتكاليف الصناعية غير المباشرة الثابتة المقدرة و حجم الطاقة الطبيعية المقدرة.

b. ثم يقوم التطبيق بحساب عمولة المبيعات بمجرد الضغط على زر الأمر عمولة المبيعات ويظهرها في مربع نص عمولة المبيعات.

c.ثم يقوم التطبيق بحسابالتكلفة المتغيرة للوحدة بجمع المواد المباشرة والأجور المباشرة ومعدل التحيل التقديرى الكلىمطروح منة التكاليف الصناعية غير المباشرة الثابتة المقدرة مقسومة على حجم الطاقة الطبيعية المقدرة مضافا إلية عمولة المبيعات.

1-ثم يقوم التطبيق بحساب هامش ربح الوحدة بمجرد الضغط على زر سعر بيع الوحدة مطروحا منة التكلفة المتغيرة للوحدة.

2-ثم يقوم التطبيق بحساب نسبة هامش الربح بمجرد الضغط على زر هامش ربح الوحدة مقسوما على سعر بيع الوحدة.

3-ثم يقوم التطبيق بحساب نسبة التكلفة المتغيرة بمجرد الضغط على زر التكلفة المتغيرة للوحدة مقسوما على سعر بيع الوحدة.

2.تحديد شكل التطبيق

سيكون الشكل النهائي للتطبيق

كما بالشكل التالى .

إنشاء مشروع الشكل النهائيلتحديد متوسط التكلفة المتغيرة للوحدة وتحديد هامش ونسبة هامش الربح.

3. من قائمة Start اختار Programs ثم اختار مجموعة Microsoft Visual Studio.Net.

4. ثم أنقر Microsoft Visual Studio مرة أخرى.

5. كما بالشكل التالي:





6.- تبدا بيئة تطوير vs.net في العمل وبعد ثواني تظهر النافذة الأساسية في بيئة التشغيل محتوية على صفحة البدء Start Page كما بالشكل التالي:

7.انقر فوق الزر New Project الموجود في الشاشة السابقة يظهر مربع حواري بعنوان New Project وينقسم المربع الحواري إلى مربعين كما بالشكل التالي:

8.من المربع Project Types الموجود بالجزءالأيسر من الشاشة السابقة تأكد من اختيار المجلد Visual Basic Project لأننا نقوم بعمل مشروع بلغة Visual Basic.NET.

من المربع Templatesالموجود بالجزء الأيمن من الشاشة السابقة اختارWindows Application لأننا نقوم بعمل مشروع نوافذي.

ثم في مربع نص Project Name نقوم بكتابة قائمة الدخل ثم نحدد مكانالمشروع على القرص الصلب داخل مربع التحرير Location كما بالشكل التالي:

من الشاشة السابقة نضغط ok تقوم بيئة التطوير بإنشاء مشروع جديد يحتوى على نموذج واحد باسم Form1.vb كما في الشاشة التالية:

نقوم بتغير اسم النموذج إلى حساب متوسط التكلفة المتغيرة وتحديد نسبة وهامش الربح بدلا من form1 وذلك بإزالتها من أمام المربع Text الموجود في الخصائص .

وبالضغط على الخاصية Right to Leftيظهرسهم بالضغط علية ثم اختيارالقيمة True وذلك لجعل التصميم باللغة العربية ويظهر كما بالشكل التالي:

12) ثم نذهب إلى شريط الأدوات ونختار الأداة Labelثم نرسمها على النموذج ثم نقوم بتغيير اسمها في الكود عن طريق الخاصية Name إلى lblModkalat ثم نقوم بتغيير اسمها الذى سوف يظهر للمستخدم إلى المدخلات كما بالشكل التالي:

13 - ثم نذهب إلى شريط الأدوات ونختار الأداة Labelثم نرسمها على النموذج ثم نقوم بتغيير اسمها في الكود عن طريق الخاصية Name و نقوم بتغيير اسمها الذى سوف يظهر للمستخدم إلى باقى المربعات الحوارية بالتتابع

كما يلى:

1 - سعر بيع الوحدة lblsar

2 – مواد مباشرة lblmoad

3 – أجور مباشرة lblagor

4 – معدل التحميل التقديرى الكلى lblelmoadal

5- التكاليف الصناعية غير المباشرة الثابتة المقدرة lblTkalefsnaiy a

6 - حجم الطاقة الطبيعية المقدرة lblhagmeltaka

7 – المخرجات lblmokragat

كما بالشكل التالي:



13 - نقوم برسم مربعات النصوص وذلك بالضغط على الأداة TextBox من شريط الأدوات ثم رسم المربعات المناسبة داخل النموذج ثم نقوم بضبط خصائصها فأمام الخاصية Name من شريط الخصائص اكتب الاسم الكودي لمربعات النصوص تباعا كما يلى :

1 - txtSarbeaثم نذهب إلى الخاصية Textوامسح النص المقابل وذلك بضغط مفتاح Deleteمن لوحة المفاتيح

وكذلك إلى باقى مربعات النص تباعا وتكرار نفس الخطوة فى مربعات النص التالية :

2-txtMmobashra

3-txtOmobashra

4-txtMoadl

5-txtTsenaaia

6-txtElhagm

7-txtElemola





8-txtTmotgira

9-txtHribh

10-txtNribh

11-txtNtaklafa

كما بالشكل التالي :



14- ثم نذهب إلي شريط الأدوات مرة أخرى ونختار الأداة Button ثم نقوم برسمها على النموذج كما سبق ونذهب إلي اسمها في الكود ويكون cmdElemola تم الاسم الذى سوف يظهر للمستخدم وهو عمـــولة البيـــــع وتظهر هذه الخطوات كما بالشكل التالي :

14) ثم نقوم بكتابة الكود الخاص بهذه الخطوة عن طريق النقر المزدوج على زر عمولة البيع بالنموذج فتظهر نافذة الكود.

أولا: كتابة كود الإعلان عن المتغيرات

بالضغط المزدوج على زر عمولة البيع وعندما يقوم البرنامج بفتح نافذة الكود نكتب الاكواد التالية

Dim dcSarbea As Decimal, sgMmobashra As Single

Dim crOmobashra, crMoadl, crTsenaaia, crElhagm, crElemola As Decimal

ثانيا:كتابة كود الأجراء.

بالضغط المزدوج على زر عمولة البيع في النموذج تظهر شاشة الكود ومكان المؤشر نكتب الكود التالي :

dcSarbea = txtSarbea.Text

sgMmobashra = txtMmobashra.Text

crOmobashra = txtOmobashra.Text

crMoadl = txtMoadl.Text

crTsenaaia = txtTsenaaia.Text

crElhagm = txtElhagm.Text

crElemola = 0.1 * txtSarbea.Text

txtElemola.Text = Format(crElemola, "Fixed")

ويظهر الكود في الشاشة كما بالشكل التالي:

تشغيل هذا الجزء من التطبيق.

-بالضغط على زر التشغيل من شريط الأدوات أو ضغط F5من لوحة المفاتيح تقوم بيئة التطوير في البداية بترجمة التطبيق لاكتشاف الأخطاء وإنشاء النسخة التنفيذية منه داخل مجلد التطبيق ومن ثم يتم تشغيل التطبيق وللاختبار ادخل القيمة 25 فى خانة سعر بيع الوحدة ثم ادخل القيمة 4 فى خانة المواد المباشرة ثم أدخل القيمة 4.5 فى خانة الأجور المباشرة ثم أدخل القيمة 6 فى خانة معدل التحميل التقديرى ثم أدخل القيمة 20000 فى خانة التكاليف الصناعية غير المباشرة الثابتة المقدرة ثم أدخل القيمة 10000 فى خانة حجم الطاقة الطبيعية المقدرة ثم اضغط الزر عمولة المبيعات ستجد أن البرنامج قد طبع القيمة 2.5فى مربع النص الموجود أمام الزر عمولة المبيعات كما بالشكل التالي :

15) نبدا في الجزء الثاني من النموذج وذلك بإضافة أزرارالأوامر الخاصة بمربعات النصوص للمخرجات التالية والتى تظهر للمستخدم :

1 – التكلفة المتغيرة للوحدة

2 – هامش ربح الوحدة

3 – نسبة هامش الربح

4 – نسبة التكلفة المتغيرة للوحدة

5 – زر الأمر خروج والذى يتيح لنا الخروج من شاشة العمليات كما بالشكل التالي :

16) ثم نقوم بكتابة الكود الخاص بهذه الخطوات عن طريق النقر المزدوج على زر التكلفة المتغيرة للوحدة فتظهر نافذة الكود

أولا: كتابة كود الإعلان عن المتغيرات

بالضغط المزدوج على زر التكلفة المتغيرة للوحدةوعندما يقوم البرنامج بفتح نافذة الكود نكتب الاكواد التالية :

Dim crSarbea As Integer, crMmobashra As Integer

Dim crOmobashra As Single, crMoadl, crTsenaaia, crElhagm, crElemola, crTmotgira As Integer

لتظهر في نافذة الكود كما بالشكل التالي :



ثانيا:كتابة كود الأجراء.

بالضغط المزدوج على زر التكلفة المتغيرة للوحدة في النموذج تظهر شاشة الكود ومكان المؤشر نكتب الكود التالي :

crSarbea = txtSarbea.Text

crMmobashra = txtMmobashra.Text

crOmobashra = txtOmobashra.Text

crMoadl = txtMoadl.Text

crTsenaaia = txtTsenaaia.Text

crElhagm = txtElhagm.Text

crElemola = txtElemola.Text / 100

crTmotgira = crMmobashra + crOmobashra + crMoadl - ((crTsenaaia / crElhagm) + crElemola / 100) + 2.5

txtTmotgira.Text = Format(crTmotgira, "Fixed")

لتظهر في نافذة الكود كما بالشكل التالي:





تشغيل هذا الجزء من التطبيق.

-بالضغط على زر التشغيل من شريط الأدوات أو ضغط F5من لوحة المفاتيح تقوم بيئة التطوير في البداية بترجمة التطبيق لاكتشاف الأخطاء وإنشاء النسخة التنفيذية منه داخل مجلد التطبيق ومن ثم يتم تشغيل التطبيق وللاختبار ادخل القيمة 25 فى خانة سعر بيع الوحدة ثم ادخل القيمة 4 فى خانة المواد المباشرة ثم أدخل القيمة 4.5 فى خانة الأجور المباشرة ثم أدخل القيمة 6 فى خانة معدل التحميل التقديرى ثم أدخل القيمة 20000 فى خانة التكاليف الصناعية غير المباشرة الثابتة المقدرة ثم أدخل القيمة 10000 فى خانة حجم الطاقة الطبيعية المقدرة ثم اضغط الزر عمولة المبيعات ستجد أن البرنامج قد طبع القيمة 2.5فى مربع النص الموجود أمام الزر عمولة المبيعات ثم أضغط الزر التكلفة المتغيرة للوحدة تجد أن البرنامج قد طبع القيمة15

-فى خانة التكلفة المتغيرة للوحدة ثم كما بالشكل التالي :

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

أولا: كتابة كود الإعلان عن المتغيرات كود الأجراء

بالضغط المزدوج على زر هامش ربح الوحدة وعندما يقوم البرنامج بفتح نافذة الكود نكتب الاكواد التالية :

Dim crSarbea As Integer, crMmobashra As Integer

Dim crOmobashra As Single, crMoadl, crTsenaaia, crElhagm, crElemola, crTmotgira As Integer

crSarbea = txtSarbea.Text

crMmobashra = txtMmobashra.Text

crOmobashra = txtOmobashra.Text

crMoadl = txtMoadl.Text

crTsenaaia = txtTsenaaia.Text

crElhagm = txtElhagm.Text

crElemola = txtElemola.Text / 100

crTmotgira = crMmobashra + crOmobashra + crMoadl - ((crTsenaaia / crElhagm) + crElemola / 100) + 2.5

txtTmotgira.Text = Format(crTmotgira, "Fixed")

لتظهر في نافذة الكود كما بالشكل التالي:





تشغيل هذا الجزء من التطبيق.

-بالضغط على زر التشغيل من شريط الأدوات أو ضغط F5من لوحة المفاتيح تقوم بيئة التطوير في البداية بترجمة التطبيق لاكتشاف الأخطاء وإنشاء النسخة التنفيذية منه داخل مجلد التطبيق ومن ثم يتم تشغيل التطبيق وللاختبار ادخل القيمة 25 فى خانة سعر بيع الوحدة ثم ادخل القيمة 4 فى خانة المواد المباشرة ثم أدخل القيمة 4.5 فى خانة الأجور المباشرة ثم أدخل القيمة 6 فى خانة معدل التحميل التقديرى ثم أدخل القيمة 20000 فى خانة التكاليف الصناعية غير المباشرة الثابتة المقدرة ثم أدخل القيمة 10000 فى خانة حجم الطاقة الطبيعية المقدرة ثم اضغط الزر عمولة المبيعات ستجد أن البرنامج قد طبع القيمة 2.5فى مربع النص الموجود أمام الزر عمولة المبيعات ثم أضغط الزر التكلفة المتغيرة للوحدة تجد أن البرنامج قد طبع القيمة15





-فى خانة التكلفة المتغيرة للوحدة ثم أضغط الزر هامش ربح الوحدة تجد أن البرنامج قد طبع القيمة10 كما بالشكل التالي :



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

كتابة كود الإعلان عن المتغيرات كود الأجراء

بالضغط المزدوج على زر نسبةهامش الربح وعندما يقوم البرنامج بفتح نافذة الكود نكتب الاكواد التالية :

Dim crSarbea As Integer, crMmobashra As Integer

Dim crOmobashra As Single, crMoadl, crTsenaaia, crElhagm, crElemola,

crTmotgira, crHribh, dcNribh As Decimal

crSarbea = txtSarbea.Text

crMmobashra = txtMmobashra.Text

crOmobashra = txtOmobashra.Text

crMoadl = txtMoadl.Text

crTsenaaia = txtTsenaaia.Text

crElhagm = txtElhagm.Text

crElemola = txtElemola.Text

crTmotgira = txtTmotgira.Text

crHribh = txtHribh.Text

dcNribh = txtHribh.Text / txtSarbea.Text

txtNribh.Text = Format(dcNribh, "Fixed")

لتظهر في نافذة الكود كما بالشكل التالي:



تشغيل هذا الجزء من التطبيق.

-بالضغط على زر التشغيل من شريط الأدوات أو ضغط F5من لوحة المفاتيح تقوم بيئة التطوير في البداية بترجمة التطبيق لاكتشاف الأخطاء وإنشاء النسخة التنفيذية منه داخل مجلد التطبيق ومن ثم يتم تشغيل التطبيق وللاختبار ادخل القيمة 25 فى خانة سعر بيع الوحدة ثم ادخل القيمة 4 فى خانة المواد المباشرة ثم أدخل القيمة 4.5 فى خانة الأجور المباشرة ثم أدخل القيمة 6 فى خانة معدل التحميل التقديرى ثم أدخل القيمة 20000 فى خانة التكاليف الصناعية غير المباشرة الثابتة المقدرة ثم أدخل القيمة 10000 فى خانة حجم الطاقة الطبيعية المقدرة ثم اضغط الزر عمولة المبيعات ستجد أن البرنامج قد طبع القيمة 2.5فى مربع النص الموجود أمام الزر عمولة المبيعات ثم أضغط الزر التكلفة المتغيرة للوحدة تجد أن البرنامج قد طبع القيمة15





فى خانة التكلفة المتغيرة للوحدة ثم أضغط الزر هامش ربح الوحدة تجد أن البرنامج قد طبع القيمة10 ثم أضغط الزرنسبة هامش الربح تجد أن البرنامج قد طبع القيمة 40, كما بالشكل التالي :



19 ) نقوم بكتابة الكود الخاص بهذه الخطوة عن طريق النقر المزدوج على زر نسبة التكلفة المتغيرة فتظهر نافذة الكود

كتابة كود الإعلان عن المتغيرات كود الأجراء

بالضغط المزدوج على زر نسبة التكلفة المتغيرة وعندما يقوم البرنامج بفتح نافذة الكود نكتب الاكواد التالية :

Dim crSarbea As Integer, crMmobashra As Integer

Dim crOmobashra As Single, crMoadl, crTsenaaia, crElhagm, crElemola,

crTmotgira, crHribh, dcNribh, crNtaklafa As Decimal

crSarbea = txtSarbea.Text

crMmobashra = txtMmobashra.Text

crOmobashra = txtOmobashra.Text

crMoadl = txtMoadl.Text

crTsenaaia = txtTsenaaia.Text

crElhagm = txtElhagm.Text

crElemola = txtElemola.Text

crTmotgira = txtTmotgira.Text

crHribh = txtHribh.Text

crNtaklafa = txtTmotgira.Text / txtSarbea.Text

txtNtaklafa.Text = Format(crNtaklafa, "Fixed")

لتظهر في نافذة الكود كما بالشكل التالي:













تشغيل هذا الجزء من التطبيق.

-بالضغط على زر التشغيل من شريط الأدوات أو ضغط F5من لوحة المفاتيح تقوم بيئة التطوير في البداية بترجمة التطبيق لاكتشاف الأخطاء وإنشاء النسخة التنفيذية منه داخل مجلد التطبيق ومن ثم يتم تشغيل التطبيق وللاختبار ادخل القيمة 25 فى خانة سعر بيع الوحدة ثم ادخل القيمة 4 فى خانة المواد المباشرة ثم أدخل القيمة 4.5 فى خانة الأجور المباشرة ثم أدخل القيمة 6 فى خانة معدل التحميل التقديرى ثم أدخل القيمة 20000 فى خانة التكاليف الصناعية غير المباشرة الثابتة المقدرة ثم أدخل القيمة 10000 فى خانة حجم الطاقة الطبيعية المقدرة ثم اضغط الزر عمولة المبيعات ستجد أن البرنامج قد طبع القيمة 2.5فى مربع النص الموجود أمام الزر عمولة المبيعات ثم أضغط الزر التكلفة المتغيرة للوحدة تجد أن البرنامج قد طبع القيمة15





فى خانة التكلفة المتغيرة للوحدة ثم أضغط الزر هامش ربح الوحدة تجد أن البرنامج قد طبع القيمة10 ثم أضغط الزرنسبة هامش الربح تجد أن البرنامج قد طبع القيمة 40, ثم أضغط الزرنسبة التكافة المتغيرة تجد أن البرنامج قد طبع القيمة 60, كما بالشكل التالي:



0ضافة زر الأمر خروج وكتابة اسمه الكودي أمام الخاصية Name وليكن cmdexit وكتابة الاسم الذى يظهر للمستخدم وهو خروج ويظهر شكله بالنموذج كما يلي :



بالضغط المزدوج على زر الخروج في النموذج تظهر شاشة الكود في مكان المؤشر نكتب كلمة end كما بالشكل التالي :

وبذالك نكون قد انتهينا من تصميم البرنامج وسنجده محفوظ تلقائيا في المكان الذى حددناه من قبل .انتهى بحمد الله وتوفيقة ولا يسعنا إلا أن نشكر الدكتور /أيمن شتيوى على ما أبداة من مجهود طوال العام لخدمة طلبة دبلومة الحاسب الالى والله الموفق

مقدمة/ أسامة صلاح الدين محمود

[aliomer]

برنامج اكثر من رائع

[أسامة صلاح]

[align=center]
ربنا يكرمك يارب
[/align]