Pages

Subscribe:

Ads 468x60px

Featured Posts

Friday, May 4, 2012

Konversi ke Citra Biner

Konversi ke Citra Biner


Citra Biner (hitam putih) merupakan citra yang banyak dimanfaatkan untuk keperluan pattern recognition yang sederhana seperti mengenal angka atau pengenalan huruf.

Untuk mengubah suatu citra gray scale menjadi citra biner, sebetulnya prosesnya sama dengan Thresholding yaitu mengubah kuantisasi citra.

Untuk Citra dengan derajat keabuan 256 maka tengahnya adalah 128 sehingga mengubah menjadi citra biner dapat dituliskan:

Jika x<128 maka x=0, jika tidak maka x=255

Untuk membuat program Konversi ke citra biner, langkahnya adalah sbb:

1. Buat project baru

Tambahkan 2 PictureBox bersebelahan

PictureBox1 untuk menampung gambar asli, PictureBox2 menampung hasil

Tambahkan CommandButtom1 dibawah pictureBox2

2. Isikan property sbb:

Objek

Property

Nilai

Form

Name

Caption

CitraBiner

Konversi Ke Citra Biner

Picture1

Picture

Appereance

Nama file gambar

Flat

Picture2

Appereance

Flat

Command1

Caption

Konversi Ke Citra Biner

3. Klik Command1, isikan program berikut:

Private Sub Command1_Click()

for i = 1 To Picture1.Width Step 15

for j = 1 To Picture1.Height Step 15

warna =Picture1.Point(i, j)

r=warna And RGB(255, 0, 0)

g=Int((warna And RGB(0, 255, 0))/256)

b=Int(Int((warna And RGB(0, 0, 255))/256)/256)

’Memindahkan ke Gray scale

x=(r + g + b)/3

’konversi ke citra biner

If x<128 Then x=0 Else x=255

Picture2.Pset (i, j), RGB(x, x, x)

Next j

Next i

End Sub

Keterangan:

Hasil dari program diatas tampak kurang sempurna. Hal ini disebabkan distribusi nilai derajat keabuan tidak simetri antara yang dibawah 128 dan yang diatas 128. Jika ingin mendapatkan citra biner yang lebih baik maka harus dihitung dulu nilai rata-rata derajat keabuan dan kemudian ditentukan Thresholdingnya.

Program Thresholding

Program Thresholding

Thresholding digunakan untuk mengatur jumlah derajat keabuan yang ada pada citra. Default yang ada pada Visual Basic adalah 256 atau 28.

Dengan menggunakan Thresholding maka derajat keabuan bisa dirubah sesuai keinginan. Proses Thresholding ini adalah proses pengubahan kuantisasi pada citra, sehingga untuk melakukan thresholding keabuan a dapat digunakan rumus:

x = b.int(w/b)

Dimana:

w = nilai derajat keabuan sebelum thresholding

x = nilai derajat keabuan setelah thresholding

x = b.int (256/a)

Untuk Membuat program Thresholding caranya adalah sbb:

1. Buat project baru

· Tambahkan 2 buah PictureBox, PictureBox 1 isi dengan gambar asli, PictureBox 2 untuk menmpilkan hasil thresholding

· Tambahkan label dibawah PictureBox1,

· Tambahkan textbox disamping label1

· Tambahkan commandbuttom dibawah PictureBox2

2. Isikan properti pada setiap object dan form sbb:

Objek

Property

Nilai

Form

Name

Caption

Thresholding

Proses Thresholding

Picture1

Picture

Autoredraw

Appereance

Nama file gambar

Thrue

Flat

Label1

Caption

Thresholding Derajat Keabuan

Text1

Text

16

Picture2

Appereance

Flat

Command1

Caption

Thresholding

3. Klik pada Command1, isikan program berikut

Private Sub Command1_Click()

th=val(Text.text)

for i = 1 To Picture1.Width Step 15

for j = 1 To Picture1.Height Step 15

warna =Picture1.Point(i, j)

r=warna And RGB(255, 0, 0)

g=Int((warna And RGB(0, 255, 0))/256)

b=Int(Int((warna And RGB(0, 0, 255))/256)/256)

’Memindahkan ke Gray scale

x=(r + g + b)/3

’Melakukan Thresholding

a=int(256/th)

x=a*int(x/a)

Picture2.Pset (i, j), RGB(x, x, x)

Next j

Next i

End Sub

Keterangan:

Pada program diatas, keliahatannya gambar berwarna langsung di Thresholding padahal sebenarnya tidak, gambar berwarna dirubah menjadi Gray scale kemudian baru di thresholding.

Mengubah citra berwarna menjadi gray-scale

Mengubah citra berwarna menjadi gray-scale

Proses awal yang banyak dilakukan dalam image processing adalah mengubah citra berwarna menjadi gray-scale. Hal ini digunakan untuk menyederhanakan model.

Citra berwarna terdiri dari 3 layer matrik yaitu R-layer, G-layer, dan B-layer sehingga untuk melakukan proses selanjutnya tetap diperhatikan tiga layer tadi. Dalam citra ini tidak ada lagi warna yang ada hanya derajat keabuan.

