drawdisp_time.pas

西门子与计算机通讯程序包括源代码 程序说明 可以进行时时数据采集记录

unit drawdisp_time;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series, TeeGanttTool,
  TeeTools, TeePageNumTool, TeeURL, TeeSeriesTextEd, StdCtrls, ComCtrls,
  TeeLisB, TeeScroB, TeeComma, TeeOpenGL, TeCanvas, Buttons;

type
  TForm13 = class(TForm)
    Chart1: TChart;
    Panel1: TPanel;
    ChartTool2: TDragMarksTool;
    ChartTool3: TClipSeriesTool;
    Series1: TFastLineSeries;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    Series2: TFastLineSeries;
    Series3: TFastLineSeries;
    ChartListBox1: TChartListBox;
    Panel3: TPanel;
    Panel4: TPanel;
    Timer1: TTimer;
    Series4: TFastLineSeries;
    Series5: TFastLineSeries;
    Series6: TFastLineSeries;
    Series7: TFastLineSeries;
    Series8: TFastLineSeries;
    Button3: TButton;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses main;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
begin
serpage:=serpage+1;
end;

procedure TForm13.Timer1Timer(Sender: TObject);
var
 j, I: Integer;
begin

if mixdatacount>=8 then      j:=8 else j:= mixdatacount;

if serpage>mixdatacount-8  then   serpage:=0;
if serpage<0 then serpage:= 0;

for I := 0 to j-1 do    // Iterate
begin
 Chart1.Series[i].Title:=databasetablearay[i+serpage];
 Chart1.Series[i].Clear;
 Chart1.Series[i].AddArray(drawdatatime[i+serpage]);
// Chart1.Series[i].RefreshSeries;
// Chart1.Series[i].Repaint;

end;    // for

end;

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Timer1.Enabled:=false;
end;

procedure TForm13.FormCreate(Sender: TObject);
begin
//ChartListBox1.Series[i;
end;

procedure TForm13.Button2Click(Sender: TObject);
begin
serpage:=serpage-1;
end;

procedure TForm13.ComboBox1Change(Sender: TObject);
begin

Chart1.Zoom.Direction:=TTeeZoomDirection(combobox1.ItemIndex);

end;

procedure TForm13.BitBtn1Click(Sender: TObject);
begin


 case combobox1.ItemIndex of    //
   0:
        begin
         Chart1.LeftAxis.Automatic:=false;
        if  Chart1.LeftAxis.Minimum<(Chart1.LeftAxis.Maximum-50) then
          begin
             Chart1.LeftAxis.Minimum:=Chart1.LeftAxis.Minimum+25 ;
             Chart1.LeftAxis.Maximum:=Chart1.LeftAxis.Maximum-25 ;
          end;
        end  ;
   1:
        begin
           Chart1.BottomAxis.Automatic:=false;
              if  Chart1.BottomAxis.Minimum<(Chart1.BottomAxis.Maximum-50) then
              begin
                Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum+25 ;
                Chart1.BottomAxis.Maximum:=Chart1.BottomAxis.Maximum-25 ;
              end
        end ;
   2:
       begin
           Chart1.LeftAxis.Automatic:=false;
           Chart1.BottomAxis.Automatic:=false;
         if  Chart1.BottomAxis.Minimum<(Chart1.BottomAxis.Maximum-50) then
          begin
            Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum+25 ;
            Chart1.BottomAxis.Maximum:=Chart1.BottomAxis.Maximum-25 ;
          end  ;
        if  Chart1.LeftAxis.Minimum<(Chart1.LeftAxis.Maximum-50) then
          begin
             Chart1.LeftAxis.Minimum:=Chart1.LeftAxis.Minimum+25 ;
             Chart1.LeftAxis.Maximum:=Chart1.LeftAxis.Maximum-25 ;
          end;
        
       end ;
 end;    // case


end;

procedure TForm13.BitBtn2Click(Sender: TObject);
begin

 case combobox1.ItemIndex of    //
   0:
        begin

             Chart1.LeftAxis.Automatic:=false;
             Chart1.LeftAxis.Minimum:=Chart1.LeftAxis.Minimum-50 ;
             Chart1.LeftAxis.Maximum:=Chart1.LeftAxis.Maximum+50 ;
            
        end ;
   1:  begin
              Chart1.BottomAxis.Automatic:=false;
          begin
            Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum-50 ;
            Chart1.BottomAxis.Maximum:=Chart1.BottomAxis.Maximum+50 ;
          end
       end ;
   2:
       begin
            Chart1.LeftAxis.Automatic:=false;
              Chart1.BottomAxis.Automatic:=false;
          begin
            Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum-50 ;
            Chart1.BottomAxis.Maximum:=Chart1.BottomAxis.Maximum+50 ;
          end  ;

          begin
             Chart1.LeftAxis.Minimum:=Chart1.LeftAxis.Minimum-50 ;
             Chart1.LeftAxis.Maximum:=Chart1.LeftAxis.Maximum+50 ;
          end;
        
       end ;
 end;    // case
end;

procedure TForm13.BitBtn3Click(Sender: TObject);
begin
    Chart1. UndoZoom;
    Chart1.AutoSize:=true;
    Chart1.BottomAxis.Automatic:=true;
    Chart1.LeftAxis.Automatic:=true;
end;

end.