TO DONATE : BTC => 1BU6R1C4AQ77LjLZswQNKFwAupw61i88Kn || PM => U4089661


اهم قوانين :1- منع الردود الباهتة مثل شكرااااا و أخواتها 2- لا يسمح بالمشاحنات الطائفية باآ شكل من الأشكال 3- عدم استعمال الألفاظ التافهة و الكلام البذىء 4- عدم وضع معرفات التواصل الأجتماعى بالردود 5- الأطلاع على كامل القوانين واجب 


العودة   الحماية للأبد -Security 4 Ever > قسم الدورات التعليميه > دورات الاعضاء > دورة البيرل Perl

دورة البيرل Perl خاص بدورة البيرل 2014

موضوع مغلق
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 26-06-2014, 04:41 PM
الصورة الرمزية Mr_AnarShi-T
Mr_AnarShi-T
عضو مميز
 
حـالة التــواجـد : Mr_AnarShi-T غير متواجد حالياً
تاريخ التسجيل: Jul 2011
الجــــنــــــس: ذكـر
المشاركات: 260
شكراً:246
تم شكره 717 مرة في 170 مشاركة
معدل تقييم المستوى: 9
Mr_AnarShi-T على طريق التميز
افتراضي مقدمة و مدخل Perl Tk

بسم الله الرحمان الرحيم

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

بعد التحية و السلام مقدمة أو مدخل عام للغة :

Perl Tk

وحدة البيرل Tk، المعروفة أيضا باسم PTK أو PTK، هي وحدة بيرل مصممة لخلق الحاجيات وغيرها من الكائنات الرسومية المستخدمة عادة لتشكيل واجهة المستخدم الرسومية (GUI) و التي تعني graphical user interfaces
من أهم إيجابيات هذه النوعية من اللغة هي أنها صممت بطريقة تكون التطبيقات فيها تستعمل في مختلف الأنظمة
UNIX®, Linux®, Macintosh, Microsoft® Windows® و غيرها و غيرها المهم تكون وحدة البيرل Tk مثبة فيه

هذا البرنامج التعليمي أيضا لا يعلمك لغة البرمجة الأساسية لهذا يتجب تواجد الأساسيات اللغة علي الأقل

دعونا نبدا
قولو معي بسم الله وعلى بركة الله

قبل البدأ في الأكواد و البرمجة يجب التحقق من أن يتم تثبيت بيرل وحدة بيرل Tk

كود:
Perl --version
-> للتحقق من إزا كان البيرل مثبت عبر رؤية الإصدار

نجي للتحقق من Perl Tk

perl -e "use Tk"
كود:

إذا تم العثور على الوحدة، يتفذ الأمر و تيم العودة إلى موجه الأوامر أما العكس تكون النتيجة
كود:
Can't locate Tk.pm in @INC (@INC contains: /opt/ActivePerl-5.8/site/lib 
        /opt/ActivePerl-5.8/lib .) at -e line 1.
        BEGIN failed--compilation aborted at -e line 1.
إذا كنت تستخدم UNIX أو Linux طريقة واحدة لتحميل وتركيب وحدات بيرل
هو استخدام The Comprehensive Perl Archive Network CPAN

كود:
perl –MCPAN –e shell
        install Bundle::CPAN
        reload cpan
        install Tk
إزا كنت علي الوندوز فيك تستخدم PPM من خلال أمر ppm من ثم تنزيل الوحدة أو المكتبة

نبدأ في النرمجة من خلال إنشاء إطار Create Windows
كالعادة نبدأ من خلال Hello World Program

#!/usr/bin/perl -w
# Display Hello World program
كود:
use Tk;
use strict;
        
my $mw = MainWindow->new;
$mw->geometry("200x100");
$mw->title("(c) sec4ever");
        
$mw->Label(-text => 'Hello World')->pack();
        
$mw->Button(-text => "Close", -command =>sub{exit})->pack();
        
MainLoop;
بعد التنفيذ رح تكون النتيجة



نجي لشرح الكود سطر سطر :
كود:
use Tk;
use strict;
المكتبات اللازمة الأولي هي وحدة البيرل Tk
و التانية وظيفيها يساعد على العثور على أي الأخطاء المطبعية أو الأخطاء المحتملة

كود:
my $mw = MainWindow->new;
لإنشاء النافذة الرئيسية للتطبيق، استخدم MainWindow وإسناد ذلك إلى oct $mw بمثابة الوالد لجميع الحاجيات الأخرى:
كود:
$mw->geometry("200x100");
$mw->title("(c) Sec4ever");
تعيين حجم الإطار الرئيسي إلى 200 × 100 وعنوان النافذة (c) sev4ever

كود:
$mw->Label(-text => 'Hello World')->pack();
إنشاء تسمية أو ما يعرف بLabel داخل النافذة الرئيسية مع التسمية التوضيحية Hello World
كود:
->pack();
وظيفتها تستخدم لعمل المكان أو موقع التسمية في الإطار بس من دون dimention يعني رح تضعها في وسط الإطار
دايما من دون تحديد موقع الوسط

كود:
$mw->Button(-text => "Close", -command =>sub{exit})->pack();
هذا الخط يخلق الزر إغلاق داخل النافذة الرئيسية. عند تفعيلها من خلال نقرة ماوس أو لوحة المفاتيح التي تنفذها، و بعد الضغط أو تنفيد الزر يتم الخروج أي exit & die
مرة أخرى، لأن هذا الزر يأخذ مساحة في الإطار الرئيسي، تحتاج إلى استخدام وظيفة حزمة pack() لحساب المساحة المستخدمة.

كود:
MainLoop;
قبل تنفيذ MainLoop، تتم قراءة كل شيء في الكود، وعلى استعداد لتنفيذه. ثم، عندما يتم استدعاء MainLoop، يتم تنفيذ جميع المهام وقراءة البيانات ويتم عرض واجهة المستخدم الرسومية.

إن شاء الله في دروس أخري رح نتطرق إلي أشياء أخري مثل Widgets & Menus & Windows and Dialogs
و غيرها  

 

 

Perl & Java Lov3r

No perl No life
10 أعضاء قالوا شكراً لـ Mr_AnarShi-T على المشاركة المفيدة:
موضوع مغلق

الكلمات الدلالية (Tags)
أدخل, مقدمة, perl, tk


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
[توضيح] شعر [ أنا العربى لا أخجل ] ! ... Gu!n3 Security بوح الخواطر 3 10-01-2015 08:45 PM
مدخل إلى ثغرات Buffer [email protected] أساسيات لغة الأسمبلي 4 05-07-2014 09:57 PM
[استفسار] مقدمة و مدخل Perl Tk b0y دورة البيرل Perl 4 03-07-2014 03:13 AM
[شرح كتابى] مدخل الى Common Gateway Interface [Perl] CGI s4udiT3rr0rist دورة البيرل Perl 0 29-04-2014 11:48 PM


الساعة الآن 09:28 AM