yannastmikpringsewu

Fungsi-fungsi dari visualisasi data 3D. SURF  atau grafik permukaan, digunakan untuk memvisualisaikaan data dalam bentuk permukaan 3D dengan pewarnaan berdaarkan bobot nilai gridnya. MESH , digunakan memvisualisasikan data dalam bentuk tiga dimensi. mesh sering disebut sebagai grafik jala yang memiliki empat titik data terdekat dalam ruang 3D. CONTOUR , digunakan untuk membuat gariskontur dibuat dengan teknik inperpolasi titik-titik terdekat. sebelum memulai sebaiknya membuat langkah awal seperti menampilkan axes,panel (pict typo, push button (surf,mesh,contour),stastic text, dan pop-up menu (peaks,membrane,sinc). 1. maka tampilan awal akan seperti gambar di bawah ini. kemudian masukan coding sebagai berikut : % --- Executes just before yana is made visible. function yana_OpeningFcn(hObject, eventdata, handles, varargin) handles.peaks = peaks (35); handles.membrane = membrane; [x, y] = meshgrid (-8:0.5:8); r = sqrt(x.^2 + y.^2) + eps; sinc = sin...

Apa Itu MATLAB? MATLAB adalah kependekan dari MATrix LABoratory dikarenakan setiap data pada MATLAB menggunakan dasar matriks. MATLAB adalah bahasa pemrograman tinggi, tertutup, dan case sensitive dalam lingkungan komputasi numerik yang dikembangkan oleh MathWorks. Salah satu kelebihannya yang paling populer adalah kemampuan membuat grafik dengan visualisasi terbaik. MATLAB mempunyai banyak tools yang dapat membantu berbagai disiplin ilmu. Ini merupakan salah satu penyebab industri menggunakan MATLAB. Selain itu MATLAB mempunyai banyak library yang sangat membantu untuk menyelesaikan permasalahan matematika seperti membuat simulasi fungsi, pemodelan matematika dan perancangan GUI. Manfaat MATLAB MATLAB digunakan oleh kalangan pelajar, teknisi, peneliti di Universitas, Institusi Penelitian maupun Industri untuk melakukan komputasi matematis dalam berbagai keperluan. MATLAB biasanya digunakan untuk penelitian, pengembangan sistem dan desain sistem. Berbeda dengan ...

tugas mk etika proesi kelas line 1 Nama: Yanna Chairunisa Alwahida Kelas: Line 1 TKJ Npm: 17100016 tugas: Analisis masalah fenomena "pinjaman online" 1. apa yang anda ketahui tentang pinjaman online? 2. bagaimana sistem yang digunakan pada pinjaman online? 3. bagaimana pinjaman online dilihat dari sudut pandang UU ITE. jelakan jawab: 1. pinjaman online adalah pinjaman uang yang melalui sebuah penyedia jasa keuangan yang beroperasi secara online.dengan jaminan identitas diri berupa foto kopi ktp, atapun identitas lain nya. namun tidak mnjamin keamanan data coustomer nya. dan setiap situs pinjaman online memiliki aturan-aturan sendiri. 2. pengajuan pinjaman online tidak perlu tatap muka kepada lembaga yang menyediakan jasa pinjaman online. anda dapat mengisi formulir yang ada di aplikasi pijaman online. pinjaman online memiliki persyaratan yang mudah hanya dengan foto kopi ktp anda sudah dapat meminjam uang. sistem ini belum bisa dikatakan sempurna karena jaminan...

Private Sub cmdbatal_Click() txtnk = "" txtmn = "" txtnk.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk = "" txtmn = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgp = "" txttj = "" txttotal = "" txtnk.SetFocus End Sub Private Sub cmdproses_Click() Dim H, BAGIAN, STATUS, KODE, GOL, JABATAN, GP, TJ As String H = Right(txtmn, 3) If H = "KEU" Or H = "keu" Then BAGIAN = "Accounting" ElseIf H = "ADM" Or H = "adm" Then BAGIAN = "administrasi" ElseIf H = "SDM" Or H = "sdm" Then BAGIAN = "general affair" ElseIf H = "EDP" Or H = "edp" Then BAGIAN = "it unit" ElseIf H = "SPM" Or H = "spm" Then BAGIAN...

Private Sub cmdbatal_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit txtharga = "" txtkode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit = "" txtharga = "" txtkode.SetFocus End Sub Private Sub cmdproses_Click() Dim H, JB, PENG, HAR, PENER As String txtterbit = "20" & Mid(txtkode, 5, 2) H = Left(txtkode, 3) If H = "SIM" Or H = "sim" Then JB = "sistem informasi manajemen" PENG = "fadiya ulfa" HAR = "75900" ElseIf H = "EDP" Or H = "edp" Then JB = "eletronik data processing" PENG = "nurul agustina" HAR = "62000" ElseIf H = "MNJ" Or H = "mnj" Then JB = "manajem...

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" End Sub Private Sub cmdproses_Click() Dim C As String C = Left(txtkode, 3) If C = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf C = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf C = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf C = "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) * Val(txtjt) End If End Sub

