[ملك الهكرز]

التطبيق العملي:
الآن سنبدأ عمل برنامج كتطبيق عملي على الثوابت وأنواعها المختلفة، ولذلك سنقوم بإنشاء مشروع جديد يحتوي على نموذجين Tow Forms وهذه أول مرة نستخدم نموذجين في البرنامج حيث كنا سابقاً نقتصر على نموذج واحد ..

النموذج الأول Form1 سيكون كالشكل التالي:

وسنقوم بتغيير أسماء الأدوات كالتالي:

1 - lblcolor
2 - cmdgreen
3 - cmdred
4 - cmdblue
5 - lblabout
6 - cmdauthor
7 - cmdcompany
8 - cmdversion
9 - cmdform2

وربما تجد أننا اخترنا أسماءً غريبة للأدوات، فما السبب لذلك ؟؟
من المهم جداً تغيير أسماء الأدوات التي نقوم بإدراجها في النموذج من الأسماء الافتراضية ( Command1 - command2 ... الخ ) حيث أن هذه الإسماء ستصبح مصدر متاعب عند تشعب البرنامج وكثرة الأدوات فيه، فلن تعرف هذا الاسم يخص أي أدة و...
ويُفضل معظم المبرمجين حجز الثلاثة حروف من اسم الأداة للدلالة على نوعها، مثلا أداة الزر فنحن نرمز لها بـ cmd وأداة العنوان بـ lbl وأداة مربع النص بـ txt وهكذا .. ثم بعد أن نكتب هذا الرمز نكمل الاسم بما يدل على وظيفة الأداة فمثلاً الزر الذي يغير لون الخلفية إلى الأخضر من الممكن أن نسميه cmdgreen وهكذا ...

لنذهب بعد ذلك ونرى النموذج الثاني Form2 والذي سيظهر هكذا:

ويمكننا إدراج نموذج جديد من خلال العنصر Add Form من القائمة Project، وأسماء الأدوات كالتالي:
1 - lbltime
2 - lbldate
3 - cmdform1
4 - cmdmin
5 - cmdinf
6 - cmdclose

سنقوم أيضاً بإنشاء ملف برمجة منفصل Module، من خلال العنصر Add Module من القائمة Project ... وبعد إنشائه سنكتب الأوامر التالية بداخله:

كود

"Public Const version = "1.1.0
Public Const company = "شركة الإبداع"
Public Const author = "عبد الله فتحي"

وكما ترى فإن السطور الثلاثة السابقة تقوم بالإعلان عن ثلاث ثوابت عامة، وهذا يعني أنه بإمكاننا استخدامها في النموذجين الموجودين لدينا دون تفريق ..

والآن لنعد مرة أخرى إلى النموذج الأول ونقوم بكتابة الكود التالي في قسم التصريحات العامة أعلى نافذة الكود Genral_Declarations:

كود

Const green = &HC0FFC0
Const red = &HC0C0FF
Const blue = &HFFC0C0

وهذه السطور الثلاثة عبارة عن إعلانات لثوابت الألوان على مستوى الواجهة، ولست بحاجة إلى أن أخبرك بأنه لا يمكن استخدام هذه الثوابت الثلاثة في النموذج الثاني، ولكن يمكن استخدامها في أي جزء من النموذج الأول فقط.

بعد ذلك ستكون باقي الأكواد في هذا النموذج كالتالي:

- في حدث النقر على الزر "أخضر":

كود

Form1.BackColor = green

- في حدث النقر على الزر "أحمر":

كود

Form1.BackColor = red

- في حدث النقر على الزر "أزرق":

كود

Form1.BackColor = blue

- في حدث النقر على الزر "مصمم البرنامج":

كود

cmdauthor.Caption = author

- في حدث النقر على الزر "من نحن؟؟":

كود

cmdcompany.Caption = company

- في حدث النقر على الزر "رقم الإصدارة":

كود

cmdversion.Caption = version

- في حدث النقر على الزر "<<<":

كود

Form1.Hide
Form2.Show

وأعتقد أن شرح الأكواد السابقة لا يخفى عليكم فكل ما قمنا به هو تغيير خاصية ما بحيث تصبح مساوية لثابت من الثوابت التي أعلنا عنها سابقاً.
الجديد هو في الزر الأخير "<<<" حيث أن السطر الخاصية Hide تقوم بإخفاء النموذج، والخاصية Show تقوم بإظهاره.

إلى النموذج الثاني:

- في حدث النقر على الزر "<<<":

كود

Form2.Hide
Form1.Show

وهو عكس الكود الموجود في النموذج السابق وأعتقد أن السبب معروف.

- في حدث النقر على الزر "_":

كود

Form2.WindowState = 1

وهو تغيير الخاصية WindowState إلى القيمة (1) وذلك لتصغير النموذج.

- في حدث النقر على الزر "!":

كود

lblTime.Caption = Time
lbldate.Caption = Date
Form2.Caption = company

في السطر الأول والثاني استخدمنا دالتين جديدتين وهما Time و Date وهما يحتويان على الوقت والتاريخ ويمكن استخدامهما في أي جزء من البرنامج، على سبيل المثال لو كتبنا Print Time فإن النتيجة الطبيعية لهذا الأمر هو طباعة الوقت على النموذج ..
وفي السطر الثالث استخدمنا الثابت الذي أعلنا عنه في ملف الـ Module وكما ترى فإننا قد استخدمناه مرتين، المرة الأولى عند الضغط على الزر "من نحن؟؟" في النموذج الأول، والمرة الثانية الآن ...
وذلك بخلاف الثوابت الخاصة بالألوان فليس من الممكن أن نستخدمها في هذا النموذج لأننا أعلنا عنها كثوابت على مستوى النموذج الأول فقط، وبالتالي لا يمكن استخدامها هنا ... ويمكنك التجربة ومشاهدة النتيجة ...

- في حدث النقر على الزر "×":

كود

end

طبعاً لإنهاء البرنامج ..

=--------------------------------------------------------------------------------------------------=
مــــــــــــــــــــــــ لك الهكـــــــــــــــــــــ ـرز