RFpro.ru: Ассемблер? Это просто! Учимся программировать

Если выпуск не отображается корректно, то вы можете прочесть его на сайте

Реклама Отказаться от рекламы

RFpro.ru: Ассемблер? Это просто! Учимся программировать Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2484 • повысить рейтинг » _Ayl_ Статус: Профессионал Рейтинг: 1918 • повысить рейтинг » vladisslav Статус: 6-й класс Рейтинг: 1227 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1368 Дата выхода: 28.06.2010, 12:30 Администратор рассылки: Лысков Игорь Витальевич, Старший модератор Подписчиков / экспертов: 232 / 63 Вопросов / ответов: 1 / 1 IRC-канал по теме: #assembler Вопрос № 179212: Уважаемые эксперты, в приложении программа перемещения шаблона в виде прямоугольника по экрану с помощью управляющих клавиш. Прямоугольник перемещается только или вверх, или вниз, или вправо, или влево, что не очень удобно. А можно ли осуществить дви... Вопрос № 179212: Уважаемые эксперты, в приложении программа перемещения шаблона в виде прямоугольника по экрану с помощью управляющих клавиш. Прямоугольник перемещается только или вверх, или вниз, или вправо, или влево, что не очень удобно. А можно ли осуществить движение этого шаблона по экрану с помощью двух клавиш одновременно, сделать так, чтобы шаблон двигался не только или влево, или вправо, или вверх, или вниз, но и вверх-влево или вверх-вправо, т.е. не только под прямым углом, но и по диагонали под любым углом? Отправлен: 23.06.2010, 12:01 Вопрос задал: Adsorores, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Зенченко Константин Николаевич, Модератор : Здравствуйте, Adsorores. Смотрите приложение. В программе устанавливается обработчик контролера клавиатуры, который заполняет массив DataKey. Первые 128 байт служат признаком нажатия клавиши, вторые признаком её отпускания. Сама программа только контролирует нажата нужная клавиша и реагирует на событие. Такой подход позволяет Вам обрабатывать комбинацию из несколько нажатых клавиш одновременно. К примеру: cmp byte ptr DataKey[ keyESC ],1, если к значению keyESC добавить ещё 128, то перемещать фигуру можно даже, когда нажата клавиша ЕSC, а программа завершится, только когда Вы её отпустите. ps:вопросы задавайте в мини-форум. Удачи! Приложение: .model tiny .386 .code .startup mov ax,0013h ;320x200x256 int 10h ;читаем старый обработчик mov ax,3509h int 21h mov old09o,bx mov old09s,es ;ставим новый обработчик mov ax,2509h mov dx,offset new09 int 21h ;настраиваемся на видео буфер mov ax,0A000h mov es, ax cld keyESC equ 01h keyUp equ 48h keyDown equ 50h keyLeft equ 4Bh keyRight equ 4Dh MainLoop: ;считаем адрес call CalcAdr ;рисуем рисунок call DrawMovingImage ;задержка mov cx,5000 MM1: push cx mov cx,5000 MM2: loop MM2 pop cx loop MM1 ;изменяем координаты xor dx,dx xor bx,bx ;изменяем приращение add bl,DataKey[keyDown] add dl,DataKey[keyRight] sub bl,DataKey[keyUp] sub dl,DataKey[keyLeft] ;контроль ;вертикальная координата mov ax,bx cbw add ax,ImageS jz IgnoreV js IgnoreV push ax add ax,ImageH cmp ax,StringHeigth pop ax jae IgnoreV mov imageS,ax IgnoreV: ;контроль ;горизонтальная координата mov ax,dx cbw add ax,ImageC jz IgnoreH js IgnoreH push ax add ax,ImageL cmp ax,StringLength pop ax jae IgnoreH mov imageC,ax ;прячем рисунок IgnoreH: call ClearImage ;проверяем ESC cmp byte ptr DataKey[keyESC],1 jnz MainLoop ;востанавливаем старый обработчик mov ax,2509h mov dx,old09o mov ds,old09s int 21h ;завершение программы mov ax, 4c00h int 21h ;старый обработчик old09o dw ? old09s dw ? ;наш обработчик new09: pusha ;читаем порт in al,60h ;заполняем массив xor bx,bx mov bl,al mov al,1 mov cs:DataKey[bx],al xor bl,80h xor al,al mov cs:DataKey[bx],al ;стандартное завершение прерывания in al,61h push ax or al,80h out 61h,al pop ax out 61h,al mov al,20h out 20h,al popa iret ; DrawMovingImage proc pusha ; Записать адрес маски в индексный регистр mov SI,offset Flm;указатель на маску объекта ; Вывести изображение mov cx,ImageH ;высота маски M0: ;Вывести очередную строку маски push cx mov CX,ImageL;ширина маски push di rep movsb pop di ;Перейти на следующую строку add DI,StringLength pop cx loop M0 popa ret DrawMovingImage endp ClearImage proc pusha ; Вывести изображение mov cx,ImageH ;высота маски M3: ;Вывести очередную строку маски push cx mov CX,ImageL ;ширина маски mov al, 0 push di rep stosb pop di ; Перейти на следующую строку add DI,StringLength pop cx loop M3 popa ret ClearImage endp CalcAdr proc ; Вычислить адрес начальной точки для вывода маски ; Умножить длину строки на номер строки mov AX,StringLength mul ImageS ; Прибавить длину колонки add AX,ImageC mov DI,AX ret CalcAdr endp data DataKey db 256 dup(0) ; Маска Flm DB 15,15,15,15 ,15,15,15,15 ,15,15,15,15 ,15,15,15,15 ImageL equ $ - Flm; 16 ;ширина маски DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,12,12,12 ,12,12,12,12 ,12,12,12,12 ,12,12,12,15 DB 15,15,15,15 ,15,15,15,15 ,15,15,15,15 ,15,15,15,15 ImageH equ ($ - Flm) / ImageL;16 ;высота маски StringLength dw 320 ;длина строки StringHeigth dw 200 ;количество строк ; Позиция маски изображения на экране ImageS dw 90 ;строка ImageC dw 150 ;колонка ; Размеры маски изображения END ----- Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч Ответ отправил: Зенченко Константин Николаевич, Модератор Ответ отправлен: 23.06.2010, 20:07 Номер ответа: 262260 Украина, Киев Тел.: +38-097-953-66-19 Адрес: Украина, Киев Оценка ответа: 5 Комментарий к оценке: Спасибо за программу! Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 262260 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2010, Портал RFpro.ru, Россия Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2010.6.16 от 26.05.2010 Обсудить выпуск

