|
Вопрос # 4 232/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Используя принцип наследования ,задать классы ,описывающие секторы и сегменты.сделать для этих объектов следующие операции:
создание ,перемещение ,поворот,закраска ,удаление.
Уже есть сделанная задача с кругом,кольцом и окружностью!
А нужно с сегментом и сектором!
Буду очень признателен за помощь!=)
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: verlite (статус: Посетитель)
Вопрос отправлен: 26 мая 2010, 16:07
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 11; последнее сообщение — 26 мая 2010, 21:15; участников в обсуждении: 2.
|
|
verlite (статус: Посетитель), 26 мая 2010, 17:35 [#1]:
вот новая версия(принцип наследования)
http://files.mail.ru/VYEBRK
старую не загружайте
Помогите сделать тоже самое,но с сегментами и секторами
Заранее благодарю!
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 17:42 [#2]:
Цитата (verlite):
Помогите сделать тоже самое,но с сегментами и секторами
Чем я могу помочь? Какого рода требуется помощь?
Или это опять вопрос из серии "Сделайте лабу за меня, заранее благодарю"?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 17:47 [#3]:
Посмотрел исходник по ссылке.
Жуть страшенная!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
verlite (статус: Посетитель), 26 мая 2010, 18:53 [#4]:
почему жуть?
прога работает)
|
|
|
verlite (статус: Посетитель), 26 мая 2010, 18:55 [#5]:
хотелось бы узнать , как мне нарисовать сегменты и сектора?
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 19:04 [#6]:
Цитата (verlite):
почему жуть? прога работает)
Ништяк класс написан. Тому, кто писал, руки оторвать и вставить в ж...!
procedure TCircle.Draw;
begin
with Form1.Image1.canvas do // <--- УЖОС!!!
begin
Pen.Color:=clBlack;
Ellipse(Center.x-Radius,Center.Y-Radius,Center.x+Radius,Center.y+Radius);
end;
end;
procedure TRound.Draw;
begin
Form1.Image1.Canvas.Brush.Color:=brushcolor; // <--- УЖОС!!!
inherited;
end;
procedure TRing.Draw;
begin
inherited;
Form1.Image1.Canvas.brush.Color:=form1.color; // <--- УЖОС!!!
Form1.Image1.Canvas.Ellipse (Center.x-(Radius-30), Center.y-(Radius-30), Center.x+(Radius-30),
Center.y+(Radius-30)); // <--- УЖОС!!!
end;
Я бы даже в обкуренном состоянии такое не написал!
Как пользоваться этим классом, если надо будет рисовать на Panel1, PainBox1, Printer и т.п?
Первый раз такое вижу.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 19:08 [#7]:
Цитата (verlite):
хотелось бы узнать , как мне нарисовать сегменты и сектора?
Что такое сектор - понятно.
А что такое сегмент? Закрашенный сектор?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
verlite (статус: Посетитель), 26 мая 2010, 20:20 [#8]:
плоская фигура, заключённая между кривой и её хордой
в данном случае в круге
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 20:34 [#9]:
Понятно.
Что конкретно не получается?
И не вздумай копировать эту аццкую клинопись! Пиши с нуля!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
verlite (статус: Посетитель), 26 мая 2010, 21:01 [#10]:
Да вот Я тут думаю...
прогу то писал мой друг-всё норм ,ему зачли
у меня с дельфи полные траблы...
лан ,короче спасибо,ты меня надоумил на мысль ,что надо разбираться..реально лучше всего получается ,когда делаешь сам=)
P.S
"как мне нарисовать сегменты и сектора?"конкретней не получается)
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 21:15 [#11]:
Цитата (verlite):
прогу то писал мой друг-всё норм ,ему зачли
Видать, препод тоже в ООП нихрена не шарит.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
