Senin, 02 Maret 2020

Tutorial


Tutorial membuat thresholding
(program matlab)

Thresholding merupakan salah satu metode segmentasi citra di mana prosesnya didasarkan pada perbedaan derajat keabuan citra.
Marilah kita simak penjelasan tentang cara pembuatan thresholding di bawah ini :
1.      Langkah pertama kita membuat disegn thresholding


2.      Lalu kita mengisi skrip yang pertama open image
% --- Executes on button press in pushbutton1.
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





3.      Lalu kita mengisi skrip yang ke dua grayscale
% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
image1 = handles.data1;
gray = rgb2gray(image1);
axes(handles.axes2);
imshow(gray);
handles.data2 = gray;
guidata(hObject,handles);




4. Lalu kita mengisi skrip yang ke tiga slider1_Callback
% --- Executes on slider movement.
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)




5.      Lalu kita mengisi skrip yang ke empat save

% --- Executes on button press in pushbutton3.
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,O)
    imwrite(thresh,fullfile(path_save,name_file_save));
else
    return
end        

Selasa, 12 Desember 2017

Tugas 3.7 PT. Pulang Petang Tiap Hari

Tugas 3.7 PT. Pulang Petang Tiap 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

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

Tugas 3.5 Penjualan tiket kereta api

Tugas 3.5 Penjualan tiket kereta api


Option Explicit

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(txtkt, 3)
If B = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf B = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf B = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf B = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * (txtjt)
End If
End Sub




Tugas 3.4 Buku STMIK Pringsewu

Tugas 3.4 Buku STMIK Pringsewu



Option Explicit

Private Sub cbokode_Click()
Select Case cbokode
Case "A-SIM-01"
Case "I-EDP-02"
Case "S-MNJ-03"
Case "E-CDR-04"
Case "M-RPL-05"
End Select
End Sub

Private Sub cmdbatal_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
A = Mid(cbokode, 3, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Yati Nur Oktavia"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Imam Tarmizi"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Valentina Mariana Adiwianti"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Riyan Suhandi"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Sinta Umpu Singa"
txtharga = "83000"
End If
txttahun = "20" & Right(cbokode, 2)
End Sub

Private Sub Form_Load()
cbokode.AddItem "A-SIM-01"
cbokode.AddItem "I-EDP-02"
cbokode.AddItem "S-MNJ-03"
cbokode.AddItem "E-CDR-04"
cbokode.AddItem "M-RPL-05"
End Sub

Tugas 3.3 Penjualan Laptop

Tugas 3.3 Penjualan Laptop

Private Sub cbokode_Click()
Dim merk As String
merk = Mid(cbokode, 7, 5)
If merk = "MC965" Then
txtmt = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
txtmt = "Apple MacBook Air MC966"
harga = "15800000"
ElseIf merk = "MC968" Then
txtmt = "Apple MacBook Air MC968"
harga = "9900000"
ElseIf merk = "MC969" Then
txtmt = "Apple MacBook Air MC969"
harga = "11900000"
ElseIf merk = "MC700" Then
txtmt = "Apple MacBook Pro MC700"
harga = "10800000"
ElseIf merk = "MC721" Then
txtmt = "Apple MacBook Pro MC721"
harga = "15900000"
ElseIf merk = "MC723" Then
txtmt = "Apple MacBook Pro MC723"
harga = "19300000"
ElseIf merk = "MC724" Then
txtmt = "Apple MacBook Pro MC724"
harga = "13700000"
ElseIf merk = "MC311" Then
txtmt = "Apple MacBook Pro MC311"
harga = "24200000"
ElseIf merk = "MC313" Then
txtmt = "Apple MacBook Pro MC313"
harga = "11900000"
ElseIf merk = "MC314" Then
txtmt = "Apple MacBook Pro MC314"
harga = "14700000"
ElseIf merk = "MC318" Then
txtmt = "Apple MacBook Pro MC318"
harga = "17600000"
ElseIf merk = "MC322" Then
txtmt = "Apple MacBook Pro MC322"
harga = "21300000"
ElseIf merk = "MC965" Then
txtmt = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
txtmt = "Apple MacBook Air MC966"
harga = "15800000"
End If
txths = harga
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdhitung_Click()
cbokode = ""
txtmt = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttotal = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim harga, dis, total As String
harga = Val(txtjj) * (txths)
txthp = harga
If txthp > "140000000" Then
dis = Val(txthp) * 0.15
ElseIf txthp > "135000000" Then
dis = Val(txthp) * 0.1
ElseIf txthp > "130000000" Then
dis = Val(txthp) * 0.05
ElseIf txthp > "125000000" Then
dis = Val(txthp) * 0.02
End If
txtdis = dis
txttotal = Val(txthp) - Val(txtdis)
End Sub

Private Sub Form_Load()
cbokode.AddItem "Apple MC965 MacBook Air"
cbokode.AddItem "Apple MC966 MacBook Air"
cbokode.AddItem "Apple MC968 MacBook Air"
cbokode.AddItem "Apple MC969 MacBook Air"
cbokode.AddItem "Apple MC700 MacBook Pro"
cbokode.AddItem "Apple MC721 MacBook Pro"
cbokode.AddItem "Apple MC723 MacBook Pro"
cbokode.AddItem "Apple MC724 MacBook Pro"
cbokode.AddItem "Apple MC311 MacBook Pro"
cbokode.AddItem "Apple MC313 MacBook Pro"
cbokode.AddItem "Apple MC314 MacBook Pro"
cbokode.AddItem "Apple MC318 MacBook Pro"
cbokode.AddItem "Apple MC322 MacBook Pro"
cbokode.AddItem "Apple MC965 MacBook Air"
cbokode.AddItem "Apple MC966 MacBook Air"
End Sub




Tugas3.2

Tugas3.2



Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttm = ""
txtnu = ""
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttm = ""
txtnu = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim a As String
txttm = "20" & Left(txtnpm, 2)
a = Mid(txtnpm, 3, 1)
If a = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf a = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf a = "3" Then
txtjurusan = "Teknik Informasi"
End If
a = Mid(txtnpm, 4, 2)
If a = "00" Then
txtprogram = "Strata Satu"
ElseIf a = "01" Then
txtprogram = "Diplomat Tiga"
ElseIf a = "02" Then
txtprogram = "Diplomat Empat"
End If
txtnu = Right(txtnpm, 3)
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub



Featured Post

Tutorial

Tutorial membuat thresholding (program matlab) Thresholding  merupakan salah satu metode segmentasi citra di mana prosesnya didasa...