MuXa , если хочеш , то можеш посмотреть мой вариант змейки.
Вот тут :
http://forum.pascal.net.ru/index.php?showtopic=3681
нажатие кнопок..., считывание нажатия в цикле без его ост. |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
нажатие кнопок..., считывание нажатия в цикле без его ост. |
SHnur |
Сообщение
#21
|
Пионер Группа: Пользователи Сообщений: 81 Пол: Мужской Реальное имя: Шурик Репутация: 0 |
MuXa , если хочеш , то можеш посмотреть мой вариант змейки.
Вот тут : http://forum.pascal.net.ru/index.php?showtopic=3681 -------------------- Двадцать пятый час в сутках может появиться всего лишь из-за небольшой ошибки в программе.
Чтобы не воспользоваться сумасшедшими возможностями, нужно быть идиотом. |
FreeMan |
Сообщение
#22
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Цитата вплоть до потери информации на харде... какое прерывание и в каком состоянии надо цеплять, чтоб такого результата добится <_< ? или может IAT потасовать -------------------- бб
|
Altair |
Сообщение
#23
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата какое прерывание и в каком состоянии надо цеплять, чтоб такого результата добится ? Со статусом модератора форума "Ассемблер" не поспоришь, ;) однако INT13h!!! Сам лично потерял информацию с харда таким образом однажды... ЗЫ: да иногда и с INT21 можно делов натворить -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Romtek |
Сообщение
#24
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Флейм пошёл жестокий...
Код repeat key := readkey; if key=#0 then key := readkey; case key of #75:; {Left} begin x:=x-stepX; if (x < minX) then stepX := -stepX; {поменять направление движения на обратное} end; #77: {Right} begin x:=x+stepX; if (x > maxX) then stepX := -stepX; end; #72:; {Up} аналогично #80:; {Down} end; until key=#27; {Esc} Сообщение отредактировано: romtek - -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Текстовая версия | 4.05.2024 7:26 |