Delphi for delphier

Grafik – Foto – Mendesain gambar jadi Negatif

Tingkatan Menengah
Kategori Grafik
Sub Kategori Foto
Judul Mendesain gambar jadi Negatif
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi Program oleh Eko Indriyawan
 

– lupa dulu pernah baca artikel dimana, kalau ada yang tahu mohon diinfokan

   

Tujuan

Mengajarkan kepada para Delphier tentang bagaimana cara memanipulasi data gambar atau foto yang ditampilkan kedalam TImage yang kemudian diformat seperti terlihat foto negatif.

  spasi

Overview

Kali ini kita akan diberikan artikel tentang bagaimana cara kita bisa mengubah gambar bitmap menjadi format negatif layaknya seperti foto.

Bagi anda yang belum tahu, artikel ini sangat menarik dan apabila anda penasaran mengenai artikel ini, kenapa tidak anda coba?

Silahkan anda baca artikel ini dan ikuti langkah – langkah pembuatan programnya hingga program aplikasi yang anda buat nantinya bisa berhasil.

Untuk lebih jelasnya, silahkan anda baca artikel dibawah ini.

  spasi
Petunjuk :

Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

  spasi

Langkah 1

Buat program aplikasi baru.

   

Langkah 2

Tambahkan beberapa object kedalam Form

   
  Image1: TImage;
Button1: TButton;
Button2: TButton;
Image2: TImage;
  spasi

Langkah 3

Pada object Image1, silahkan anda isikan sembarang gambar dengan extention bmp ( karena yang diolah adalah bitmap, anda bisa mengambil gambar dengan extention apa saja, asalkan sebelum di konversi ke format negatif anda ubah terlebih dahulu ke bmp ). Sebagai Contoh silahkan lihat tampilan gambar dibawah ini.

   
 

umum0042.jpg

   
Langkah 4

Sekarang anda lanjutkan dengan menentukan kode program didalam event OnClick pada tombol Jepret. Untuk lebih detailnya silahkan anda lihat potongan kode program dibawah ini.

   
 

procedure TForm1.Button1Click(Sender: TObject);
var
x, y: Integer;
p: pbytearray;
begin

image2.Height := Image1.Picture.Bitmap.Height;
image2.Width := Image1.Picture.Bitmap.Width;

for y := 0 to Image1.Picture.Bitmap.Height – 1 do
begin

p := Image1.Picture.Bitmap.ScanLine[y];
for x := 0 to Image1.Picture.Bitmap.Width – 1 do
begin

image2.Canvas.pixels[x, y] := rgb(
255 – (p[x * 3] – 4),
255 – (p[x * 3] – 2),
255 – (p[x * 3] – 3));
end;

end;

end;

   

Langkah 5

Silahkan compile program anda dengan menekan tombol Ctrl + F9.

   

Langkah 6

Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap untuk dijalankan.

   

Langkah 7

Tekan tombol Jepret.Apabila program anda berhasil, maka akan didapatkan tampilan gambar seperti terlihat pada gambar dibawah ini

   
 

umum0043.jpg

   

Langkah 8

Program aplikasi sudah selesai dibuat, silahkan anda tekan tombol Keluar untuk menutup program aplikasi.

   

Download

Foto – Mendesain gambar jadi Negatif

Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.

Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.

Atas perhatiannya, saya mengucapkan banyak terimakasih.

  spasi
Link terkait

Foto – Mendesain gambar jadi Sephia

 
Foto – Mendesain gambar jadi Negatif  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
 
 
 
Jika anda mau berusaha dan punya semangat, jangan biarkan waktu anda lari begitu saja. By Eko Indriyawan

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: