التعارف و الصداقة و الحوار


 
الرئيسيةبحـثالتسجيلدخول

شاطر | 
 

 دروس في لغات البرمجة الباسكال - Pascal

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
المدير العام
Admin
avatar

انثى
عدد الرسائل : 289
العمر : 42
تاريخ التسجيل : 02/12/2008

مُساهمةموضوع: دروس في لغات البرمجة الباسكال - Pascal   الإثنين يناير 19, 2009 7:15 am

تعلم برمجة Pascal الدرس الثاني عشر - انشاء وحداتك الخاصّه



لابد و انك تعلم ما هي الوحدات , تذكر ذلك عندما استخدمنا الوحده crt , قد تضطر يوماً إلى كتابة العديد من الاجراءات و الدوال . يمكنك انشاء وحدتك الخاصه ووضعك اجراءاتك و دوالك فيها .

لإنشاء وحدتك الخاصه يجب اولا ان تنشئ ملف باسكال جديد بإسم MyUnit.pas . السطر الاول يجب ان يبدأ بالكلمه unit و بعدها اسم وحدتك . اسم الوحده يجب ان تكون مثل اسم الملف .



unit MyUnit;



في السطر التالي نقوم بإضافة الكلمه interface . بعدها يجب علينا وضع اسم الاجراء الذي سوف نستخدمه من هذه الوحده . على سيبل المثال قمنا بإنشاء داله بإسم NewReadln تشبه Readln و لكنها تسمح لك بتحديد عدد الحروف التي يمكن ادخالها .



unit MyUnit;

interface

function NewReadln(Max: Integer): String;




السطر الذي يليه نضيف الكله implementation . هذا هو المكان الذي يمكنك ان تكتب في كامل شيفرتك و اجراءاتك و دوالك . سوف نحتاج إلى استخدام الوحده crt لإنشاء NewReadln . بعد الانتهاء من الوحده يجب ان نكتب الامر end للانتهاء .



unit MyUnit;

interface

function NewReadln(Max: Integer): String;

implementation

function NewReadln(Max: Integer): String;
var
s: String;
c: Char;
begin
s := ';
repeat
c := ReadKey;
if (c = #Cool{#8 = BACKSPACE} and (s >< ') then
begin
Write(#8++#Cool;
delete(s,length(s),1);
end;
if (c >< #Cool and (c >< #13){#13 = ENTER} and (length(s) < Max) then
begin
Write(c);
s := s + c;
end;
until c = #13;
NewReadln := s;
end;

end.



بعدها قم بتخزين الوحده . الآن يمكننا استخدام وحدتنا MyUnit التي قمنا بإنشائها من خلال استدعاء الوحده و استخدام الداله التي فيها NewReadln .



program MyProgram;

uses
MyUnit;

var
s: String;

begin
s := NewReadln(10);
end.


هكذا نكون قد انتهينا و لله الحمد من سلسلة دروس لغة البرمجه باسكال , آملين انكم قد استفدتم و استمتعتم من هذه السلسله
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://ahlamannas.yoo7.com
 
دروس في لغات البرمجة الباسكال - Pascal
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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

اخبار الكمبيوتر و الانترنات

-
انتقل الى: