Postingan

Tutorial

Gambar
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 Pushbutt

TUGAS 3.8 BP1

Gambar
Private Sub Command1_Click() Dim a As String a = Mid(Text2, 1, 4) If a = "2009" Then Text6 = "2009" End If a = Mid(Text2, 5, 1) If a = "A" Then Text7 = "Manajer" Text3 = "A" Text9 = "4000000" Text10 = "1025000" ElseIf a = "B" Then Text7 = "Ka. Seksi" Text3 = "B" Text9 = "3500000" Text10 = "975000" ElseIf a = "C" Then Text7 = "Staff" Text3 = "C" Text9 = "3000000" Text10 = "925000" End If a = Mid(Text2, 7, 1) If a = "S" Then Text4 = "S" Text5 = "Single" ElseIf a = "M" Then Text4 = "M" Text5 = "Menikah" ElseIf a = "J" Then Text4 = "J" Text5 = "Janda" ElseIf a = "D" Then Text4 = "D" Text5 = "Duda" End If a = Mid(Text2, 9, 3)

TUGAS 3.7 BP1

Gambar
Private Sub Cmdproses_Click() Dim A As String A = Mid(Text1, 1, 3) If A = "SIM" Then Text2 = "Sistem Informasi Manajemen" Text3 = "Fadiya Ulfa" Text6 = "75900" ElseIf A = "EDP" Then Text2 = "Elektronik Data Proseccing" Text3 = "Nurul Agustina" Text6 = "62000" ElseIf A = "MNJ" Then Text2 = "MANAJEMEN" Text3 = "Rian Hidayat" Text6 = "42000" ElseIf A = "CDR" Then Text2 = "Corel Draw" Text3 = "Prima Aji Pamungkas" Text6 = "53000" ElseIf A = "RPL" Then Text2 = "Rekayasa Perangkat Lunak" Text3 = "Winda Erlianti" Text6 = "83000" End If A = Mid(Text1, 5, 2) If A = "09" Then Text4 = "2009" ElseIf A = "10" Then Text4 = "2010" ElseIf A = "11" Then Text4 = "2011" ElseIf A = &q

TUGAS 3.6 BP1

Gambar
Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht = "" Txtjb = "" Txtjt = "" Txttotalp = "" Txtkt.SetFocus End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Txtkt, 1, 3) If a = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" End If If a = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" End If If a = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb = "17.00" End If If a = "SEN" Then Txtjk = "SENJA" Txtht = "15000" Txtjb = "20.00" End If Txtjt.SetFocus End Sub Private Sub Txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(Txtjt) * Val(Txtht) End If End Sub