Jumat, 06 Maret 2020

Thresholding Citra

Citra digital merupakan representasi dari fungsi intensitas cahaya dalam bidang dua dimensi. Berdasarkan jenis warnanya, citra dapat dikelompokkan menjadi tiga jenis yaitu citra RGB, citra grayscale, dan citra biner. Citra RGB merupakan citra yang tersusun oleh tiga kanal warna yaitu kanal merah, kanal hijau, dan kanal biru. Pada citra RGB 24-bit, masing-masing kanal warna memiliki nilai intensitas piksel dengan kedalaman bit...

Selasa, 12 Desember 2017

Tugas 3.7 Pt.Pulang petang Setiap Hari oleh mahasiswa STMIK Pringsewu

Tugas 3.7 Pt.Pulang petang Setiap Hari Berikut Source Codenya: Private Sub cmdbatal_Click()txtnama.SetFocustxtnik.Text = ""txtgolongan.Text = ""txtkode.Text = ""txtstatus.Text = ""txttahun.Text = ""txtjabatan.Text = ""txtbagian.Text = ""txtgaji.Text = ""txttunjangan.Text = ""txttotal.Text = ""txtnama.Text = ""End SubPrivate Sub cmdlagi_Click()txtnama.SetFocustxtnik.Text = ""txtgolongan.Text = ""txtkode.Text = ""txtstatus.Text = ""txttahun.Text...

Tugas 3.6 Data Buku Stimik Pringsewu

Tugas 3.6 Data Buku Stimik Pringsewu Berikut Source Codenya: Private Sub Cmdbatal_Click() kosong End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Public Sub kosong() txtkode.SetFocus txtkode.Text = "" txtjudul.Text = "" txtpengarang.Text = "" txttahun.Text = "" txtpenerbit.Text = "" txtharga.Text = "" End Sub Private Sub cmdproses_Click() Dim K As String K = Left(txtkode.Text, 3) If K = "SIM"...

Tugas 3.5 Penjualan Tiket Kerata Api oleh mahasiswa stmik pringsewu

Tugas 3.5 Penjualan Tiket Kerata Api Berikut Source Codenya: Private Sub Form_Activate()txtkt.SetFocusEnd SubPrivate Sub cmdkeluar_Click()Unload MeEnd SubPrivate Sub cmdlagi_Click()txtkt.SetFocustxtkt.Text = “”txtht.Text = “”txtjk.Text = ""txtjb.Text = ""txtjt.Text = ""txttp.Text = ""End SubPrivate Sub cmdproses_Click()Dim kt, jk, jb As StringDim ht As Currencykt = Left(txtkt.Text, 3)If kt = "BIM" Or kt = "bim" Thenht = "50000"jk = "BIMA"jb...

Tugas 3.4 Data Buku Stmik Pringsewu

Tugas 3.4 Data Buku Stmik Pringsewu Berikut Source Codenya: Private Sub Cmdbatal_Click()kosongEnd SubPrivate Sub cmdlagi_Click()kosongEnd SubPrivate Sub cmdkeluar_Click()Unload MeEnd SubPublic Sub kosong()cbokb.SetFocuscbokb.Text = ""txtjb.Text = ""txtpeng.Text = ""txtt.Text = ""txtpen.Text = ""txthar.Text = ""End SubPrivate 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...

Tugas 3.3 Entri Penjualan Laptop Aplle oleh mahasiswa stmik

Tugas 3.3 Entri Penjualan Laptop Aplle Berikut Source Codenya: Private Sub Form_Load()cbokode.AddItem "Apple MC965 Macbook Air"cbokode.AddItem "Apple MC966 Macbook Air"cbokode.AddItem "Apple MC968 Macbook Air"cbokode.AddItem "Apple MC969 Macbook Air"cbokode.AddItem "Apple MC700 Macbook Pro"cbokode.AddItem "Apple MC721 Macbook Pro"cbokode.AddItem "Apple MC723 Macbook Pro"cbokode.AddItem "Apple MC311 Macbook Pro"cbokode.AddItem "Apple MC313 Macbook...

Tugas 3.2 STMIK PRINGSEWU

Tugas 3.2 STMIK PRINGSEWU Source Codenya: Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Form_Activate() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu...

Tugas 3.1 Program Gaji

Tugas 3.1 Program Gaji  Source Codenya: Private Sub Cmdbatal_Click() kosong End Sub Private Sub cmdlagi_Click() kosong End Sub Public Sub kosong() txtnidn.SetFocus txtnidn.Text = "" txtnama.Text = "" cbogolongan.Text = "" txtgp.Text = "" txttj.Text = "" txtpj.Text = "" txttotal.Text = "" End Sub Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case "I" gapok = 2000000 tunjangan...

Senin, 20 November 2017

Tugas 2.8 Huruf Mutu Mahasiswa Stmik Pringsewu Menggunakan keypress

Tugas 2.8 Huruf Mutu Mahasiswa Stmik Pringsewu  Menggunakan keypress Berikut Source Codenya: Normal 0 false false false IN X-NONE X-NONE ...

Tugas 2.7 Huruf Mutu Mahasiswa Stmik Pringsewu tanpa keypress

Tugas 2.7 Huruf Mutu Mahasiswa Stmik Pringsewu  tanpa keypress   Berikut Source Codenya: Normal 0 false false false IN X-NONE X-NONE ...