Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.10.2011, 17:16
ps1panda ps1panda вне форума
Прохожий
 
Регистрация: 14.10.2011
Сообщения: 5
Репутация: 10
По умолчанию Координаты массивы графики

Доброго времени суток. Помогите написать программу естественно на делфи.Суть вот в чем нужен двумерный массив из координат и чтоб дальше он рандомно выводил точки по координатам из массива
Ответить с цитированием
  #2  
Старый 14.10.2011, 21:38
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

А где ваши попытки? Всё за вас написать?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 15.10.2011, 01:16
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

По описанию прога элементарная. И информации про Random, про массивы, про вывод точек просто море. Так что пишите, что не получается и что не работает, будем думать.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #4  
Старый 19.10.2011, 01:13
ps1panda ps1panda вне форума
Прохожий
 
Регистрация: 14.10.2011
Сообщения: 5
Репутация: 10
По умолчанию

Код HTML:
procedure TForm1.Button1Click(Sender: TObject); begin canvas.Pen.Style:=pssolid; canvas.MoveTo(100,400); canvas.LineTo(400,400); canvas.Pen.Style:=pssolid; canvas.MoveTo(100,400); canvas.LineTo(100,100); for i:=100 to 250 do for j:=110 to 390 do begin x:=i+random(10); y:=j+random(10); canvas.Pen.style:=pssolid; canvas.Pen.Color:=clred; canvas.Rectangle(x,y,x+10,y+10); end; for i1:=250 to 400 do for j1:=110 to 390 do begin x1:=i1+random(10); y1:=j1+random(10); canvas.Pen.style:=pssolid; canvas.Pen.Color:=clblue; canvas.Rectangle(x1,y1,x1+10,y1+10); end;
вопрос такой как мне уменьшить шаг рандома чтоб выводило не 1000 квадратов а парочку
Ответить с цитированием
  #5  
Старый 19.10.2011, 01:27
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

В таком случае не шаг, а количество выводов. Добавь ещё одну переменную, к примеру Count, обнуляй её перед циклом и наращивай в цикле. Как дойдёт до нужного значения прерывай цикл командой Break.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #6  
Старый 19.10.2011, 11:52
ps1panda ps1panda вне форума
Прохожий
 
Регистрация: 14.10.2011
Сообщения: 5
Репутация: 10
По умолчанию

а не подскажеш куда эту переменную впихнуть)
Ответить с цитированием
  #7  
Старый 19.10.2011, 21:38
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Можно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  Count
begin
  ...
  Count := 0;
  for i:=100 to 250 do
    for j:=110 to 390 do
    begin
      if Count = 2 then  // Сколько раз выводим
        Break;  // прерываем цикл
      x:=i+random(10);
      y:=j+random(10);
  ...
      inc(Count);
    end;
  ...
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #8  
Старый 24.10.2011, 02:28
ps1panda ps1panda вне форума
Прохожий
 
Регистрация: 14.10.2011
Сообщения: 5
Репутация: 10
По умолчанию

спасибо за помощь но есть еще вопросы
1 у меня есть формула которая считает этолон этих квадратов доя первой группы и вторрй групаы есть какая нибудь возможность складывать x,y
2есть ли возможность координаты мыши при шеляке записывать в переменные?
Ответить с цитированием
  #9  
Старый 24.10.2011, 03:05
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

1. z := x + y
2. Непонятно откуда берутся координаты мышки
Код:
var
  pt : TPoint;
begin
  ...
  GetCursorPos(pt); // один из вариантов
  ...
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #10  
Старый 24.10.2011, 10:52
ps1panda ps1panda вне форума
Прохожий
 
Регистрация: 14.10.2011
Сообщения: 5
Репутация: 10
По умолчанию

я чето с мышью не очень понял можно ли как нить по другому)
Ответить с цитированием
  #11  
Старый 24.10.2011, 14:08
Аватар для eXplorer
eXplorer eXplorer вне форума
Активный
 
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
По умолчанию

а что тут непонятного...

вот пример.

Код:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
      pt:TPoint;
  begin
      getcursorpos(pt);
      form1.Caption:=inttostr(pt.x)+' '+inttostr(pt.y);
  end;

в результате getcursorpos(pt); у pt два свойства всего появляются pt.x и pt.y что тебе и нужно.
__________________
Ответить с цитированием
  #12  
Старый 24.10.2011, 21:16
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Как я понял, вам нужно было получить координаты мышки при нажатии кнопки. При этом в событие OnClick параметры мышки не передаются. Вот и получаем их указанной функцией. Для преобразования зкранных координат мышки в координаты формы дополнительно используйте ScreenToClient. Ну и когда что-то непонятно, нажимайте F1, для прочтения спраки.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:24.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025