Postingan

Membuat program sederhana Kriptografi menggunakan Visual Basic

Gambar
Berikut listing program dan Form dari program sederhana Kriptografi Public Class Kriptografi    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click         Form2.MdiParent = Me         Form2.Show()     End Sub     Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click         Form3.MdiParent = Me         Form3.Show()     End Sub     Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronslendToolStripMenuItem.Click         Form4.MdiParent = Me         Form4.Show()     ...
Posting Komentar
Baca selengkapnya

Membuat Program Aplikasi Penggajian Karyawan

Gambar
   Berikut ini adalah Gambar Aplikasi dan Listing Program "Membuat Program Aplikasi Gaji Pegawai dengan VB.Net" : Public Class Gaji_Pegawai     Private Sub Gaji_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         nik.Items.Add("BM010")         nik.Items.Add("PS111")         nik.Items.Add("KU101")         nik.Items.Add("GD100")         nik.Items.Add("PM011")         jabatan.Items.Add("Kepala Devisi")         jabatan.Items.Add("Staf Devisi")         jabatan.Items.Add("Wakil Kepala Devisi")         status.Items.Add("Menikah")         status.Items.Add("Belum Menikah")         Dim i As Integer         For i = 1 To 3     ...
Posting Komentar
Baca selengkapnya

Program VB Pembayaran Rekening Listrik

Gambar
Program VB Pembayaran Rekening Listrik Ketentuan : a. Bulan: ( Tambahkan List Pada Combo Box yang berisikan nama bulan ) b. Daya :    -Jika 450 Volt Ampere, maka Abodemen = Rp. 25.000, Biaya Per KWH = 250    -Jika 900 Volt Ampere, maka Abodemen = Rp. 35.000, Biaya Per KWH = 350    -Jika 1300 Volt Ampere, maka Abodemen = Rp. 45.000, Biaya Per KWH = 450 c. Tagihan, Pajak dan Total tampil secara otomatis jika di klik tombol Hitung :    Tagihan = Biaya Per KWH * Jumlah    Pajak = 10% * Tagihan    Total = Tagihan + Pajak d. Jika di tekan enter di Uang Bayar maka Uang Kembali akan terisi secara otomatis    Uang Kembali = Uang Bayar - Total e. Buatlah Pesan berikut ini, untuk tombol Selesai. LISTING PROGRAM: Private Sub cmdhitung_Click() txttagihan = Val(txtperkwh.Text) * Val(txtjumlah.Text) txtpajak = 0.1 * Val(txt...
Posting Komentar
Baca selengkapnya

Budidaya Bekicot

Gambar
.Bekicot adalah utk sebagian orang adalah hewan yg menjijikan.utk budidaya ini banyak ditemui di daerah Jawa Timur & daerah lain yg menjadi sentra budidaya bekicot. Melalui blog ini, Ayo kita belajar bersama-sama utk membudidayakan hewan bekicot. 1. SEJARAH SINGKAT BEKICOT Bekicot berasal dr Afrika Timur, tersebar keseluruh dunia dlm waktu relatif singkat, karena berkembang biak dgn cepat. Bekicot tersebar ke arah Timur sampai di kepulauan Mauritius, India, Malaysia, akhirnya ke Indonesia. Bekicot sejak tahun 1933 telah ada disekitar Jakarta, sumber lain menyatakan bahwa bekicot jenis Achatina fulica masuk ke Indonesia pada tahun 1942 (masa pendudukan Jepang). Sampai saat ini, bekicot jenis Achanita fulica banyak terdapat di Pulau Jawa. 2. SENTRA PERIKANAN BEKICOT Sentra peternakan bekicot banyak ditemukan di masyarakat pedesaan Jawa Timur, Bogor (Jawa Barat), Sumatera Utara & Bali. 3. JENIS BEKICOT Bekicot diternakkan umumnya jenis Achatina fulica yg ban...
1 komentar
Baca selengkapnya