Движение по эллипсу в delphi7 - Помощь студентам - Страница 2

GaLiof · 15.11.2009, 07:01

Большое спасибо. И пожалуй последний вопрос: как сделать так, чтобы эллипс рисовался не чёрный, а белый?)

Пепел Феникса · 15.11.2009, 07:44

form1.Color:=clblack;
тут задаете цвет.

GaLiof · 15.11.2009, 07:56

неее))) цвет формы у меня и так чёрный, его я уже поменял) а можно-ли изменить цвет эллипса, который рисуется? мне нужно чтоб он был белым...

VilAm · 15.11.2009, 08:00

если рисуете на форме

Код:

form1.canvas.pen.color:=clwhite;

GaLiof · 15.11.2009, 12:04

окей. таперь возникает такая проблема

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

VilAm · 15.11.2009, 12:10

заведи переменную
присвоей ей 0
как только пришел в исходную точку присвой ей 1 и если она равна 0 то рисуй эллипс
а если 1 то не рисуй

GaLiof · 15.11.2009, 14:06

т.е.
if res=0 then
x:=Round(710+cos((angle-12)*Pi/180)*200);
y:=Round(450+cos((angle-12+110)*Pi/180)*200);
Form1.Canvas.Ellipse(x+1,y+1,x-1,y-1);
else
end;
в чём ошибка? и как записать "когда эллипс вернётся в начальную точку"?

15.11.2009, 07:44	#12
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	form1.Color:=clblack; тут задаете цвет. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

15.11.2009, 08:00	#14
VilAm Пользователь Регистрация: 14.11.2009 Сообщений: 56	если рисуете на форме Код: `form1.canvas.pen.color:=clwhite;` Мы чужды себе, мы, познающие, мы сами чужды себе

15.11.2009, 12:04	#15
GaLiof Пользователь Регистрация: 20.03.2009 Сообщений: 52	окей. таперь возникает такая проблема: когда планета заходит на 4й круг, её скорость резко падает...думаю это потому что элипс каждый раз перерисовывается...как это можно исправить? и можно-ли сделать так, чтоб эллипс рисовался только 1 оборот, а дальше планета просто продолжала двигаться по нему без перерисоовки?

15.11.2009, 12:10	#16
VilAm Пользователь Регистрация: 14.11.2009 Сообщений: 56	заведи переменную присвоей ей 0 как только пришел в исходную точку присвой ей 1 и если она равна 0 то рисуй эллипс а если 1 то не рисуй Мы чужды себе, мы, познающие, мы сами чужды себе

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Движение	dampirik	Общие вопросы C/C++	15	10.10.2009 18:47
движение	alex(21)	Паскаль, Turbo Pascal, PascalABC.NET	9	20.08.2009 00:08
коэффициент уравнения, описывающий касательную к эллипсу	CrossDeLena	Помощь студентам	2	26.09.2008 20:31
движение по эллипсу	Оля	Помощь студентам	2	08.05.2007 00:50
Движение	Mickle	Общие вопросы Delphi	5	19.04.2007 23:24

15.11.2009, 07:01	#11
GaLiof Пользователь Регистрация: 20.03.2009 Сообщений: 52	Большое спасибо. И пожалуй последний вопрос: как сделать так, чтобы эллипс рисовался не чёрный, а белый?)

15.11.2009, 07:56	#13
GaLiof Пользователь Регистрация: 20.03.2009 Сообщений: 52	неее))) цвет формы у меня и так чёрный, его я уже поменял) а можно-ли изменить цвет эллипса, который рисуется? мне нужно чтоб он был белым...

15.11.2009, 14:06	#17
GaLiof Пользователь Регистрация: 20.03.2009 Сообщений: 52	т.е. if res=0 then x:=Round(710+cos((angle-12)Pi/180)200); y:=Round(450+cos((angle-12+110)Pi/180)200); Form1.Canvas.Ellipse(x+1,y+1,x-1,y-1); else end; в чём ошибка? и как записать "когда эллипс вернётся в начальную точку"?