المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تعلم برمجة Pascal الدرس الثاني - الالوان , الاحداثيات , النوافذ و الصوت


اليمن أغلى
16-05-2008, 07:08 PM
مستوى الدرس :مبتدئ


الالوان :
لتغيير لون النص الذي يُطبع على الشاشه يمكننا استخدام الامر TextColor .

مثال :




program Colors;

uses
crt;

begin
TextColor(Red);
Writeln('Hello');
TextColor(White);
Writeln('world');
end.





الامر TextBackground يقوم بتغيير لون خلفية النص . اذا كنت تريد تغيير لون خلفية الشاشه إلى لون معيّن يجب ان تستخدم الامر ClrScr .





program Colors;

uses
crt;

begin
TextBackground(Red);
Writeln('Hello');
TextColor(White);
ClrScr;
end.





إحداثيات الشاشه :
يمكنك ان تضع السهم في اي مكان تريده في الشاشه بإستخدام الامر GoToXY . في الدوس , الشاشه بعرض 80 حرف و ارتفاعها 25 حرف . يتغير الطول و العرض في المنصات الاخرى , قد تتذكر الرسوم البيانيه في الرياضيات . احداثيات الشاشه كذلك تعمل بنفس الطريقه . في المثال الذي سوف نعرضه سوف نعرف كيف نحرّك المؤشر إلى العمود العاشر في الصف الخامس



program Coordinates;

uses
crt;

begin
GoToXY(10,5);
Writeln('Hello');
end.




النوافذ :
النوافذ ستسمح لك بتعريفها على الشاشه لكي تحتل المنطقه التي تطلبها . اذا قمت بإنشاء النافذه و قمت بتنظيف الشاشه سوف يتم تنظيف ما على الشاشه فقط . الامر Window يأخذ 4 بارامترات و هم إحداثيات (اعلى , يسار , يمين , اسفل) .



program Coordinates;

uses
crt;

begin
Window(1,1,10,5);
TextBackground(Blue);
ClrScr(Blue);
end.




الصوت :
الامر Sound يُصدر صوت بالتكرار الذي تطلبه منه الذي تطلبه منه . الامر Delay يأخذ الوقت بالثواني التي تخبره بها . يستخدم هذا الامر بين الامرين Sound و NoSound ليُصدر الصوت الاخير من مقدار معين من الوقت




program Sounds;

uses
crt;

begin
Sound(1000);
Delay(1000);
NoSound;
end.

ملكة اليمن
03-07-2009, 04:56 AM
يسلمووووووووووو


ويعطييييك العاافيه

عمر الشوافي
02-08-2009, 06:38 PM
مشكور اخي ويعطيك الف عافيه
بانتضار المزيد
تح ـــيتــي

المايسترو
16-08-2009, 06:32 PM
تسلم على الطرح الاكثر من الف رائع لاتحرمنا من جديدك

السهيل اليماني
30-08-2009, 08:15 PM
الله يعطيك الف عااااااااااااااااااااااااااااافيه
ولك جزيل الشكر والتقدير على هذا الجهد الكبير
تقبل تحياااااااااااااااااتي

شاب بزمن شايب
08-09-2009, 01:24 AM
باقي هذا نعرفه وكملنا ,,,
بارك الله فيك
ماقصرت اخي الكريم وتسلم يدك يا طويل العمر

الجنرال حافظ
28-09-2009, 06:27 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية
يالغالي
ولك جزيل الشكر والتقدير على هذا الجهد الكبير
تقبل تحياااااااااااااااااتي

عزيز نفس
30-04-2010, 10:06 AM
يعطييكِ العافيية اخي ..
طرح راائعَ ومتميز ..
وااصلِ ابداعكِ ونحن في انتظار جديدكِ ..
كنت هناإ ..!

الجمهوريه اليمنيه
06-06-2010, 01:40 PM
طرح رائع وموفق

تسلم وما قصرت

تحياتي


ابن


جمعان

زعيم اليمن
23-10-2010, 08:56 AM
تسلم والله اخي ع هذا الموضوع والجهد مبذوال

ربي يعطيك الف ع ـآفيه

القلب الذارف
19-01-2013, 12:49 PM
شرح كافي ووافي

الله يعطيك العافية