Laporan CITRA

1

LEMBAR PENGESAHAN

Telah dilaksanakan Praktikum ke 3. Mata Kuliah Praktikum Pengolahan Citra Digital di Laboratorium information Processing pada hari senin, Tgl 27 Maret 2017 s/d 3 April 2017 dengan Materi Praktikum :

Membaca dan Menyimpan Citra

Oleh: Nama : Putri wahyuni NIM

: 1457301009

Kelas : TI 3.2

Disetujui oleh: Dosen Pengasuh Mata Kuliah

Nilai

Sila Abdullah Syakri, S.T, M.T

NIP. 19751205 19751205 199903 1 003

2

:

LEMBAR PENGESAHAN

Telah dilaksanakan Praktikum ke 3. Mata Kuliah Praktikum Pengolahan Citra Digital di Laboratorium information Processing pada hari senin, Tgl 27 Maret 2017 s/d 3 April 2017 dengan Materi Praktikum :

Membaca dan Menyimpan Citra

Oleh: Nama : Putri wahyuni NIM

: 1457301009

Kelas : TI 3.2

Disetujui oleh: Dosen Pengasuh Mata Kuliah

Nilai

Sila Abdullah Syakri, S.T, M.T

NIP. 19751205 19751205 199903 1 003

2

:

DAFTAR ISI

LEMBAR PENGESAHAN ........................................... ................................................................. ............................................ ...................................... ................ 1 DAFTAR ISI ........................................ .............................................................. ............................................. ............................................. ....................................... ................. iii DAFTAR GAMBAR .......................................... ................................................................ ............................................ ............................................ ...................... iv DAFTAR TABEL.......................................................... ................................................................................ ............................................. .................................... .............vii PRAKTIKUM 3 ........................................... ................................................................. ............................................ ............................................. .................................. ...........1 3.1

TUJUAN .......................................... ................................................................. ............................................. ............................................. .............................. ....... 1

3.2 DASAR TEORI..................................... TEORI........................................................... ............................................. .............................................. .............................. ....... 1 3.2.1 GrayScale......................... GrayScale................................................ ............................................. ............................................ ............................................. .......................1 3.2.2 Thresholding ........................................... ................................................................. ............................................ ............................................. .......................2 3.2.3 Proses Threshold........................................ Threshold.............................................................. ............................................. .......................................... ................... 2 3.3 TUGAS PENDAHULUAN ........................................................... ................................................................................. .................................. ............ 3 3.4 PERCOBAAN(VB 6.0) ........................................... ................................................................. ............................................ .................................. ............ 4 3.4.1 Percobaan 1 (Mengubah Citra Berwarna Menjadi Gray-Scale ) ............................... ............................... 6 3.4.2 Percobaan 2 (Thresholding).................... (Thresholding).......................................... ............................................. ........................................... .................... 10 3.5

Percobaan (Vbnet) ........................................... ................................................................. ............................................ .................................... .............. 14

3.5.1 Percobaan 1(Mengubah Citra Berwarna Menjadi Gray-Scale) ............................... ............................... 14 3.5.2 Percobaan 2 (ThresHolding) ............................................. .................................................................... ....................................... ................ 19 3.6

TUGAS dan LATIHAN .......................................... ................................................................ ............................................ ............................ ...... 24

3.7 Hasil percobaan .................................................... .......................................................................... ............................................. .................................... ............. 37 3.7.1 Program .......................................... ................................................................. ............................................. ............................................. ............................ ..... 37 3.7.2 Output ............................................. .................................................................... ............................................. ............................................. ............................ .....41 3.8 ANALISA ............................................. .................................................................... ............................................. ............................................. ............................ ..... 43 3.8.1 Analisa per baris ........................................................... ................................................................................. ........................................... ..................... 43 3.8.2 Analisa per sistem ............................... ..................................................... ............................................ ............................................. ......................... .. 48 3.9

KESIMPULAN ........................................... .................................................................. ............................................. ....................................... ................. 49

DAFTAR PUSTAKA ............................................. ................................................................... ............................................ ........................................... .....................50 iii

DAFTAR GAMBAR

Gambar 3. 1 Gradasi warna grayscale ............................................................ ................................................................................... ........................... .... 1 Gambar 3. 2 Proses GrayScale............................ GrayScale.................................................. ............................................ ............................................ ........................... ..... 2 Gambar 3. 3 Proses ThresHolding ............................. .................................................... ............................................. ......................................... ................... 3 Gambar 3. 4 Icon Visual Basic 6.0 ........................................ .............................................................. ............................................ .............................. ........ 4 Gambar 3. 5 Halaman Hala man utama VB 6.0 untuk membuat project ............................................ ................................................... ....... 5 Gambar 3. 6 Form Memberi warna sebelum didesign ............................................ ............................................................... ................... 5 Gambar 3. 7 Form yang sudah di design ................................................. ........................................................................ .................................. ........... 6 Gambar 3. 8 Form yang sudah s udah dimasukkan gambar........................................... .................................................................. ....................... 7 Gambar 3. 9 Kode program pada commandbutton1 ........................................... .................................................................. ....................... 7 Gambar 3. 10 Kode program pada commandbutton2 ......................................... ............................................................... ........................ 8 Gambar 3. 11 Output GrayScale ketika di run ............................................. .................................................................... .............................. ....... 8 Gambar 3. 12 Proses Output GrayScale ........................................... .................................................................. ......................................... .................. 9 Gambar 3. 13 Hasil H asil Output setelah set elah proses berjalan ber jalan ke GrayScale Gra yScale ............................................ ............................................ 9 Gambar 3. 14 Pilihan untuk membuat project baru ba ru ............................. ................................................... .................................... .............. 10 Gambar 3. 15 Design Form untuk ThresHold .................................................... ......................................................................... ..................... 10 Gambar 3. 16 Kode program untuk pada Button1(ThresHold) .......................................... ............................................... ..... 11 Gambar 3. 17 Kode program pada button2(ThresHold) ............................................ .......................................................... .............. 12 Gambar 3. 18 Output ThresHold (1) ......................................... ............................................................... ............................................. ......................... .. 12 Gambar 3. 19 Output ThresHold (2) ......................................... ............................................................... ............................................. ......................... .. 13 Gambar 3. 20 Output ThresHold (3) ......................................... ............................................................... ............................................. ......................... .. 13 Gambar 3. 21 Icon ketika membuka software VBnet ......................................... .............................................................. ..................... 14 Gambar 3. 22 Halaman H alaman VBnet untuk membuat project baru.......................................... ................................................... ......... 14 Gambar 3. 23 Halaman VBnet untuk membuat nama project ............................................ ................................................. ..... 15 Gambar 3. 24 Halaman H alaman Form baru .......................................................... ................................................................................ ................................ .......... 15 Gambar 3. 25 Form yang sudah di di design .................................... .......................................................... ....................................... ................. 16 Gambar 3. 26 Cara untuk memasukkan gabar ke dalam PictureBox1 .................................... .................................... 17 Gambar 3. 27 Form yang sudah dimasukkan gambar........................................................... gambar.............................................................. ... 17 Gambar 3. 28 Kode program pada button 1 ......................................... ............................................................... .................................... .............. 18 Gambar 3. 29 Kode program pada button2.......................................... ................................................................. .................................... ............. 18 Gambar 3. 30 Output untuk GrayScale (1) ................................... ......................................................... ........................................... ..................... 18 Gambar 3. 31 Output untuk GrayScale (2) ................................... ......................................................... ........................................... ..................... 19 Gambar 3. 32 Cara Ca ra untuk membuat me mbuat project baru ............................................ ................................................................... ......................... .. 19 Gambar 3. 33 Halaman VBnet untuk membuat nama project ............................................ ................................................. ..... 20 iv

