Membuat Animasi Sederhana (Menggunakan Delphi)

var

  Form1: TForm1;

  gambar:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if button1.caption='Pause' then

begin

timer1.enabled:=false;

button1.caption:='Start';

end else

begin

timer1.enabled:=true;

button1.caption:='Pause';

end;

end;

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;

Animasi Solar System (Menggunakan Delphi)

Animasi  solar  system  dengan jumlah planet sebenarnya dan animasi perputaran bulan mengelilingi bumi

var

  Form1: TForm1;

       theta,d,c:real;

       constanta,constan:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=true;

  constan :=26;

  constanta:=5;

  theta:=0.0;

  c:=1/100;

  d:=2*PI;

end;

Algoritma DDA, Bresenham dan Midpoint Lingkaran Menggunakan Delphi7

DDA (Digital Differential Analyzer)

Coding 

procedure TForm1.Button1Click(Sender: TObject);

var dx,dy,fstep,f,x1,x2,y1,y2:integer;

deltax,deltay,x,y:real;

begin

x1:=strtoint(edit1.Text);

y1:=strtoint(edit2.Text);

x2:=strtoint(edit3.Text);

y2:=strtoint(edit4.Text);

dx:=(x2-x1);

dy:=(y2-y1);

if (abs(dx)>abs(dy)) then fstep := abs(dx) else fstep := abs(dy);

deltax:= dx/fstep;

deltay:= dy/fstep;

x:=x1;y:=y1;

canvas.Pixels[trunc(x),trunc(y)] := clblue;

for f := 0 to fstep -1 do

begin

x := x + deltax;

y := y + deltay;

canvas.Pixels[trunc(x),trunc(y)]:= clblue;

end;

end;

end.

Output