Program Pengolahan Citra Pada Delphi

Delphi adalah sebuah lingkungan pengembangan terpadu (IDE) untuk mengembangkan aplikasi konsol, Desktop, Web, ataupun perangkat mobile. Produk Delphi ini pada awalnya dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya milik Borland. Program Delphi hingga sekarang masih populer dikalangan programmer, karna masih banyak yang memakainya hingga saat ini. Belajar tentang Delphipun tidak lah sulit karna bahasa pemograman ini cukup mudah.

disini saya akan memberikan Program Pengolahan Citra yang sederhana. semoga cara ini dapat anda pahami dengan mudah. Didalam bahasa pemograman masih banyak lagi bahasa yang lain seperti Visual Basic, PHP, Java, Java Android, C++ dan lain-lain. Teknik yang saya akan berikan adalah dengan sebuah gambar. cara ini dapat anda kembangkan sendiri dengan karya anda sendiri. inilah hasil progam yang telah saya buat yang sangat sederhana.

Disini saya memakai Delphi 10 untuk membuat sebuah program sederhana ini. cara ini akan saya berikan kepada anda semua. beserta Codingnya agar anda bisa mencobanya. 

Coding Program Pengolahan Citra

procedure TForm1.Button1Click (sender : Tobject);
var
baris,kolom:integer;
warna:longint;
R,G,B,intensitas:byte;

begin
//membuat tombol tidak bisa di klik
button1.Enabled :=false;
//salin citra asli ke hasil
image2.picture.Bitmap :=image1.Picture.Bitmap;

//lakukan konversi
for kolom := 0 to image1.Picture.Bitmap.Height - 1 do
begin
for baris := 0 to image1.Picture.Bitmap.width - 1 do
begin
warna :=colortoRGB(image1.Picture.Bitmap.Canvas.Pixels [baris,kolom]);
R:=getRvalue(warna);
G:=getRvalue(warna);
B:=getRvalue(warna);

intensitas:=(R+G+B) div 3;
//warna hasil
image2.Picture.Bitmap.Canvas.Pixels [baris,kolom]:=RGB(intensitas,intensitas,intensitas);
end;
end;
//membuat tombol bisa diklik
button1.Enabled :=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
baris,kolom:integer;
warna:longint;
R,G,B,intensitas:byte;
begin
//membuat tombol tidak bisa di klik
button1.Enabled :=false;
//salin citra asli ke hasil
image2.Picture.Bitmap :=image1.Picture.Bitmap;

//lakukan konversi
for kolom := 0 to image1.Picture.Bitmap.Height - 1 do
begin
for baris := 0 to image1.Picture.Bitmap.Width - 1 do
begin
warna:=colortoRGB(image2.Picture.Bitmap.Canvas.Pixels [baris,kolom]);
R:=getRvalue(warna);
G:=getRvalue(warna);
B:=getRvalue(warna);

intensitas:=(R+G+B) div 3;
intensitas:=255-intensitas;
//warna hasil
image2.Picture.Bitmap.Canvas.Pixels [baris,kolom]:=RGB(intensitas,intensitas,intensitas);
end;
end;
//membuat tombol bisa diklik
button1.Enabled :=true;
end;

procedure TForm1.Button3Click(sender: TObject);
begin
application.terminate
end;
end.

Demikianlah program sederhana tentang teknik Pengolahan Citra Pada Delphi. semoga cara ini dapat menambah wawasan anda tentang bahasa pemograman Delphi. jika ada pertanyaan tinggalkan pada kolom komentar di bawah. Semoga Bermanfaat bagi anda semua.

Related Posts:

Tweet