Kriptografi Caesar

Listing Program

Public Class Form1

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(Plain.Text)

            x = Mid(Plain.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        Chiper.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(Chiper.Text)

            x = Mid(Chiper.Text, i, i)

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        Plain.Text = xkalimat

    End Sub

End Class

Enkripsi Kriptografi Vernam

Program untuk menampilkan hasil Enkripsi berikut ini caranya

Public Class OneTimePad

    Private Sub OneTimePad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim skey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nErc As Integer

        j = 0

        sKata = Plainteks.Text

        jum = Len(sKata)

        skey = Kunci.Text

        For i = 1 To jum

            If j = Len(skey) Then

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(skey, j, 1)) - 65

            nErc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nErc) + 65)

       

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class

Quis program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

Kemudian Masuk kan Listing Program Berikut:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tabel()

        Kodepelanggan.Items.Add("MED")
        Kodepelanggan.Items.Add("BEL")
        Kodepelanggan.Items.Add("TEM")
        Kodepelanggan.Items.Add("MAR")
        Kodepelanggan.Items.Add("BIN")
        Kodepelanggan.Items.Add("PAK")

        Tipepelanggan.Items.Add("TOK")
        Tipepelanggan.Items.Add("RUM")
        Tipepelanggan.Items.Add("SWA")
        Tipepelanggan.Items.Add("PAB")

    End Sub

    Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodepelanggan.SelectedIndexChanged
        Select Case Kodepelanggan.Text
            Case ("MED")
                daerah.Text = "MEDAN"
                pajak.Text = "0.015"
            Case ("BEL")
                daerah.Text = "BELAWAN"
                pajak.Text = "0.015"
            Case ("TEM")
                daerah.Text = "AKSARA"
                pajak.Text = "0.015"
            Case ("MAR")
                daerah.Text = "MARINDAL"
                pajak.Text = "0.015"
            Case ("BIN")
                daerah.Text = "BINJAI"
                pajak.Text = "0.015"
            Case ("PAK")
                daerah.Text = "LUBUK PAKAM"
                pajak.Text = "0.015"

        End Select
    End Sub

    Private Sub Tipepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipepelanggan.SelectedIndexChanged
        Select Case Tipepelanggan.Text
            Case ("TOK")
                Tipetoko.Text = "TOKO"
                biayabeban.Text = 150000
                hargaperkwh.Text = 500
            Case ("RUM")
                Tipetoko.Text = "RUMAH"
                biayabeban.Text = 500000
                hargaperkwh.Text = 1500
            Case ("SWA")
                Tipetoko.Text = "SWALAYAN"
                biayabeban.Text = 400000
                hargaperkwh.Text = 1500
            Case ("PAB")
                Tipetoko.Text = "PABRIK"
                biayabeban.Text = 1000000
                hargaperkwh.Text = 10000

        End Select
    End Sub
    Sub tabel()
        ListView1.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tipe toko", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tipe pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Biaya beban", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Meteran bulan lalu", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Meteran bulan sekarang", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Harga per KwH", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Besar pemakaian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tagihan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total bayar", 80, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .text = Kodepelanggan.Text
            .SubItems.Add(daerah.Text)
            .SubItems.Add(Tipepelanggan.Text)
            .SubItems.Add(Tipetoko.Text)
            .SubItems.Add(biayabeban.Text)
            .SubItems.Add(meteranbulanlalu.Text)
            .SubItems.Add(meteranbulansekarang.Text)
            .SubItems.Add(hargaperkwh.Text)
            .SubItems.Add(besarpemakaian.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(tagihan.Text)
            .SubItems.Add(totalbayar.Text)
            ListView1.Items.Add(x)

        End With
    End Sub

    Private Sub totalbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles totalbayar.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totalbayar.Text = Val(biayabeban.Text) + Val(hargaperkwh.Text) + Val(besarpemakaian.Text)

        End If
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        besarpemakaian.Text = meteranbulanlalu.Text - meteranbulansekarang.Text
        tagihan.Text = biayabeban.Text + (hargaperkwh.Text * besarpemakaian.Text)
        totalbayar.Text = tagihan.Text * pajak.Text
    End Sub

    Private Sub Btnsimpandata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpandata.Click
        isitabel()
        BERSIH()
    End Sub
    Sub bersih()
        Kodepelanggan.Text = ""
        Tipepelanggan.Text = ""
        Tipetoko.Text = ""
        pajak.Text = ""
        meteranbulanlalu.Text = ""
        meteranbulansekarang.Text = ""
        totalbayar.Text = ""
        daerah.Text = ""
        hargaperkwh.Text = ""
        biayabeban.Text = ""
        tagihan.Text = ""
        besarpemakaian.Text = ""
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        bersih()
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

End Class

Tentang Mesran.Net

Mesran [dot]Net Tempat Pemograman

Kamu mau pintar bahasa Pemograman ? Jangan bingung karna saya akan membawa anda ke website yang penuh dengan bahasa pemograman, baiklah marilah kita menuju ke sana.

Merupakan Website dimana Anda/Kamu/Kita bisa belajar bahasa pemograman dengan berbagai Bahasa Pemograman contohnya (Bahasa C, Bahasa C++, Bahasa C#/C Sharp, Bahasa Pascal, Bahasa Visual(VB 6.0, VB.Net), Bahasa Java, Bahasa Delphi,maupun bahasa pemogramman yang terbaru yaitu Android).

Bagaimana caranya ? caranya gampang kok kalau mau mengaksesnya tingal kamu klik nama ini Mesran.net 
atau tulis link ini http://mesran.net/. Anda akan langsung ditujukan ketepat yang website yang penuh dengan bahasa pemograman.

Website ini dibuat oleh seorang Dosen dikampus saya, Beliau selain menjadi Dosen, juga menduduki jabatan sebagai Ketua STMIK di kampus saya. Siapakah orangnya yaitu Bapak Mesran, S.KOM., M.KOM.

Beliau adalah Dosen yang membentuk dan juga membina suatu Organisasi dikampus saya yang bernama Budidarma Programming Club (BPC). Budidarma Programming Club (BPC) yaitu suatu organisasi yang mempelajari bahasa pemograman, juga merupakan organisasi yang cukup ternama dikampus saya, Kenapa? Karena BPCbanyak membantu mahasiswa dalam pengerjaan Tugas Akhir(TA) maupun Skripsi.

O ya dari tadi saya hanya membahas kampus saya tapi saya belum memberi tahu nama kampus saya, jadi saya berkuliah di STMIK BUDIDARMA MEDAN.

Sekian informasi yang bisa saya share kepada teman-teman semua, semoga bermanfaat dan Terima Kasih.Tentang Mesran.Net

menampilkan record file bertipe di pemrograman Pascal

Contoh program Visual Basic 2 Mengenal dan Mengetahui cara penggunaan ListView

Tutorial kali saya akan memberi contoh Visual Basic 2008 yang kedua

langkah-langkahnya :
1. Membuka Program VB (Visual Basic) 2008
2. klik create:project
3. Ubah Project dengan nama Anda
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
5. Desain Form tersebut dengan Label, TextBox, Button, ListView

Tampilan From :

6.Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

    End Sub

    Sub buattabel()

        With lv

            .Columns.Add("NPM", 80, HorizontalAlignment.Center)

            .Columns.Add("nama", 100, HorizontalAlignment.Center)

            .View = View.Details

            .FullRowSelect = True

            .GridLines = True

        End With

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(NAMA.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        isitabel()

        NPM.Text = ""

        NAMA.Text = ""

    End Sub

    Private Sub btnhs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhs.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class

7. Tampilan From setelah dijalankan

NB :

• Ketikan NPM Anda pada TextBox NPM
• Ketikan Nama Anda pada TextBox Nama
• Klik => buttton (Simpan Ke ListView)
• Jika Anda ingin menghapusnya : Klik saja button (Hapus data yang Dipilih) atau jika ingin menghapus semua Datanya Klik saja button (Hapus Semua Data)

Silahkan di coba programnya ya :)

 

Contoh Pemograman Visual Basic Gaji Karyawan

Langkah-langkahnya :

1. Membuka Program VB (Visual Basic) 2008
2. klik create:project
3. Ubah Project dengan nama Anda
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
5. Desain Form tersebut dengan Label, TextBox, Combobox, Button
 Tampilan Form :

6. Listing Program

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text()

            Case "PM010"

                Nama.Text = "Bister"

            Case "PS111"

                Nama.Text = "Tri"

            Case "KU101"

                Nama.Text = "Sandora"

            Case "GD100"

                Nama.Text = "Novella"

            Case "PM011"

                Nama.Text = "Mindo"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "PS" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "KU" Then

            Bagian.Text = "Keuangan"

        ElseIf x = "GD" Then

            Bagian.Text = "Gudang"

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Divisi")

        Jabatan.Items.Add("Staff")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        JumlahAnak.Items.Add("1 Anak")

        JumlahAnak.Items.Add("2 Anak")

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.Text

            Case "Kepala Divisi"

                GajiPokok.Text = "5000000"

            Case "Staff"

                GajiPokok.Text = "2000000"

            Case "Wakil Kepala"

                GajiPokok.Text = "3500000"

        End Select

        Pajak.Text = GajiPokok.Text * 0.1

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        Select Case Status.Text

            Case "Menikah"

                TunjanganKeluarga.Text = 0.15 * GajiPokok.Text

            Case "Tidak Menikah"

                TunjanganKeluarga.Text = 0

                TunjanganAnak.Text = 0

                TotalGaji.Text = Val(GajiPokok.Text) - Val(Pajak.Text)

                JumlahAnak.Text = 0

        End Select

    End Sub

    Private Sub JumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.SelectedIndexChanged

        Dim x As String

        x = JumlahAnak.Text

        If x = "1 Anak" Then

            TunjanganAnak.Text = 0.5 * GajiPokok.Text

            TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)

        ElseIf x = "2 Anak" Then

            TunjanganAnak.Text = 0.1 * GajiPokok.Text

            TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NIK.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        GajiPokok.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        JumlahAnak.Text = ""

        TunjanganAnak.Text = ""

        TunjanganKeluarga.Text = ""

        TotalGaji.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class

7. Tampilan Form setelah dijalankan