< prev

Page 1Page 2Page 3Page 4Page 5Page 6Page 7Page 8Page 9Page 10

Page 6 of 10
next >

Majalah Ilmiah UNIKOM

Vol.9, No. 1

76

H a l a m a n

3. Proses capture

Perintah untuk meng-capture citra

yang telah tertangkap oleh webcam,

adalah sebagai berikut:

rgb = getsnapshot(vidobj);

figure, imshow(rgb);

Gambar 3

Objek gambar hasil capture

4. Proses pembuat an citra kedalam

citra hasil segmentasi

Perintah untuk melakukan proses

pembuatan citra kedalam citra

hasil segmentasi, adalah sebagai

berikut:

I = rgb2gray(rgb);

background = imclose(I,strel

(

'disk'

,15));

I2 = imsubtract(background,I);

BW = im2bw(I2,graythresh(I2));

BW = bwareaopen(BW, 20);

fill = imfill(BW,

'holes'

);

figure, imshow(fill);

Gambar 4

Objek gambar hasil segmentasi citra

5. Proses graythresh

Perintah untuk melakukan proses

Graythresh, adalah sebagai berikut:

figure = thresh_tool(I2);

BW = im2bw(I2,level/255);

BW = bwareaopen(BW, 20);

fill = imfill(BW,

'holes'

);

figure, imshow(fill);

Gambar 5

Objek gambar hasil graythresh

6. Proses analisis tekstur dan

identifikasi objek

Perintah untuk melakukan proses

analisis tekstur dan identifikasi

objek dapat dilakukan sebagai

berikut:

[

statsDefects,stats] =

getStatsOnDefects(BW);

figure; imshow(rgb);

hold

on

;

for

idx = 1 : length(statsDefects)

h = rectangle(

'Position'

, statsDefects

(idx).BoundingBox,

...

'LineWidth'

, 2);

set(h,

'EdgeColor'

,[.75 0 0]);hold

on

end

hold

off

;

Gambar 6

Gambar hasil proses analisis dan

identifikasi

objek

7. Proses membersihkan kembali

tampilan

Perintah untuk melakukan proses

membersikan kembali tampilan

adalah sebagai berikut:

delete(vidobj);

clear

vidobj

;

clear

all

;

close

all

;

Jana Utama,ST.