![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 30.01.2007
Сообщений: 5
|
![]()
Помогите пожалуйста надо решить 2 задачи на Делфи (рисование на paitpox):
I) Звёзды, Компоненты: button1, paintbox1, edit1, edit2: 1) edit1 - k - количество звёзд, 2) edit2 - m - максимальный размер. II) Перекатывание квадрата, Компоненты button2, paintbox2, edit3 - a - сторона квадрата. (квадрат должен перевернутся 2, раза на одну сторону потом на следуюшую) (в поля edit пользователь водит значения) P.S Взоранее примного благодарен |
![]() |
![]() |
![]() |
#2 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
![]()
так тут проблемы не с Paintbox,
алгоритм(ы) у тебя есть ?
Берегите друг друга!
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 30.01.2007
Сообщений: 5
|
![]()
У мя есть координаты звезды и квадрата
//звезда paintbox1.Canvas.MoveTo(100,50); paintbox1.Canvas.LineTo(70,150); paintbox1.Canvas.LineTo(150,90); paintbox1.Canvas.LineTo(50,90); paintbox1.Canvas.LineTo(130,150); paintbox1.Canvas.LineTo(100,50); //квадрат Paintbox2.Canvas.MoveTo(100,100); Paintbox2.Canvas.LineTo(100,200); Paintbox2.Canvas.LineTo(200,200); Paintbox2.Canvas.LineTo(200,100); Paintbox2.Canvas.LineTo(100,100); их бы по циклам раскидать и в место точных значений x, y ставить что нить такое чтоб звезда изменяла размер а квадрат перекатывлся, читывая значения в полях edit |
![]() |
![]() |
![]() |
#4 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
![]()
Задача №1:
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
![]()
не было время что либо больше крапать - держи что есть...
Код:
Програмисты - единственные люди, которым платят за исправления их же ошибок
![]() |
![]() |
![]() |
![]() |
#6 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
![]()
квадрат может крутиться вокруг центра или должен именно 'переворачиваться' ?
Берегите друг друга!
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 30.01.2007
Сообщений: 5
|
![]()
Aver, у тебя звезды не точные, но все равно спсасибо.
Speeker, у тебя в принципе замечательный код, но вот только при размере 1 звезды не совсем маленькие, хотелось бы чтоб при максимальном размере 1 зведа была очень маленькой. Большое спасибо. Я тож на паре делал звёды, всё точно работает, вот тока звёзды некоторые далеко за paintbox улетают. Speeker, я всё таки твоим кодом возпользуюсь, если у тя будут идеи по уменьшению размера кидай их в виде кода ![]() Virtson, квадрат не должен крутится на одном месте, он должен перекатится как квадратное колесо ![]() |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
![]()
попробуй так:
Код:
Програмисты - единственные люди, которым платят за исправления их же ошибок
![]() |
![]() |
![]() |
![]() |
#9 |
Регистрация: 30.01.2007
Сообщений: 5
|
![]()
paintbox1.Canvas.MoveTo(x,y-5-c);
paintbox1.Canvas.LineTo(x-c,y+2*c); paintbox1.Canvas.LineTo(x+3+2*c,y-trunc(sqrt(c))); paintbox1.Canvas.LineTo(x-3-2*c,y-trunc(sqrt(c))); paintbox1.Canvas.LineTo(x+c,y+2*c); paintbox1.Canvas.LineTo(x,y-5-c); вот так красиво получается. С садачей № 1 покончено, осталось квадратик покатать |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
![]()
Програмисты - единственные люди, которым платят за исправления их же ошибок
![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как установить компонент на Delphi 2007 | Kostia | Компоненты Delphi | 7 | 06.04.2010 16:11 |
paintbox | steck | Общие вопросы Delphi | 5 | 28.10.2007 16:15 |
Проблема с рисованием прямоугольника | Юра. | Общие вопросы Delphi | 13 | 04.08.2007 06:08 |
Компонент TServerSocket в Delphi 7 | dfmb | Компоненты Delphi | 9 | 03.08.2007 19:09 |
компонент Memo в delphi | vvaassiill | Помощь студентам | 1 | 29.05.2007 20:47 |