Kindle ZANIAR - Viaggio verso l?Anima della Terra (Italian Edition)

D. R. Fifin - Pengenalan pola citra leukosit
135
exit;
end;
if ((xL= xR) or (yT = yB)) then
begin
xL:= 0;
yT := 0;
xR := Form4.Image1.Picture.Width-1;
yB := Form4.Image1.Picture.Height-1;
end;
if (Form4=nil) then
Form4.Image2.Picture.Bitmap :=
Form4.Image1.Picture.Bitmap;
Form4.Image2.Top := (Form4.Image1.Top+5);
Form4.Image2.Left:=
(Form4.Image1.Left+5)+Form4.Image1.Width;
Olah;
Sedangkan kode program perhitungan nilai area,
perimeter dan euler number adalah sebagi berikut:
for kol := 0 to Form4.Image2.Picture.Bitmap.Height-1 do
begin
kol1:=kol+1;
for brs := 0 to Form4.Image2.Picture.Bitmap.Width-1 do
brs1:=brs;
area:=brs1*kol1;
for kol := 0 to form4.Image2.Picture.Bitmap.Height-1 do
begin
for brs := 0 to Image2.Picture.Bitmap.Width-1 do
begin
g := GetgValue(color);
b := GetbValue(color);
r := GetRValue(color);
if (r<>255) and (g<>255) and(b<>255) then
begin
perimeter:=( brs*kol);
end;
putih:=area-perimeter;
euler:=perimeter-putih;
Obyek Referensi
Citra Leukosit yang diambil dalam penelitian ini
adalah sebanyak 60 citra sebagai citra referensi. Area
citra dalam penelitian ini adalah 400 piksel. Jenis citra
Leukosit mempunyai nilai perimeter dan euler number
yang berbeda-beda. Nilai perimeter menunjukkan
banyaknnya piksel citra jenis Leukosit. Sedangkan euler
number menunjukkan banyaknya piksel yang bukan citra
dikurangi dengan banyaknya piksel citra.
Jenis Leukosit dapat diekstraksi fiturnya
berdasarkan ciri bentuknya. Ciri-ciri bentuk citra Leukosit
dapat dilihat berdasarkan range perimeter dan euler
numbernya.
Range data perhitungan pada Tabel 1 merupakan
range hasil perhitungan dari 60 citra Leukosit dan
berfungsi sebagai data referensi untuk proses identifikasi
dan klasifikasi Leukosit. Sedangkan, contoh data
perhitungan pada Gambar 2 merupakan hasil implementasi
subsistem pakar dalam database.
Tabel 2. Contoh data perhitungan citra sel darah putih
Jenis Area perimeter Euler
Basofil 400 14 372
Basofil 400 42 316
Basofil 400 51 298
Basofil 400 54 292
Basofil 400 67 266
Eosinofil 400 99 202
Eosinofil 400 102 196
Eosinofil 400 107 186
Eosinofil 400 114 172
Eosinofil 400 121 158
Limfosit 400 135 130
Limfosit 400 140 120
Limfosit 400 142 116
Limfosit 400 142 116
Limfosit 400 148 104
Monosit 400 156 88
Monosit 400 157 86
Monosit 400 168 64
Monosit 400 171 58
Monosit 400 178 44
Neutrofil 400 204 8
Neutrofil 400 213 26
Neutrofil 400 216 32
Neutrofil 400 228 56
Neutrofil 400 229 58
Hasil data perhitungan pada Tabel 2 digunakan
sebagai data referensi yang akan berfungsi untuk
memberikan informasi kepada pengguna tentang jenis
Leukosit yang akan diuji. Jenis Leukosit yang akan diuji
menggunakan implementasi subsistem pengguna
( users).
Tabel 1. Range data perhitungan ciri citra Leukosit.
Gambar 2. Tampilan data perhitungan citra Leukosit
pada database