Работа с image

@Гргорий · Регистрация: 15.12.2014

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

Задание заключается в том что, нужно нарисовать эллипс который был бы разделёна на 180 областей, и при нажатии на кнопку все эти области закрашивались разными цветами от синего до красного, рандомно.

@Puporev · 21.12.2014, 13:49

Например так.

Delphi

var
  Form1: TForm1;
  xc,yc,a,b:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
xc:=Image1.Width div 2;
yc:=Image1.Height div 2;
a:=xc-20;
b:=yc-20;
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Rectangle(0,0,width,height);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var u,x1,y1,x2,y2:integer;
begin
randomize;
with Image1.Canvas do
 begin
  u:=0;
  repeat
  x1:=xc+round(a*cos(u*pi/180));
  y1:=yc-round(b*sin(u*pi/180));
  x2:=xc+round(a*cos((u+2)*pi/180));
  y2:=yc-round(b*sin((u+2)*pi/180));
  brush.Color:=RGB(random(256),random(256),random(256));
  pie(xc-a,yc-b,xc+a,yc+b,x1,y1,x2,y2);
  u:=u+2;
  until u>360;
  pen.Width:=3;
  brush.Style:=bsClear;
  ellipse(xc-a,yc-b,xc+a,yc+b);
 end;
end;

Добавлено через 19 минут
Немного не так, нужно утром деньги, вечером стулья...

Delphi

var
  Form1: TForm1;
  xc,yc,a,b:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
xc:=Image1.Width div 2;
yc:=Image1.Height div 2;
a:=xc-20;
b:=yc-20;
with Image1.Canvas do
 begin
  Brush.Color:=clWhite;
  Rectangle(0,0,width,height);
  Pen.Width:=3;
  Ellipse(xc-a,yc-b,xc+a,yc+b);
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var u,x1,y1,x2,y2:integer;
begin
randomize;
with Image1.Canvas do
 begin
  Pen.Width:=1;
  u:=0;
  repeat
  x1:=xc+round(a*cos(u*pi/180));
  y1:=yc-round(b*sin(u*pi/180));
  x2:=xc+round(a*cos((u+2)*pi/180));
  y2:=yc-round(b*sin((u+2)*pi/180));
  Brush.Color:=RGB(random(256),random(256),random(256));
  Pie(xc-a,yc-b,xc+a,yc+b,x1,y1,x2,y2);
  u:=u+2;
  until u>360;
 end;
end

@Гргорий · 22.12.2014, 09:03 **[ТС]**

А как сделать так что бы каждый раздел закрашивался по условию???? Например если k:=20 то синий если 25-и то зелёный, 30-и красный????

@Puporev · 22.12.2014, 09:07

А если 21 или 135?

Добавлено через 33 секунды
Условие должно быть разумным и понятным.

@Гргорий · 22.12.2014, 09:24 **[ТС]**

Задание заключается в том что, нужно нарисовать эллипс который был бы разделёна на 180 областей, и при нажатии на кнопку выполнялось условие ( если K=20-и то область закрашивается синем, если K=25-и то область закрашивается зелёным, если K=30-и то область закрашивается красным),и так все области????????????????????????

@ZxcR · 22.12.2014, 13:24

ну пиши тогда 180 условий if

@Puporev · 22.12.2014, 13:36

Сообщение от Гргорий

если K=25-и то область закрашивается зелёным, если K=30-и то область закрашивается красным),и так все

Ну положим кратные 20, 25, 30 мы покрасим, а остальные?
Вы можете написать точное и полное условие задачи, а не свои убогие домыслы?

@Гргорий · 22.12.2014, 21:10 **[ТС]**

1)Есть таблица, 2-а столбца: 1-й стобец заполняется от 0 до 180, 2-й заполняется рандомно от 0 до 30. (это я зделал)
2)построить эллипс и заполнить все эти области в соответствии со значениями столбца 2-а. (то есть если значение первого ряда первой строки=1,а значение 2-го ряда первой строки= к примеру ( 23), то 1-й раздел закрашивается синим или если 25-и то зелёным) и так все 180 разделов.

Добавлено через 3 минуты
(приблезительно как с темпиратурой)
примерно задача ясна???

Добавлено через 15 минут
я просто не могу разобратся с тем как мне можно задать условие.
я попробовал так
k:=strtoint(edit1.Text);
if k:<=23 then begin Brush.Color:=RGB(0,0,255); end; так же для зелёного и красного.
тогда у меня получается что закрашиваются все разделы
а надо чтобы только первый радел

