Форум программистов, компьютерный форум, киберфорум
Assembler: DOS/Real Mode/16-bits
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 3
1
TASM

Работа с мышью: при нажатии ЛКМ выключить индикатор ScrollLock, при ПКМ - пропустить четыре строки и вывести текст

06.03.2013, 11:03. Просмотров 1313. Ответов 3
Метки нет (Все метки)

Укажите пожалуйста на ошибки в коде программы, задание следующее:Ограничить передвижение курсора мыши левой нижней четвертью экрана. При нажатии левой клавиши мыши выключить индикатор ScrollLock (+ЗВУК), при нажатии правой – пропустить четыре строки и вывести на экран месяц Вашего рождения.
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
model small
.386
.stack 100h
.data
nota  dw   2281, 2032, 1810, 1708, 1522, 1356, 1208, 1140   
sdvig  db  0, 1, 2, 3, 4, 3, 2,1 
nom db 0
dvigOgr  db 10,13,'Движение мыши ограничено левой нижней частью экрана$'
prigl db 10,13,'Нажмите правой или левой кнопкой мыши$'
mesr db 10,13, 'Месяц моего рождения – февраль$'
.code
start:
    
;=======ограничение курсора===========
mov ax, @data
mov ds,ax
 
xor ax,ax
int 33h
 
lea dx, dvigOgr
mov ax,7
mov cx,0
mov dx,320
 
mov ax,8
mov cx,100
mov dx,199
 
;========= нажатие кнопки мыши=====
lea dx, prigl
 
mov ax,5
mov bx,1
int 33h
test ax,10b   ;нажата ли правая кнопка мыши
 
jz levo
;========пропустить четыре строки=======
mov dl, 10          
mov ah, 2h  
int 21h
 
mov dl, 10          
mov ah, 2h  
int 21h
 
mov dl, 10          
mov ah, 2h  
int 21h
 
mov dl, 10          
mov ah, 2h  
int 21h
 
lea dx, mesr
;===========нажата ли левая кнопка мыши=======
levo: mov ax,5
      mov bx,1
      int 33h
      test ax,01b
      jz exit
in al, 64h
test al,10b
mov al, 0EDh
out 60h,al
 
;============звук============
mov ax, @data
    mov ds, ax
mov al, 0B6h
            out 43h, al         
in al, 61h          
            or al, 00000011b    
            out 61h, al         
            mov si, 0           
mov di, 0       
Next_Note:
inc   nom           
cmp  nom, 9         
je   fin            
 
    mov  ax, nota[si]       
        out  42h, al        
    xchg al, ah     
out  42h, al        
 
    mov eax,  7FFFFFFFh 
    mov cl,  sdvig[di]      
    shr eax,  cl         
    mov ecx,  eax        
 
cycle1: loopd    cycle1   
                
            add si, 2
    inc di
    jmp Next_Note
 
fin:    in   al, 61h        
            and  al, 0FCh       
            out  61h, al        
    mov ax, 4C00h
    int 21h
 
exit: mov ax,4C00h
      int 21h
end start
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2013, 11:03
Ответы с готовыми решениями:

Открывается реклама при нажатии ЛКМ, ПКМ в окнах браузеров
Добрый день админы. В который раз к вам обращаюсь за помощью. 1. Хотел посмотреть фильм, скачал...

При нажатии лкм/пкм в окне graphABC считывались координаты пикселя
СОЗДАЛ ТРИ ТЕМЫ НИКТО НЕ ОТВЕЧАЕТ! ЧЕ НАФИГ ЗА ФОРУМ ТАКОЙ?! мне нужно, что бы при нажатии...

Появляются окна браузера с рекламой при любом нажатии лкм и пкм в браузере
Здравствуйте! Неожиданно начали появляться окна с рекламой при любом нажатии мышкой в браузере....

Как отцентровать форму по положению курсора мыши при нажатии на колесико или ПКМ+ЛКМ?
При щелчке центральной клавиши мыши или обоих крайних клавишей форма центрируется по указателю...

3
639 / 482 / 12
Регистрация: 10.01.2011
Сообщений: 1,046
07.03.2013, 07:31 2
Цитата Сообщение от spagetty Посмотреть сообщение
Укажите пожалуйста на ошибки в коде программы
Строки с 23-ей по 108-ю.
0
Клюг
7666 / 3181 / 382
Регистрация: 03.05.2011
Сообщений: 8,381
07.03.2013, 12:05 3
Цитата Сообщение от Vadimych Посмотреть сообщение
Строки с 23-ей по 108-ю.
OMG
Вообще-то можно взять за основу вот это, только масочки переопределить.
1
639 / 482 / 12
Регистрация: 10.01.2011
Сообщений: 1,046
07.03.2013, 12:39 4
Да вот ещё шаблончик, выводит координаты курсора в левый верхний угол экрана.
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
.model small
.stack 20h
.286
.code
start:
 
push cs
pop es
 
mov ax,3
int 10h
 
xor ax,ax
int 33h
 
mov ax,1
int 33h
 
mov ax,0ch
mov dx,offset mouse
int 33h
 
xor ax,ax
int 16h
 
mov ax,2
int 33h
mov ax,0ch
xor cx,cx
int 33h
 
mov ax,4c00h
int 21h
 
mouse proc far
 
push es
pusha
 
push 0b800h
pop es
 
mov bp,cx
mov si,2
mov ax,dx
xor di,di
xor cx,cx
mov bx,10
 
@3:
cmp ax,100
jnc @1
mov word ptr es:[3],0
@1:
xor dx,dx
div bx
inc cx
push dx
test ax,ax
jne @1
 
@2:
pop ax
or al,30h
mov ah,0ch
stosw
loop @2
 
dec si
je @f
 
xor cx,cx
mov ax,bp
mov di,8
cmp ax,100
jnc @1
mov word ptr es:[11],0
jmp @1
 
@@:
popa
pop es
retf
mouse endp
end start
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2013, 12:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Всплывает реклама при нажатие лкм или пкм на любом сайте
1) когда пытаюсь выделить какое-то сообщение или кликаю на пустое место на сайте, перекидывает на...

Text Box, стирать текст при нажатии мышью
http://s018.***********/i500/1303/c3/4648ec84613d.png Нужно чтоб при нажатие клавиши мыши, текст...

При нажатии ЛКМ выбранный цвет пикселя преобразовать в формат типа $00523C13 и вывести в Edit
Есть код для взятия цвета пикселя как в форме, так и вне ее. Код написан в таймере var...

Работа с мышью: в графическом режиме рисует линии при нажатии кнопки и движении мышки
Осталось сдать последнюю лабу, но что-то никак. Находил похожие, но они на FASM. Вот прошу помощи...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.