Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Специалист Рейтинг: 253 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 144 ∙ повысить рейтинг >>

Boriss Статус: Профессор Рейтинг: 25 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 1160
от 17.01.2009, 16:05

Вопрос № 157457: Уважаемые эксперты, напишите пожалуйста на Tasm под Dos следующие 3 программки(используя текстовый режим): В верхнем левом углу экрана расположен «шарик». При нажатии на кнопки со стрелками вниз и вправо, он начинает двигаться вниз или вправо соот...

Вопрос № 157.457

Уважаемые эксперты, напишите пожалуйста на Tasm под Dos следующие 3 программки(используя текстовый режим): В верхнем левом углу экрана расположен «шарик». При нажатии на кнопки со стрелками вниз и вправо, он начинает двигаться вниз или вправо соответственно, НЕ оставляя за собой на экране след. При достижении шариком края экрана, он останавливается и меняет свой цвет на любой другой, оставаясь при этом видимым на экране. В центре экрана расположено два «шарика». При нажатии на кнопки со стрелками вверх и вниз, первый начинает двигаться вверх или вниз соответственно, НЕ оставляя за собой на экране след. При нажатии на кнопки со стрелками вправо и влево, второй начинает двигаться вправо или влево соответственно, оставляя за собой на экране след. При достижении шариком края экрана, он останавливается. В углах экрана расположено по одному шарику. При нажатии на пробел, они начинают двигаться друг за другом по границам видимой области экрана, НЕ оставляю за собой следа. При нажатии на кнопки со стрелками, один из шариков (в зависимости от того, какому шарику назначена какая кнопка) меняет свой цвет на любой другой и продолжает при этом движение со всеми другими шариками. Продемонстрировать, как минимум, по две смены цветов для каждого из шариков.

