close

Вход

Забыли?

вход по аккаунту

?

L3 (2)

код для вставкиСкачать
Министерство Образования Российской федерации
Государственный университет аэрокосмического приборостроения
Отчет защищен:
Преподаватель: Бубликов
ОТЧЕТ
о лабораторной работе №3
по курсу: Интерфейсы периферийных устройств
Работа с мышью.
Работу выполнил
Студент группы 414x: Leon
Санкт-Петербург
2003
Цель работы: Изучение основ ассемблера. Работа с мышью.
Задание: В текстовом режиме определить мышь, затем отслеживая нажатие кнопок, при нажатии девой кнопки выводить на экран символ, при нажатии правой - стирать символ. Текст программы:
program L3;
Uses crt;
Var color:byte;
x,y,r:word;
procedure Show; {вывод курсора мыши на экран}
Begin asm
mov AX,1 {номер функции}
Int 33h {номер прерывания}
end
end;
Procedure Hide; {скрытие курсора мыши с экрана}
Begin asm
mov AX,2 {номер функции}
Int 33h {номер прерывания}
end
End;
procedure Window(xt,yt,color:byte);{рисование окна}
begin
xt:=xt;
yt:=yt;
asm
mov ah,06h {Номер функции}
mov bh,color {байт атрибутов для пустой строки}
mov ch,yt {Y верхнего левого угла окна}
mov cl,xt {X верхнего левого угла окна}
mov dh,yt {Y нижнего правого угла окна}
mov dl,xt {x нижнего правого угла окна}
int 10h {прерывание}
end;
end;
begin
color:=blue; {цвет}
textbackground(color); {цвет фона}
clrscr; {очистка экрана}
asm mov ax,0 {номер функции}
int 33h {инициализация мыши}
end;
repeat Show; {вывод курсора на экран}
asm mov ax,3h {номер функции}
int 33h {прерывание}
mov x,cx {сохранение координаты X}
mov y,dx {сохранение координаты Y}
mov r,bx {сохранение номера нажатой кнопки}
end;
x:=x div 8; {преобразование координаты X}
y:=y div 8; {преобразование координаты Y}
if r=1 then begin {если нажата левая кнопка}
window(x,y,65); {вывод красного окна}
end;
if r=2 then window(x,y,16); {стирание}
gotoXY(1,1);
writeln('Координата X:', x,' ');
gotoXY(1,2);
writeln('Координата Y:', y,' ');
delay(3000); {задержка}
until keypressed; {пока не нажата клавиша}
End. {конец}
Документ
Категория
Рефераты
Просмотров
25
Размер файла
30 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа