Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 36
1

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

24.05.2016, 17:54. Показов 491. Ответов 3
Метки нет (Все метки)

Сделайте пожалуста так что круг двигался вниз-вверх и не уменшался

Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    et_X: TEdit;
    et_Y: TEdit;
    et_R: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure et_XChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    _x,_y,_r : integer;
    procedure PaintCircle;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure tForm1.PaintCircle;
begin
 _x := StrToInt(et_X.Text);
 _y := StrToInt(et_Y.Text);
 _r := StrToInt(et_R.Text);
 canvas.Ellipse(Rect(_x - _r,_y - _r,_x + _r,_y + _r));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Invalidate;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
 PaintCircle;
end;
 
procedure TForm1.et_XChange(Sender: TObject);
begin
 
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2016, 17:54
Ответы с готовыми решениями:

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

Анимация: как сделать что бы шарик двигался снизу вверх, а не сверху вниз
ublic Class Form1 Dim x, y, h, w As Integer Private Sub Timer1_Tick(sender As...

когда захожу на страницу у меня все время страница вверх вниз вверх вниз и так продолжается все время
У меня была видеокарта Gt 7300 256 mb!Игры ишли,даже сталкер ишел хоть и насреднем и она меня...

Каким образом в StringGrid при перемещении строк вверх/вниз сделать так, чтобы курсор оставался на выбранной строке?
Каким образом в StringGrid при перемещении строк вверх/вниз сделать так, чтобы курсор оставался на...

__________________
3
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 36
24.05.2016, 17:55  [ТС] 2
Сделайте пожалуста так что круг двигался вниз-вверх и не уменшался
0
Вложения
Тип файла: rar 13.3.rar (161.5 Кб, 3 просмотров)
836 / 731 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
25.05.2016, 08:56 3
Если круг вписан в квадрат- то нужно двигать две точки сохраняя между ними пропорции, а не уменьшая их.
1
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 36
25.05.2016, 22:10  [ТС] 4
можете исправить прграму во вложении?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2016, 22:10

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как сделать так, чтобы при нажатии на кнопку прямоугольник перемещался на 2 пиксела вниз а если еще раз нажать то на два пиксела вверх
Привет Всем!!! Помогите справится с задачей, такая ситуация, как в Дельфи сделать так что бы при...

Как сделать, чтобы нарисованный круг двигался к заданной точке?
Есть круг, нужно, чтобы он двигался к заданной точке, пытался делать через timer_Tick, но почему-то...

Изменить программу, чтобы символ "рожица" двигался в обратном направлении
Помогите! Нужно изменить программу ниже,чтобы символ "рожица", как только достигнул конца экрана,...

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


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

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

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