Sabtu, 23 November 2013

Laporan Keja Praktek

kemaren aku ada dapat tugas dari salah seorang dosen untuk membuat laporan kerja praktek.
dan disini aku perlihatkan hasilnya.
Laporan Kerja Praktek ini berjudul "Perancangan Sistem Informasi Penjualan Deposit Pulsa Bursa Usaha Sidney Berbasis Web.
silahkan teman teman mendownloadnya 
DOWNLOAD

Minggu, 03 November 2013

Algoritma Midpoint untuk Penggambaran Lingkaran

ini adalah salah satu tugas Mata Kuliah Grafika Komputer.
dimana dalam tugas ini saya harus membuat algoritma fungsi parameter penggambaran lingkaran dengan Delphi.

ScreenShoot dari aplikasi yang sudah berhasil.


listing programnya, yaitu:

procedure TForm1.Button1Click(Sender: TObject);
var x,y,p,xc,yc,radius:integer;
begin
x:=0;
xc:=100;
yc:=200;
radius:=45;
y:=radius;
p:=1-radius;

while(x<y)do

begin
canvas.pixels[xc+x,yc+y]:=clred;
canvas.pixels[xc+x,yc-y]:=clred;
canvas.pixels[xc-x,yc+y]:=clred;
canvas.pixels[xc-x,yc-y]:=clred;

canvas.pixels[xc+y,yc+x]:=clred;
canvas.pixels[xc+y,yc_x]:=clred;
canvas.pixels[xc-y,yc+x]:=clred;
canvas.pixels[xc-y,yc-x]:=clred;
if(p<0) then x:=x+1
else

begin
x:=x+1;
y:=y-1;
end;
if(p<0)then p:=p+2* x+1
  else   p:=p+2*(x-y)+1;
end;
end;