Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 15 стр.

                                                                          15




   7      6      5       4        3       2       1      0


Задает бит мерцания Задают цвет       Задают цвет символов
или яркости           фона

      TextAttr:= C1+16*C2+128; или TextAttr:= C1+16*C2;
C1 - цвет символов (от 0 до 15); С2 - цвет фона (от 0 до 7);
+128 - задает мерцание или заносит в бит яркости 1, т.е. задает режим
повышенной яркости.
      При выводе на экран можно перемещать курсор перед выводом в нужную
позицию. Для этого используется процедура: GotoXY(X,Y), где
      Х - координата курсора по оси х - номер позиции в строке;
      Y - координата курсора по оси у - номер строки.
      Координаты курсора задаются относительно текущего окна или
относительно начала координат экрана, если окна не открывались.
      Можно определить текущие координаты курсора на экране. Для этого
используются функции, выдающие результат типа Byte:
      WhereX - выдает горизонтальную координату - номер позиции в строке;
      WhereY - выдает вертикальную координату - номер строки экрана;
      Следующий пример иллюстрирует использование процедур Window,
GotoXY и функций WhereX и WhereY.
      Uses crt;
        Var x,y:byte; pred_mode:word;
            Begin clrscr;
             textbackground(7); {Установка цвета фона: 7 - светло-серый}
             textcolor(1); {Установка цвета символов: 1 - синий}
            { Включение звукового сигнала }
             sound(200); delay(500); nosound; {}
             window(10,5,70,20); { Установка размеров окна}
             clrscr; { Для появления окна его надо очистить}
             gotoxy(3,5); {Перемещение курсора в 3-ю позицию 5-й строки}
             write(' Координаты курсора в открытом окне');
             x:=wherex;y:=wherey; { Определение координат курсора в окне}
             writeln('x=',x,' y=',y); {Вывод координат - сам курсор во время
                                        вывода его координат перемещается}
             readkey;
             pred_mode:= LastMode; {Сохранение кода режима}
             textmode(co40);{Установка нового текствого режима }
             window(5,8,35,18); {Задание координат окна}
             textbackground(3); {3 - Cyan}
             textcolor(14); {14 - Yellow}

                                                                          15