Как вам этот выпуск ?  Дайте свой отзыв  или  Оцените   5    4    3    2    1,   можно письмом:  5    4    3    2    1

Реклама Отказаться от рекламы Скачай журнал "FHM" 100 самых сексуальных женщин мира! Девушка гоу-гоу. 9 идей для извращенца.   Здоровая пища: миф или реальность? Аэрогриль Flavorwave Turbo Oven - новое слово в кухонном досуге!   Вспомни детство! Аппарат для приготовления сахарной ваты - отличное угощение!

Реклама Отказаться от рекламы Супермаркет ПО Softkey.ru Огромный выбор лицензионного софта. Моментальная оплата!<>www.softkey.ru Новый Firefox3.6 Быстрый и удобный браузер. Скачай бесплатно прямо сейчас!<>fx.yandex.ru Как заработать в интернете? Начните бизнес на Forex с надёжным партнёром! Зарегистрироваться.<>promo.akmos.ru

Рассылки Обзор бесплатных программ на сайте "Smaik" Настоящая Мекка для охотников за бесплатным софтом. Исключительно полезная рассылка для поиска программы для конкретных нужд. Подписаться:   на сайте    по почте

Группы «Добрая беседа» Разговоры обо всем. Беседы на любую тему. Вселенная, социум, домашние животные, интересные находки, советы или просьбы посоветовать - не важно, о чем го... «Будущий Президент России» Группа тех,кто готов поддержать на Президентских выборах. «Рукоделие» Всё самое полезное о рукоделии! Уроки, описания, советы, схемы, книги! Вязание, шитьё, вышивание, обработка кожи, лепка, макраме, валяние, ткачество, ко...

Подписан адрес: admin10383.deep@blogger.com Код этой рассылки: comp.prog.assembler Архив рассылки Отписаться:  На сайте  Почтой Поддержка подписчиков Убрать рекламу Другие рассылки этой тематики Другие рассылки этого автора Рассылка производится: Subscribe.Ru / ЗАО «Интернет-Проекты» / О компании / Политика конфиденциальности