Помощь - Поиск - Пользователи - Календарь
Полная версия: Units (модули для Паскаля)
Образовательно-студенческий форум > Образование > Программирование на Паскале, Си, Бейсике, Ассемблере > Программируем на Паскале и Delphi
WereWolf
Предлагаю здесь выкладывать полезные модули, bgi файлы и тому подобное для Turbo Pascal! А для начала попросить хочу, может у кого есть, модуль для работы с мышой, лучше исходник?
Boris
Вот мой объект для работы и с мышью тоже. Делал по типу Turbo Vision
В архиве есть и описание
Boris
Вот еще (не мой) модель CRT для работы в Паскале на быстрых машинах
Kompil
А где можно достать модуль для переключения клавиатуры на кирилицу
Boris
смотри http://www.opeople.ru/topic389.html
Или Вас интересует реализация модуля, подключаемого к Вашей программе? Тогда создайте новую тему. Здесь место для "чужих" модулей
Kompil
Спасибо, нашёл.
TECHNOQUANT
В учебнике Фараонова ("Илюстрированный самоучитель по Туробо Паскалю") используется модуль APP из библиотеки turbo vision. У меня этого модуля почему-то нет. Где его можно найти? Или здесь какая-то ошибка?
TECHNOQUANT
Все. Уже разобрался.
У кого возникнут такие же проблемы:
borlpasc.narod.ru
Качайте полную версию.
ForceGuard
Скачал с borlpasc.narod.ru набор модулей gamepro, как их подключить и узнать имена новых функций?
PolPoll
ForceGuard, Открой эти pas-ы и увидишь список имен функциий и процедур...
(до слова Implementation)

а подключать как и другие модули
uses crt, <имя модуля>, <имя модуля>;
ForceGuard
С самого начала так и пробовал подключать модуль, но при компиляции Паскаль ругается на неправильное имя файла: Invalid filename (d:\prog\tp7\tpu\KB.tpu). На остальные модули (gamepro and pallete) матерится аналогично.

P.S.
В скаченном архиве tpu-файлов нет.
Denis
хоть бы ссылки дали что-ли
при компиляции имя модуля должно совпадать с именем pas файла (unit имя_модуля).
убедитесь, что во вкладке compile стоит disk
PolPoll
Значит, он присто не находит эти pas-ы
Где они сейчас лежат?

попробуй их либо в папку tp7, либо пути прописать в Options|Directories...

Цитата(Denis @ 28.1.2008, 22:22) *

хоть бы ссылки дали что-ли
http://borlpasc.narod.ru/turbo_pacs.htm
ForceGuard
KB.pas, gamepro.pas, pallete.pas скинул в корневую папку TP7 (там, где валяется и exe-шник Паскаля). А при компиляции файлы вроде находятся, т.к. в новом окне они и открываются. Т.е. если я пишу какую-нибудь ерунду типа этой:
Код
Program test;
uses kb;
var a: integer;
begin
a:=1;
end.


То при выполнении программы открывается KB.Pas вместе с упомянутой ошибкой.

P.S.
Паскаль брал по этому адресу (лежит на странице, которую указал PolPoll).
PolPoll
Цитата(ForceGuard @ 28.1.2008, 22:46) *

То при выполнении программы открывается KB.Pas вместе с упомянутой ошибкой.
Раз находит, значит не согласованы папки, куда он кладет tpu и где его потом ищет smile.gif

какие у тя пути в Options|Directories... ?

Exe & TPU
Unit

ForceGuard
У меня пути были неправильно прописаны. Теперь все работает. Сэнк.))
Мих
Если у меня программа нчинается со солв
uses crt, graph;
или немного по другому но со словом graph то мне вылазит ошибка "Файл graph.tup не найден".
В книге нашёл что нужно указать путь для директорий, но всё равно не рулит. Кто нибудь знает, что можно сделать?
PolPoll
Мих, А какие параметры у InitGraph? особенно третий?


Хотя... нет. Это уже при инициализации была бы ошибка.
Так есть ли у тебя вообще этот файл graph.tpu и где он лежит и как пути ты прописал? не использованы ли "длинные" пути?