Gambar 3. 34 Form baru .............................. .................................................... ............................................ ............................................. ................................ ......... 20 Gambar 3. 35 Form yang sudah didesign .................................................... ........................................................................... ............................ ..... 21 Gambar 3. 36 Halaman untuk memasukkan gambar pada picture box1 ................................. ................................. 22 Gambar 3. 37 Form yang sudah dimasukkan gambar........................................................... gambar.............................................................. ... 22 Gambar 3. 38 Kode Program pada button 1 ............................................ ................................................................... ................................ ......... 23 Gambar 3. 39 Kode program pada button2.......................................... ................................................................. .................................... ............. 23 Gambar 3. 40 Output ThresHold (1) ......................................... ............................................................... ............................................. ......................... .. 23 Gambar 3. 41 Output ThresHold (2) ......................................... ............................................................... ............................................. ......................... .. 24 Gambar 3. 42 Halaman VBnet ketika loading dibuka ............................................ ............................................................. ................. 25 Gambar 3. 43 Halaman untuk membuat project baru ba ru ......................................... .............................................................. ..................... 25 Gambar 3. 44 Halaman untuk memberi nama project proj ect ................................. ....................................................... ............................ ...... 26 Gambar 3. 45 Form baru .............................. .................................................... ............................................ ............................................. ................................ ......... 26 Gambar 3. 46 halamn untuk memasukkan gambar ......................................... ............................................................... ......................... ... 27 Gambar 3. 47 Form yang sudah didesign ................................................ ....................................................................... ................................ ......... 27 Gambar 3. 48 Kode program pada button1.......................................... ................................................................. .................................... ............. 28 Gambar 3. 49 Kode program pada button2.......................................... ................................................................. .................................... ............. 28 Gambar 3. 50 Output GrayScale (1) .................................................... ........................................................................... .................................... ............. 29 Gambar 3. 51 Output GrayScale (2) .................................................... ........................................................................... .................................... ............. 29 Gambar 3. 52 Cara Ca ra untuk membuat me mbuat Project baru............................................ ................................................................... ......................... .. 30 Gambar 3. 53 Halaman untuk memberi nama project proj ect ................................. ....................................................... ............................ ...... 31 Gambar 3. 54 Form baru .............................. .................................................... ............................................ ............................................. ................................ ......... 31 Gambar 3. 55 Form yang sudah didesign .................................................... ........................................................................... ............................ ..... 32 Gambar 3. 56 Halaman H alaman untuk memasukkan gambar .......................................... ............................................................... ..................... 33 Gambar 3. 57 Form yang sudah dimasukkan gambar........................................................... gambar.............................................................. ... 33 Gambar 3. 58 Kode program pada button1.......................................... ................................................................. .................................... ............. 34 Gambar 3. 59 Kode program pada button2.......................................... ................................................................. .................................... ............. 34 Gambar 3. 60 Kode program pada TrackBar1 ............................................. .................................................................... ............................ ..... 34 Gambar 3. 61 Output Untuk ThresHold (1) ......................................... ............................................................... .................................... .............. 35 Gambar 3. 62 Output ThresHold yang sudah dislider disl ider nilai (2)........................................... ................................................ ..... 35 Gambar 3. 63 Output ThresHold (3) ......................................... ............................................................... ............................................. ......................... .. 36 Gambar 3. 64 Output untuk GrayScale ............................................. .................................................................... ....................................... ................ 41 Gambar 3. 65 Output untuk ThresHolding ............. ................................... ............................................ ........................................... ..................... 41 Gambar 3. 66 Output untuk GrayScale Gra yScale pada VB net .......................................... ............................................................... ..................... 42 Gambar 3. 67 Output untuk ThresHolding pada VBnet ....................................................... .......................................................... ... 42 v

Gambar 3. 68 Output GrayScale pada VBnet .......................................................................... 42 Gambar 3. 69 Output ThresHolding Slider pada VBnet .......................................................... 43

vi

DAFTAR TABEL

Tabel 3.1 Tabel Komponen pada design form memberi warna ................................................. 6 Tabel 3.2 Tabel Komponen pada design form ThresHolding.................................................. 11 Tabel 3.3 Tabel Komponen pada design form GrayScale ....................................................... 16 Tabel 3.4 Tabel Komponen pada design form ThresHold ....................................................... 21 Tabel 3.5 Tabel Komponen pada design form GrayScale ....................................................... 28 Tabel 3.6 Tabel Komponen pada design form Capture Gambar ........................................... 332

vii

PRAKTIKUM 3

DASAR PENGOLAHAN CITRA (2) 3.1 TUJUAN

-

Mahasiswa dapat membuat program untuk merubah citra warna RGB menjadi GrayScale.

-

Mahasiswa dapat membuat program thresholding atau mengatur jumlah derajat keabuan yang ada pada citra.

3.2 DASAR TEORI 3.2.1 GrayScale

Citra grayscale merupakan citra digital yang hanya memiliki satu nilaikanal pada setiap pixelnya, dengan kata lain nilai bagian Red = Green = Blue. Nilai tersebut digunakan untuk menunjukkan tingkat intensitas warnanya. Warna yang dimiliki adalah warna dari hitam, keabuan, dan putih. Tingkatan keabuan disini merupakan warna abu dengan berbagai tingkatan dari hitam hingga putih. Citra grayscale memiliki derajat keabuan 8 bit seperti yang dapat dilihat berikut ini :

Gambar 3. 1 Gradasi warna grayscale Operasi grayscale bertujuan untuk merubah citra 24 bit RGB menjadi citra abu-abu. Pemilihan pemrosesan pada tingkat abu-abu ini dikarenakan lebih sederhana. karena hanya menggunakan sedikit kombinasi warna dan dengan citra abu-abu dirasakan sudah cukup untuk memproses suatu gambar. Perubahan citra 24 bit RGB menjadi citra abu-abu adalah dengan menghitung rata-rata dari intensitas 0.299*red, 0.587*green, 0.114*blue dari citra 24 bit RGB. Grayscale sendiri merupakan sebuah proses pengolahan citra yang biasa digunakan untuk mempertegas citra yang sebelumnya berupa citra warna lalu dirubah menjadi citra

1

digital dengan skala keabuan. Berikut merupakan contoh perubahan dari citra warna menjadi citra keabuan dengan proses grayscale:

Gambar 3. 2 Proses GrayScale 3.2.2 Thresholding

Dalam pengolahan citra, proses operasi ambang batas atau sering disebut thresholding ini merupakan salah satu operasi yang sering digunakan dalam menganalisis suatu obyek citra. Threshold merupakan suatu cara bagaimana mempertegas citra dengan mengubah citra menjadi hitam dan putih (nilainya hanya tinggal menjadi antara 0 dan 1). Di dalam proses thresholdini harus ditetapkan suatu variabel yang berfungsi sebagai batas untuk melakukan konversi elemen matriks citra menjadi hitam atau putih. Jika nilai elemenmatriks dibawah ini dikonversi menjadi nilai 0 (hitam) dan jika diatas nil ai ini elemennya dikonversi menjadi 1. Pengembangan citra (image thresholding) merupakan metode yang paling sederhana untuk melakukan segmentasi. Thresholding digunakan untuk mengatur jumlah derajat keabuan yang ada pada citra. Proses thresholding ini pada dasarnya adalah proses pengubahan kuantisasi pada citra. Untuk mendapatkan hasil segmentasi yang bagus, beberapa operasi perbaikan kualitas citra dilakukan terlebih dahulu untuk mempertajam batas antara objek dengan latar belakangnya. Dalam pemanfaatan thresholdbiasanya untuk citra RGB (Red, Green, Blue) akan dirubah dulu menjadi citra grayscale(keabuan) terlebih dahulu baru nantinya akan dilakukan proses thresholding. Pada operasi ini nilai pixelyang memenuhi syarat ambang batas dipetakan ke suatu nilai yang dikehendaki. Dalam hal ini syarat ambang batas dan nilai yang dikehendaki disesuaikan dengan kebutuhan 3.2.3 Proses Threshold

Proses thresholding atau binerisasi pada prinsipnya adalah melakukan pengubahan nilai derajat keabuan menjadi dua nilai yaitu 0 atau warna hitam dan 255 atau warna putih. Pemilihan nilai threshold yang digunakan berpengaruh terhadap ketajaman suatu citra. Secara umum proses threshold citra grayscale untuk menghasilkan citra biner adalah sebagai berikut:

2

keterangan: g(x,y) = citra biner dari citra grayscale f(x,y) T= nilai threshold

Proses threshold dilakukan dengan memeriksa nilai derajat keabuan pada citra. Jika nilai derajat keabuan kurang dari nilai threshold maka warna piksel berubah menjadi hitam, begitu juga sebaliknya jika piksel lebih dari nilai threshold maka warna piksel akan berubah menjadi putih. Nilai T memegang peranan yang sangat penting dalam proses pengambangan. Kualitas hasil citra biner sangat tergantung pada nilai T yang digunakan. Nilai thresholdantara 0 – 255, dimana artinya bila ada intensitas pixel yang bernilai diatas threshold maka intensitas pixel tersebut akan bernilai sama dengan threshold.

Gambar 3. 3 Proses ThresHolding

3.3 TUGAS PENDAHULUAN

1. Menuliskan tujuan praktikum Jawab: 

Mahasiswa dapat membuat program untuk merubah citra warna RGB menjadi Gray-Scale.



Mahasiswa dapat membuat program thresholding atau mengatur jumlah derajat keabuan yang ada pada citra.

2. Menjelaskan cara merubah citra berwarna menjadi Gray-Scale Caranya adalah : dengan mencari nilai rata-rata grey-scale dari setiap layer r, g, dan

b. Beberapa image belum optimal jika diberikan cara di atas, untuk keoptimalan citra greyscale diperlukan perubahan komposisi pada layer r, g, dan b. 3

3. Menjelaskan cara mengatur jumlah derajat keabuan pada citra dengan Thresholding Caranya adalah: derajat keabuan bisa diubah sesuai keinginan, misalkan diinginkan

menggunakan derajat keabuan 16, maka tinggal membagi nilai derajat keabuan dengan 16. Proses thresholding ini pada dasarnya adalah proses pengubahan kuantisasi pada citra, sehingga untuk melakukan thresholding dengan derajat keabuan dapat digunakan rumus:

 = . (⁄). . . . . . . . . . . . . . . . . . (2) dimana : w : nilai derajat keabuan sebelum thresholding x : nilai derajat keabuan setelah thresholding

. . . . . . . . . . . . . . . . . . (3)

 = (256⁄) 3.4 PERCOBAAN(VB 6.0)

1. Buka software Visual Basic 6.0 seperti gambar dibawah ini:

Gambar 3. 4 Icon Visual Basic 6.0 2. Setelah terbuka, maka akan tampil seperti gambar dibawah ini:

4

Gambar 3. 5 Halaman utama VB 6.0 untuk membuat project 3. Kemudian, pilih standart EXE, pilih open, makan akan tampil sebuah form dan ubah properties caption menjadi “Memberi warna” seperti pada gambar berikut ini:

Gambar 3. 6 Form Memberi warna sebelum didesign

5

3.4.1 Percobaan 1 (Mengubah Citra Berwarna Menjadi Gray-Scale )

-

Design formnya sehingga menjadi seperti gambar dibawah ini: PictureBox

Label1

Label2

CommandButton

Gambar 3. 7 Form yang sudah di design -

Komponen yang diperlukan pada form diatas adalah:

Komponen

Properties

Nilai

Label1

Caption

Citra Asli

Label2

Caption

Hasil RGB To Grey

PictureBox1

-

-

PictureBox2

-

-

CommandButton1

Caption

Ubah ke Gray Scale

CommandButton2

Caption

Exit

Tabel 3.1 Tabel Komponen pada design form memberi warna

-

Kemudian pada PictureBox1 masukkan foto dengan cara klik pada picture pada properties tepatnya terdapat disamping kanan halaman VB 6.0, lalu pilih satu foto sesuai dengan keinginan, seperti gambar berikut ini:

6

Gambar 3. 8 Form yang sudah dimasukkan gambar -

Kemudian ketikkan program dibawah ini pada commandbutton1 atau tepatnya pada kolom Ubah Ke GrayScale, fungsinya agar button tersebut berfungsi untuk merubah gambar dari citra asli ke GrayScale saat diklik dengan cara double click pada button1:

Gambar 3. 9 Kode program pada commandbutton1 -

Kemudian ketikkan program dibawah ini pada commandbutton2 atau tepatnya pada kolom Exit, yaitu ketika diklik button exit tersebut maka akan keluar dari program tersebut dengan cara double click pada button2:

7

Gambar 3. 10 Kode program pada commandbutton2 -

Kemudian run program dengan cara tekan f9 atau bisa juga run toolbar VB 6.0 dan outputnya adalah:

Gambar 3. 11 Output GrayScale ketika di run -

Untuk mengubah Citra asli ke Gray, klik pada tombol Ubah ke GrayScale maka hasilnya akan tampil tidak skaligus, tetapi perlahan seperti gambar dibawah ini:

8

Gambar 3. 12 Proses Output Gra yScale -

Kemudian Hasil output akhirnya adalah sebagai berikut:

Gambar 3. 13 Hasil Output setelah proses berjalan ke GrayScale

-

Dan ketika diklik pada tombol Exit maka akan keluar dari tampilan otput ters ebut 9

3.4.2 Percobaan 2 (Thresholding)

-

Buat project baru dengan cara klik pada file paling sdut atas sebelah kiri halaman VB 6.0, kemudian pilih New Project seperti pada gambar dibawah ini:

Gambar 3. 14 Pilihan untuk membuat project baru -

Kemudian akan tampil sebuah form dan design form tersebut sehingga menjadi seperti gambar dibawah ini: PictureBox

TextBox

Button

Gambar 3. 15 Design Form untuk ThresHold

10

-

Untuk menginput gambar pada picturebox, klik pada picture pada halaman properties, kemudian pilih salah satu gambar yang diinginkan.

-


Komponen

Properties

Nilai

PictureBox1

Picture

Gambar yang dinginkan

PictureBox2

Picture

-

TextBox1

Caption

-

CommandButton1

Caption

ThresHold

CommandButton2

Caption

Exit

Tabel 3.2 Tabel Komponen pada design form ThresHolding

-

Kemudian ketikkan program dibawah ini pada commandbutton1 atau tepatnya pada kolom ThresHold, fungsinya agar button tersebut berfungsi untuk merubah gambar dari citra asli ke ThresHold menurut angka yang dinput dengan cara double click pada button1:

Gambar 3. 16 Kode program untuk pada Button1(ThresHold) -


11

Gambar 3. 17 Kode program pada button2(ThresHold) -

Kemudian run program dengan cara klik f9 maka outputnya adalah:

Gambar 3. 18 Output ThresHold (1)

-

Isikan angka pada textbox yang tersedia untuk mengubah gambar sesuai angka yang dinput, semakin kecil angka yang diinput, maka gambar yang di threshold semakin buram, dan semakin besar angka yang diinput, maka gambar yang dithreshold semakin pudar. Kemudian klik pada tombol ThresHold, maka gambar yang ditampilkan tidak skaligus ditampilkan, ada proses berjalan. Seperti gambar dibawah ini:

12

Gambar 3. 19 Output ThresHold (2) -

Kemudian setelah mnunggu beberapa saat, maka gambar yang ditampilkan akan sempurna seperti pada gambar dibawah ini:


Dan ketika diklik pada kolom Exit maka akan keluar dari tampilan output tersebut.

13

3.5 Percobaan (Vbnet) 3.5.1 Percobaan 1(Mengubah Citra Berwarna Menjadi Gray-Scale)

-

Buka software VBNet, seperti pada gambar dibawah ini:

Gambar 3. 21 Icon ketika membuka software VBnet -

Setelah terbuka, pilih new project untuk membuat projek baru pada halaman utama, seperti yang terlihat pada gambar dibawah ini:

Gambar 3. 22 Halaman VBnet untuk membuat project baru -

Kemudian pilih pilihan pertama, dan buat nama sesuai keinginan, lalu klik OK seperti gambar dibawah ini:

14

Gambar 3. 23 Halaman VBnet untuk membuat nama project

-

Kemudian akan muncul form baru seperti gambar berikut:

Form Baru

Gambar 3. 24 Halaman Form baru

-

Kemudian design form tersebut sehingga menjadi seperti gambar dibawah ini:

15

PictureBox

Button

Gambar 3. 25 Form yang sudah di di design

-


Komponen

Properties

Nilai

Label1

Text

Citra asli

Label2

Text

Hasil RGB to GrayScale

PictureBox1

Image


PictureBox2

Image

-

Button1

Text

ThresHold

Button2

Text

Exit

Tabel 3.3 Tabel Komponen pada design form GrayScale

-

Kemudian masukkan gambar ke dalam picturebox1 sesuai dengan keinginan, dengan cara pilih kolom Image pada jendela properties yang terdapat pada halaman Vbnet, kemudian akan tampil jendela select resource, klik pada kolom import untuk memilih gmbar pada folder seperti pada gambar dibawah ini:

16

Gambar 3. 26 Cara untuk memasukkan gabar ke dalam PictureBox1 -

Maka akan jadi seperti gambar dibawah ini:

Gambar 3. 27 Form yang sudah dimasukkan gambar

-

Kemudian ketik program dibawah ini untuk menampilkan gambar grayScale dengan cara double click pada kolom Ubah ke GrayScale seperti gambar dibawah ini:

17

Gambar 3. 28 Kode program pada button 1 -

Kemudian ketik program juga pada button 2 agar kolom tersebut berfungsi untuk keluar dari output yang dirun, berikut adalah programnya:

Gambar 3. 29 Kode program pada button2 -

Kemudian run program dengan cara tekan f5 atau bisa juga run toolbar VBnet dan outputnya adalah:

