الالوان , الاحداثيات , النوافذ و الصوت فى بسكال
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: لغة باسكال pascal :: الدروس و المقالات
صفحة 1 من اصل 1 • شاطر
الالوان , الاحداثيات , النوافذ و الصوت فى بسكال
الدرس الثاني - الالوان , الاحداثيات , النوافذ و الصوت
الالوان :لتغيير لون النص الذي يُطبع على الشاشه يمكننا استخدام الامر 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.
ذوكا- .....
- تاريخ التسجيل : 26/05/2013
المساهمات : 92
النقاط : 156
التقيم : 12
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: لغة باسكال pascal :: الدروس و المقالات
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft