Tugas Pengolahan Citra

TUGAS PENGOLAHAN CITRA

1.       UNTUK MENAMPILKAN IMAGE

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

2.      UNTUK GRAYSCALE

function pushbutton2_Callback(hObject, eventdata, handles)

image1=handles.data1;

gray = rgb2gray(image1);

axes(handles.axes2);

imshow(gray);

handles.data2 = gray;

guidata (hObject,handles);

slider

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)

% --- Executes during object creation, after setting all properties.

function slider1_CreateFcn(hObject, eventdata, handles)

if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor',[.9 .9 .9]);

end

3. UNTUK EDIT TEXT

function edit1_Callback(hObject, eventdata, handles)

% hObject    handle to edit1 (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit1 as text

%        str2double(get(hObject,'String')) returns contents of edit1 as a double

% --- Executes during object creation, after setting all properties.

function edit1_CreateFcn(hObject, eventdata, handles)

% hObject    handle to edit1 (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.

%       See ISPC and COMPUTER.

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

untuk menyimpan

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));

    return

end

Tugas 3 program 1



 Private Sub Form_Load()
Cbogolongan.AddItem "I"
Cbogolongan.AddItem "II"
Cbogolongan.AddItem "III"
Cbogolongan.AddItem "IV"
End Sub

Private Sub Cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogolongan
Case "I"
gapok = 15000000
tunjangan = 1500000
Case "II"
gapok = 20000000
tunjangan = 200000
Case "III"
gapok = 25000000
tunjangan = 2500000
Case "IV"
gapok = 30000000
tunjangan = 3000000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok = gapok
txttunjangan = tunjangan
txtpajak = pajak
txttotal = gapok + tunjangan - pajak
End Sub

Private Sub cmdbatal_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Public Sub kosong()
Txtnidn.SetFocus
Txtnidn = “”
txtnama = “”
Cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Tugas 3 program 2



Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttm.Text = "20" & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = "1" Then
txtjur.Text = "Sistem Informasi"
ElseIf S = "2" Then
txtjur.Text = "Manajemen Informatika"
ElseIf S = "3" Then
txtjur.Text = "Tehnik Informatika"
ElseIf S = "4" Then
txtjur.Text = "Manajemen & Komp. Akuntansi"
End If
S = Mid(txtnpm.Text, 4, 2)
If S = "01" Then
txtps.Text = "Strata Satu"
ElseIf S = "02" Then
txtps.Text = "Diploma Tiga"
ElseIf S = "03" Then
txtps.Text = "Diploma Empat"
ElseIf S = "04" Then
txtps.Text = "Diploma Dua"
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub

Tugas 3 Program 3



 Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttm.Text = "20" & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = "1" Then
txtjur.Text = "Sistem Informasi"
txtps.Text = "Strata Satu"
ElseIf S = "2" Then
txtjur.Text = "Manajemen Informatika"
txtps.Text = "Diploma Empat"
ElseIf S = "3" Then
txtjur.Text = "Tehnik Informatika"
txtps.Text = "Diploma Tiga"
ElseIf S = "4" Then
txtjur.Text = "Manajemen & Komp. Akuntansi"
txtps.Text = "Diploma Dua"
End If
S = Mid(txtnpm.Text, 4, 2)
If S = "01" Then
txtps.Text = "Strata Satu"
ElseIf S = "02" Then
txtps.Text = "Diploma Tiga"
ElseIf S = "03" Then
txtps.Text = "Diploma Empat"
ElseIf S = "04" Then
txtps.Text = "Diploma Dua"
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub

Tugas 3 Program 4



Private Sub Cbokode_Click()
Dim merk, harga As String
Select Case Cbokode
Case "MC965"
merk = "Apple MacBook Air MC965"
harga = "12800000"
Case "MC966"
merk = "Apple MacBook Air MC966"
harga = "15800000"
Case "MC968"
merk = "Apple MacBook Air MC968"
harga = "9900000"
Case "MC969"
merk = "Apple MacBook Air MC969"
harga = "11900000"
Case "MC700"
merk = "Apple MacBook Pro MC700"
harga = "10800000"
Case "MC721"
merk = "Apple MacBook Pro MC721"
harga = "15900000"
Case "MC723"
merk = "Apple MacBook Pro MC723"
harga = "19300000"
Case "MC724"
merk = "Apple MacBook Pro MC724"
harga = "13700000"
Case "MC311"
merk = "Apple MacBook Pro MC311"
harga = "24200000"
Case "MC313"
merk = "Apple MacBook Pro MC313"
harga = "11900000"
Case "MC314"
merk = "Apple MacBook Pro MC314"
harga = "14700000"
Case "MC318"
merk = "Apple MacBook Pro MC318"
harga = "17600000"
Case "MC322"
merk = "Apple MacBook Pro MC322"
harga = "21300000"
Case "MC965"
merk = "Apple MacBook Air MC965"
harga = "12800000"
Case "MC966"
merk = "Apple MacBook Air MC966"
harga = "15800000"
End Select
Txtmerk = merk
Txths = harga
Txtjj.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Kosong
End Sub
Public Sub Kosong()
Cbokode.SetFocus
Txtmerk = ""
Txths = ""
Cbokode = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttb = ""
End Sub

Private Sub Cmdproses_Click()
Txthp = Val(Txtjj) * Val(Txths)
If Txthp > "140000000" Then
Txtdis = (0.15) * Val(Txthp)
ElseIf Txthp > "135000000" Then
Txtdis = (0.1) * Val(Txthp)
ElseIf Txthp > "130000000" Then
Txtdis = (0.05) * Val(Txthp)
ElseIf Txthp > "125000000" Then
Txtdis = (0.02) * Val(Txthp)
Else
End If
Txttb = Val(Txthp) - Val(Txtdis)
End Sub

Private Sub Form_Load()
Cbokode.AddItem "MC965"
Cbokode.AddItem "MC966"
Cbokode.AddItem "MC968"
Cbokode.AddItem "MC969"
Cbokode.AddItem "MC700"
Cbokode.AddItem "MC721"
Cbokode.AddItem "MC723"
Cbokode.AddItem "MC724"
Cbokode.AddItem "MC311"
Cbokode.AddItem "MC313"
Cbokode.AddItem "MC314"
Cbokode.AddItem "MC318"
Cbokode.AddItem "MC322"
Cbokode.AddItem "MC965"
Cbokode.AddItem "MC966"
End Sub

Tugas 3 Program 5





Private Sub cmdbatal_Click()
Cbokb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
Cbokb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
End Sub

Private Sub cmdproses_Click()
Dim C, jb, peng, har, pener As String
Txttt = "20" & Right(Cbokb, 2)
C = Mid(Cbokb, 3, 3)
If C = "SIM" Then
jb = "Sistem Informasi Manajemen"
peng = "Yati Nur Oktavia"
har = "75900"
ElseIf C = "EDP" Then
jb = "Elektronik Data Processing"
peng = "Imam Tarmizi"
har = "62000"
ElseIf C = "MNJ" Then
jb = "Manajemen"
peng = "Valentina Mariana Adiwianti"
har = "42000"
ElseIf C = "CDR" Then
jb = "corel draw"
peng = "Riyan Suhandi"
har = "53000"
ElseIf C = "RPL" Then
jb = "Rekayasa Perangkat Lunak"
peng = "Sinta Umpu Singa"
har = "83000"
End If
Txtjb = jb
Txtp = peng
Txthar = har
C = Left(Cbokb, 1)
If C = "A" Then
pener = "Andi Offset"
ElseIf C = "I" Then
pener = "Indah Surabaya"
ElseIf C = "S" Then
pener = "Salemba Empat"
ElseIf C = "E" Then
pener = "Elek Media Komputindo"
ElseIf C = "M" Then
pener = "Maxinco"
End If
Txtpn = pener
End Sub

Private Sub Form_Load()
Cbokb.AddItem "A-SIM_01"
Cbokb.AddItem "I-EDP_02"
Cbokb.AddItem "S-MNJ_03"
Cbokb.AddItem "E-CDR_04"
Cbokb.AddItem "M-RPL_05"
End Sub

