Построение графика по заданным точкам Delphi

[anthonyk]

Здравствуйте!

Я новичок в делфи и вообще в программировании. Скажу даже больше - я учусь в лингвистическом вузе (об этом я как-то писал в другой теме), но так случилось, что нужно изучать делфи.

Я должен решить следующую задачу:

Даны целые числа t1, t2, ..., t21. Последовательность значений t1, t2, ..., t21 задаёт график температур за март. Построить график температур. Отрезки прямых, лежащих выше горизонтальной прямой, соответствующей нулевой температуре, и лежащие ниже этой прямой, должны быть окрашены в разные цвета.

Я не прошу вас решить мне задачу, я прошу подсказать, как мне ее решить. Дать хотя бы какой-нибудь намек.

К сожалению, я даже не знаю с чего начать, поэтому кода нет совсем. Но, насколько я понял, мне необходимо задать массив значений, например от -10 до 10 (это будет температура, всего будет 21 значение), затем надо сделать так, чтобы каждому значению соответствовала определенная точка в поле построения графика (думаю, что можно использовать для этого компонент Image).

Подскажите, пожалуйста, как можно реализовать такую задачу? Какие функции можно использовать?

Буду благодарен за любую помощь!

[Om1cr0n]

Самое простое что пришло в голову: генерируется 21 значение 0-60 (значения неравны температурам), затем рисуется график и все что ниже 101 пикселя по вертикали закрашивается синим, а все что выше 99 пикселя закрашивается красным.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  t : array[1..21] of Integer;
  i,x,y : Integer;
begin
  Image1.Canvas.MoveTo(0,100);
  Image1.Canvas.LineTo(210,100);
  Randomize();
  t[1]:= Random(60);
  Image1.Canvas.MoveTo(0,t[1]*3);
  for i:=2 to 21 do
  begin
    t[i]:= Random(60);
    Image1.Canvas.LineTo(i*10,t[i]*3);
  end;
  for y:=0 to 99 do
    for x:=0 to 210 do
     begin
      if Image1.Canvas.Pixels[x,y] = clBlack then
          Image1.Canvas.Pixels[x,y] := clRed;
     end;

  for y:=101 to 200 do
    for x:=0 to 210 do
     begin
      if Image1.Canvas.Pixels[x,y] = clBlack then
          Image1.Canvas.Pixels[x,y] := clBlue;
     end;
  Image1.Canvas.TextOut(30,0,'График температур');
end;

[anthonyk]

Спасибо, Om1cr0n, большое за помощь!

Я бы хотел только уточнить из кода

Image1.Canvas.MoveTo(0,t[1]*3);

и

Image1.Canvas.LineTo(i*10,t[i]*3);

что означает t[1]*3 и t[i]*3 ?

[Om1cr0n]

График строится по координатам Х(ширина) и Y(Высота), данный код просто растягивает график по высоте.

[anthonyk]

Понял. Спасибо большое!

[anthonyk]

Если график строить не по случайным значениям, а по значениям из строки.
Мы создаем Edit там у нас будет 21 число-температура с '+', если положительная и '-' если отрицательная и нулевая. Например, строка будет такая '-1,+2,+5,+6,+1,0,0,-1,-6,+1'.

Значит если мы строим график на Image, и наша нулевая линия находится на 30 пикселе, значит нам надо прибавлять или отнимать наше значение от 30. Я правильно понимаю? Добавляя наши значения из строки в массив.

Подскажите, пожалуйста, как правильно это реализовать.

Вот, что получилось

procedure TForm1.Button1Click(Sender: TObject);
var
  t:array[1..21] of integer;
  i,k,n,x,y:integer;
  s:string;

begin
s:=Edit1.Text;
n:=length(s);

For i:=1 to n do
  If (s[i]=',') and (s[i-2]='-') then
  t[i]:=30-StrToInt(s[i-1]) else
  t[i]:=30+StrToInt(s[i-1]);

  with Canvas do
  Image1.Canvas.MoveTo(0,30);
  Image1.Canvas.LineTo(210,30);

  t[1]:=s[1];
  Image1.Canvas.MoveTo(0,t[1]);
  for i:=1 to 21 do
  begin
    t[i]:= s[i];
    Image1.Canvas.LineTo(i*10,t[i]);
  end;

  for y:=0 to 29 do
    for x:=0 to 210 do
     begin
      if Image1.Canvas.Pixels[x,y]=clBlack then
          Image1.Canvas.Pixels[x,y]:=clRed;
     end;

  for y:=31 to 60 do
    for x:=0 to 210 do
     begin
      if Image1.Canvas.Pixels[x,y]=clBlack then
          Image1.Canvas.Pixels[x,y]:=clBlue;
     end;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Canvas.FillRect(ClientRect);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.FillRect(ClientRect);
end;


end.

Еще не совсем понятно, как загнать значение из строки в массив и дальше начать работать уже с массивом.

[Mad_Cat]

Мы создаем Edit

Лучше использовать все-таки Stringgrid

наша нулевая линия находится на 30 пикселе, значит нам надо прибавлять или отнимать наше значение от 30

верно
1 замечание
лучше все таки использовать масштаб:
то есть высоту image делить на разницу между максимумом и минимумом и получать шаг dy
аналогично и с dx:=image1.clientwidth div 21;

Image1.Canvas.LineTo(i*dx,t[i]*dy);

и график будет красивее и при смене размера формы/image - получите масштабирование

и y0 - задать переменной
чтобы в случае чего легко было менять одно значение, а не перелопачивать весь код

[anthonyk]

Спасибо. Сейчас попробую сделать.