Thursday, April 11, 2013

Menggambar Titik Dan Garis Dengan Delphi

No comments:
Untuk Menggambar titik dan garis dengan Delphi sebenarnya tidak susah. Apalagi jika anda sudah memahami konsep pemrograman Delphi. Step 1 yang harus kita pahami dari delphi adalah penggunaan Event Handling. Jadi dalam delphi Perintah-Perintah akan diletakkan didalam Event itu Sendiri (Coba Perhatikan Objek Inspektor yang ada di Sobat). Step 2 adalah Coding; Tanpa Coding Aplikasi yang anda buat tidak akan bisa apa-apa. karena semua perintah adalah coding dan Coding isinya adalah perintah.

Pada Postingan ini, Sebenarnya hanya iseng-iseng doang. tujuannya bukan bisa menggambar garis saja tapi lebih ke memahami konsep pemrograman delphi yang sudah saya jelaskan di awal paragraf.

Tahap Pertama. Tambahkan sebuah komponen Image dan Button dalam form anda
Tahap Kedua. Didalam Button (Klik Dua kali) Tambahkan Code ini :

Kesimpulannya adalah; sebuah titik dan garis tidak akan dibuat langsung oleh program anda. tapi melalui perantara Button yang di klik karena Perintah untuk menggambar garis pada komponen image di letakkan pada Event OnClick milik Button.
var
i : integer;
begin
// code dibawah ini akan menggambar titik
for i := 100 to 100 do
Image1.Canvas.Pixels[i,i]:=clred;

// code dibawah ini akan menggambar titik sebanyak lima puluh sehingga terlihat seperti garis merah (perulangan for do)
for i := 1 to 50 do
Image1.Canvas.Pixels[i,100]:=clred;

Hasilnya Seperti Ini

Menggambar titik dan garis

No comments:

Post a Comment

Popular Posts

Recent Post

Popular Posts

Desain Oleh :