Membuat Diagram Lingkaran, Chart Animasi Pie (Menggunakan Delphi)

var

  Form1: TForm1;

  n:integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

series1.Rotate(6);

with dbchart1.View3DOptions do

begin

zoom:=zoom-n;

if (zoom<100) or (zoom>=100 )

then

n:=-n ;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

n :=6;

   with series1 do

    begin

    clear;

    add (17, '[Tahun 2008]',clteal);

    add (20, '[Tahun 2009]',clyellow);

    add (70, '[Tahun 2010]',clred);

    add (85, '[Tahun 2011]',clblack);

    add (35, '[Tahun 2012]',clblue);

    add (30, '[Tahun 2013]',clgreen);

    add (15, '[Tahun 2014]',clwhite);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

end.