Gambar 3. 30 Output untuk GrayScale (1) -

Untuk mengubah Citra asli ke Gray, klik pada tombol Ubah ke GrayScale maka hasilnya akan tampil seperti gambar dibawah ini:

18

Gambar 3. 31 Output untuk GrayScale (2) -

Dan ketika diklik pada tombol Exit maka akan keluar dari tampilan otput ters ebut

3.5.2 Percobaan 2 (ThresHolding)

-

Buat project baru dengan pilih file, new file pada sudut atas sebelah kiri halaman Vbnet, seperti gambar dibawah ini:

Gambar 3. 32 Cara untuk membuat project baru 19

- Kemudian pilih pilihan pertama, dan buat nama sesuai keinginan, lalu klik OK seperti gambar dibawah ini:

Gambar 3. 33 Halaman VBnet untuk membuat nama project - Kemudian akan muncul form baru seperti gambar berikut:

Gambar 3. 34 Form baru - Kemudian design form tersebut sehingga menjadi seperti gambar dibawah ini:

20

TextBox

PictureBox

Button

Gambar 3. 35 Form yang sudah didesign

-


Komponen

Properties

Nilai

PictureBox1

Image


PictureBox2

Image

-

TextBox1

-

-

Button1

Text

ThresHold

Button2

Text

Exit

Tabel 3.4 Tabel Komponen pada design form ThresHold

-

Kemudian masukkan gambar ke dalam picturebox1 sesuai dengan keinginan, dengan cara pilih kolom Image pada jendela properties yang terdapat pada halaman Vbnet, kemudian akan tampil jendela select resource, klik pada kolom import untuk memilih gambar pada folder seperti pada gambar dibawah ini:

21

Gambar 3. 36 Halaman untuk memasukkan gambar pada picture box1 -


Gambar 3. 37 Form yang sudah dimasukkan gambar

-


22

Gambar 3. 38 Kode Program pada button 1 -

Kemudian ketikkan program dibawah ini pada commandbutton2 atau tepatnya pada kolom Exit, yaitu ketika diklik button exit tersebut maka akan keluar dari pr ogram tersebut dengan cara double click pada button2:


Kemudian run program dengan cara klik f5 maka outputnya adalah:


Isikan angka pada textbox yang tersedia untuk mengubah gambar sesuai angka yang dinput, semakin kecil angka yang diinput, maka gambar yang di threshold semakin buram, dan semakin besar angka yang diinput, maka gambar yang dithreshold 23

semakin pudar. Kemudian klik pada tombol ThresHold, maka gambar yang ditampilkan seperti gambar dibawah ini:


Dan ketika diklik pada kolom Exiti maka akan keluar dari tampilan output tersebut.

3.6 TUGAS dan LATIHAN

1. Sebutkan proses utama pada proses konversi citra berwarna menjadi citra grayscale. Perbedaan antara pemakaian rumus rata-rata s = (r + g + b) / 3 dan rumus RGB optimal x = 0.42r + 0.32g + 0.28b . Jawab :

Proses utama yang dilakukan adalah : 1)menyederhanakan model citra. 2)mencari nilai rata-rata grey-scale dari setiap layer r, g, dan b.3) nilai rata-rata yang mengeset warna pada citra. 4)Untuk membuat citra grayScale dengan persentase tertentu dapat menggunakan persamaan x = 0.42r + 0.32g + 0.28b . 5) masukkan nilai a=256/y. 6)carilah nilai a. 7)masukkan nilai a kedalam persamaan x = a*(x/a). 8) Hasil x yang akan mengeset gambar pada citra. Perbedaannya adalah : pada rumus rata-rata, citra GrayScale yang dihasilkan sempurna berwarna abu-abu, hitam dan putih. Sedangkan pada rumus RGB optimal, yang dihasilkan tergantung pada nilai a 2. Ubahlah program konversi citra berwarna menjadi citra gray scale di atas dengan mengubah nilai gray scale dengan menggunakan VB Net dengan : x = 0.5r + 0.2g + 0.3b 24

x = 0.2r + 0.5g + 0.3b x = 0.2r + 0.2g + 0.5b x = 0.5r + 0.5g + 0b x = 0.5r + 0g + 0.5b Jawab : Langkah kerja

-

Buka software VBNet, seperti pada gambar dibawah ini:

Gambar 3. 42 Halaman VBnet ketika loading dibuka -

Setelah terbuka, pilih new project untuk membuat projek baru pada halaman utama, seperti yang terlihat pada gambar dibawah ini:

Gambar 3. 43 Halaman untuk membuat project baru -


25

Gambar 3. 44 Halaman untuk memberi nama project -


Gambar 3. 45 Form baru

-

Kemudian design form dan masukkan gambar ke dalam picturebox1 sesuai dengan keinginan, dengan cara pilih kolom Image pada jendela properties yang terdapat pada halaman Vbnet, kemudian akan tampil jendela select resource, klik pada kolom

26

import untuk memilih gambar pada folder, setelah itu klik pada tombol OK, seperti pada gambar dibawah ini:

Gambar 3. 46 halamn untuk memasukkan gambar -

maka gambar akan tampil pada pictureBox1 seperti pada tampilan dibawah ini:

Gambar 3. 47 Form yang sudah didesign -


Komponen

Properties

Nilai

Label1

Text

Citra asli

Label2

Text

Hasil RGB to GrayScale

PictureBox1

Image


27

PictureBox2

Image

-

PictureBox3

Image

-

PictureBox4

Image

-

PictureBox5

Image

-

PictureBox6

Image

-

Button1

Text

Ubah ke GreyScale

Button2

Text

Exit

Tabel 3.5 Tabel Komponen pada design form GrayScale

-

Kemudian ketik program dibawah ini untuk menampilkan gambar grayScale dengan cara double click pada kolom Ubah ke GrayScale seperti gambar dibawah ini:


Kemudian ketik program juga pada button 2 agar kolom tersebut berfungsi untuk keluar dari output yang dirun, berikut adalah programnya:

Gambar 3. 49 Kode program pada button2

28

-

Kemudian run program dengan cara tekan f5 atau bisa juga run toolbar VBnet dan outputnya adalah:

Gambar 3. 50 Output GrayScale (1)

-

Untuk mengubah Citra asli ke Gray, klik pada tombol Ubah ke GrayScale maka hasilnya akan tampil seperti gambar dibawah ini:

Gambar 3. 51 Output GrayScale (2)

-

Dan ketika diklik pada tombol Exit maka akan keluar dari tampilan otput tersebut