Untuk mengubah citra berwana menjadi Gray-scale digunakan rumus sbb:

x = (r + g + b) /3

Untuk membuat program citra warna menjadi gray-scale, lakukan langkah berikut:

1. Buat project baru

Tambahkan 2 buah PictureBox bersebelahan

PictureBox1 untuk menampung gambar asli, PictureBox2 menampung hasil

Tambahkan 2 buah Label

CommandButtom1 diatas pictureBox1, Command2 diatas PictureBox2

Tambahkan 2 buah CommondButton

CommandButtom1 dibawah pictureBox1, Command2 dibawah PictureBox2

2. Isikan property sbb:

Objek

Property

Nilai

Form

Name

Caption

CitraBiner

Konversi Ke Citra Biner

Picture1

Picture

Appereance

Nama file gambar

Flat

Picture2

Appereance

Flat

Label1

Caption

Gambar Asli

Label2

Caption

Hasil RGB Ke GRAY

Command1

Caption

Capture Gambar

Command2

Caption

Selesai

3. Klik Command1, isikan program berikut:

Private Sub Command1_Click()

for i = 1 To Picture1.Width Step 15

for j = 1 To Picture1.Height Step 15

warna =Picture1.Point(i, j)

r=warna And RGB(255, 0, 0)

g=Int((warna And RGB(0, 255, 0))/256)

b=Int(Int((warna And RGB(0, 0, 255))/256)/256)

’Mengubah citra berwarna ke Gray scale

x=(r + g + b)/3

Picture2.Pset (i, j), RGB(x, x, x)

Next j

Next i

End Sub

4. Klik Command2, isikan program berikut:

Private Sub Command2_Click()

Unload Me

End Sub

***Selamat Mencoba***

Monday, April 30, 2012

Menangkap Citra Dengan PictureBox

Menangkap Citra dengan PictureBox

Untuk menangkap citra yang ada pada picture digunakan perintah point yang dikenakan pada objek.
Picture yaitu namaPicture.Point(x,y) perintah ini menangkap warna pada posisi (x,y) dan hasilknya
adalah nilai warna dalam 2 pangkat 24, warna yang terdiri dari RGB.
Untuk mengambil warna R,G, dan B dapat digunakan cara pembagian dengan 256 sbb:

warna = picture1.Point(i, j)

r = warna And RGB (255, 0, 0)

g = Int ((warna And RGB(0, 255, 0)) / 256)

b = Int (Int((warna And RGB(0, 0, 255)) /256) / 256)

Contoh Menangkap Citra Dengan PictureBox VB:

- Buatlah project baru
- Isi properti name dengan FormCapture, caption: Menangkap Citra
- Tambahkan 2 buah PictureBox, PictureBox1 disebelah kiri dan PicturebBox2 disebelah kanan
- Tambahkan 2 buah label, label1 diatas PictureBox1, caption: Citra Asli, dan label2 diatas PictureBox2, caption: Hasil capture
- Tambahkan 2 buah CommandButton. Command Button1 di bawah PictureBox1, caption: CAPTURE CITRA.
CommandButton2 dibawah PictureBox2, caption: SELESAI

Code Program:

Double klik pada commondbutton1:

Private Sub Command1_Click()

For i = 1 to Picture1.Width Step 15

For j = 1 to Picture1.Height Step 15

warna = picture1.Point(i, j)

r = warna And RGB (255, 0, 0)

g = Int ((warna And RGB(0, 255, 0)) / 256)

b = Int (Int((warna And RGB(0, 0, 255)) /256) / 256)

Picture2.Pset (i, j), RGB(r, g, b)

Next j

Next i

End Sub


###Selamat Mencoba###

Aplikasi Komputer

Aplikasi Komputer

Aplikasi Komputer adalah salah satu Mata Kuliah Ciri Universitas yang diselenggarakan di Universitas Mercu Buana. Siapapun mahasiswa baru, dari seluruh jurusan harus mengambil mata kuliah ini. Diharapkan sesudah mengambil kuliah aplikasi komputer, mahasiswa diharapkan tidak ketinggalan teknologi alias gaptek.
Adapun Silabus dari Mata kuliah Aplikasi Komputer adalah:
14. Internet
Silahkan download;)

$$$$$Selamat Belajar$$$$$

Pengolahan Citra

Pengolahan Citra

Setelah mempelajari mata kuliah pengolahan citra, Anda diharapkan memahami konsep-konsep yang berkaitan dengan pengolahan citra komputer serta mampu menerapkan berbagai algoritma transformasi citra yang dipergunakan untuk berbagai tujuan.

Pengolahan Citra / Image Processing adalah
  • Proses memperbaiki kualitas citra agar mudah diinterpretasi oleh manusia atau komputer
  • Teknik pengolahan citra dengan mentrasfor-masikan citra menjadi citra lain, contoh : pemampatan citra (image compression)
  • Pengolahan citra merupakan proses awal (preprocessing) dari komputer visi.
Silabus Pengolahan Citra:
Silahkan download materi yang kalian perlukan.

*****Semoga Bermanfaat*****