Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2009, 12:09   #1
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию Протестите Прогу...плз

Ранее писал тему о прорисовке, теперь выкладываю на тест.
**рисует, но уже по другому**

В архиве находится графический драйвер, файл шрифта, ехзешник, три рисунка и файл: delay.txt/ объясню для чего последний:

Изменяет скорость считывания очередного пикселя.Его можно менять в зависимости от скорости работы вашего компьютера.

Спасиб.
Вложения
Тип файла: rar LabaMenu.rar (32.1 Кб, 14 просмотров)
Посторонним В.
NSvirus вне форума Ответить с цитированием
Старый 23.06.2009, 12:48   #2
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию

Забыл кое-что: управление- pgUp , pgDown
Посторонним В.
NSvirus вне форума Ответить с цитированием
Старый 23.06.2009, 13:11   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Эта программа запоминала твои "движения" а потом их воспроизводит?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.06.2009, 13:13   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

1) Вы забыли написать, каким образом осуществляется выход из программы.ага.. из меню выйти нельзя... можно только после прорисовки картинки ответить "n"
надо добавить возможность выхода в меню!
2) неплохо бы в цикле рисования проверять нажита ли клавиша и позволить (по ESC, например ) прерывать цикл рисования
3) неплохо бы добавить возможность изменять скорость рисования прямо во время рисования (например, через клавиши + или - )
4) а почему меню не по центру? это так задумано?
5) я бы к достаточно непривычным клавишам PgUp PgDn
добавил управление стрелками курсора (это гораздо привычнее и удобнее)
6) и последнее. тут на форуме неоднократно обсуждалось. в TurboPascal функция Delay - НЕ РАБОТАЕТ на современных компьютерах!! но есть способы, как обеспечить одинаковую по времени задержку независимо от типа и скорости процессора (порулите поиском)

Последний раз редактировалось Serge_Bliznykov; 23.06.2009 в 13:19.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 23.06.2009, 15:40   #5
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию

Это у меня Лаба была-создание пользовательских меню и отклик действием. Конечно программа не совершенна, зато оригинальна)) управление и расположение и т.д -все по варианту)) спасибо что оценили.. С delay'ем разберемся) ;-)
Посторонним В.
NSvirus вне форума Ответить с цитированием
Старый 23.06.2009, 16:10   #6
OCTAGRAM
Oldschool geek
Форумчанин
 
Аватар для OCTAGRAM
 
Регистрация: 09.03.2009
Сообщений: 611
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
и последнее. тут на форуме неоднократно обсуждалось. в TurboPascal функция Delay - НЕ РАБОТАЕТ на современных компьютерах!! но есть способы, как обеспечить одинаковую по времени задержку независимо от типа и скорости процессора (порулите поиском)
Функция Delay не работает, потому при инициализации CRT возникает ошибка 200, и до Delay дело не доходит. Так ведь против этой ошибки бывают и патчи.
If you want to get to the top, you have to start at the bottom

http://pascal.net.ru/
OCTAGRAM вне форума Ответить с цитированием
Старый 23.06.2009, 20:20   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Функция Delay не работает, потому при инициализации CRT возникает ошибка 200, и до Delay дело не доходит. Так ведь против этой ошибки бывают и патчи.
Да нет, коллега, всё хуже. Патчи установлены. Ошибки 200 при иницилазации CRT не возникает. А Delay не работает... Хотя корень проблемы действительно в одном - процедура, которая отсчитывает задержку на современных процессорах отрабатывает без задержки на всём диапазоне вводимых значений...
Здесь на форуме это обсуждалось, поэтому, считаю, что не зачем повторяться...
p.s. кстати, по моему, в программах, откомпилированных через пакет ScholPak процедура Delay работает как надо. Видимо подпатчили CRT под новые процессоры!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 23.06.2009, 20:32   #8
OCTAGRAM
Oldschool geek
Форумчанин
 
Аватар для OCTAGRAM
 
Регистрация: 09.03.2009
Сообщений: 611
По умолчанию

Насколько я понимаю, большинство (по количеству установок) пропатченных версий от Klaus Hartnegg. А это как раз одна из немногих плохих версий, незаслуженно самая популярная.
If you want to get to the top, you have to start at the bottom

http://pascal.net.ru/
OCTAGRAM вне форума Ответить с цитированием
Старый 23.06.2009, 22:05   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Если есть другой патч (или информация о изменяемых байтах), то публикуйте, не стесняйтесь - с удовольствием приму в дар!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 24.06.2009, 00:39   #10
OCTAGRAM
Oldschool geek
Форумчанин
 
Аватар для OCTAGRAM
 
Регистрация: 09.03.2009
Сообщений: 611
По умолчанию

Ну вот здесь есть вариант с 32разрядным счётчиком:
http://solidstate.karelia.ru/~yura/p...yura/u_crt.htm

Если перекомпилировать программу невозможно, то
Цитата:
Вставить полноценную новую процедуру Delay, не имея исходных текстов невозможно, так как её код длиннее, чем код старой.
Однако, я более, чем уверен, что если поделить количество миллисекунд на (1000 div 18), а затем тупо ждать, пока BIOS таймер не увеличится на эту величину, то такой код влезет. В крайнем случае, можно позаимствовать место в коде инициализации и коде цикла, раз уж они упраздняются.

UPD Я уверен, такое решение уже есть среди прочих. Оно не может не быть. Просто мне лень скачивать разные версии и проверять догадки.
If you want to get to the top, you have to start at the bottom

http://pascal.net.ru/

Последний раз редактировалось OCTAGRAM; 24.06.2009 в 00:43.
OCTAGRAM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите!! ПЛЗ Merphi Microsoft Office Excel 6 19.06.2008 14:31
Протестите мою прогу !!! UnD)eaD)Snake Софт 9 26.07.2007 16:03