29

3. Buatlah program Menggunakan VB net menggunakan dialog box untuk mengubahubah nilai thresholding melalui slider, dan memperhatikan hasilnya. Jawab :

-

Buat project baru dengan pilih file, new file pada sudut atas sebelah kiri halaman Vbnet, seperti gambar dibawah ini:

Gambar 3. 52 Cara untuk membuat Project baru

-


30

Gambar 3. 53 Halaman untuk memberi nama project -


Gambar 3. 54 Form baru

-

Kemudian design form tersebut sehingga menjadi seperti gambar dibawah ini:

31

Gambar 3. 55 Form yang sudah didesign

-


Komponen

Properties

Nilai

PictureBox1

Image


PictureBox2

Image

-

TrackBar1

-

-

TextBox1

-

-

Button1

Text

ThresHold

Button2

Text

Exit

Tabel 3.6 Tabel Komponen pada design form Capture Gambar

-

Kemudian masukkan gambar ke dalam picturebox1 sesuai dengan keinginan, dengan cara pilih kolom Image pada jendela properties yang terdapat pada halaman Vbnet, kemudian akan tampil jendela select resource, klik pada kolom import untuk memilih gmbar pada folder seperti pada gambar dibawah ini:

32

Gambar 3. 56 Halaman untuk memasukkan gambar -


Gambar 3. 57 Form yang sudah dimasukkan gambar -


33




Kemudian ketikkan program pada TrackBar1 agar ketika di slider maka nilanya kan keluar pada textbox dengan cara double click pada TrackBar1 s eperti gambar dibawah ini:

Gambar 3. 60 Kode program pada TrackBar1

-

Kemudian run program dengan cara tekan f5 pada keyboard maka outputnya adalah:

34

Gambar 3. 61 Output Untuk ThresHold (1) -

Slide trackbar sesuai dengan nilai yang anda inginkan dan akan muncul pada textbox untuk mengubah gambar sesuai angka yang dislide, semakin kecil angka yang diinput, maka gambar yang di threshold semakin buram, dan semakin besar angka yang diinput, maka gambar yang dithreshold semakin pudar seperti pada gambar dibawah ini:

Gambar 3. 62 Output ThresHold yang sudah dislider nilai (2)

35

-

Kemudian klik pada tombol ThresHold, maka gambar yang ditampilkan seperti gambar dibawah ini:

Gambar 3. 63 Output ThresHold (3)

-

Dan ketika diklik pada kolom Exit maka akan keluar dari tampilan output tersebut.

4. Jelaskan Pengertian dari thresholding, dan prosesnya

Jawab:

ThresHolding adalah proses mengubah citra berderajat keabuan menjadi citra biner atau hitam putih sehingga dapat diketahui daerah mana yang terdapat obyek dan background dari citra secara jelas. Proses threshold dilakukan dengan memeriksa nilai derajat keabuan pada citra. Jika nilai derajat keabuan kurang dari nilai threshold maka warna piksel berubah menjadi hitam, begitu juga sebaliknya jika piksel lebih dari nilai threshold maka warna piksel akan berubah menjadi putih

36

3.7 Hasil percobaan 3.7.1 Program Program VB 6.0 (Mengubah Citra Berwarna Menjadi Gray-Scale)

Private Sub Command1_Click() For i = 1 To Picture1.Width Step 15 For j = 1 To Picture2.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) x = (r + g + b) / 3 Picture2.PSet (i, j), RGB(x, x, x) Next j Next i

Private Sub Command2_Click() Unload Me End Sub

37

Program VB 6.0 ( ThresHolding) Private Sub Command1_Click() For i = 1 To Picture1.Width Step 15 For j = 1 To Picture2.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) x = (0.42 * r + 0.32 * g + 0.28 * b) y = Text1 a = Int(256 / y) x = a * Int(x / a) Picture2.PSet (i, j), RGB(x, x, x) Next j Next i End Sub

Program VBnet (Mengubah Citra Berwarna Menjadi Gray-Scale) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pic = New Bitmap(PictureBox1.Image) PictureBox2.Image = pic Dim i, j As Integer Dim Red, Green, Blue, x As Integer For i = 0 To pic.Width - 1 For j = 0 To pic.Height - 1 Red = pic.GetPixel(i, j).R Green = pic.GetPixel(i, j).G Blue = pic.GetPixel(i, j).B x = (Red + Green + Blue) / 3 pic.SetPixel(i, j, Color.FromArgb(x, x, x)) Next Next End Sub

38

Program VBnet ( ThresHolding) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pic = New Bitmap(PictureBox1.Image) PictureBox2.Image = pic Dim i, j As Integer Dim red, Green, Blue As Integer Dim c, a, y As Integer Dim tx As Integer For i = 0 To pic.Width - 1 For j = 0 To pic.Height - 1 tx = TextBox1.Text red = pic.GetPixel(i, j).R Green = pic.GetPixel(i, j).G Blue = pic.GetPixel(i, j).B c = (0.4 * red + 0.3 * Green + 0.2 * Blue) a = Int(256 / tx) y = a * Int(c / a) pic.SetPixel(i, j, Color.FromArgb(y, y, y)) Next Next End Sub

39

Program VBnet ( Tugas no.2 GrayScale) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pic1 = New Bitmap(PictureBox1.Image) PictureBox2.Image = pic1 PictureBox3.Image = pic1 PictureBox4.Image = pic1 PictureBox5.Image = pic1 PictureBox6.Image = pic1 Dim Dim Dim For

i, j As Integer r, g, b, x As Integer x1, x2, x3, x4, x5 As Integer i = 0 To pic1.Width - 1 For j = 0 To pic1.Height - 1 r = pic1.GetPixel(i, j).R g = pic1.GetPixel(i, j).G b = pic1.GetPixel(i, j).B

x1 = 0.5 * r + 0.2 * g + 0.3 * b pic1.SetPixel(i, j, Color.FromArgb(x1, x2 = 0.2 * r + 0.5 * g + 0.3 * b pic1.SetPixel(i, j, Color.FromArgb(x2, x3 = 0.2 * r + 0.2 * g + 0.5 * b pic1.SetPixel(i, j, Color.FromArgb(x3, x4 = 0.5 * r + 0.5 * g + 0 * b pic1.SetPixel(i, j, Color.FromArgb(x4, x5 = 0.5 * r + 0 * g + 0.5 * b pic1.SetPixel(i, j, Color.FromArgb(x5, Next Next End Sub

x1, x1)) x2, x2)) x3, x3)) x4, x4)) x5, x5))