Добавлено через 2 минуты
то есть первый столбец - это номер раздела, второй- это значение по которому закрашивается раздел

@Puporev · 22.12.2014, 21:12

Сообщение от Гргорий

рандомно от 0 до 30

Так значит и цветов должно быть 31, а не 3...

@Гргорий · 22.12.2014, 21:23 **[ТС]**

должно быть 3-и цвета

@Puporev · 22.12.2014, 21:56

так нафига от 0 до 30?
определяешь цвет в том же цикле что и разбиение на сектора

Delphi

with Image1.Canvas do
 begin
  Pen.Width:=1;
  u:=0;
  repeat
  x1:=xc+round(a*cos(u*pi/180));
  y1:=yc-round(b*sin(u*pi/180));
  x2:=xc+round(a*cos((u+2)*pi/180));
  y2:=yc-round(b*sin((u+2)*pi/180));
  a:=random(3);
  case a of
  0:Brush.Color:=clRed;
  1:Brush.Color:=clGreen;
  2:Brush.Color:=clBlue;
  end;
  Pie(xc-a,yc-b,xc+a,yc+b,x1,y1,x2,y2);
  u:=u+2;
  until u>360;
 end;

@Гргорий · 23.12.2014, 12:55 **[ТС]**

не получается(
можеш сделать так чтобы edit1=номеру раздела(от 0 до 180), и edit2= от 0 до 30.
т.е если edit1=15 то закрашивается только 15-й раздел, если edit2=20-и то этот раздел закрашивается синем
или если edit1=27 то закрашивается только 27-й раздел, если edit2=25-и то этот раздел закрашивается зелёным
если edit1=70 то закрашивается только 70-й раздел, если edit2=30-и то этот раздел закрашивается красным ???????????

Добавлено через 14 часов 19 минут
если нет то все равно большое спасибо за помощь))))

@Puporev · 23.12.2014, 13:15

Ты чего привязался к числам 20, 25 и 30? Если их всего 3, то почему не 0,1,2 как у меня?

@Гргорий · 23.12.2014, 15:14 **[ТС]**

Есть form1 на нём 2-а edit-а и один рисунок (image),и кнопка. Задание заключается в том что: 1) на рисунке нужно нарисовать эллипс разделённый на 180 частей; 2) введя значения в edit1=номеру раздела(от 0 до 180), и в edit2= от 1 до 3. при нажатии на кнопку закрашивался определённый раздел.
т.е если edit1=15 то закрашивается только 15-й раздел, если edit2=1-и то этот раздел закрашивается синем
или если edit1=27 то закрашивается только 27-й раздел, если edit2=2-и то этот раздел закрашивается зелёным
если edit1=70 то закрашивается только 70-й раздел, если edit2=3-и то этот раздел закрашивается красным

Добавлено через 1 минуту
как закрасить только один раздел?????????????????
не важно каким цветом

@Puporev · 23.12.2014, 15:30

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var u,x1,y1,x2,y2,n,k,c,i:integer;
begin
randomize;
val(Edit1.Text,n,c);
if (c<>0)or not(n in [1..180])then
 begin
  showmessage('Íåâåðíî âåäåí íîìåð ñåêòîðà');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,k,c);
if (c<>0)or not(k in [1..3])then
 begin
  showmessage('Íåâåðíî âåäåí íîìåð öâåòà');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
i:=-1;
with Image1.Canvas do
 begin
  Pen.Width:=1;
  u:=0;
  repeat
  x1:=xc+round(a*cos(u*pi/180));
  y1:=yc-round(b*sin(u*pi/180));
  x2:=xc+round(a*cos((u+2)*pi/180));
  y2:=yc-round(b*sin((u+2)*pi/180));
  i:=i+1;
  if i=n then
   begin
    case k of
    1:Brush.Color:=clBlue;
    2:Brush.Color:=clGreen;
    3:Brush.Color:=clRed;
    end
   end
  else Brush.Color:=clWhite;
  Pie(xc-a,yc-b,xc+a,yc+b,x1,y1,x2,y2);
  u:=u+2;
  until u>360;
 end;
end;

Добавлено через 1 минуту
Почему нужно
i:=-1;
честно сам не понял, но если i:=0; то не работает.

@Гргорий · 23.12.2014, 15:40 **[ТС]**

