Senin, 02 Maret 2020

Tutorial


TUTORIAL THRESHOLDING CITRA DIGITAL
(PROGRAM MATLAB)

Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya didasarkan pada perbedaan derajat keabuan citra.

Berikut Ini adalah tatacara pembuatan Thresholding citra digital menggunakan program matlab.
1.      Langkah awal dengan cara pilih menu home, pilih menu New kemudian pilih Graphical User Interface. Setelah muncul kita pilih Creat New GUI pilih black GUI(Default) Kemudian Klik OK.

Gambar 1

2.      Langkah Kedua kita membuat desain tampilan yang kita inginkan, atau bisa mengikuti gambar berikut.

Gambar 2



Berikut yang perlu diubah dalam komponen komponen yang tersedia di gambar 2.

No.
Nama Komponen
Property
Nilai
1
Pushbutton
String
Open Image


Tag
Pushbutton1
2
Pushbutton
String
Grayscale


Tag
Pushbutton2
3
Pushbutton
String
Save


Tag
Pushbutton3
4
Slider
Min
0


Max
255.0
5
Edit Text
String
<Kosongkan>

Setelah semua komponen telah di ubah menurut perintah dalam table diatas. Tekan Ctrl+S untuk menyimpan projek komponen yang telah di buat. Setelah itu muncul coding yang harus di isi agar program yang dibuat berjalan dengan baik.

Setelah Muncul banyak tulisan carilah bagian pushbutton1 untuk mengisi perintah atau tugas dalam komponen tersebut. Berikut Code Yang harus dimasukan:

function pushbutton1_Callback(hObject, eventdata, handles)
[name_file1,name_path1] = uigetfile (.....
    {'*.bmp;*.jpg;*.tif','files of type (*.bmp,*.jpg,*.tif)';
    '*.bmp','file Bitmap (,.bmp)';..........
    '*.jpg','file jpeg (*.jpg)';
    '*.tif','file Tif (*.tif)';
    '*.*','All files (*.*)'},.....
    'Open Image');

if ~isequal (name_file1,0)
    handles.data1 = imread (fullfile(name_path1,name_file1));
    guidata(hObject,handles);
    axes(handles.axes1);
    imshow(handles.data1);
else
    return;
end



Setelah Mengubah Komponen pushbutton1. Lanjut Mengubah atau mengisi komponen pushbutton yang ke 2 yang memerintahkan merubah gambar atau Grayscale.
function pushbutton2_Callback(hObject, eventdata, handles)
image1 = handles.data1;
gray = rgb2gray (image1);
axes (handles.axes2);
imshow (gray);
handles.data2 = gray;
guidata (hObject,handles);

Berikutnya lanjut ke bagian komponen slinder1_callback.
function slider1_Callback(hObject, eventdata, handles)
gray = handles.data2;
value = get(handles.slider1,'value');
thresh=imcomplement(im2bw(gray,value/255));
axes(handles.axes2);
imshow(thresh);
handles.data3=thresh;
guidata(hObject,handles);
set(handles.edit1,'string',value)

Selanjutnya isi bagian pushbutton3. Yang merintahkan komponen untuk menyimpan data yang telah diubah ke dalam folder.
function pushbutton3_Callback(hObject, eventdata, handles)
thresh=handles.data3;
[name_file_save,path_save] = uiputfile (...
    {'*.bmp','file bitmap (*.bmp)';...
    '*.jpg','file jpeg (*.jpg)';
    '*.tif','file Tif (*.tif)';
    '*.*','All Files (*.*)'},...
    'SAVE IMAGE');

if ~isequal (name_file_save,0)
   imwrite(thresh,fullfile(path_save,name_file_save));
else
    return;
end




Setelah semua komponen telah diubah atau diberi code untuk memerintahkan tugasnya masing masing berikut adalah hasil gambar yang telah berfungsi dalam matlab tersebut.

 Gambar 3

Selasa, 12 Desember 2017

TUGAS 3.7 PT. PULANG PETANG SETIAP HARI



Private Sub cmdbatal_Click()
txtnama = ""
txtnik = ""
txtgolongan = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgaji = ""
txttunjangan = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnik = ""
txtgolongan = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgaji = ""
txttunjangan = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttahun = Left(txtnik, 4)
S = Mid(txtnik, 5, 1)
If S = "A" Then
txtgolongan = "A"
txtjabatan = "Manajer"
txtgaji = "4000000"
txttunjangan = "1025000"
ElseIf S = "B" Then
txtgolongan = "B"
txtjabatan = "Ka. Seksi"
txtgaji = "3500000"
txttunjangan = "975000"
ElseIf S = "C" Then
txtgolongan = "C"
txtjabatan = "Staff"
txtgaji = "3000000"
txttunjangan = "925000"
End If
S = Mid(txtnik, 7, 1)
If S = "S" Then
txtkode = "S"
txtstatus = "Single"
ElseIf S = "M" Then
txtkode = "M"
txtstatus = "Menikah"
ElseIf S = "J" Then
txtkode = "J"
txtstatus = "Janda"
ElseIf S = "D" Then
txtkode = "D"
txtstatus = "Duda"
End If
S = Right(txtnik, 3)
If S = "KEU" Then
txtbagian = "Accounting"
ElseIf S = "ADM" Then
txtbagian = "Administrasi"
ElseIf S = "SDM" Then
txtbagian = "General Affair"
ElseIf S = "EDP" Then
txtbagian = "IT Unit"
ElseIf S = "SPM" Then
txtbagian = "Security"
End If
txttotal = Val(txtgaji) + Val(txttunjangan)
End Sub

TUGAS 3.6 DATA BUKU STMIK PRINGSEWU



Private Sub cmdbatal_Click()
TXTKODE = ""
TXTJUDUL = ""
TXTPENGARANG = ""
TXTTAHUN = ""
TXTTERBIT = ""
TXTHARGA = ""
TXTKODE.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
TXTKODE = ""
TXTJUDUL = ""
TXTPENGARANG = ""
TXTTAHUN = ""
TXTTERBIT = ""
TXTHARGA = ""
TXTKODE.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(TXTKODE, 3)
If A = "SIM" Then
TXTJUDUL = "Sistem Informasi Manajemen"
TXTPENGARANG = "Fadiya Ulfa"
TXTHARGA = "75900"
ElseIf A = "EDP" Then
TXTJUDUL = "Elektronik Data Processing"
TXTPENGARANG = "Nurul Agustina"
TXTHARGA = "62000"
ElseIf A = "MNJ" Then
TXTJUDUL = "Manajemen"
TXTPENGARANG = "Rian Hidayat"
TXTHARGA = "42000"
ElseIf A = "CDR" Then
TXTJUDUL = "Corel Draw"
TXTPENGARANG = "Siti Nur Khotimah"
TXTHARGA = "53000"
ElseIf A = "RPL" Then
TXTJUDUL = "Rekayasa Perangkat Lunak"
TXTPENGARANG = "Winda Erlianti"
TXTHARGA = "83000"
End If
TXTTAHUN = "20" & Mid(TXTKODE, 5, 2)
A = Right(TXTKODE, 1)
If A = "A" Then
TXTTERBIT = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
TXTTERBIT = "Indah Surabaya"
ElseIf A = "S" Then
TXTTERBIT = "Salemba Empat"
ElseIf A = "E" Then
TXTTERBIT = "Elek Media Komputindo"
ElseIf A = "M" Then
TXTTERBIT = "Maxicom"
End If
End Sub

Tutorial

TUTORIAL THRESHOLDING CITRA DIGITAL (PROGRAM MATLAB) Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya did...