Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Steha
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 9
1

Круги от камня

14.04.2013, 22:25. Просмотров 523. Ответов 6
Метки нет (Все метки)

Необходимо промоделировать образование кругов на воде при броске одного камня и двух камней одновременно. Помогите пожалуйста!!!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2013, 22:25
Ответы с готовыми решениями:

Найти круги
Здравствуйте. Есть такое задание: Найти круги. Дано черно-белое растровое изображение (файл...

Круги в Delphi XE3
Ребят выручайте, на паре задали задание для всей группы, нарисовать круги попиксельно и собрать из...

Нарисовать круги с линиями
Ребята, помогите нарисовать пару кружков как на картинке и потом нажимая на кнопку мыши или кнопку...

Создать класс и программу для вычисления времени падения камня с крыши
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Сделать, чтобы круги отталкивались друг от друга
Сделала код, который создает рандомные круги и они отталкиваются от формы, нужно сделать чтоб они...

6
angstrom
2474 / 1850 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
14.04.2013, 22:33 2
Самое простое использовать Canvas.Ellipse.
1
Steha
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 9
14.04.2013, 22:41  [ТС] 3
как? у нас Делфи велось в виде трех пар Из коих пару мы ждали препода. Нашла исходник программы, моделирующей дождь, но даже тут не могу разобраться, что мне поправить
0
Вложения
Тип файла: rar Вода.rar (311.0 Кб, 13 просмотров)
angstrom
2474 / 1850 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
14.04.2013, 22:46 4
Я сразу не стал предлагать этот вариант, думаю с OpenGL вас не знакомили. Для вас проще использовать таймер в котором и рисовать круги на канвасе указанным выше способом.
0
Steha
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 9
14.04.2013, 22:53  [ТС] 5
Цитата Сообщение от angstrom Посмотреть сообщение
Я сразу не стал предлагать этот вариант, думаю с OpenGL вас не знакомили.
Нас вообще ни с чем, особо, не знакомили, Спасибо, пороюсь, попробую разобраться.
0
angstrom
2474 / 1850 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
14.04.2013, 23:01 6
Простенький пример
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  ClickPt : TPoint;
  Radius  : Integer;
 
procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ClickPt := Point(X, Y);
  Radius := 10;
  Timer2.Enabled := True;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if Radius > 100 then
    Timer2.Enabled := False;
 
  Image3.Canvas.Pen.Color := clAqua;
  Image3.Canvas.FillRect(Image3.ClientRect);
  Image3.Canvas.Ellipse(ClickPt.X, ClickPt.Y, ClickPt.X + Radius, ClickPt.Y + Radius);
  inc(Radius);
end;
1
Steha
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 9
14.04.2013, 23:19  [ТС] 7
Спасибо большое. Буду смотреть, разбираться, хотя с нуля - все это очень и очень дико.Еще раз огромное спасибо за пример.
0
14.04.2013, 23:19
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2013, 23:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программа, которая на поверхности формы рисует круги
Напишите программу которая на поверхности формы рисует круги. Прекращение рисования элементов по...

Нарисовать круги
Написать программу, которая выводит на экран приведенный ниже узор.

Круги в делфи на изображение
У меня известны три радиуса a=4, a=5, a=8 необходимо чтобы это все чертилось на картинке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.