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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.06.2010, 21:16
Aksanka2004 Aksanka2004 вне форума
Прохожий
 
Регистрация: 31.05.2010
Сообщения: 16
Репутация: 10
По умолчанию График по точкам

Есть некоторые числа, выводящиеся в Edit-ах. Необходимо по этим числам (точкам) построить график(как в Экселе). Нашла только как сделать график по формуле. Подскажите пожалуйста как это реализовать!
Ответить с цитированием
  #2  
Старый 11.06.2010, 21:47
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Загнать точки в массив и дальше так же, как и по формуле - формула у тебя будет "получение I-го элемента массива".
Ответить с цитированием
  #3  
Старый 11.06.2010, 21:58
Aksanka2004 Aksanka2004 вне форума
Прохожий
 
Регистрация: 31.05.2010
Сообщения: 16
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
Загнать точки в массив и дальше так же, как и по формуле - формула у тебя будет "получение I-го элемента массива".

Как загнать?)) При слове массив я сразу с ужасом вспоминаю первый курс))) И как получить?
З.Ы. Я недавно из блондинки перекрасилась, так что не судите строго. А если возможно, дайте плз ссылочку на подробное описание того КАК это делается или более или менее пошагово распишите здесь как это) Заранее мерси)
Ответить с цитированием
  #4  
Старый 11.06.2010, 22:33
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Простой пример рис по точкам из массива:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 Massiv: Array [0..5] of Integer;
 X,Y: Integer;
begin
 Massiv[0]:= 1;
 Massiv[1]:= 50;
 Massiv[2]:= 100;
 Massiv[3]:= 200;
 Massiv[4]:= 220;   
 Massiv[5]:= 250;    
 For X:= 0 To 5 Do
  begin
   Y:= Massiv[X];  
   Image1.Canvas.LineTo(X*50,Image1.Height-Y);
  end;
end;
Ответить с цитированием
  #5  
Старый 11.06.2010, 22:57
Aksanka2004 Aksanka2004 вне форума
Прохожий
 
Регистрация: 31.05.2010
Сообщения: 16
Репутация: 10
По умолчанию

Цитата:
Сообщение от AND_REY
Простой пример рис по точкам из массива:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 Massiv: Array [0..5] of Integer;
 X,Y: Integer;
begin
 Massiv[0]:= 1;
 Massiv[1]:= 50;
 Massiv[2]:= 100;
 Massiv[3]:= 200;
 Massiv[4]:= 220;   
 Massiv[5]:= 250;    
 For X:= 0 To 5 Do
  begin
   Y:= Massiv[X];  
   Image1.Canvas.LineTo(X*50,Image1.Height-Y);
  end;
end;

Имеется ввиду, что я помещаю комп. Image и кнопку "Построить график" и по клику вписываю процедуру? Т.е. по этому примеру получается что Х от 0 до 5, а У от 1 до 250?
Еще не совсем понятно что значит строчка
Код:
Image1.Canvas.LineTo(X*50,Image1.Height-Y);
Ответить с цитированием
  #6  
Старый 12.06.2010, 10:42
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Да рисовать на Image1 по нажатию на кнопку - это я так предложил как лёгкий вариант реализации. Можно и др. способами но они сложнее.
X от 0 до 5 а У берёться с массива 1,50,100...и т.д. любые числа необезательно в порядке возрастания.
Image1.Canvas.LineTo(X,Y) - рисует линию с координатами Х, У начиная с предыдущей точки (если такой ещё нет то с 0,0)
X*50 - просто увеличил масштаб т.к 5 пикселей будет плохо видно
Image1.Height-Y = (Высота Image1) - У для того чтоб начало координат было в левом нижнем углу. (по умолчанию начало в левом верхнем углу)

Может вам нада из массива брать и Х и У и рисовать график с осями координат? Откуда берёться массив с координатами у вас? Напишите подробно я набросаю код.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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