Веб программирование

Модуль crt

 
 


Всем снова привет! В этой статье я, как и обещал расскажу вам о модуле CRT в Паскале. У этого модуля пять основных возможностей:
1. Разукрашивание строк(16 цветов).

2. Разукрашивание цвета за текстом и фона консоли.(16 цветов).

3. Очистка консоли(удаление всех строк).

4. Задержка.

5. Воспроизведение звука через системный динамик(предыдущая статья).

В этом модуле всего 16 цветов(от 0 до 15). 
Для изменения цвета текста нужно ввести перед выводом строки строчку: TextColor({цвет текста(0-15)});
Вот так:
TextColor(10);
Writeln('Цветной текст');
Для отчистки экрана нужно прописать: clrscr;

Для изменения цвета фона за текстом нужно прописать: TextBackGround({цвет текста(0-15)}); Если после функции было прописано clrscr, то консоль окрасится нужным цветом.
Задержка: эффект, который задерживает предыдущий пункт алгоритма на указанное количество миллисекунд.
Вот так:

Delay(3000);

Writeln('Я опоздал?');

И небольшой пример:


____________________________________________________________
program console_color;

var a, c, b:integer;

begin
For c:=1 to 20 do

begin

Delay(1000);

a:=random(15);

b:=random(15);

TextBackGround(a);

clrscr;

TextColor(b);

Writeln('Привет! Правда, красиво?!');

end;

end.
____________________________________________________________
Вот и всё! Спасибо за просмотр! Ждём новых статьей!


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.