Beranda > Graphics > Grayscalling image with delphi

Grayscalling image with delphi

Tutorial pertama yaitu tutorial efek grayscale pada tutorial ini diharapkan anda dapat mengubah gambar berwarna menjadi gambar hitam putih. Sebenarnya ini adalah metode yang mungkin sudah akrab sekali dengan para delphier tapi ga ada salahnya kalo saya posting.

Pertama-tama kita buat project baru, deangan cara seperti biasa, File>New>Application, lalu letakan sebuah komponen image pada tab komponen addtional  dan sebuah komponen Button, pada komponen Button kita ubah property captionnya menjadi “Convert”

Untuk yang baru mulai silahkan download file pdf Pemrograman Delphi 7.0. Oleh: Fikri Alami, S.T., M.Sc

Gbr. Tampilan awal program.

Setelah itu kita buat procedure baru dibawah deklarasi public, lihat kode dibawah ini

public

{ Public declarations }

Procedure GrayScale;

published

{ Published declarations }

Lalu ketikan kode berikut ini

Procedure TForm.GrayScale;

var

w, h, vRgbTemp : integer ;

warna : LongInt ;

R, G, B : byte ;

begin

with Image1.Picture.Bitmap do

begin

for w:=0 to Width-1 do

// kode ini adalah kode pengulangan untuk menelusuri tinggi  bitmap

begin

for h:=0 to Height-1 do

// kode ini adalah kode pengulangan untuk menelusuri tinggi bitmap

Begin

// sekarang kita akan mengubah nilai Tcolor menjadi nilai R, G dan B.

warna:=ColorToRgb(canvas.Pixels[w,h]);

// setelah itu kita ambil nilai R, G dan B

R:=GetRValue(warna);

G:=GetGValue(warna);

B:=GetBValue(warna);

// fungsi nilai gray

vRgbTemp:=( R + G + B ) div 3;

// warna baru

canvas.Pixels[w, h]:=Rgb(vRgbTemp, vRgbTemp, vRgbTemp);

end;

end;

end;

end;

Kemudian doubleclick pada button1 lalu masukan kode dibawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

Grayscale;

end;

Nilai grayscale diambil dari Nilai masing-masing warna R, G, dan B kemudian dibagi 3 maka akan menghasikan nilai abu-abu menurut tingkat RGB tertentu.

Gbr. Hasil Grayscale

  1. iman
    Januari 13, 2010 pukul 2:33 pm

    Kerenlah pa asep, tpi ilmunya hrus di amalkan trus biar manfaat dunia akhirat hehe amiiinnn

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: