Postingan

MARDALENA,NPM 17100001,TUGAS GRAFIK 3D

Gambar
GRAFIK 3D untuk memunculkan grafik handles.peaks = peaks(35); handles.membrane = membrane ; [x,y] = meshgrid (-8:0.5:8); r = sqrt (x.^2+y.^2)+eps; sinc = sin (r)./r; handles.sinc = sinc; handles.current_data = handles.peaks; surf(handles.current_data); handles.peaks = peaks (35); handles.membrane = membrane; [x,y] = meshgrid (-8:0.5:8); r = sqrt(x.^2+y.^2)+eps; sinc = sin(r)./r; handles.sinc = sinc; handles.current_data =handles.peaks; surf (handles.current_data); Popupmenu  val = get (hObject, 'value'); str = get (hObject, 'string');  switch str{val}   case 'peaks' handeles.current_data = handles.peaks;   case 'membrane' handles.current_data= handles.membrane;   case 'sinc' handles.current_data= handles.sinc; end guidata(hObject,handles); Push button1( surf) Surf yaitu di gunakan untuk mebuat grafik 3 dimensidalam bentuk surface dengan permukaan yang "gelap" sehinggs menciptakan plot permukaa...
Posting Komentar
Baca selengkapnya

Tutorial Citra Digital

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.         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 Grays...
Posting Komentar
Baca selengkapnya

tugas 3.7 Pulang petang setiap hari

Gambar
tugas 3.7 Private Sub cmdbatal_Click() txtnama.SetFocus txtnik.Text = "" txtgolongan.Text = "" txtkode.Text = "" txtstatus.Text = "" txttahun.Text = "" txtjabatan.Text = "" txtbagian.Text = "" txtgaji.Text = "" txttunjangan.Text = "" txttotal.Text = "" txtnama.Text = "" End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnik.Text = "" txtgolongan.Text = "" txtkode.Text = "" txtstatus.Text = "" txttahun.Text = "" txtjabatan.Text = "" txtbagian.Text = "" txtgaji.Text = "" txttunjangan.Text = "" txttotal.Text = "" txtnama.Text = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() Dim x As String txtgolongan.Text = Mid(txtnik.Text, 5, 1) txtkode.Text = Mid(txtn...
Posting Komentar
Baca selengkapnya

tugas 3.6 DATA BUKU STMIK PRINGSEWU

Gambar
tugas 3.6 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(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi " txtpengarang = "khoirun nisa" txtharga = "75000" ElseIf A = "Elek" Then txtjudul = "Elektronik " txtpengarang = "aulia Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajemen" txtpengarang = "muhammad irfan" txtharga = "42000" ElseIf A = "C...
Posting Komentar
Baca selengkapnya

tugas 3.5 tambahan keypress

Gambar
tugas 3.5 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 = "17.00" ElseIf B = "RANI" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "20.00" ElseIf B = "MUT" Then txtht = "23000" txtjk = "TIARA" txtjb = "13.00" ElseIf B = "SEN" Then txtht = "15000" txtjk = "Malam" txtjb = "17.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
Posting Komentar
Baca selengkapnya

tugas 3.4 Data buku stmik pringsewu

Gambar
tugas 3.4 Private Sub cbokode_Click() Select Case cbokode Case "A-SIM-01" Case "I-ELP-02" Case "S-MQJ-03" Case "E-CER-04" Case "M-RYL-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 = "Irfan Yogyakarta" ElseIf A = "I" Then txtpenerbit = "Indah Surabaya" ElseIf A = "S" Then txtpenerbit = ...
Posting Komentar
Baca selengkapnya