VPF::GRAPH.TPU - Форум программистов

Gez

Дата 27.2.2007, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 27.2.2007

Репутация: нет
Всего: нет

Решил разобраться с GRAPH.TPU, но сразу-же возникла проблема с инициализацией графики. Графический режим запускается и тут же выключается (не выполняя ничего что между initgraph и closegraph, пробывал OutTextXY, Circle и т.п. ) Может я что не так делаю?

Код


program gr;

uses graph,crt;

var
a,b:integer;

BEGIN

a:=detect;

initgraph (a, b, '');

delay (10000);    {В этом месте ничего не работает}

closegraph;

END.

EGAVGA.BGI находится там же где и программа.
В чём может быть проблема? smile

Использую TP7

volvo877

Дата 27.2.2007, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Во-первых, проверяй, инициализировался ли граф. режим:

Код


InitGraph(a, b, '');
ErrCode := GraphResult;
If ErrCode <> grOk Then Begin
  Writeln('Graphics error:', GraphErrorMsg(ErrCode));
  ReadLn; Halt(100);
End;
...

а во-вторых, лучше ReadLn перед CloseGraph добавь, чем Delay ...

zetxi815eb

Дата 28.2.2007, 02:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 17.1.2007

Репутация: нет
Всего: нет

Как заграсить круг??? Например цветом номер 10.

Код


uses graph,crt; 
var amode,bmode,x,y:integer; 
   a:char; 
begin 
    amode:=vga; 
    bmode:=vgahi; 
    initgraph (amode,bmode,''); 
    x:=320; 
    y:=240; 
    repeat; 
        circle (x,y,10); 
        case readkey of 
            'a': dec(x); 
            'd': inc(x); 
            'w': dec(y); 
            's': inc(y); 
        end; 
        cleardevice; 
    until x=0; 
    closegraph; 
end.

setfillstyle (1,10); не помогает!!!! smile

corpsehunter

Дата 28.2.2007, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 24.2.2007

Репутация: нет
Всего: 3

Цитата

FloodFill(X, Y: Integer; Border: Word);
Закрашивает область, ограниченную непрерывной линией, текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурами SetFillStyle или SetFillPattern. X. Y - координаты любой точки внутри закрашиваемой линии;
Border - цвет линии, до которой производится закрашивание.

--------------------

Тест на IQ показал отрицательный результат...

zetxi815eb

Дата 28.2.2007, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 17.1.2007

Репутация: нет
Всего: нет

corpsehunter, спасибо!

Gez

Дата 1.3.2007, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 27.2.2007

Репутация: нет
Всего: нет

Код


program t;
uses graph;
var
a,b:integer;
ErrCode:integer;
begin
a:=detect;
initgraph (a, b, '');
ErrCode := GraphResult;
if ErrCode <> grok then
   begin
     writeln ('Graphics error:', GraphErrorMsg(ErrCode));
     readln; Halt(100);
   End;
closegraph;
end.

Ничего не выполняет, Графический режим запускается и тут же выключается.

volvo877

Дата 1.3.2007, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Gez @ 1.3.2007, 12:10

)

Ничего не выполняет, Графический режим запускается и тут же выключается.

А что ДОЛЖНО выполняться, объясни мне? Ты что-то указал, чтобы оно выполнялось? Нет. Что ж ты думаешь, Паскаль сам телепатически определит, чего тебе надо и дополнит программу ЗА тебя?

Перед CloseGraph хотя бы для приличия что-нибудь нарисуй, и поставь ReadLn, чтобы успеть увидеть это, а потом приходи и расскажешь, рисуется что-нибудь или нет.

Gez

Дата 5.3.2007, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 27.2.2007

Репутация: нет
Всего: нет

Ну честно говоря надеялся smile

, всем спасибо разобрался.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »