السلام عليكم و رحمة الله و بركاته :-

الكل منا هواة البرمجة يعرف ان التقليد الشائع في اي دورة برمجية هو البداية بكتابة برنامج فقط يظهر كلمة hello world… و طبعا كنا نستخدم سطر الاوامر ليخرج لنا هذه الجملة الترحيبية… و لكن ماذا لو اردنا ان نجعله برنامج ذو واجهة رسومية الن يكون اكثر احترافية ؟

ثم هذا يعطينا امتياز ان الملف بمجرد النقر عليه يعمل كبرنامج مستقل فلا حاجة لسطر اوامر و لا غيره …

طيب ماذا سنحتاج ؟

perl + Tk module

البيرل معروفة لدى مستخدمي لينكس فهي تأتي افتراضيا … و لكن ان لم يكن لديك Tk فيمكنك تنصيبه بهذا الامر البسيط و اترك الباقي للكومند لاين ..

sudo cpan install Tk

جميل الان نحن جاهزون فقط افتح بيرل جديد و اكتب هذه الاوامر:

#!/usr/local/bin/perl -w

 — هذا السطر معروف فقط يقوم بتحديد مكان مترجم البيرل و w- تعني استخدام مكتشف الاخطاء
use strict;

— استخدام هذا الامر يلزمنا بالتعريف عن المتغير قبل استخدامه كما الحال في السي بلس بلس ..
use Tk;

— اعتقد ان هذا واضح نخبر البيرل اننا نريد برنامج ذا واجهة رسومية باستخدام Tk
my $mw = new MainWindow;

– نبدا بتعريف المتغير ام دبليو و نسند له قيمة النافذة الرئيسية
$mw->Label(-text => ‘Hello World!’)->pack;

– في النافذة الرئسية نكتب عبارة هيلو ورد و اما لماذا الكود يظهر غريبا ؟ لان هذه برمجة كائنية يعني كلاسات و اوبجكتس فهي تختلف عن طريقة كتابة الكود الطبيعي للبيرل ..
$mw->Button(-text => ‘Quit’,

– هنا نضيف زر الخروج و اعتقد انكم تعرفون الفرق بين البتن هنا و الليبل هناك و اما التكست فهو ما يظهر للمستخدم من نص ..

     -command => sub{exit} )->pack;
— هنا اضفنا اضفنا امر الخروج من البرنامج في حال تم النقر على زر خروج

MainLoop;
— هذه تعني نهاية الواجهة الرسومية

طيب طيب الان لدينا برنامج كامل احفظ الملف بامتداد بيرل و من ثم من خصائص الملف اجعله قابلا للتشغيل ..

الان مجرد النقر على هذا الملف سيخرج لك برنامج ذا واجهة رسومية فقط مكتوب فيه هيلو ورد و به ايقونة للخروج …

هذه الية عمل انشاء برامج ذات واجهة رسومية في بيرل باستخدام Tk  و طبعا يوجد غيرها مثل GTK ..

لن اضع صورة هنا .. جرب الكود و سترى بنفسك …

شيء بسيط و جميل و مفيد !!!…

ردك: