Akhirnya bisa posting lagi, sempat malas melanda. Tapi semangat untuk share ilmu delphi kecil ini tetap besar. Artikel ini saya beri judul "Pemrograman grafik delphi", ya memang meskipun saya sedang tahap belajar. Namun, apa salahnya untuk berbagi. Pertama mari kita ulas terlebih dahulu apa itu pemrograman grafik delphi. Beberapa hal yang perlu kita ketahui terkait pemrograman grafik, diantaranya:
- Kanvas
- Piksel
- Koordinat
Kanvas dapat dibayangkan seperti kertas/ kain yang akan kita gunakan untuk menggambar suatu objek. Padaform kanvas diimplementasikan melalui property yang disebut Canvas. Kanvas tersusun atas piksel.
Piksel adalah elemen terkecil pada kanvas yang dapat dimanipulasi. Setiap piksel mempunyai koordinat, yang dinyatakan pada x dan y. Canvas mempunyai property bernama pen, atribut ini berguna untuk pengaturan color, style, width dan lain-lain. Dengan canvas kita dapat menggambar objek kotak, lingkaran, busur, dan sebagainya. Agar lebih jelas dalam pemahaman fungsi canvas disini saya sediakan contoh implemtasi pemrograman grafik pada delphi untuk membuat objek seperti pada gambar.
Untuk listingnya bisa sobat copy paste seperti dibawah ini, sebelum anda copy paste usahakan anda mengerti maksud dari listing tersebut ya, agar anda bisa tahu alurnya.
procedure TForm1.Button1Click(Sender: TObject);
begin //untuk menggambar anak panah
Canvas.Rectangle(40,40,45,60);
Canvas.Rectangle(46,40,56,60);
Canvas.Polygon([Point(120,50),Point(80,70),Point(80,60),
Point(57,60),Point(57,40),Point(80,40),Point(80,30),Point(120,50)]);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin // untuk menggambar tabung
Canvas.Ellipse(200,20,300,50);
Canvas.Polygon([Point(200,35),Point(200,115)]);
Canvas.Polygon([Point(300,35),Point(300,115)]);
canvas.Arc(200,100,300,130,200,115,300,115);
button3.Visible := true ;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin // untuk menggambar kotak
Canvas.Polygon([Point(400,20),Point(400,40),Point(380,40),
Point(380,80),Point(400,80),Point(400,100),Point(800,100),Point(800,80),
Point(820,80),Point(820,40),Point(800,40),Point(800,20),Point(400,20)]);
end;
end.
Demikian, selamat mencobaya.
Posting Komentar