Dos Box с модулем Mouse

@ZumaLuma · Регистрация: 10.06.2015

Студворк — интернет-сервис помощи студентам

Писал программу в которой нужно построить графическое изображение и подключить модуль Mouse, чтобы мышкой по щелчку левой мыши создавать изображение в моем случае это треугольники, квадраты и круги или удалить изображение при помощи правой. Задание такое есть ракета на ракете есть иллюминаторы , из этих иллюминаторов нужно создать различные узоры, то есть один узор и его зеркальное отражение и всё это должно выполняться с помощью мыши. Вот программа которую я смог написать, она строит мышкой только один квадрат.

Pascal
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
program graphika;
uses crt,mouse,graph;
var x,y,z,i,d,s,gd,gm,j,x2,y2:integer;
nb,bn,x1,y1:word;
begin
gd:=detect;
initgraph(Gd,Gm,' ');
x:=x+160;
y:=y+80;
setbkcolor(8);
for i:=1 to 6 do
begin
for s:=1 to 2 do
begin
rectangle(x,y,z+340,d+100);
x:=x+200;
z:=z+200;
end;
x:=x-400;
z:=z-400;
y:=y+50;
d:=d+50;
end;
begin
setcolor(blue);
setfillstyle(1,blue);
line(85,20,40,60);
line(40,60,130,60);
line(130,60,85,20);
floodfill(90,30,blue);
line(130,60,130,320);
line(40,60,40,320);
line(40,320,130,320);
setcolor(4);
setfillstyle(1,4);
line(65,320,45,360);
line(45,360,85,360);
line(85,360,65,320);
floodfill(65,330,4);
setcolor(4);
setfillstyle(1,4);
line(105,320,85,360);
line(125,360,105,320);
line(85,360,125,360);
floodfill(105,330,4);
setcolor(white);
setfillstyle(1,white);
circle(85,100,20);
floodfill(85,100,white);
setcolor(white);
setfillstyle(1,white);
circle(85,160,20);
floodfill(85,160,white);
setcolor(white);
setfillstyle(1,white);
line(85,200,65,240);
line(65,240,105,240);
line(105,240,85,200);
floodfill(90,220,white);
setcolor(white);
setfillstyle(1,white);
rectangle(65,260,105,300);
floodfill(70,270,white);
setcolor(white);
setfillstyle(1,white);
circle(190,90,10);
floodfill(190,90,white);
setcolor(white);
setfillstyle(1,white);
circle(230,90,10);
floodfill(230,90,white);
setcolor(white);
setfillstyle(1,white);
line(270,81,260,99);
line(260,99,280,99);
line(280,99,270,81);
floodfill(270,85,white);
setcolor(white);
setfillstyle(1,white);
rectangle(300,81,320,99);
floodfill(310,89,white);
setcolor(white);
setfillstyle(1,white);
rectangle(380,81,400,99);
floodfill(390,89,white);
setcolor(white);
setfillstyle(1,white);
line(430,81,420,100);
line(420,99,440,99);
line(440,99,430,81);
floodfill(430,89,white);
setcolor(white);
setfillstyle(1,white);
circle(470,90,10);
floodfill(470,90,white);
setcolor(white);
setfillstyle(1,white);
circle(510,90,10);
floodfill(510,90,white);
rectangle(185,135,195,145);
rectangle(225,135,235,145);
rectangle(265,135,275,145);
rectangle(305,135,315,145);
rectangle(385,135,395,145);
rectangle(425,135,435,145);
rectangle(465,135,475,145);
rectangle(505,135,515,145);
rectangle(185,185,195,195);
rectangle(225,185,235,195);
rectangle(265,185,275,195);
rectangle(305,185,315,195);
rectangle(385,185,395,195);
rectangle(425,185,435,195);
rectangle(465,185,475,195);
rectangle(505,185,515,195);
rectangle(185,235,195,245);
rectangle(225,235,235,245);
rectangle(265,235,275,245);
rectangle(305,235,315,245);
rectangle(385,235,395,245);
rectangle(425,235,435,245);
rectangle(465,235,475,245);
rectangle(505,235,515,245);
rectangle(185,285,195,295);
rectangle(225,285,235,295);
rectangle(265,285,275,295);
rectangle(305,285,315,295);
rectangle(385,285,395,295);
rectangle(425,285,435,295);
rectangle(465,285,475,295);
rectangle(505,285,515,295);
rectangle(185,335,195,345);
rectangle(225,335,235,345);
rectangle(265,335,275,345);
rectangle(305,335,315,345);
rectangle(385,335,395,345);
rectangle(425,335,435,345);
rectangle(465,335,475,345);
rectangle(505,335,515,345);
if MouseInit(bn) then begin MouseShow;end;
repeat mouseread(x1,y1,bn);
if bn=1 then begin
setcolor(white);
if (((x1>(185))and(x1<(195)))and(y1>(135))and(y1<(145)))
then begin
mousehide;
bar(180,130,200,150);
mouseshow;
end;
end;
until keypressed;
end;
end.

Модуль Mouse который используется в этой программе.

Pascal
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
unit mouse;
interface
var MousePresent:Boolean;
function mouseInit(var nb:word):Boolean;
procedure MouseShow;
procedure mouseHide;
procedure Mouseread(var x,y,bMask:word);
procedure mouseSetPos(x,y:word);
function MouseGetb(bMask:word; var count,LastX,LastY:word):word;
implementation
uses dos;
var r:registers;
Mi:pointer;
function MouseInit(var nb:word):boolean;
begin
if MousePresent then
begin
R.AX:=0;
Intr($33,R);
if R.AX=0 then
begin
nb:=0;
MouseInit:=False
end
else
begin
nb:=R.BX;
MouseInit:=True
end end else
begin
nb:=0;
MouseInit:=False
end end;
procedure MouseShow;
begin
R.AX:=1;
Intr($33,R)
end;
procedure mouseHide;
begin
R.AX:=2;
intr($33,R)
end;
procedure Mouseread(var X,Y, bMask:Word);
begin
R.AX:=3;
Intr($33,R);
x:=R.CX;
Y:=R.DX;
bMask:=R.bx
end;
procedure MouseSetPos(x,y:Word);
begin
R.AX:=4;
R.CX:=X;
R.DX:=Y;
Intr($33,R)
end;
Function MouseGetb(bMask:word; Var Count,LastX,lastY:word):Word;
begin
R.AX:=5;
R.Bx:=bMask;
intr($33,R);
Count:=R.BX;
LastX:=R.CX;
LastY:=R.DX;
MouseGetb:=R.AX
end;
begin
GetIntVec($33,Mi);
if Mi=nil then
mousepresent:=false else
if Byte(Mi^)=$CE then
mousePresent:=False else
Mousepresent:=True
end.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .