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...
Jumat, 06 Maret 2020
Selasa, 12 Desember 2017
Tugas 3.7 Pt.Pulang petang Setiap Hari oleh mahasiswa STMIK Pringsewu
Desember 12, 2017
No comments
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
Desember 12, 2017
No comments
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
Desember 12, 2017
No comments
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
Desember 12, 2017
No comments
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
Desember 12, 2017
No comments
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
Desember 12, 2017
No comments
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
Desember 12, 2017
No comments
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
November 20, 2017
No comments
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
November 20, 2017
No comments
Tugas 2.7 Huruf Mutu Mahasiswa Stmik Pringsewu
tanpa keypress
Berikut Source Codenya:
Normal
0
false
false
false
IN
X-NONE
X-NONE
...