Управление движением точки с помощью кнопок

@valks · Регистрация: 17.12.2010

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

Нужна программа управления точкой кнопками button, начальные значения x и y ставлю соответственно 10 и 10. При нажатии на кнопку button x и y показывают совсем другие значения. В чем может быть проблема?

Вот программа:

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
uses vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  PaintBox1: PaintBox;
  Button1: Button;
  Button2: Button;
//$VCLDESIGN-
type Ttochka=class(PaintBox)
x,y,c:integer;
constructor Create(x0,y0,c0:integer);
procedure SetPixel;
 
end;
 
constructor Ttochka.Create(x0,y0,c0:integer);
begin
x:=x0; y:=y0; c:=c0;
end;
 
procedure Ttochka.SetPixel;
begin
 PaintBox1.Canvas.SetPixel(x,y,clRed);
end;
 
procedure Button2OnClick;
var
x0,y0,c0:integer;
x,y:integer;
T:Ttochka;
begin
  x:=x+10; y:=y+10;
  T:=Ttochka.Create(x,y,clRed);
  T.SetPixel;
  writeln('x=',x,'  ','y=',y);
 
end;
 
procedure Button1OnClick;
var
x0,y0,c0:integer;
x,y:integer;
T:Ttochka;
begin
  x:=x-10; y:=y-10;
  T:=Ttochka.Create(x,y,clRed);
  T.SetPixel;
  writeln('x=',x,'  ','y=',y);
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,372,350);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
  PaintBox1:= PaintBox.Create(Form1,0,0,364,209);
  PaintBox1.InitControl(True,True,alNone,crDefault,0,'0','');
  Button1:= Button.Create(Form1,96,224,75,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'-','');
  Button2:= Button.Create(Form1,200,224,75,25);
  Button2.InitControl(True,True,alNone,crDefault,0,'+','');
  Button1.OnClick:=Button1OnClick;
  Button2.OnClick:=Button2OnClick;
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
var
x,y:integer;
T:Ttochka;
begin
 
  InitControls;
  T:=Ttochka.Create(10,10,clRed);
  T.SetPixel;
 
end.

@Puporev · 20.04.2011, 11:42

АВС толком не знаю, но так будет работать. Наверное инициализацию переменных x,y,i здесь можно по другому сделать, это я как в Делфи.

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
uses vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  PaintBox1: PaintBox;
  Button1: Button;
  Button2: Button;
//$VCLDESIGN-
type Ttochka=class(PaintBox)
x,y,c:integer;
constructor Create(x0,y0,c0:integer);
procedure SetPixel;
end;
 
constructor Ttochka.Create(x0,y0,c0:integer);
begin
x:=x0; y:=y0; c:=c0;
end;
 
procedure Ttochka.SetPixel;
begin
 PaintBox1.Canvas.SetPixel(x,y,c);
end;
var x,y,i:integer;
    T:Ttochka;
procedure Form1OnCreate;
begin
x:=0;y:=0;i:=0;
end;
procedure Button2OnClick;
begin
i:=i+1;
PaintBox1.Canvas.clear;
if (x<PaintBox1.width-10)and(y<PaintBox1.height-10) then
 begin
  x:=x+10; y:=y+10;
 end;
T:=Ttochka.Create(x,y,clRed);
T.SetPixel;
writeln('x=',x,'  ','y=',y);
end;
 
procedure Button1OnClick;
begin
i:=i+1;
PaintBox1.Canvas.clear;
if (x>10)and(y>10) then
 begin
  x:=x-10; y:=y-10;
 end;
T:=Ttochka.Create(x,y,clRed);
T.SetPixel;
writeln('x=',x,'  ','y=',y);
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,372,350);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
  PaintBox1:= PaintBox.Create(Form1,0,0,364,209);
  PaintBox1.InitControl(True,True,alNone,crDefault,0,'0','');
  Button1:= Button.Create(Form1,96,224,75,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'-','');
  Button2:= Button.Create(Form1,200,224,75,25);
  Button2.InitControl(True,True,alNone,crDefault,0,'+','');
  Button1.OnClick:=Button1OnClick;
  Button2.OnClick:=Button2OnClick;
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
 
begin
 
  InitControls;
 // T:=Ttochka.Create(10,10,clRed);
 // T.SetPixel;
 
end.

@valks · 20.04.2011, 12:16 **[ТС]**

А здесь не поможешь? Хочу понять сам принцип инициализации переменных. Тут "x" увеличивается с нулевого значения, а "y" с непонятно какого. Где задать эти начальные значения? Это нужно для более сложной задачи. За первый ответ спасибо!

Программа:

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
uses vcl;
 
 
var
  Form1: Form;
  PaintBox1: PaintBox;
  Button1: Button;
  Button2: Button;
 
 
procedure RB_OnClickExt(Sender:Component);
var
x,y:integer;
 begin
  case Sender.Tag of
   1 : begin
        x:=x+10;
        writeln('x=',x);
       end;
   2 : begin
        y:=y+10;
        writeln('y=',y);
       end;
  end;
 end;
 
procedure Button1OnClickExt(Sender: Component);
begin
 RB_OnClickExt(Button1);
end;
 
procedure Button2OnClickExt(Sender: Component);
begin
 RB_OnClickExt(Button2);
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,372,350);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
  PaintBox1:= PaintBox.Create(Form1,8,8,345,225);
  PaintBox1.InitControl(True,True,alNone,crDefault,0,'0','');
  Button1:= Button.Create(Form1,104,240,75,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Кнопка1','');
  Button2:= Button.Create(Form1,192,240,75,25);
  Button2.InitControl(True,True,alNone,crDefault,0,'Кнопка2','');
  Button1.Tag:= 1;
  Button2.Tag:= 2;
  Button1.OnClickExt:=Button1OnClickExt;
  Button2.OnClickExt:=Button2OnClickExt;
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
 
begin
  InitControls;
 
end.

@Puporev · 20.04.2011, 13:02

Сообщение от valks

Тут "x" увеличивается с нулевого значения, а "y" с непонятно какого. Где задать эти начальные значения?

Ну я же тебе написал где и как...

Pascal
1
2
3
4
procedure Form1OnCreate;
begin
x:=0;y:=0;i:=0;//если счетчик кликов не нужен, i-убрать
end;

Добавлено через 55 секунд
И х,у должны быть глобальные переменные, объявлять перед всеми процедурами.

@valks · 20.04.2011, 14:07 **[ТС]**

СПАСИБО ОГРОМНОЕ!!! Думаю теперь справлюсь с курсачем.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@valks 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 3
	20.04.2011, 14:07 [ТС]
	СПАСИБО ОГРОМНОЕ!!! Думаю теперь справлюсь с курсачем. 0