Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Determinant
2 / 2 / 0
Регистрация: 11.04.2009
Сообщений: 67
#1

Работа с мышью - Turbo Pascal

26.02.2011, 11:28. Просмотров 699. Ответов 3
Метки нет (Все метки)

написать программу для хаотического перемещения мыши в заданном прямоугольнике, кооординаты углов которого задаются пользователем...использовать как можно больше низкоуровневого программирования.
написал прогу на паскале, но почему-то не работает, может кто знает какая причина?

вот код:

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
program mouse;
uses CRT;
 
procedure limhor(max,min:word); assembler;
asm
mov ax,$07
mov cx,min
mov dx,max
int $33
end;
 
procedure limver(max,min:word); assembler;
asm
mov ax,$08
mov cx,min
mov dx,max
int $33
end;
 
procedure gotomouse(x,y:word); assembler;
asm
mov ax,$04
mov cx,x
mov dx,y
int $33
end;
 
var x1,y1,x2,y2,x3,y3:word;
label m1,m2,m3,m4;
begin
clrscr;
writeln('vvedit x_min hor:');
readln(x1);
writeln('vvedit x_max hor:');
readln(x2);
writeln('vvedit y_min ver:');
readln(y1);
writeln('vvedit y_max ver:');
readln(y2);
m3:
limhor(x1,y1);
limver(y1,y2);
m1:
x3:=random(x2);
if x3<x1 then goto m1;
m2:
y3:=random(y2);
if y3<y1 then goto m2;
gotomouse(x3,y3);
if KeyPressed then goto m4;
goto m3;
m4:
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 11:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Работа с мышью (Turbo Pascal):

Работа с мышью - Turbo Pascal
Мне нужно сделать программу такого плана, при запуске передо мной появляется меню из 4 пунктов, когда я выбираю один из пунктов выполняется...

Работа с мышью - Turbo Pascal
Можно ли курсором нажимать на фигуру (модуля граф), при этом что бы работала какая-нибудь процедура? Киньте пример программки.

Работа с мышью в текстовом режиме. - Turbo Pascal
Срочно помогите! При нажатии левой кнопки мыши текстовые символы на экране, которые имеют такой же цвет, как и те где находится курсор,...

Работа с мышью в Turbo Pascal - Turbo Pascal
Мне нужно сделать программу такого плана, при запуске передо мной появляется меню из 4 пунктов, когда я выбираю один из пунктов выполняется...

Работа с мышью: построить нормаль и касательную к графику в точке клика мыши - Turbo Pascal
нужно вывести график на экран и мышкой нажать на любую точку графика чтобы построилась нормаль и касательная как график построить я...

Перемещение нарисованного объекта мышью - Turbo Pascal
ребят нужна помощь, нужна самая простая прога чтобы двигать например круг мышкой

3
Puporev
Модератор
52834 / 40645 / 13892
Регистрация: 18.05.2008
Сообщений: 94,296
26.02.2011, 12:19 #2
Цитата Сообщение от Determinant Посмотреть сообщение
использовать как можно больше низкоуровневого программирования.
Вот без этого нет проблем такое написать. Кстати там не мышь перемещается, а курсор...
0
Mad_Dog
Фрилансер
448 / 429 / 27
Регистрация: 01.06.2010
Сообщений: 1,315
26.02.2011, 13:30 #3
INT 33h - Mouse Function Calls
0
Determinant
2 / 2 / 0
Регистрация: 11.04.2009
Сообщений: 67
26.02.2011, 17:23  [ТС] #4
Цитата Сообщение от Puporev Посмотреть сообщение
Вот без этого нет проблем такое написать. Кстати там не мышь перемещается, а курсор...
ну да, курсор...
толкьо вот почему прога не работает? запускается, но не работает...
0
26.02.2011, 17:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 17:23
Привет! Вот еще темы с ответами:

Написать программу перемещения параболы мышью - Turbo Pascal
прошу помощи, нужна программа чтобы я двигал параболу мышкой

Работа с мышью - Delphi
Добрый вечер форумчани=) Нужна ваша помощь! Нужно отследить нажатие левой кнопки мыши так сказать глобально, а не только в программе,...

Работа с мышью - Assembler
Ребят обьясните как вывести квадрат левым нажатием кнопки мыши и спрятав его правым нажатием кнопки мыши. Вот набросок кода ...

.NET 4.x Работа с мышью - C#
Вопрос наверно очень нубский но всьотаки .... как мне в C# как определить была нажата левая или правая кнопка мыши??? На пустой форме. ...


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

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

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