Program VBnet ( Tugas no.3 ThresHolding) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim bm As New Bitmap(PictureBox1.Image) Dim i, j, x, a, y As Integer y = TextBox1.Text For i = 0 To bm.Width - 1 For j = 0 To bm.Height - 1 Dim warna = bm.GetPixel(i, j) Dim r = warna.R Dim g = CInt(warna.G) \ 256 Dim b = CInt(CInt(warna.B) \ 256) \ 256 x = (0.42 * r + 0.32 * g + 0.28 * b) a = CInt(256 / y) bm.SetPixel(i, j, Color.FromArgb(x, x, x)) Next Next PictureBox2.Image = bm End Sub 40

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll TextBox1.Text = TrackBar1.value() End Sub

Note: Untuk program pada Button2 atau pada kolom Exit semuanya sama

3.7.2 Output Program VB 6.0 (Mengubah Citra Berwarna Menjadi Gray-Scale)

Gambar 3. 64 Output untuk GrayScale

Program VB 6.0 ( ThresHolding)

Gambar 3. 65 Output untuk ThresHolding

41

Program VBnet (Mengubah Citra Berwarna Menjadi Gray-Scale)

Gambar 3. 66 Output untuk GrayScale pada VB net Program VBnet ( ThresHolding)

Gambar 3. 67 Output untuk ThresHolding pada VBnet Program VBnet ( GrayScale)

Gambar 3. 68 Output GrayScale pada VBnet

42

Program VBnet ( ThresHolding Slider)

Gambar 3. 69 Output ThresHolding Slider pada VBnet

3.8 ANALISA 3.8.1 Analisa per baris 

Program GrayScale pada VB 6.0



For i = 1 To Picture1.Width Step 15 perulangan for i =1 sampai ukuran

lebar picture1 dan step 15 digunakan untuk menentukan perubahan nilai width dan height pada form dengan setiap pengulangannya bernilai 15 

For j = 1 To Picture2.Height Step 15 perulangan for j =1 sampai ukuran

tinggi picture2 dan step 15 digunakan untuk menentukan perubahan nilai width dan height pada form dengan setiap pengulangannya bernilai 15 

warna

=

Picture1.Point(i,

j) digunakan mengambil point pada warna

picture1 yaitu diambil pada nilai i dan j 

r = warna And RGB(255, 0, 0) nilai r(red) dengan nilai RGB(255,0,0)



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

RGB(0,255,0) dibagi 256 karena nilai RGB 0-256 

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

dengan nilai RGB(0 ,0, 255) dibagi 256 

x = (r + g + b) / 3 untuk mencari nilai x nilai r+g+b dibagi 3

43



Picture2.PSet (i, j), RGB(x, x, x) pada picture2 disetting nilai i,j,

RGB(x,x,x) 

Next j untuk melanjutkan perulangan for j



Next i untuk melanjutkan perulangan for i



Program ThresHold pada VB 6.0



For i = 1 To Picture1.Width Step 15 perulangan for i =1 sampai ukuran

lebar picture1 dan step 15 digunakan untuk menentukan perubahan nilai width dan height pada form dengan setiap pengulangannya bernilai 15 

For j = 1 To Picture2.Height Step 15 perulangan for j =1 sampai ukuran

tinggi picture2 dan step 15 digunakan untuk menentukan perubahan nilai width dan height pada form dengan setiap pengulangannya bernilai 15 

warna = Picture1.Point(i, j) digunakan mengambil point pada warna

picture1 yaitu diambil pada nilai i dan j 

r = warna And RGB(255, 0, 0) nilai r(red) dengan nilai RGB(255,0,0)



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

RGB(0,255,0) dibagi 256 karena nilai RGB 0-256 

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

dengan nilai RGB(0 ,0, 255) dibagi 256 

x = (0.42 * r + 0.32 * g + 0.28 * b) untuk mencari nilai x nilai r+g+b



y = Text1 untuk mencari nilai y adalah tex1



a = Int(256 / y) untuk mencari nilai a = 256 dibagi nilai y



x = a * Int(x / a) untuk mencari nilai x, nilai a dikali hasil dari ( x dibagi a)



Picture2.PSet (i, j), RGB(x, x, x) pada picture2 disetting nilai i,j,

RGB(x,x,x) 

Next j untuk melanjutkan perulangan for j



Next i untuk melanjutkan perulangan for i



Program GrayScale pada VB net



Dim pic = New Bitmap(PictureBox1.Image) kata kunci pic = buat variable

baru(PictureBox1) 

PictureBox2.Image = pic pada PictureBox2 diset Image = pic 44



Dim i, j As Integer variable i, j bernilai integer



Dim Red, Green, Blue, x As Integer variable red, green, blue dan x

bernilai integer 

For i = 0 To pic.Width – 1 perulangan i = 0 sampai lebar gambar bernilai -1



For j = 0 To pic.Height – 1 perulangan j = 0 sampai lebar gambar bernilai -

1 

Red = pic.GetPixel(i, j).R red= menampilkan pixel yang diambil dari nilai

i,j 

Green = pic.GetPixel(i, j).G green= menampilkan pixel yang diambil dari

nilai i,j 

Blue = pic.GetPixel(i, j).B blue= menampilkan pixel yang diambil dari

nilai i,j 

x = (Red + Green + Blue) / 3 nilai x = nilai red+green+blue dibagi 3



pic.SetPixel(i, j, Color.FromArgb(x, x, x)) picture disetting pixel i,j,

color dari rgb bernilai x 

Next digunakan untuk melanjutkan perulangan for



Program ThresHold pada VB net



Dim pic = New Bitmap(PictureBox1.Image) kata kunci pic = buat variable

baru(PictureBox1 diset image) 

PictureBox2.Image = pic pada PictureBox2 diset Image = pic






Dim red, Green, Blue As Integer variable red, green, blue dan x bernilai

integer 

Dim c, a, y As Integer variable c, a, y bernilai integer



Dim tx As Integer variabel tx bernilai integer



For i = 0 To pic.Width – 1 perulangan i = 0 sampai lebar gambar bernilai -1



For j = 0 To pic.Height – 1 perulangan j = 0 sampai lebar gambar bernilai -

1 

tx = TextBox1.Text untuk nilai tx = TextBox1 diset Text



red = pic.GetPixel(i, j).R red= menampilkan pixel yang diambil dari nilai

i,j

45



Green = pic.GetPixel(i, j).G green= menampilkan pixel yang diambil dari

nilai i,j 

Blue = pic.GetPixel(i, j).B blue= menampilkan pixel yang diambil dari

nilai i,j 

c = (0.4 * red + 0.3 * Green + 0.2 * Blue) untuk mencari nilai x nilai

r+g+b 

a = Int(256 / tx) untuk mencari nilai a, nilai 256 / nilai tx



y = a * Int(c / a) untuk mencari nilai y, nilai a dikali dengan hasil bagi c dan a



pic.SetPixel(i, j, Color.FromArgb(y, y, y)) picture disetting pixel i,j,

color dari rgb bernilai x 




Program Tugas no.2 pada VB net



Dim pic1 = New Bitmap(PictureBox1.Image) kata kunci pic = buat variable


PictureBox2.Image = pic1 pada picturebox2 diset image dengan picture1


















Dim r, g, b, x As Integer variable r, g, b, x bernilai integer



Dim x1, x2, x3, x4, x5 As Integer variable x1, x2, x3, x4, x5 bernilai

integer 

For i = 0 To pic1.Width – 1 perulangan i = 0 sampai lebar gambar bernilai -

1 

For j = 0 To pic1.Height – 1 perulangan j = 0 sampai lebar gambar bernilai

-1 

r = pic1.GetPixel(i, j).R r=

diambil picture1 menampilkan pixel yang

diambil dari nilai i,j 

g = pic1.GetPixel(i, j).G g=

diambil dari nilai i,j

46




b = pic1.GetPixel(i, j).B b=


diambil dari nilai i,j 

x1 = 0.5 * r + 0.2 * g + 0.3 * b untuk mencari nilai x1 = nilai rgb

ditambah 

pic1.SetPixel(i,

j,

Color.FromArgb(x1,

x1,

x1)) pada picture1

ditampilkan pixel dengan nilai i,j yang nilai rgb adalah x1 


ditambah 

pic1.SetPixel(i,

j,

Color.FromArgb(x2,

x2,

x2)) pada picture1



ditambah 

pic1.SetPixel(i,

j,

Color.FromArgb(x3,

x3,

x3)) pada picture1


x4 = 0.5 * r + 0.5 * g + 0 * b untuk mencari nilai x4 = nilai rgb ditambah



pic1.SetPixel(i,

j,

Color.FromArgb(x4,

x4,

x4)) pada picture1


x5 = 0.5 * r + 0 * g + 0.5 * b untuk mencari nilai x5 = nilai rgb ditambah



pic1.SetPixel(i,

j,

Color.FromArgb(x5,

x5,

x5)) pada picture1





Program Tugas no.3 pada VB net Button1



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click sub awal dari button1



Dim bm As New Bitmap(PictureBox1.Image) kata kunci pic = buat variable


Dim i, j, x, a, y As Integer variable i, j, x, a, y bernilai integer



y = TextBox1.Text untuk nilai y = TextBox1 diset Text



For i = 0 To bm.Width – 1 perulangan i = 0 sampai lebar bm bernilai -1



For j = 0 To bm.Height – 1 perulangan j = 0 sampai lebar bm bernilai -1

47



Dim warna = bm.GetPixel(i, j) pada warna ditampilkan pixel bernilai i,j



Dim r = warna.R untuk r = diambil nilai dari warna



Dim g = CInt(warna.G) \ 256 untuk g = diambil nilai dari warna dibagi 256

bernilai integer 

Dim b = CInt(CInt(warna.B) \ 256) \ 256 diambil nilai dari warna dibagi

256 dibagi 256 bernilai integer 

x = (0.42 * r + 0.32 * g + 0.28 * b) untuk mencari nilai x = nilai rgb

ditambah 

a = CInt(256 / y) untuk mencari nilai a = nilai 256 / nilai y



bm.SetPixel(i, j, Color.FromArgb(x, x, x)) pada bm diset pixel i,j

yang dimbil warna rgb =x 




PictureBox2.Image = bm pada picturebox2 diset image



End Sub digunakan untuk mengakhiri sub program dari button1

TrackBar1 

Private

Sub

TrackBar1_Scroll(ByVal

sender

As

System.Object,

ByVal e As System.EventArgs) Handles TrackBar1.Scroll merupakan

awal sub dari TrackBar1 yang bisa discroll 

TextBox1.Text = TrackBar1.value() pada TextBox1 diset text yang diambil

dari nilai TrackBar1 

End Sub digunakan untuk mengakhiri sub program dari button1

3.8.2 Analisa per sistem Program VB 6.0 (Mengubah Citra Berwarna Menjadi Gray-Scale)

Berdasarkan dari hasil output program diatas, apabila diklik pada kolom button Ubah ke GrayScale maka akan tampil gambar grayScale berdasarkan gambar berwarna yang ada pada picture box1

48

Program VB 6.0 ( ThresHolding)

Berdasarkan dari hasil output program diatas, pada textBox harus diisi nilai terlebih dahulu agar ketika diThresHold akan sesuai dengan tingkat derajat keburaman yang kita inginkan Program VBnet (Mengubah Citra Berwarna Menjadi Gray-Scale)

Berdasarkan dari hasil output program diatas, sama dengan output pada VB 6.0 Program VBnet ( ThresHolding)

Berdasarkan dari hasil output program diatas, sama dengan output pada VB 6.0 Program VBnet ( GrayScale)

Berdasarkan dari hasil output program diatas, Berdasarkan dari hasil output program diatas, Tingkat keburaman atau keabuan dari semua picture itu beda-beda Program VBnet ( ThresHolding Slider)

Berdasarkan dari hasil output program diatas, ketika dislider, maka akan tampil nilai pada textbox dan diThresHold sesuai dengan nilai yang dislider tadi

3.9 KESIMPULAN

Dari Praktikum diatas dapat disimpulkan bahwa : 

Citra berwarna terdiri dari 3 layer matrik yaitu R-Layer, G-Layer, B-Layer.



GrayScale digunakan untuk merubah citra berwarna RGB menjadi citra keabu-abuan.



ThresHolding digunakan untuk mengatur jumlah derajat keabuan yang ada pada citra. Dengan menggunakan ThresHolding maka derajat keabuan bisa diubah sesuai keinginan.



Untuk memasukkan nilai sesuai keinginan tanpa harus diinput pada TextBox, kita hanya perlu menggunakan TrackBar pada VBnet



Pada Trackbar kita juga perlu memasukkan kode program agar slider tersebut dapat berfungsi

49

Laporan CITRA

Recommend Documents