Использование подпрограмм для работы с окнами в Pascal
1:04 пп | Программирование Автор: prepod
Использовать подпрограммы – удобно и выгодно!
Обычный способ создания окон
В Pascal для создания на экране видимого окна удобно использовать 4 команды вместе
Window (X1,Y1,X2,Y2); Textcolor (ct); Textbackground (cbt); Clrscr;
Команда Window (X1,Y1,X2,Y2); задает размеры и положение окна
Команда Textcolor (ct); задает цвет текста в этом окне
Textbackground (cbt); задает цвет фона (заливки) окна
Clrscr; – очищает окно и заливает его цветом cbt
В результате на экране получается окно заданного цвета.
Что делать, если на экране необходимо создать несколько окон?
Ответ прост – надо просто повторить эти 4 команды столько раз, сколько нужно окон. Указав для каждого окна свои координаты и цвета текста.фона.
Program Okno1; Uses crt; BEGIN TextBackGround (0); {первоначальная очистка экрана} clrscr; {и заливка чёрным цветом} Window (10,6,40,17); TextBackGround(red); {эти 4 команды создают окно} TextColor (green); {красного цвета с зеленым текстом} clrscr; Window (50,6,70,17); TextBackGround(Yellow); {эти 4 команды создают окно} TextColor (blue); {желтого цвета с голубым текстом} clrscr; END.
Все просто, только программа достаточно сильно увеличивается в размерах:)
Использование подпрограммы для создания окон
Теперь разберем другой подход – использовать подпрограмму!
Оформим создание окна как отдельную подпрограмму
Procedure Windows (X1,Y1,X2,y2,ct,cbt:integer); Begin Window (X1,Y1,X2,Y2); Textcolor (ct); Textbackground (cbt); Clrscr; End;
Теперь в основной программе можно создавать сколько угодно окон всего одной командой
Program Okno2; Uses crt; Procedure Windows (X1,Y1,X2,y2,ct,cbt:integer); Begin Window (X1,Y1,X2,y2); Textcolor (ct); Textbackground (cbt); Clrscr; End; BEGIN Windows (2,2,60,20,3,4); Windows (4,3,40,12,5,11); END.Использование подпрограмм для работы с окнами в Pascal,
Related posts: