мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pascal:modules [20/10/2009 12:06] – ybezrukov | pascal:modules [24/04/2010 12:29] (текущий) – dnaumov | ||
---|---|---|---|
Строка 2: | Строка 2: | ||
FIXME | FIXME | ||
+ | Модуль (Unit) - это отдельный файл. Как правило, | ||
+ | |||
+ | Пример программы и модуля к ней. В программе графический режим включается и выключается с помощью процедур // | ||
+ | |||
+ | <code pascal|Оформление программы. Содержимое файла moving.pas> | ||
+ | program moving; | ||
+ | |||
+ | uses | ||
+ | oglgraph, crt, mygraph; | ||
+ | |||
+ | var x,y,vx,r : integer; | ||
+ | | ||
+ | |||
+ | begin | ||
+ | GraphIni; {открываем графическое окно - процедура из модуля mygraph} | ||
+ | x:=getmaxx div 2; {начальные координаты объекта - середина экрана} | ||
+ | y:=getmaxy div 2; | ||
+ | vx:=1; {скорость движения} | ||
+ | r:=50; {радиус окружности} | ||
+ | repeat | ||
+ | clearviewport; | ||
+ | SetFillStyle(4, | ||
+ | FillEllipse(x, | ||
+ | graphSwapBuffers; | ||
+ | delay(10); | ||
+ | x:=x+vx; | ||
+ | if (x+r> | ||
+ | until graphkeypressed; | ||
+ | |||
+ | GraphEnd; {закрываем графическое окно - процедура из модуля mygraph} | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | <code pascal|Оформление модуля. Содержимое файла mygraph.pas>> | ||
+ | unit mygraph; {заголовок модуля} | ||
+ | interface | ||
+ | |||
+ | uses crt, oglgraph; {описание используемых библиотек в модуле} | ||
+ | |||
+ | var | ||
+ | gd, gm : integer; | ||
+ | |||
+ | {заголовки доступных из программы процедур} | ||
+ | Procedure GraphIni; | ||
+ | Procedure GraphEnd; | ||
+ | |||
+ | implementation {содержимое модуля - сами процедуры и функции} | ||
+ | |||
+ | Procedure GraphIni; {процедура инициализации графического окна} | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | | ||
+ | if Graphresult<> | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | end else | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | |||
+ | Procedure GraphEnd; {процедура закрытия графического окна} | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | |||
+ | begin {часть модуля, | ||
+ | |||
+ | end. | ||
+ | </ |