Delphi/Pascal | Библиотеката CRT

Потребителски панел

Категории

C/C++ (17)

C# (8)

Facebook

Библиотеката CRT | Автор: admin | Дата: 17.09.2009

Преди да започнем с изучаването на IF проверката и цикъла FOR, ще се запознаем с функцийте от библиотеката crt (съкратено от cathode-ray tube). За да използвате функциите съдържащи се в нея, първо трябва да я включите в програмата. Това става с запазената дума uses:

Uses Crt;

А сега ето и някои от най-използваните функции на библиотеката:

Clrscr - Изчиства екрана.
Gotoxy(int,int) - Позиционира курсура по зададени координати.
Textbackground(word/int) - Цвят на фона.
Textcolor(word/int) - Цвят на текста.
Readkey - Чете копче натиснато от клавиатурата. Може да бъде записано в променлива.
Delay(int) - Време на изчакване.
Halt(parameter) - Програмата приключва.

А сега и малко примери, за да го разберете по-добре:

* Clrscr:

writeln('When you press enter, the screen would be cleared!');

readln;

clrscr;

* Gotoxy(int,int):

gotoxy(10,10);

Writeln('The position is 10 pixels from the left of the screen, and ten pixels');

Writeln('from the top of the screen.');

readln;

* Textbackground(word/int):

Textbackground(red); {word - red}

Writeln('Note the difference');

Textbackground(5); {integer - 5}

ClrScr;

Writeln('Note the difference'); Readln;

* Textcolor(word/int):

Textcolor(red); {word - red}

Writeln('Text colour');

Textcolor(5); {integer - 5}

Writeln('Text colour'); Readln;

* Readkey:

Пример 1:

Writeln('Press ANY key!!!');

Readkey;

Пример 2:

Writeln('Press ANY key');

Keypress := readkey; {keypress is a DECLARED string variable(can be an integer variable)}

Writeln(Keypress);

* Delay(int):

Writeln('1');

Delay(1000);{1000 milliseconds}

Writeln('2');

Delay(1000);

Writeln('3');

Readln;

* Halt(int):

writeln('Press enter and the program terminates!);

Readln;

Halt(0);

Урока е преведен специално за Programming-bg.com . Моля не копирайте без моето съгласие!
Източник: pascalprogramming.byethost15.com

Беше ли Ви от полза урокът?

Още уроци за Delphi/Pascal

Искате да пишете коментари? Влезте от тук или се регистрирайте!

Коментари (1):

От programer на 01.07.2010 в 00:52 часа

много съм благодарен за този урок wink

... жалко че паскал няма толкоз големи възможности..