Tugas 3 Program 6


Private Sub cmdkeluar_Click()
Unload Me
End Sub

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

Private Sub cmdproses_Click()
Dim k, jk, ht, jb As String
k = Left(txtkt, 3)
If k = "BIM" Or k = "bim" Then
jk = “BIMA”
ht = "50000"
jb = "16.00"
ElseIf k = "EKO" Or k = "eko" Then
jk = "EKONOMI"
ht = "35000"
jb = "19.00"
ElseIf k = "MUT" Or k = "mut" Then
jk = "MUTIARA"
ht = "23000"
jb = "17.00"
ElseIf k = "SEN" Or k = "sen" Then
jk = "SENJA"
ht = "15000"
jb = "20.00"
End If
txtjk.Text = jk
txtht.Text = ht
txtjb.Text = jb
txtjt.SetFocus
End Sub

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

Tugas 3 Program 7


Private Sub cmdbatal_Click()
txtkb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
txtkb.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
txtkb.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim k, jb, pen, har As String
Txttt = "20" & Mid(txtkb, 5, 2)
k = Left(txtkb, 3)
If k = "SIM" Then
jb = "Sistem Informasi Manajemen"
pen = "fadiya ulfa"
har = "75900"
ElseIf k = "EDP" Then
jb = "Elektronik Data Processing"
pen = "Nurul Agustina"
har = "62000"
ElseIf k = "MNJ" Then
jb = "Manajemen"
pen = "Rian Hidayat"
har = "42000"
ElseIf k = "CDR" Then
jb = "Corel Draw"
pen = "Siti Nur Khotimah"
har = "53000"
ElseIf k = "RPL" Then
jb = "Rekaya Perangkat Lunak"
pen = "Winda Erlanti"
har = "83000"
End If
Txtjb.Text = jb
Txtp.Text = pen
Txthar = har

k = Right(txtkb, 1)
If k = "A" Then
pen = "Andi Offset Yogyakarta"
ElseIf k = "I" Then
pen = "Indah Surabaya"
ElseIf k = "S" Then
pen = "Salemba Empat"
ElseIf k = "E" Then
pen = "Elek Media Komputindo"
ElseIf k = "M" Then
pen = "Maxicom"
End If
Txtpn.Text = pen
End Sub

Tugas 3 Program 8





Private Sub cmdbatal_Click()
txtnama = ""
txtnik = ""
txtnik.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnik = ""
txtgol = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjab = ""
txtbag = ""
txtgp = ""
txttj = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim k, bag, stat, kode, gol, jab, gp, tj As String
k = Right(txtnik, 3)
If k = "KEU" Then
bag = "Accounting"
ElseIf k = "ADM" Then
bag = "Administrasi"
ElseIf k = "SDM" Then
bag = "General Affair"
ElseIf k = "EDP" Then
bag = "IT Unit"
ElseIf k = "SPM" Then
bag = "Security"
End If
txtbag = bag

k = Mid(txtnik, 7, 1)
If k = "S" Then
kode = "S"
stat = "Singgle"
ElseIf k = "M" Then
kode = "M"
stat = "Menikah"
ElseIf k = "J" Then
kode = "J"
stat = "Janda"
ElseIf k = "D" Then
kode = "D"
stat = "Duda"
End If
txtkode = kode
txtstatus = stat

Select Case k = Mid(txtnik, 5, 1)
Case k = "A"
gol = "A"
jab = "Manager"
gp = "4000000"
tj = "1025000"
Case k = "B"
gol = "B"
jab = "Ka.Seksi"
gp = "3500000"
tj = "975000"
Case k = "C"
gol = "C"
jab = "Staff"
gp = "3000000"
tj = "925000"
End Select
txtgol = gol
txtjab = jab
txtgp = gp
txttj = tj
txttahun = Left(txtnik, 4)
total = Val(gp) + Val(tj)
txttotal = total
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub



Private Sub txtnik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub