IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Модули, graphs и graphs3d
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


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

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

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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

Любой другой, который ты найдешь в Интернете, даже если и сработает - может работать не так, как было задумано...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


а в чем эти модули писать надо ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






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


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Есть содержимое модуля 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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






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


и скомпилируй...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


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

просто вставить в паскаль этот код и скомпилировать ? А разширение как сделать TPU ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.04.2017 7:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"