Private Sub cmdbatal_Click() Cbokode = "" Cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Cbokode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim H, JB, PENG, HAR, PENER As String txtterbit.Text = "20" & Right(Cbokode.Text, 2) H = Mid(Cbokode.Text, 3, 3) If H = "SIM" Then JB = "SistemInformasi Manajemen" PENG = "Yati Nur Oktavia" HAR = "75900" ElseIf H = "EDP" Then JB = "Elektronik Data Processing " PENG = "Imam Tarmizi" HAR = "62000" ElseIf H = "MNJ" Then JB = "Manajemen" PENG = "Valentina Mariana" HAR = "42000" ElseIf H = "CDR" Then JB = "Corel Draw" PENG = "Riyan Suhandi" HAR = "53000" ElseIf H = ...

Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air" hs = "12800000" Case "MC966" mt = "Apple MC966 Macbook Air" hs = "15800000" Case "MC968" mt = "Apple MC968 Macbook Air" hs = "9900000" Case "MC969" mt = "Apple MC969 Macbook Air" hs = "11900000" Case "MC700" mt = "Apple MC700 Macbook Air" hs = "10800000" Case "MC721" mt = "Apple MC721 Macbook Air" hs = "15900000" Case "MC723" mt = "Apple MC723 Macbook Air" hs = "19300000" Case "MC724" mt = "Apple MC724 Macbook Air" hs = "13700000" Case "MC7311" mt = "Apple MC7311 Macbook Air" hs = "24200000" Case "MC313" mt = "Apple MC313 Macbook Air" hs = ...

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 = "" txtjurusan.Text = "" txtprogramstudi.Text = "" txttahunmasuk.Text = "" txtnomorurut.Text = "" End Sub Private Sub cmdproses_click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm, 3, 1) If S = "1" Then txtjur.Text = "sistem informasi" ElseIf S = "2" Then txtjur.Text = "manajemen informatika" ElseIf S = "3" Then txtjur.Text = "teknik informatika" ElseIf S = "4" Then txtjur.Text = "manajemen&komp. akuntasi" End If S = Mid(txtnpm.Te...

Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 200000 tunjangan = 20000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub Form_Load() cbogolongan.AddItem "I" cbogolongan.AddItem "II" cbogolongan.AddItem "III" cbogolongan.AddItem "Iv" End Sub Private Sub txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnp.SetFoc...

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100028" nama = "Ida Ayu Wulandari" jurusan = "Tehnik Informatika" Case "17100001" nama = "Mardalenna" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select txtnama.Text = nama txtjurusan.Text = jurusan txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" txtnama.Text = "" txtjurusan.Text = "" txtquis.Text = "" txttugas.Text = "" txtuts.Text = "" txtuas.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Su...

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100028" nama = "Ida Ayu Wulandari" jurusan = "Tehnik Informatika" Case "17100001" nama = "Mardalenna" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select Txtnama.Text = nama Txtjurusan.Text = jurusan Txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" Txtnama.Text = "" Txtjurusan.Text = "" Txtquis.Text = "" Txttugas.Text = "" Txtuts.Text = "" Txtuas.Text = "" Txtna.Text = "" Txthm.Text = "" End Sub Private Su...

Private Sub Chkbold_Click() 'membuat teks miring If ChKBOLD.Value = 1 Then     LBLTEKS.FontBold = True Else     LBLTEKS.FontBold = False End If End Sub Private Sub Chkitalic_Click() 'membuat teks miring If ChkITALIC.Value = 1 Then     LBLTEKS.FontItalic = True Else     LBLTEKS.FontItalic = False End If End Sub Private Sub Chkstrikethru_Click() 'membuat teks garis tengah If Chkstrikethru.Value = 1 Then     LBLTEKS.FontStrikethru = True Else     LBLTEKS.FontStrikethru = False End If End Sub Private Sub Chkunderline_Click() 'membuat teks garis bawah If ChkUNDERLINE.Value = 1 Then     LBLTEKS.FontUnderline = True Else     LBLTEKS.FontUnderline = False End If End Sub Private Sub CMDEXIT_Click() End End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub OptBLUE_Click() 'membuat teks berwarna biru LBLTEKS.ForeColor = vbBlue ...

Private Sub cmdproses_Click() txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" txtgp.SetFocus End Sub Private Sub txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttj.SetFocus End If End Sub Private Sub txtpt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End If End Sub Private Sub txttj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtpt.SetFocus End If End Sub

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdproses_Click() txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "'" txtpt = "" txtgk = "" txtpj = "'" txtgd = "'" txtgp.SetFocus End Sub

Private Sub cmdhitung_Click() txtha = "" txtdis = "" txtha = "" End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtha = "" End Sub Private Sub txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - Val(txtdis) End If End Sub

Private Sub cmdhitung_Click() txtdis.Text = Val(txtha.Text) * 0.1 txtak.Text = Val(txtha.Text) - Val(txtdis.Text) End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtak = "" txtha.SetFocus End Sub

Private Sub Command1_Click() If Val(Text1.Text) & Val(Text2.Text) Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) End If If Val(Text4.Text) & Val(Text5.Text) Then Text6.Text = Val(Text4.Text) / Val(Text5.Text) End If If Val(Text7.Text) & Val(Text8.Text) Then Text9.Text = Val(Text7.Text) - Val(Text8.Text) End If If Val(Text10.Text) & Val(Text11.Text) Then Text12.Text = Val(Text10.Text) * Val(Text11.Text) End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ...

Private Sub Command1_Click() If Val(Text1.Text) & Val(Text2.Text) Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Text1.SetFocus End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then