Мих
файл есть. Ещё есть graph3.tup и 4 но их я не прописывал.
Длинные пути? Я прописывал полный путь C:\Program Files\ и т.д. а как написать короткий?
InitGraph а это где?(извините за нескромный вопрос)
Denis
кинь папку с паскалем непосредственно на диск С:
C:\TP7
а там уже подредактируй свои пути к файлам
afterstep
какой паскаль - и где лежит graph
если бьіть совершенно точньім - если crt работает, то найди семь отличий (кроме названия) между graph и crt
PolPoll
Цитата(Мих @ 4.2.2008, 8:09) *

Длинные пути? Я прописывал полный путь C:\Program Files\ и т.д. а как написать короткий?
Из Паскаля перейди на диск C: и посмотри как эта папка называется. Скорее всего PROGRA~1

Цитата
InitGraph а это где?(извините за нескромный вопрос)
В самой программе перед использованием графики из graph.tpu
Мих
afterstep>
Turbo Pascal 7.1(под дос)

PolPoll>
Короче прога тут

uses graph,crt;
const t=100; d=15;
var p:pointer;
gd,gm,x,size:integer;
procedure vagon;
begin
bar(x,100,x+70,130);
circle(x+15,140,10);Circle(x+55,140,10);
end;
begin
gd:=detect; initgraph(gd,gm,''); x:=0
vagon; size:=imagesize(0,100,70,150);
getmem(p,size);
getimage(0,100,70,150,p^); x:=0;
repeat
delay(t);
putimage(x,100,p^,xorput);
x:=x+d;
putimage(x,100,p^,xorput);
until x>639;
freemem(p,size);
end.
Устанавливаться граф у меня ни как не хочет
PolPoll
Прога тут не при чем. Пути!

Цитата(Мих @ 4.2.2008, 10:09) *

Устанавливаться граф у меня ни как не хочет
Или модуль уже нашелся, графика не инициализируется??
Мих
Модуль есть он в Units но в ОПШНС\ДИРЕКТОРЕС н ставится!! прописываю\ОК\ошибка
уже и краткий в полный путь я там прописыавл\ sad.gif
PolPoll
Так полность пути напиши сюда, как ты их пишешь.

А то C:\Program Files\
то вообще просто Units... smile.gif
Мих
C:\PROGRA~1\TURBOP~1\UNITS\GRAPH.TUP
Ну в общем не срослось у меня с графикой!
PolPoll
Цитата(Мих @ 6.2.2008, 6:55) *

C:\PROGRA~1\TURBOP~1\UNITS\GRAPH.TUP
Ну в общем не срослось у меня с графикой!
Во-первых, TPU а не TUP
Во-вторых, в путях сам файл не пишется. Только папки
Мих
unsure.gif нет... как уже только не прописывал... всё...THE END
Мих
НЕ ЭНД!!! Скачал ДРУГОЙ паскалевский компил: вообще не устанавливается все пути авто прописаны,НО! при выполнении проги я оказывается заставляю делить его на ноль!
Прогресс! Что дальше?
afterstep
скачай freepascal - и не вьіпендривайся. Или стьірь где-нить дельфи - в консольном режиме - чем тебе не паскаль?
Мих
afterstep>
Где-ж ты раньше такой умный был? Пасибса тебе огромное. Но 2 круга прошедшие по экрану меня не особо впечатлили, может знаешь что ещё интересного тут есть?
Denis
мда... может я конечно и ошибаюсь, но разве зависят правильно прописанные пути от компилятора. ИМХО, нужно добивать тему с путями. а именно: создай на диске C папку tp7, кинь в нее три папки BGI, BIN, UNITS, зайди в папку BIN, найди файл TURBO.EXE и запусти паскаль двойным щелчком левой кнопки мыши на указанный файл. в открывшемся окне на вкладке Options выбери пункт Directories. напротив Unit directories введи C:\tp7\units сохрани среду, зайдя на вкладку Options и выбрав пункт SAVE TURBO.TP. копируй свой файл-программу с графикой на диск C. жмешь F3, в поле Name вводишь C:\_имя_файла_программы_с_графикой, пытаешься компилить, запустить прграмму. получается - радуешься, нет - отписываешься сюда
Мих
В том паскале у мя был прописан d диск. Переписал их на c, сохранил, папок накидал, теперь: он не компилит, не находит ошибки, графа не рулит.........................................

Мих
Короче чёрт с путями... Графа есть и ладно
PolPoll
Про использование kb.pas в отдельной теме http://www.opeople.ru/topic9073.html
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2012 Invision Power Services, Inc.
Ярославль.Бизнес