Модули, graphs и graphs3d Опции

[Desktop II]

Подскажите где найти...
модуль graphs не нашел...
модуль graphs3d нашел но он не работает пишет файл bgi_chr1.tpu не найден...

Где можно найти и почитать про установку этих модулей ?

Сообщение отредактировано: Desktop II - 13.04.2006 18:21

[volvo]

Desktop II,
и первый, и второй модуль - не являются стандартными модулями TP/BP... То есть найти 100% работающий модуль ты можешь только у автора программы, этот модуль использующей.

Любой другой, который ты найдешь в Интернете, даже если и сработает - может работать не так, как было задумано...

[Desktop II]

а в чем эти модули писать надо ?

[volvo]

А я не телепат, чтобы знать, как твоя программа их использует... (Ты, кстати, даже не сказал, КАКИМ компилятором пользуешься)

[Desktop II]

Есть содержимое модуля graphs

{$N+}
unit graphs;
interface
procedure opengraph;
procedure closegraph;
function gx(x: Extended; sx: Integer): Integer;
function gy(y: Extended; sy: Integer): Integer;
implementation
uses Graph;
var
x, y: Extended;
sx, sy: Integer;
procedure opengraph;
var graphdevice, graphmode: Integer;
begin
graphdevice := Detect;
InitGraph(graphdevice, graphmode,' ');
if GraphResult <> 0 then
begin
WriteLn('ERROR');
ReadLn;
Halt;
End;
end;
procedure closegraph;
begin
CloseGraph;
if GraphResult <> 0 then
begin
WriteLn('ERROR END OF GRAPH MODE');
ReadLn;
Halt;
end;
end;
function gx(x: Extended; sx: Integer): Integer;
begin
gx := trunc(sx*x) + GetMaxX div 2;
end;
function gy(y: Extended; sy:Integer):Integer;
begin
gy := GetMaxY div 2 - trunc(sy * y);
end;

Как из этого модуль сделать?

Комплятор ? Turbo Pascal ?

Сообщение отредактировано: volvo - 5.11.2006 23:04

[volvo]

Добавь еще одну строку:

end.

и скомпилируй...

[Desktop II]

В том то и вопрос как это сделать ???

просто вставить в паскаль этот код и скомпилировать ? А разширение как сделать TPU ?

[volvo]

Повторяю еще раз: СКОМПИЛИРУЙ!!! Паскаль без тебя разберется, какое расширение должно быть у откомпилированного файла.