Последние записи
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
30th
Май
Работа с мышью
Posted by obzor under assembler
С мышью еще не работал. Помогите пожалуйста написать программу:
С помощью клавиш [+] и [-] изменять область движения «мыши».
Попробуй так..
; fasm code.......
; Меняет положение курсора мыши клавишами +/-
org 100h
jmp start
mess0 db 13,10,'Pres ENTER to exit'
db 13,10,'Key +/- to new kursor position..$'
start: mov ax,12h ; режим 640/480
int 10h ;
mov ah,9 ;
mov dx,mess0 ;
int 21h ;
xor ax,ax ; сброс мыши
int 33h ;
mov ax,1 ; показываем курсор
int 33h ;
sleep: xor ax,ax ; ждём клавишу..
int 16h ;
cmp al,13 ; Enter - выход!
je reset ;
cmp al,'-' ; обработчики +/-
je @@1 ;
cmp al,'+' ;
je @@2 ;
jmp sleep ; остальные клавиши игнорируем
@@1: mov cx,320 ; центр экрана: 320/240 (640/480)
mov dx,240+120 ; добавляем вертикаль
mov ax,4 ;
int 33h ; установить курсор!
jmp sleep ; ждём клаишу..
@@2: mov cx,320 ;
mov dx,240-120 ; отнимаем вертикаль
mov ax,4 ;
int 33h ;
jmp sleep ; ждём клавишу..
reset: mov ax,3 ; видеорежим в дефолт
int 10h ;
int 20h ; выход!
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)