Отправлен: 12.01.2009, 15:43 Вопрос задала: Егорова Катерина Федоровна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Егорова Катерина Федоровна! Все три программы в приложении В первой программе "шарик" начинает двигаться по нажатию стрелок, при этом можно менять направление движения По достижению края,"шарик" останавливается и меняет свой цвет. Во второй программе "шарики" двигаются только, когда соотвествующие клавиши нажаты. Если клавишу отпустить, то и "шарик" остановится. В третьей "шарики" двигаются против часовой стрелки, цвета меняют клавиши - стрелки вверх, влево, вниз и вправо Во всех программах выход по клавише Esc Приложение: 1)------------------------------------------- .model tiny .code .startup mov ax, 0003h int 10h mov ax, 3508h ;Будем рисовать "шарик" в прерывании таймера int 21h mov word ptr old08, bx ;сохраним старый вектор mov word ptr old08+2, es lea dx, new08 ;установим новый mov ax, 2508h int 21h wait_command: mov ah, 0 ;ждем нажатие на клавишу int 16h cmp ah, 1 ;выходим по Escape je finish cmp ah, 4dh ;стрелка вправо? jne cmp_down cmp byte ptr cs:[symb+1],0bh;если уже на краю справа, то запрещаем изменение шага jne wait_command mov deltax, 1 ;+1 по горизонтали mov deltay, 0 ;по вертикали сбросим jmp wait_command cmp_down: cmp ah, 50h ;стрелка вниз? jne wait_command cmp byte ptr cs:[symb+1],0bh;если уже на краю снизу, то запрещаем изменение шага jne wait_command mov deltay, 1 ;+1 по вертикали mov deltax, 0 ;по горизонтали сбросим jmp wait_command finish: ;выход lds dx, old08 ;восстановим вектор таймера mov ax, 2508h int 21h .exit 0 PAUSE_COUNT equ 4 ;движение 18/4 раза в секунду (под ХР медленнее) old08 dd 0 ;для хранения старого вектора pos dw 0000h ;позиция буковки 'o' symb dw 0b6fh ;буковка 'o' с цветом циан count db PAUSE_COUNT ;счетчик входа в прерывание таймера delta label word ; deltax db 0 ;шаг по горизонтали deltay db 0 ;шаг по вертикали new08: pushf ;прерывание таймера call cs:[old08] ;вызовем старый обработчик sub cs:count, 1 ;декремент счетчика jz new08_next iret ;отрабатываем 1 из PAUSE_COUNT раз new08_next: mov cs:count, PAUSE_COUNT ;восстановим счетчик push es di ax mov ax, 0b800h ;будем писать в видеопамять напрямую mov es, ax mov ax,cs:[delta] ;приращение test ax, ax ;если 0, то просто рисуем jz print_symbol ;вытрем символ в старой позиции push ax mov al, 80 ;вычисляем позицию (y*80+x)*2 mul byte ptr cs:[pos+1] add al, byte ptr cs:[pos] adc ah, 0 shl ax, 1 mov di, ax mov es:[di], 0720h ;пробел pop ax add cs:[pos], ax ;прибавим приращение ;проверим, дошли ли до краев? cmp byte ptr cs:[pos],80 ;на правом, меняем цвет jb cmp_bottom ;иначе проверим низ mov cs:[delta], 0 ;сбросим приращение mov byte ptr cs:[pos],79 ;установим крайне правую позицию jmp change_color cmp_bottom: cmp byte ptr cs:[pos+1],25 ;внизу, меняем цвет jb print_symbol ;иначе на вывод символа mov cs:[delta], 0 ;сбросим приращение mov byte ptr cs:[pos+1],24 ;установим крайне нижнюю позицию change_color: add byte ptr cs:[symb+1],02h;меняем цвет and byte ptr cs:[symb+1],0fh;чтобы было 01h-0fh print_symbol: ;выводим символ mov al, 80 ;вычислим новую позицию mul byte ptr cs:[pos+1] ;вычисляем позицию (y*80+x)*2 add al, byte ptr cs:[pos] adc ah, 0 shl ax, 1 mov di, ax mov ax, cs:symb ;нарисуем 'o' mov es:[di], ax pop ax di es iret end 2)------------------------------------------- .model tiny .code .startup mov ax, 0003h int 10h mov ax, 3508h ;будем рисовать в прерывании таймера int 21h mov word ptr old08, bx ;сохраним старый обработчик mov word ptr old08+2, es lea dx, new08 ;новый mov ax, 2508h int 21h mov ax, 3509h ;перехватим вектор прерывания клавиатуры int 21h mov word ptr old09, bx mov word ptr old09+2, es lea dx, new09 ;новый mov ax, 2509h int 21h wait_command: mov ah, 0 ;выход по Esc int 16h cmp ah, 1 jne wait_command finish: lds dx, old08 ;восстановим перехваченные вектора прерываний mov ax, 2508h int 21h lds dx, cs:old09 mov ax, 2509h int 21h .exit 0 PAUSE_COUNT equ 4 ;движение 18/4 раз в секунду old08 dd 0 ;старый 08 вектор (таймер) old09 dd 0 ;старый 09 вектор (клавиатура) pos1 dw 0c27h ;позиция первого "шарика" pos2 dw 0c28h ;позиция второго "шарика" symb dw 0b6fh ;'o' цвета циан count db PAUSE_COUNT ;счетчик срабатывания движения fUpDo db 0 ;шаг движения вверх/вниз fLeRi db 0 ;шаг движения влево/вправо new08: pushf call cs:[old08] ;отработаем старый вектор sub cs:count, 1 jz new08_next iret ;ждем, когда отсчитает нужное число раз new08_next: mov cs:count, PAUSE_COUNT ;проинициализируем счетчик push es di ax mov ax, 0b800h ;пишем напрямую в видеопамять mov es, ax mov al, cs:fUpDo ;добавим шаг вверх/вниз cmp byte ptr cs:[pos1+1], 0 je print_symbol1 ;в верхней позиции cmp byte ptr cs:[pos1+1], 24 je print_symbol1 ;и нижней ничего не далаем mov al, 80 ;вычисляем старую позицию mul byte ptr cs:[pos1+1] add al, byte ptr cs:[pos1] adc ah, 0 shl ax, 1 mov di, ax mov es:[di], 0720h ;и пишем пробел (вытираем) mov al, cs:fUpDo add byte ptr cs:[pos1+1], al ;меняем позицию print_symbol1: mov al, 80 ;вычисляем позицию mul byte ptr cs:[pos1+1] add al, byte ptr cs:[pos1] adc ah, 0 shl ax, 1 mov di, ax mov ax, cs:symb ;выводим символ mov es:[di], ax print_second: cmp cs:fLeRi, 0 ;если нет движения, то просто рисуем je print_symbol2 mov al, cs:fLeRi add al, byte ptr cs:[pos2] ;меняем позицию js print_symbol2 cmp al, 79 ;и справа ja print_symbol2 ;просто рисуем mov byte ptr cs:[pos2], al print_symbol2: mov al, 80 ;вычисляем новую позицию mul byte ptr cs:[pos2+1] add al, byte ptr cs:[pos2] adc ah, 0 shl ax, 1 mov di, ax mov ax, cs:symb ;и пишем символ 'o' mov es:[di], ax new08_ret: pop ax di es new08_iret: iret new09: ;прерывание клавиатуры push ax in al, 60h ;прочитаем код test al, 80h ;код отпускания? jnz release_key cmp al, 48h ;вверх jne cmp_down mov cs:fUpDo, -1 ;шаг вверх jmp new09_ret cmp_down: cmp al, 50h ;вниз jne cmp_left mov cs:fUpDo, 1 ;шаг вниз jmp new09_ret cmp_left: cmp al, 4bh ;влево jne cmp_right mov cs:fLeRi, -1 ;шаг влево jmp new09_ret cmp_right: cmp al, 4dh ;вправо jne new09_ret mov cs:fLeRi, 1 ;шаг вправо jmp new09_ret release_key: ;по отпусканию обнуляем соответствующий шаг cmp al, 48h+80h ;вверх je UpDownUp cmp al, 50h+80h ;вниз je UpDownUp cmp al, 4bh+80h ;влево je LeftRightUp cmp al, 4dh+80h ;вправо jne new09_ret LeftRightUp: mov cs:fLeRi, 0 ;в результате 'o' замрет jmp new09_ret UpDownUp: mov cs:fUpDo, 0 ;аналогично new09_ret: pop ax jmp cs:[old09] ;на старый обработчик end 3)------------------------------------------- .model tiny .code .startup mov ax, 0003h int 10h mov ax, 3508h ;Будем рисовать "шарики" в прерывании таймера int 21h mov word ptr old08, bx ;сохраним старый вектор mov word ptr old08+2, es lea dx, new08 ;установим новый mov ax, 2508h int 21h wait_command: mov ah, 0 ;ждем нажатие на клавишу int 16h cmp ah, 1 ;выходим по Escape jne cmp_space lds dx, old08 ;восстановим вектор таймера mov ax, 2508h int 21h .exit 0 ;выход cmp_space: cmp al, ' ' jne cmp_up xor flag, 1 ;по пробелу взведем флаг старта jmp wait_command cmp_up: cmp ah, 48h jne cmp_left lea si, color_1 ;стрелка вверх - цвет 1 буковки jmp change_color cmp_left: cmp ah, 4bh jne cmp_down lea si, color_2 ;стрелка влево - цвет 2 буковки jmp change_color cmp_down: cmp ah, 50h jne cmp_right lea si, color_3 ;стрелка вниз - цвет 3 буковки jmp change_color cmp_right: cmp ah, 4dh jne wait_command lea si, color_4 ;стрелка вправо - цвет 4 буковки change_color: inc byte ptr [si] ;меняем цвет and byte ptr [si],0fh ;чтобы было 00h-0fh jz change_color ;чтобы избежать черный по черному jmp wait_command PAUSE_COUNT equ 4 ;движение 18/4 раза в секунду (под ХР медленнее) old08 dd 0 ;для хранения старого вектора pos dw 0000h ;позиция 1 буковки 'o' dw 1800h ;позиция 2 буковки 'o' dw 184fh ;позиция 3 буковки 'o' dw 004fh ;позиция 4 буковки 'o' count db PAUSE_COUNT ;счетчик входа в прерывание таймера color_1 db 0bh ;начальные цвета буковок color_2 db 0bh color_3 db 0bh color_4 db 0bh flag db 0 ;флаг движения new08: pushf ;прерывание таймера call cs:[old08] ;вызовем старый обработчик sub cs:count, 1 ;декремент счетчика jz new08_next new08_ret: iret ;отрабатываем 1 из PAUSE_COUNT раз new08_next: mov cs:count, PAUSE_COUNT ;восстановим счетчик push es si di cx bx ax mov ax, 0b800h ;будем писать в видеопамять напрямую mov es, ax cmp cs:flag,0 jz print_symbols ;если нет движения, то просто рисуем ;вытрем символы в старой позиции mov cx, 4 lea si, [pos] ;массив позиций clr_loop: mov al, 80 ;вычисляем позицию (y*80+x)*2 mul byte ptr cs:[si+1] add al, byte ptr cs:[si] adc ah, 0 shl ax, 1 mov di, ax mov es:[di], 0720h ;пробел inc si inc si loop clr_loop ;сдвинем на 1 позицию, буковки будут двигаться против часовой стрелки inc_pos: mov cx, 4 lea si, [pos] ;по всем позициям pr_loop: cmp byte ptr cs:[si], 0 ;левый край (х=0)? jne cmp_x_no_0 cmp byte ptr cs:[si+1], 24 ;левый нижний угол? je pr_down ;да, отрабатываем, как нижнюю границу inc byte ptr cs:[si+1] ;иначе, y++ jmp pr_next cmp_x_no_0: cmp byte ptr cs:[si], 79 ;правый край (х=79)? jne cmp_y_0 ;нет, проверим y cmp byte ptr cs:[si+1], 0 ;правый верхний угол? je pr_up ;на верхнюю границу dec byte ptr cs:[si+1] ;y-- jmp pr_next cmp_y_0: cmp byte ptr cs:[si+1], 0 ;верхняя граница (y=0)? jne pr_down ;нет, значит нижняя pr_up: ;верхняя граница dec byte ptr cs:[si] ;х-- jmp pr_next pr_down: ;нижняя граница inc byte ptr cs:[si] ;х++ pr_next: inc si ;на следующую позицию inc si loop pr_loop print_symbols: ;выводим буковки mov cx, 4 lea si, [pos] ;массив позиций lea bx, [color_1] ;массив атрибутов print_loop: mov al, 80 ;вычислим новую позицию mul byte ptr cs:[si+1] ;вычисляем позицию (y*80+x)*2 add al, byte ptr cs:[si] adc ah, 0 shl ax, 1 mov di, ax mov al, 'o' ;код символа mov ah, cs:[bx] ;атрибут mov es:[di], ax inc bx inc si inc si loop print_loop pop ax bx cx di si es iret end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 13.01.2009, 02:27 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241028 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru