Приклад практичної роботи 7

Приклад практичної роботи 7

Практичну роботу 7 можна реалізувати наступним чином.

Вигляд першої та другої вкладки додатку.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart,

  Buttons;

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Label3: TLabel;

    Label4: TLabel;

    TrackBar3: TTrackBar;

    TrackBar4: TTrackBar;

    Chart1: TChart;

    Series1: TLineSeries;

    Series2: TLineSeries;

    Chart2: TChart;

    Series3: TBarSeries;

    procedure TrackBar3Change(Sender: TObject);

    procedure TrackBar4Change(Sender: TObject);

    procedure recalcbars;

    procedure recalclines;

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.recalclines;

Var

 i:Integer;

 qd,qs:Real;

Begin

 Chart1.Series[0].Clear;

 Chart1.Series[1].Clear;

for i:=TrackBar3.Min to TrackBar3.Max do

 Begin

  qs:=1600+100*i;

  qd:=4750-350*i;

  Chart1.Series[0].AddXY(i,qs);

  Chart1.Series[1].AddXY(i,qd);

 End;

 Chart1.Repaint;

End;

procedure TForm1.recalcbars;

Var

 qd,qs:Real;

Begin

 qd:=4750-350*StrToInt(Label3.Caption);

 qs:=1600+100*StrToint(Label4.Caption);

 Chart2.Series[0].Clear;

 Chart2.Series[0].Add(qd,'Qd');

 Chart2.Series[0].Add(qs,'Qs');

 Chart2.Repaint;

End;

procedure TForm1.TrackBar3Change(Sender: TObject);

begin

 Label3.Caption:=IntToStr(TrackBar3.Position);

 recalcbars;

end;

procedure TForm1.TrackBar4Change(Sender: TObject);

begin

 Label4.Caption:=IntToStr(TrackBar4.Position);

 recalcbars;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

 recalcbars;

 recalclines;

end;

end.