Spørgsmål til Stoney.

ændre timeren til

procedure TForm1.Timer1Timer(Sender: TObject);

var

i : integer;
min,max : real;
begin
chart1.SeriesList.Series[0].Clear;
min := 5000;
max := -5000;
begin
if sl.Count <= 0 then
for i := 0 to (strtoint(edit1.Text) * 100) - 1  do
sl.Add('0');
end;
sl.Add(floattostr(RandExt(71)));


for i := 0 to sl.Count -1 do
  begin


  if max < strtofloat(sl[i]) then
  max := strtofloat(sl[i]);
    if (min > strtofloat(sl[i])) and (strtofloat(sl[i]) <> 0) then
  min := strtofloat(sl[i]);

  chart1.SeriesList.Series[0].AddY(strtofloat(sl[i]),'',clgreen);




  end;
  chart1.Title.Text.Text := inttostr(sl.Count) + ' målinger ' + 'Max: ' + floattostr(max) + '  Min: ' + floattostr(min);

  chart1.LeftAxis.Maximum := max + 0.1;
  chart1.LeftAxis.Minimum := min - 0.1;

end;


Stoney

Ups, du skal lige trække de fake målinger fra

procedure TForm1.Timer1Timer(Sender: TObject);

var

i : integer;
min,max : real;
begin
chart1.SeriesList.Series[0].Clear;
min := 5000;
max := -5000;
begin
if sl.Count <= 0 then
for i := 0 to (strtoint(edit1.Text) * 100) - 1  do
sl.Add('0');
end;
sl.Add(floattostr(RandExt(71)));


for i := 0 to sl.Count -1 do
  begin


  if max < strtofloat(sl[i]) then
  max := strtofloat(sl[i]);
    if (min > strtofloat(sl[i])) and (strtofloat(sl[i]) <> 0) then
  min := strtofloat(sl[i]);

  chart1.SeriesList.Series[0].AddY(strtofloat(sl[i]),'',clgreen);




  end;
  chart1.Title.Text.Text := inttostr(sl.Count - (strtoint(edit1.Text) * 100)) + ' målinger ' + 'Max: ' + floattostr(max) + '  Min: ' + floattostr(min);

  chart1.LeftAxis.Maximum := max + 0.1;
  chart1.LeftAxis.Minimum := min - 0.1;

end;

Stoney

Hvis man trækker fake målingerne fra, står der altid "0 målinger" som text!

Du er i øvrigt vist kommet til at slette følgende linier i dit eksempel:

if (sl.Count > (StrToInt(edit1.text)*50)) then
begin
for i := 0 to (sl.Count - (StrToInt(edit1.Text)*50)-1) do
sl.Delete(i);
end;

Når de tilføjes igen, virker det, som det skal (bortset fra det med "0 målinger").

Jeg lader fake målingerne tælle med, så det skal du ikke bøvle med at løse!

Tak for det :-)

Takker :-)

Nu er jeg jo blevet nysgerrig, hvad bruger du til at læse data fra ovnen med ?

Og hvordan er det connectet til PC'en ?

Stoney

Det kan jeg godt forstå...
Jeg bruger et færdigkøbt interfacekort, som sluttes direkte til en USB port.
Med dette interface følger program-eksempler til forskellige udviklingsmiljøer,
bl.a. C, CWin og Delphi. Disse program-eksempler indeholder al kommunikation med interfacet, så man kan læse og skrive direkte med ind- og udgangene på kortet - smart.

Så fangede I også min interesse. Hvilket kort er det og hvor kan man læse mere om det? (evt. købe det)

Skal lige siges at min onkel bygger damplokomotiver i skala 1:8 og han kunne godt tænke sig målinger fra skorstenen, fyret, kedlen og andre varmekilder når han kører.

Hej Kammeyer,

Klik ind på www.mccdaq.com, de har mange spændende dataopsamlings produkter.