procedure TTFChart.Timer1Timer(Sender: TObject); var Amount:Double; begin self.Caption:='现在的温度是'+FloatToStr(roundto(Main.ValueT,-2))+'摄氏度'; with Chart1 do begin with Series[0] do if Count>(10000/Timer1.Interval) then begin Delete(0); AddXY(i,Main.ValueT,'',clTeeColor); With Chart1.BottomAxis do begin Amount:=roundto(((Maximum-Minimum)/Count),-1); SetMinMax(Minimum+Amount,Maximum+Amount); end; end else AddXY(i,Main.ValueT,'',clTeeColor); end; MainForm.LedDisplay1.Number:=trunc(Main.ValueT/10); MainForm.LedDisplay2.Number:=trunc((Main.ValueT-trunc(Main.ValueT/10)*10)); i := i + Timer1.Interval/1000; end;
老兄,你都三个裤头了,怎么还问这重问题。
留个mail,传给你。
var
Amount:Double;
begin
self.Caption:='现在的温度是'+FloatToStr(roundto(Main.ValueT,-2))+'摄氏度';
with Chart1 do
begin
with Series[0] do
if Count>(10000/Timer1.Interval) then
begin
Delete(0);
AddXY(i,Main.ValueT,'',clTeeColor);
With Chart1.BottomAxis do
begin
Amount:=roundto(((Maximum-Minimum)/Count),-1);
SetMinMax(Minimum+Amount,Maximum+Amount);
end;
end
else
AddXY(i,Main.ValueT,'',clTeeColor);
end;
MainForm.LedDisplay1.Number:=trunc(Main.ValueT/10);
MainForm.LedDisplay2.Number:=trunc((Main.ValueT-trunc(Main.ValueT/10)*10));
i := i + Timer1.Interval/1000;
end;