|
Вопрос # 6 481/ вопрос закрыт / |
|
Доброго времени суток, уважаемые эксперты!
Программа рисует шарик который куда то катится.. По нажатию на соответствующие клавиши он должен менять направление качения, но чего то ему не хочется, да и вообще после вызова функций из модуля СRT модуль GRAPH не откликается ни на какие понукания.
Сам пример взят с сайта преподавателя чтобы чему то научить, но сам пример работать не хочет. Помогите кто чем может.
Приложение: Переключить в обычный режим- {{code|pascal}}
- Program gr3;
- uses graph,crt;
- var c:char;
- grDriver, grMode,i,x,h: integer;
- begin
- grDriver:=detect;
- InitGraph(grDriver,grMode,'');
-
-
- line(20,453,1250,453);
-
- Setcolor(11);
-
-
- begin
-
- begin
-
- circle(x,430,20);
-
-
- circle(x,430,20);
- delay(100);
-
- begin
-
- if c= 'a' then h:=-10;
- if c= 's' then h:=10;
- end;
- end;
- end;
- readln;
- closegraph;
- end.
- {{/code}}
 |
Вопрос задал: ierihon1 (статус: 1-ый класс)
Вопрос отправлен: 29 сентября 2013, 07:59
Состояние вопроса: закрыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Здравствуйте, ierihon1!
Цитата (ierihon1):
Я пробовал использовать модуль Graph, без модуля CRT, и о чудо - всё работает. Но как только я хочу чтобы рисовалось по нажатию на какую нибудь кнопку, начинаются проблемы.
Ну и чем я могу помочь?
Скачай себе borland TP 7.0, запусти его по dosbox, скомпили преподский исходник и запусти его там же, из-под dosbox. Если не прокатит, иди к преподу и попроси потребуй показать, как оно всё работает и работает ли вообще.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 29 сентября 2013, 14:33
|
Мини-форум вопроса
Всего сообщений: 34; последнее сообщение — 29 сентября 2013, 17:35; участников в обсуждении: 2.
Страницы: [1] [2] [Следующая »]
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 08:12 [#1]:
Вот мой корявенький пример использования этих модулей но даже он работать отказывается 
program Zont;
uses
crt,graph;
var
grDriver,grMode,i,j:integer;
C:Char;
b:boolean;
procedure Wait; forward;
Procedure DrawZont; //рисуем что нибудь
begin
Randomize;
ClearViewPort;
Line(0,0,Random(100),100);
Delay(10000); //задерживаем чуток на экране
Wait; //и ждём дальше
end;
procedure Wait; //ожидание нажатия клавиши
begin
While not keypressed do
begin
if keypressed then //ура её нажали
begin
c:=ReadKey;
if c = 'f' then
begin
DrawZont; //рисуем что нибудь
exit; //останавливем цикл ожидания (дождались ведь)
end;
end;
end;
end;
begin
clrscr;
grDriver:=detect;
InitGraph(grDriver,grMode,'');
Wait;
readln;
closegraph;
end.
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 10:08 [#2]:
Для начала надо сделать так, чтобы завёлся пример от препода, а уже потом на его основе делать что-то своё.
Под какую ОС ты пытаешься всё это заводить и что у тебя за компилятор?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 13:08 [#3]:
min@y™: У меня Windows 7 x64 компилятор Free Pascal 2.6.2
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:22 [#4]:
Цитата (ierihon1):
У меня Windows 7 x64 компилятор Free Pascal 2.6.2
Компилятор выдаёт 16-битные приложения?
В любом случае, я не буду переустанавливать себе windows и разбираться с фрипаскалем, тебе придётся это делать самому. Если приложение 16-битное, скачай dosbox и уже в нём экспериментируй.
Кстати, использование фрипаскаля обязательно или важен только результат?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:27 [#6]:
Цитата (ierihon1):
К сожалению важен
Ну так попробуй обойтись без фрипаскаля.
Почему не отвечаешь на мои вопросы?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 13:29 [#7]:
min@y™: Нет она требует free pascal
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:37 [#8]:
Цитата (ierihon1):
Нет она требует free pascal
Ты ж написал, что "К сожалению важен" только результат. Какого хрена?
Почему не отвечаешь на мои вопросы?
Цитата (min@y™):
Компилятор выдаёт 16-битные приложения?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 13:40 [#9]:
не знаю о чём я думал но написал не то что надо 
И да оно выдаёт 16ти битные приложения.
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:41 [#10]:
Цитата (ierihon1):
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:45 [#11]:
Цитата (ierihon1):
И да оно выдаёт 16ти битные приложения.
Сообщение "This program cannot be run in DOS mode" тебе ничего не говорит?
Цитата:
Исполняемые файлы более поздних форматов для Windows начинаются с MZ-заглушки. Обычно заглушка, добавляемая компиляторами, выводит сообщение наподобие «This program cannot be run in DOS mode» («Эту программу невозможно запустить в режиме DOS»).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 13:48 [#12]:
min@y™:Нашёл 64ёх битный скачиваться будет пол часика... результат отпишу.
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 13:48 [#13]:
min@y™: Нет я продолжаю прогуливать английский даже в универе
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:50 [#14]:
Цитата (ierihon1):
Нашёл 64ёх битный
А зачем? Твоя первичная задача - получить из преподского исходника 16-битный ЕХЕ-шник, который нормально заработает в DOSBOX или чистом MSDOS.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 13:53 [#15]:
min@y™: А чем нам в этом не поможет Free Pascal сделанный под 64ёх битную винду?
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 13:54 [#16]:
Цитата (ierihon1):
Нет я продолжаю прогуливать английский даже в универе
Причём тут английский? Тебя в гугле забанили, что-ли?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 14:04 [#17]:
Цитата (ierihon1):
А чем нам в этом не поможет Free Pascal сделанный под 64ёх битную винду?
А вас там сколько человек?
Преподский исходник, имхо, был явно написан ещё на борландовском турбопаскале под чистый DOS, где используются прерывания и 16-битный графический драйвер. Из-под 64-битной винды ты эту прогу не запустишь ни при каких условиях. Только в эмуляторе. Но для этого тебе ещё надо из исходника получить 16-битный годный ЕХЕ-шник, а для этого нужен соответствующий компайлер. И я не знаю, позволяет ли фрипаскальный компайлер получать 16-битные приложения.
З.Ы. Вот тебе подарок: ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," - это 100 запятых. Добавляй эти запятые в свои посты, чтобы они были больше похожи на сообщения грамотного человека. Когда эти запятые кончатся, ты мне скажи, я тебе ещё вышлю.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 14:08 [#18]:
min@y™: Я пробовал использовать модуль Graph, без модуля CRT, и о чудо - всё работает. Но как только я хочу чтобы рисовалось по нажатию на какую нибудь кнопку, начинаются проблемы.
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 14:14 [#19]:
Цитата (ierihon1):
Я пробовал использовать модуль Graph, без модуля CRT, и о чудо - всё работает. Но как только я хочу чтобы рисовалось по нажатию на какую нибудь кнопку, начинаются проблемы.
Ну и чем я могу помочь?
Скачай себе borland TP 7.0, запусти его по dosbox, скомпили преподский исходник и запусти его там же, из-под dosbox. Если не прокатит, иди к преподу и попроси потребуй показать, как оно всё работает и работает ли вообще.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 14:19 [#20]:
min@y™: Ладно сейчас попробуем помучить TP
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
