Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 77 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

76
CONST
EGAHI=1;{адаптер EGA, разрешение экрана 640 × 350 пикселей, 16 цве-
тов}
VGAHI=2;{адаптер VGA, разрешение экрана 640 × 480 пикселей};
PATH – выражение типа STRING, которое должно содержать имя файла драй-
вера с маршрутом его поиска. В большинстве случаев, если заранее тип адапте-
ра персонального компьютера неизвестен, можно обратиться к процедуре
INITGRAPH с требованием автоматического определения типа драйвера и ре-
жима работы
графического адаптера:
USES GRAPH;
VAR DRIVER,MODE:INTEGER;
BEGIN
DRIVER:=DETECT;
INITGRAPH(DRIVER,MODE,’<имя файла драйвера с маршрутом его по-
иска>’); .
При программировании инициация графического режима работы адаптера
обязательна.
2. Функция GRAPHRESULT – возвращает код ошибки для последней гра-
фической операции. Позволяет определить правильность настройки графиче-
ского режима. В случае отсутствия ошибок настройки устанавливается код
GROK=0; , в противном случае код от – 1 до – 14.
3.
Функция GRAPHERRORMSG – возвращает строку сообщения об ошиб-
ке для заданного кода. Выводит расшифровку ошибки, допущенной при на-
стройке графического режима.
Заголовок функции:
FUNCTION GRAPHERRORMSG(CODE:INTEGER):STRING; ,
где CODE – код ошибки. Инициацию графического режима с автоматическим
определением типа драйвера и режима работы графического адаптера при про-
граммировании на языке TURBO PASCAL можно представить следующим об-
разом:
USES GRAPH;
VAR DRIVER,MODE,ERROR:INTEGER;
BEGIN
DRIVER:=DETECT;
INITGRAPH(DRIVER,MODE,’<имя диска
>:\TP7\BGI\EGAVGA.BGI’);
ERROR:=GRAPHRESULT;
IF ERROR<>GROK THEN
BEGIN
WRITELN(GRAPHERRORMSG(ERROR));
……
END

Страницы