Postingan

THRESHOLDING CITRA DIGITAL – (Matlab)

-
Gambar
THRESHOLDING CITRA DIGITAL – (Matlab) Scribe coding untuk Push Button atau tombol 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 Scribe coding untuk Push Button atau tombol Grayscale % --- Exe...
Posting Komentar
Baca selengkapnya

Tugas 3 BP8

-
Gambar
Private Sub Cmdproses_Click() Dim a As String a = Mid(Textnik, 1, 4) If a = "2009" Then Textthn = "2009" End If a = Mid(Textnik, 5, 1) If a = "A" Then Textjbt = "Manajer" Textgol = "A" Textgapok = "4000000" Texttun = "1025000" ElseIf a = "B" Then Textjbt = "Ka. Seksi" Textgol = "B" Textgapok = "3500000" Texttun = "975000" ElseIf a = "C" Then Textjbt = "Staff" Textgol = "C" Textgapok = "3000000" Texttun = "925000" End If a = Mid(Textnik, 7, 1) If a = "S" Then Textkode = "S" Textsts = "Single" ElseIf a = "M" Then Textkode = "M" Textsts = "Menikah" ElseIf a = "J" Then Texkode = "J" Textsts = "Janda" ElseIf a = "D" Then Textkode = "D" Textst...
Posting Komentar
Baca selengkapnya

Tugas 3 BP7

-
Gambar
Private Sub Cmdproses_Click() Dim A As String A = Mid(Textkode, 1, 3) If A = "SIM" Then Textjb = "Sistem Informasi Manajemen" Textpg = "Yati Nur Oktavia" Textrp = "75900" ElseIf A = "EDP" Then Textjb = "Elektronik Data Proseccing" Textpg = "Imam Tarmizi" Textrp = "62000" ElseIf A = "MNJ" Then Textjb = "MANAJEMEN" Textpg = "Valentina Mariana Adiwianti" Textrp = "42000" ElseIf A = "CDR" Then Textjb = "Corel Draw" Textpg = "Riyan Suhandi" Textrp = "53000" ElseIf A = "RPL" Then Textjb = "Rekayasa Perangkat Lunak" Textpg = "Sinta Umpu Singa" Textrp = "83000" End If A = Mid(Textkode, 5, 2) If A = "09" Then Texttt = "2009" ElseIf A = "10" Then Texttt = "2010" ElseIf A = "11" Then T...
Posting Komentar
Baca selengkapnya

Tugas 3 BP6

-
Gambar
Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Textkode = "" Textjk = "" Textht = "" Textjb = "" Textjt = "" Texttotal = "" Textkode.SetFocus End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Textkode, 1, 3) If a = "BIM" Then Textjk = "BIMA" Textht = "50000" Textjb = "16.00" End If If a = "EKO" Then Textjk = "EKONOMI" Textht = "35000" Textjb = "19.00" End If If a = "MUT" Then Textjk = "MUTIARA" Textht = "23000" Textjb = "17.00" End If If a = "SEN" Then Textjk = "SENJA" Textht = "15000" Textjb = "20.00" End If Textjt.SetFocus End Sub Private Sub Form_Load() End Sub Private Sub Textjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texttotal = Val(Textjt) * Val(Textht) End If ...
Posting Komentar
Baca selengkapnya

Tugas 3 BP5

-
Gambar
Private Sub Cmdproses_Click() Dim A As String A = Mid(Cbokode, 1, 1) If A = "A" Then Textpn = "Abdi Offsyet Yogyakarta" End If A = Mid(Cbokode, 3, 3) If A = "SIM" Then Textjb = "Sistem Informasi Manajemen" Textpg = "Yati Nur Oktavia" Textrp = "75900" End If A = Mid(Cbokode, 7, 2) If A = "01" Then Texttt = "2001" End If A = Mid(Cbokode, 1, 1) If A = "I" Then Textpn = "Indah Surabaya" End If A = Mid(Cbokode, 3, 3) If A = "EDP" Then Textjb = "Electronik Data Processing" Textpg = "Imam Tarmizi" Textrp = "62000" End If A = Mid(Cbokode, 7, 2) If A = "02" Then Texttt = "2002" End If A = Mid(Cbokode, 1, 1) If A = "S" Then Textpn = "HELMIYANTO" End If A = Mid(Cbokode, 3, 3) If A = "MNJ" Then Textjb = "MANAJEMEN" Textpg =...
Posting Komentar
Baca selengkapnya

Tugas 3 BP4

-
Gambar
Private Sub CboKode_Click() Dim s As String  s = Mid(cbokode, 7, 5)  If s = "MC965" Then  Textmerk = "Apple MacBook Air MC965"  Texths = "12800000"  End If  If s = "MC966" Then  Textmerk = "Apple MacBook Air MC966"  Texths = "15800000"  End If  If s = "MC968" Then  Textmerk = "Apple MacBook Air MC968"  Texths = "9900000"  End If  If s = "MC969" Then  Textmerk = "Apple MacBook Air MC969"  Texths = "11900000"  End If  If s = "MC700" Then  Textmerk = "Apple MacBook Pro MC700"  Texths = "10800000"  End If  Textjj.SetFocus  End Sub Private Sub Cmdbatal_Click() cbokode = "" Textmerk = "" Texths = "" Texthp = "" Textdis = "" Textjj = "" Texttotal = "" End Sub Private Sub Cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Texthp ...
Posting Komentar
Baca selengkapnya

Tugas 3 BP3

-
Gambar
Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = "" Textnpm = "" Textjr = "" Textps = "" Texttm = "" Texturut = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = "" Textnpm = "" Textjr = "" Textps = "" Texttm = "" Texturut = "" End Sub Private Sub Cmdproses_Click() Dim a As String Texttm = "20" & Left(Textnpm, 2) a = Mid(Textnpm, 3, 1) If a = "1" Then Textjr = "sistem informasi" Textps = "Strata Satu" ElseIf a = "2" Then Textjr = "teknik informatika" Textps = "Diploma empat" ElseIf a = "3" Then Textjr = "manajemen informatika" Textps = "Diploma tiga" ElseIf a = "4" Then Textjr = "komputer akunt...
Posting Komentar
Baca selengkapnya