Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Determinant
2 / 2 / 3
Регистрация: 11.04.2009
Сообщений: 67
#1

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

26.02.2011, 11:28. Просмотров 726. Ответов 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
Мне нужно сделать программу такого плана, при запуске передо мной появляется...

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

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

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

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

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

Работа с мышью
Доброго времени суток, есть проблема. Пытаюсь сделать вывод по нажатию мыши в...

Работа с мышью
Возникли трудности с рабором работы мыши. Конкретно по делу:...


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

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

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