Programming Project PPM Level Meter

Gentlemen,
PAS Products is involved in a major programming project and to be honest - we are swamped right now with our preparation plans. We need assistance.
We want to program a PPM Level Meter to measure the average loudness of the audio signal being processed.
Ideally we would like to be able to monitor the signal at the LINE IN and WAVE OUT locations.

When we receive the source code, we will pay $400 U.S. dollars. The source code can be in C or Basic; however, Delphi would be the ideal solution.
Please visit our homepage and download our demo version. Currently our source code has evolved to this stage and is saved in Excel format.

Here is what we have so far:
...
Sample_li.PPM_integral[k] is a array of values from 0 up to 32768 from our level component and k is 58.

procedure TForm1.Sample_liIntegral(Sender: TObject);
var i,ix: word;
begin
Idata_li := Sample_li.PPM_integral[0];
Idata_re := Sample_li.PPM_integral[0];

for i:=0 to k -1 do
begin
array_li[i] := Iwert_li;
Idata_li := array_li[i] + trunc(delta_t *
Sample_li.PPM_integral[k]);

array_re[i] := Iwert_re;
Idata_re := array_re[i] + trunc(delta_t *
Sample_re.PPM_integral[k]);

end;

PPM_li[0] := Idata_li;
PPM_re[0] := Idata_re;

for i:= decay_c -1 downto 0 do
begin
PPM_li[i+1] := PPM_li[i];
PPM_re[i+1] := PPM_re[i];
end;

for i:= 0 to decay_c -1 do
begin
PPM_val_li := (PPM_li[i] / decay_c +
PPM_val_li) ;
PPM_val_re := (PPM_re[i] / decay_c +
PPM_val_re);
end;

Level_PPM_li.setdata(trunc(PPM_val_li ));
Level_PPM_re.setdata(trunc(PPM_val_re ));
....
Your help in this matter is an urgent matter for us. Please let us know if you can help.
Sincerely,
Frank Dunkel
PAS Products
http://pas-products.com/



Programming Project PPM Level Meter