Помощь - Поиск - Пользователи - Календарь
Полная версия: Графический режим с поддержкой мышки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Bokul
Код

uses vesa2;
begin
setvesa;
SetGraphMode(2);
initmouse;
showcursor;
readln;
end.

Вот эта программа вываливается в винду с ошибкой, после того как я подвигаю мышкою, если не двигать, то прога работает нормально - сначала видно курсор, такой как в винде, а после нажатия enter нормальное возвращения в Паскаль. В чем проблема?
Вот такая ошибка:
Цитата

Borland Pascal 7.0
The NTVDM CPU has encountered an illegal instruction.
CS:0000 IP:0077 OP:f0 37 05 0e 02 Choose 'Close' to terminate the application.
---Close--- ---Ignore---

volvo
Цитата(Bokul @ 31.07.2006 6:26) *
В чем проблема?

blink.gif Никакого вылета при движении мыши не наблюдаю... Мышка двигается, жмется Enter, программа завершается... Если хочешь - попробуй запустить скомпилированный мной EXE, может у тебя компилятор глючит. А может быть - проблема с NTVDM, тогда пробуй запускать под DosBox...

P.S. Кстати, ты забыл в Uses добавить Graph, ведь именно там определена процедура SetGraphMode...
Bokul
Цитата
Если хочешь - попробуй запустить скомпилированный мной EXE, может у тебя компилятор глючит

Ваш EXE работает отлично.
Цитата
А может быть - проблема с NTVDM,

Что это такое?
Цитата
тогда пробуй запускать под DosBox

Скачал, запустил, что дальше?
volvo
Ну, если мой EXE работает - то у тебя проблема с компилятором...
Bokul
Пробивал на двоих Borland и Turbo, картина одинаковая mega_chok.gif
Цитата
Ну, если мой EXE работает - то у тебя проблема с компилятором...

Как ее решать? Где взять нормальный компилятор?
Bokul
Нашел pascal.sources.ru Turbo Pascal v6.0, он все нормально компилирует, только приходится боротся с неудобностями этой версии - нету подсветки и надо позановому компилировать модули.

Если кто то поделится ссылкой где можна скачать "нормальный" Turbo или Borland Pascal v7.0 буду признателен yes2.gif
virt
turbo pascal 7.0

ЗЫ
а почему не freepascal?
Bokul
Спасибо, virt. Сейчас проверю его на "нормальность" smile.gif .
Цитата
а почему не freepascal?

Я б его использовал, но только там вроде мышка не поддерживается в графическом режиме.
Bokul
Цитата
Сейчас проверю его на "нормальность"

Тест не пройден mega_chok.gif wacko.gif , поиски продолжаются.
volvo
Цитата(Bokul @ 1.08.2006 0:57)
Я б его использовал, но только там вроде мышка не поддерживается в графическом режиме.
Угу, угу... Как же smile.gif

А это зачем: Wingraph ?
rolleyes.gif
Bokul
Цитата
А это зачем: Wingraph ?

Сразу надо было меня туда носом ткнутьyes2.gif Спасибо, пришел конец моим мучениям yahoo!.gif drinks.gif
Цитата
Угу, угу... Как же

Я имел ввиду в стандартном модуле mouse.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.