[Dmitry_DM]

Сообщение от cotseec

with PaintBox1, canvas нужно не "запятая", а "точка" и зачем использовать with, если потом все равно обращение?

Код:

PaintBox1.Canvas.MoveTo(X, DY);
    PaintBox1.Canvas.LineTo(X, Y)

сам PaintBox1 должен лежать (или создаваясь динамически, быть дочерним по отношению)
рисовать (выводить рисунок) в событии PaintBox1.OnPaint

Я объявил переменные

Код:

WavInfo: TWavInfo;
  KX, KY: Extended;
  i, X, Y, DY, Chanel: Integer;

как глобальные и сделал такой код:

Код:

procedure TForm1.Button_WAVgraphClick(Sender: TObject);
begin
  KX := 1; // Коэффициент пропорциональности по абсциссе
  KY := 0.01; // Коэффициент пропорциональности по ординате
  DY := Height div 2; // Смещение по ординате
  Chanel := 0; // Номер рисуемого канала
  Repaint;

  for i := Low(WavInfo.Samples) to High(WavInfo.Samples) do
  begin
    X := Trunc(KX * i);
    Y := Trunc(KY * Smallint(WavInfo.Samples[i, Chanel]) + DY);
end;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.MoveTo(X, DY);
PaintBox1.Canvas.LineTo(X, Y);
end;

На TabSheet3, ясное дело, положил компонент PaintBox1. Ниже кнопку Button_WAVgraphClick, при нажатии на нее должна рисоваться гистограмма, но ничего не происходит. Что не так. Не имеет ли значение где будет находиться процедуры

Код:

procedure TForm1.Button_WAVgraphClick(Sender: TObject);

и

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);

[cotseec]

что-то типа такого (см. вложение)

[Dmitry_DM]

Сообщение от cotseec

что-то типа такого (см. вложение)

Этот пример - да, работает. Рисует. Может просто не работает этот код?

Код:

var
  WavInfo: TWavInfo;
  KX, KY: Extended;
  i, X, Y, DY, Chanel: Integer;
begin
  KX := 1; // Коэффициент пропорциональности по абсциссе
  KY := 0.01; // Коэффициент пропорциональности по ординате
  DY := Height div 2; // Смещение по ординате
  Chanel := 0; // Номер рисуемого канала
  Repaint;
 
  for i := Low(WavInfo.Samples) to High(WavInfo.Samples) do
  begin
    X := Trunc(KX * i);
    Y := Trunc(KY * Smallint(WavInfo.Samples[i, Chanel]) + DY);
 
    Canvas.MoveTo(X, DY);
    Canvas.LineTo(X, Y);
  end;
end;

Или может ее надо правильно разделить эту процедуру на

Код:

procedure TForm1.Button_WAVgraphClick(Sender: TObject);

и на

Код:

procedure TForm2.PaintBox1Paint(Sender: TObject);

Как в этом примере:

Код:

procedure TForm1.Button_WAVgraphClick(Sender: TObject);
begin
  Randomize;
  for i:=1 to 1024 do
    PointArray[i-1]:=Random(PaintBox1.Height);

  PaintBox1.Repaint;
end;

и

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i:integer;
  DX:integer;
begin
  DX:=1;
  PaintBox1.Canvas.MoveTo(0,0);
  for i:=0 to 1023 do
  begin
    PaintBox1.Canvas.LineTo(DX*i,PointArray[i]);
    PaintBox1.Canvas.MoveTo(DX*i,0);
  end;
end;

Если да, то как? Но я больше склоняюсь к тому, что в коде от poli-smen есть какой-то нюанс, который не позволяет строить график.

[angvelem]

Садисты, использовать TChart, брр.



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

histogram.rar

[YVitaliy]

Сообщение от angvelem

Садисты, использовать TChart, брр.
.....

Я его как на форму кинул, так страшно стало - а вдруг что-то не то кликну...

[Dmitry_DM]

Сообщение от YVitaliy

Я его как на форму кинул, так страшно стало - а вдруг что-то не то кликну...

Как красиво! Можно так в моей программе сделать? Как, как, очень понравилось?!!!

[angvelem]

Можно, смотри выше.

[Dmitry_DM]

Сообщение от angvelem

Можно, смотри выше.

Так оно на ассемблере.

[angvelem]

Я для себя писал и для автора bass, на Дельфи не планировал переделывать, хотя это и не сложно.

[YVitaliy]

А у тебя рисование по клику на Button_WAVgraph должно работать? Тогда зачем разделяешь? Рисование должно проходить в одном цикле с подсчетом X и Y, а у тебя рисует только первую точку и последнюю - весь цикл проходит отдельно от рисования. Или сохраняй точки в массив, как в примере cotseec.

[YVitaliy]

Сообщение от Dmitry_DM

Как красиво! Можно так в моей программе сделать? Как, как, очень понравилось?!!!

Ну, я же сначала писал, что

рисовать на канве прямоугольниками

[Dmitry_DM]

Я бы хотел немного теории: в чем измеряются вот эти самые колебания wav? И в общем: расскажите про этот график. Чем отличается график одноканального от двухканального wav? И почему мы используем именно двумерный массив? И что за значения подразумеваются под X и Y? И еще: что это за цифры, по которым и строится график?
Left-0 Right-0
Left-2 Right-2
Left-7 Right-7
Left-16 Right-16
Left-30 Right-30
Left-47 Right-47
Left-67 Right-67
Left-88 Right-88
Left-108 Right-108
Left-128 Right-128
Left-150 Right-150
Left-175 Right-175
Left-202 Right-202
Left-229 Right-229
...
Заранее благодарен за ответы!

[Dmitry_DM]

Н, пожалуйста, помогите мне! Поймите, что времени у меня не много, всего до зимы, а работы еще много. Так помогите мне построить этот график и гистограмму. Я очень вас прошу !

[angvelem]

Если график на рисунке устраивает, я перепишу с ассемблера на Дельфи.

[Dmitry_DM]

Сообщение от angvelem

Если график на рисунке устраивает, я перепишу с ассемблера на Дельфи.

Конечно устраивает! Я ж ранее писал, что безмерно понравился. Это будет супер, если вы перепишите код на делфи. Буду бесконечно благодарен.