спааааааасииииииибооооо
это оно )))))
от всей души благодарю

))))))))

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	23.12.2014, 15:40 [ТС]	16
	спааааааасииииииибооооо это оно ))))) от всей души благодарю)))))))) 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
		1
	Работа с image 21.12.2014, 12:23. Показов 840. Ответов 15 Метки нет (Все метки) Задание заключается в том что, нужно нарисовать эллипс который был бы разделёна на 180 областей, и при нажатии на кнопку все эти области закрашивались разными цветами от синего до красного, рандомно. 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	22.12.2014, 09:03 [ТС]	3
	А как сделать так что бы каждый раздел закрашивался по условию???? Например если k:=20 то синий если 25-и то зелёный, 30-и красный???? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.12.2014, 09:07	4
	А если 21 или 135? Добавлено через 33 секунды Условие должно быть разумным и понятным. 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	22.12.2014, 09:24 [ТС]	5
	Задание заключается в том что, нужно нарисовать эллипс который был бы разделёна на 180 областей, и при нажатии на кнопку выполнялось условие ( если K=20-и то область закрашивается синем, если K=25-и то область закрашивается зелёным, если K=30-и то область закрашивается красным),и так все области???????????????????????? 0

@ZxcR 3 / 3 / 1 Регистрация: 18.12.2014 Сообщений: 94
	22.12.2014, 13:24	6
	ну пиши тогда 180 условий if 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.12.2014, 13:36	7
	Сообщение от Гргорий если K=25-и то область закрашивается зелёным, если K=30-и то область закрашивается красным),и так все Ну положим кратные 20, 25, 30 мы покрасим, а остальные? Вы можете написать точное и полное условие задачи, а не свои убогие домыслы? 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	22.12.2014, 21:10 [ТС]	8
	1)Есть таблица, 2-а столбца: 1-й стобец заполняется от 0 до 180, 2-й заполняется рандомно от 0 до 30. (это я зделал) 2)построить эллипс и заполнить все эти области в соответствии со значениями столбца 2-а. (то есть если значение первого ряда первой строки=1,а значение 2-го ряда первой строки= к примеру ( 23), то 1-й раздел закрашивается синим или если 25-и то зелёным) и так все 180 разделов. Добавлено через 3 минуты (приблезительно как с темпиратурой) примерно задача ясна??? Добавлено через 15 минут я просто не могу разобратся с тем как мне можно задать условие. я попробовал так k:=strtoint(edit1.Text); if k:<=23 then begin Brush.Color:=RGB(0,0,255); end; так же для зелёного и красного. тогда у меня получается что закрашиваются все разделы а надо чтобы только первый радел Добавлено через 2 минуты то есть первый столбец - это номер раздела, второй- это значение по которому закрашивается раздел 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.12.2014, 21:12	9
	Сообщение от Гргорий рандомно от 0 до 30 Так значит и цветов должно быть 31, а не 3... 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	22.12.2014, 21:23 [ТС]	10
	должно быть 3-и цвета 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	23.12.2014, 12:55 [ТС]	12
	не получается( можеш сделать так чтобы edit1=номеру раздела(от 0 до 180), и edit2= от 0 до 30. т.е если edit1=15 то закрашивается только 15-й раздел, если edit2=20-и то этот раздел закрашивается синем или если edit1=27 то закрашивается только 27-й раздел, если edit2=25-и то этот раздел закрашивается зелёным если edit1=70 то закрашивается только 70-й раздел, если edit2=30-и то этот раздел закрашивается красным ??????????? Добавлено через 14 часов 19 минут если нет то все равно большое спасибо за помощь)))) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.12.2014, 13:15	13
	Ты чего привязался к числам 20, 25 и 30? Если их всего 3, то почему не 0,1,2 как у меня? 0

@Гргорий 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 13
	23.12.2014, 15:14 [ТС]	14
	Есть form1 на нём 2-а edit-а и один рисунок (image),и кнопка. Задание заключается в том что: 1) на рисунке нужно нарисовать эллипс разделённый на 180 частей; 2) введя значения в edit1=номеру раздела(от 0 до 180), и в edit2= от 1 до 3. при нажатии на кнопку закрашивался определённый раздел. т.е если edit1=15 то закрашивается только 15-й раздел, если edit2=1-и то этот раздел закрашивается синем или если edit1=27 то закрашивается только 27-й раздел, если edit2=2-и то этот раздел закрашивается зелёным если edit1=70 то закрашивается только 70-й раздел, если edit2=3-и то этот раздел закрашивается красным Добавлено через 1 минуту как закрасить только один раздел????????????????? не важно каким цветом 0

Работа с image

Решение