Подскажите где найти...
модуль graphs не нашел...
модуль graphs3d нашел но он не работает пишет файл bgi_chr1.tpu не найден...
Где можно найти и почитать про установку этих модулей ?
Desktop II,
и первый, и второй модуль - не являются стандартными модулями TP/BP... То есть найти 100% работающий модуль ты можешь только у автора программы, этот модуль использующей.
Любой другой, который ты найдешь в Интернете, даже если и сработает - может работать не так, как было задумано...
а в чем эти модули писать надо ?
А я не телепат, чтобы знать, как твоя программа их использует... (Ты, кстати, даже не сказал, КАКИМ компилятором пользуешься)
Есть содержимое модуля 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;
Добавь еще одну строку:
end.
В том то и вопрос как это сделать ???
просто вставить в паскаль этот код и скомпилировать ? А разширение как сделать TPU ?
Повторяю еще раз: СКОМПИЛИРУЙ!!! Паскаль без тебя разберется, какое расширение должно быть у откомпилированного файла.