Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2014, 17:54   #1
Spanchik
Пользователь
 
Регистрация: 13.05.2014
Сообщений: 21
По умолчанию ООП В Делфи

Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов. Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям.
Ввести возможность менять цвет объектов и др.
Набор из 9 пикселей разного цвета, двух прямоугольников с диагоналями, параллельными краям экрана, и двух кругов. Менять размеры прямоугольника и круга по горизонтали
Spanchik вне форума Ответить с цитированием
Старый 12.12.2014, 09:02   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Spanchik, думаю, что Вы с разделом ошиблись.
С такими запросами Вам дорога сразу лежит в раздел "Фриланс"
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.12.2014, 23:20   #3
Spanchik
Пользователь
 
Регистрация: 13.05.2014
Сообщений: 21
По умолчанию ООП В Делфи

Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов. Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям.
Ввести возможность менять цвет объектов и др.
Набор из 9 пикселей разного цвета, двух прямоугольников с диагоналями, параллельными краям экрана, и двух кругов. Менять размеры прямоугольника и круга по горизонтали
Spanchik вне форума Ответить с цитированием
Старый 18.12.2014, 23:38   #4
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Spanchik Клёво скопировали. Очень свежо, и оригинально. Давно не видел такого мастерского копирования.
WinCoder вне форума Ответить с цитированием
Старый 19.12.2014, 06:10   #5
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

Наработки свои сюда архивом и конкретные вопросы, что не получается ("всё не получается" - не вопрос, а скорее диагноз), или сразу во фриланс с такими задачами.
phomm вне форума Ответить с цитированием
Старый 19.12.2014, 08:14   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Spanchik
Я так понимаю что нужно писать все с нуля до конца, да еще и с коментами и блоксхемами, и чтоб потом сдавать преподу тоже за тебя?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 30.12.2014, 17:59   #7
Spanchik
Пользователь
 
Регистрация: 13.05.2014
Сообщений: 21
По умолчанию

Нет, я просто попросила помощи. Я не сильно разбираюсь в объектно ориентированном программировании...Думала, что такие сайты и нужны для помощи студентам, да и вообще всем кто в ней нуждается
Spanchik вне форума Ответить с цитированием
Старый 30.12.2014, 18:04   #8
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Цитата:
Нет, я просто попросила помощи. Я не сильно разбираюсь в объектно ориентированном программировании...Думала, что такие сайты и нужны для помощи студентам, да и вообще всем кто в ней нуждается
Нормальным студентам, которые хоть что-то сами пишут. Писать за тебя это не помощь, это халява студенту который заведомо нихрена не делал и вряд ли будет.

За вас напишут в разделе "Фриланс". могу расписать разве что логику решения вашей задачи, где-то после НГ, или завтра.. если на работе скучно будет. Код сами пишите. Преподавать дает задачи, которые предусмотрены программой учебного заведения, предварительно давался вагон лекций чтоб дать основы. Если способный ученик ооочень хочет по-сложнее, препод даст ему по-сложнее. Вы собственно на способного студента не тянете...

Сам студент, знаю как это бывает.

Последний раз редактировалось Человек_Борща; 30.12.2014 в 19:52.
Человек_Борща вне форума Ответить с цитированием
Старый 30.12.2014, 18:30   #9
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Цитата:
Думала, что такие сайты и нужны для помощи студентам
Ну да. Сидит толпа профессионалов, и ждут когда какой нибудь студент/студентка подкинет им работы. Прям таки фонд помощи бедным студентам. Благотворительность форэва! Так Вы себе представляете подобные форумы? Если бы это было хоть на половину правдой, какого качества специалистов выпускали бы наши вузы? Подумайте хорошенько.

Последний раз редактировалось WinCoder; 30.12.2014 в 18:32.
WinCoder вне форума Ответить с цитированием
Старый 31.12.2014, 08:20   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Думала, что такие сайты и нужны для помощи студентам, да и вообще всем кто в ней нуждается
Эх ты... )) СтудентЪ.
Помошь дается только тем, кто ее ждет. Халявщики в этот список не попадают по простой причине - они не могут понять а что же им дали.
Хочешь докажу? Вот код решаюший почти все твое задание. Ответь себе на вопрос насколько сильно тебе он помог, коль ты признаешь заранее что ничего в этом не понимаешь?

Код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  ColorBox;

type

  { TForm1 }

  TForm1 = class(TForm)
    ColorListBox1: TColorListBox;
    Shape1: TShape;
    Shape2: TShape;
    procedure ColorListBox1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private   sh:TShape;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  sh:=TShape(Sender);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  ); var c:integer;
begin
  if sh=nil then exit;
  c:=10;
  if key=ord('w') then sh.Top:=sh.Top-c else
    if key=ord('s') then sh.Top:=sh.Top+c else
      if key=ord('a') then sh.Top:=sh.Left-c else
        if key=ord('d') then sh.Top:=sh.Left+c else
          ;
end;

procedure TForm1.ColorListBox1Click(Sender: TObject);
begin
  if sh=nil then exit;
  sh.Brush.Color:=TColorListBox(Sender).Selected;
end;

end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ООП в Делфи Phong Общие вопросы Delphi 3 25.06.2013 16:51
ООП - нахождение сумм, площадей и периметров круга, прямоугольника, равностороннего треугольника, квадрата ( ДЕЛФИ МОДУЛИ ) Pyxy Помощь студентам 0 28.02.2012 19:37
делфи ООП phasha Помощь студентам 3 25.10.2011 01:20
ООП делфи phasha Помощь студентам 9 14.10.2011 21:11
ООП в делфи Antidelphik_) Помощь студентам 3 27.04.2011 21:18