Penggabungan Program Kriptografi Dalam Satu Menu Utama

Sesuai dengan aparan pak mesran untuk mengerjakan tugas akhir semester, dengan membuat penggabungan beberapa program dalam satu menu utama maka saya akan membuat langkah langkahnya
1. buatlah form kerja baru dengan cara file>new project>add

2. Tambahkan  4 form lagi untuk masing masing Kriptografi,dengan cara project>add windows form>ok

 lakukan langkah kedua hingga sampai form 5
3. Desainlah setiap form sesuai dengan gambar dibawah ini

untuk membuat tampilan seperti diatas pertama kitaharus menambahkan MenuStrip pada toolbox lalu isi menu apa saja yg kita inginkan
contoh : File,Keluar

 Selanjutnya pada  Properties gantilah IsMdiContainer menjadi True

4. buatlan sub menu pada "file",ini berfungsi sebagai media perantara saat pemanggilan form lain
contoh  ; Kriptografi Caesar,Kriptografi Vernam,Kriptografi gransfeld,Kriptografi viginere

5. berikut ini adalah coding untuk pemanggilan form formnya
cara memasukkan codingnya dengan cara mengklik 2x setiap sub menu lalu isikan kodingnya seperti dibawah ini

 form 2
    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
form 3
    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()

    End Sub
form 4
    Private Sub KriptografiGronsfledToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfledToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()

    End Sub
form 5
    Private Sub KriptografiVigenereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVigenereToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End

    End Sub
End Class

lakukan pengetesan terlebih dahulu ,apakah pemanggilan setiap form telah sesuai ,jika telah sesuai maka kita bisa melanjutkan kelangkah berikutnya
6. Desainlah form form tadi seperti program yang telah saya posting sebelumnya
A. Form 2 

 Public Class Form2

    Private Sub btnenskipsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenskipsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plain.Text)
            x = Mid(plain.Text, i, 1)
            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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plain.Text = ""
    End Sub
End Class
B. Form 3

 Public Class Form3

    Private Sub Form3_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 nEnc As Integer
        j = 0
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, 1, 1)) - 65
            nKunci = Asc(Mid(sKey, j, 1)) - 65
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub
End Class

C. Form 4

 Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        input.Text = ""
        hasil.Text = ""

    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Dim ind As Integer
        Dim huruf, kalimat As String
        Dim jumlah(25) As Integer
        kalimat = (input.Text).ToUpper
        For x = 1 To Microsoft.VisualBasic.Len(kalimat)
            huruf = kalimat.Substring(x - 1, 1)
            If (huruf >= "A") And (huruf <= "Z") Then
                ind = Asc(huruf) - 65
                jumlah(ind) += 1
            End If
        Next
        hasil.Text = ""
        For i As Integer = 0 To 25
            huruf = Chr(i + 65)
            If jumlah(i) > 0 Then
                hasil.Text = hasil.Text & huruf & " = " & jumlah(i) & vbCrLf
            End If
        Next
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        input.Text = ""
        hasil.Text = ""
    End Sub
End Class


D. Form 5

 

 Public Class Form5

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        chipertekx.Text = Enkripsi(plainteks.Text, Kunci.Text)
    End Sub
    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
        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 nEnc As Integer
        j = 0
        jum = Len(Teks)
        sPlain = ""
        sKey = Kunci
        sKata = Teks

        For i = 1 To jum

            If j = Len(sKey) Then
                j = 1

            Else

                j = j + 1

            End If

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

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Enkripsi = sPlain

    End Function



    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        chipertekx.Text = ""
        kunc.Text = ""

    End Sub
End Class

7.jika telah selesai semuanya maka  cobalah jalankan Program tersebut jika berhasil maka tampilannya akan seperti ini

 Demikianlah postongan tutorial saya ,jangan lupa kunjungi blog saya dan juga website pak mesran  yang berisikan semua tentang program mulai dari php,c++,pacsal,delphi,vb dan banyak lagi

Read More

Program Kriptografi Viginere VBNET 2008

Disini saya akan menjelaskan cara membuat program Kriptografi Viginere menggunakan VBNET 2008
Berikut langkah langkahnya
1. buatlah form baru  file>new project>ok
2. selanjutnya desainlah form tersebut sesuai dengan gembar sperti dibawah ini

3. selanjutnya gantilah mane serta teksnya sesuai dengan coding agar menghindari terjadinya masalah eror pada saat menjalankannya

4. isikan kodingnya sesuai dengan dibawah ini
Public Class Form5

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        chipertekx.Text = Enkripsi(plainteks.Text, Kunci.Text)
    End Sub
    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
        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 nEnc As Integer
        j = 0
        jum = Len(Teks)
        sPlain = ""
        sKey = Kunci
        sKata = Teks

        For i = 1 To jum

            If j = Len(sKey) Then
                j = 1

            Else

                j = j + 1

            End If

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

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Enkripsi = sPlain

    End Function



    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        chipertekx.Text = ""
        kunc.Text = ""

    End Sub
End Class
5. jika telah selesai mengidi codingnya maka selanjutnya coba jalankan program tersebut dengan cara menekan tombol "F5"

6. jika berhasil maka tampilannya akan seperti ini

Demikianlah cara membuat program Kriptografi Viginere

Read More

Membuat Kriptografi Gronsfled menggunakan VBNET 2008

Disini saya kembali mencoba membuat program  tentang Kriptografi Gronsfled, berikut ini langkah langkah nya
1.buatlah form baru file>New Project>OK

2. Desainlah form baru tersebut seperti pada gambar dibawah ini

3. Selanjutnya isilah name dan teks nya sesuai dengan coding agar tidak terjadi eror pada saat dijalankan seperti dibawah ini


Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        input.Text = ""
        hasil.Text = ""

    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Dim ind As Integer
        Dim huruf, kalimat As String
        Dim jumlah(25) As Integer
        kalimat = (input.Text).ToUpper
        For x = 1 To Microsoft.VisualBasic.Len(kalimat)
            huruf = kalimat.Substring(x - 1, 1)
            If (huruf >= "A") And (huruf <= "Z") Then
                ind = Asc(huruf) - 65
                jumlah(ind) += 1
            End If
        Next
        hasil.Text = ""
        For i As Integer = 0 To 25
            huruf = Chr(i + 65)
            If jumlah(i) > 0 Then
                hasil.Text = hasil.Text & huruf & " = " & jumlah(i) & vbCrLf
            End If
        Next
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        input.Text = ""
        hasil.Text = ""
    End Sub
End Class

4.jika telah selesai mengisi codingnya maka langkah selanjutnya adalah menjalankannya  dengan cara menekan "F5" atau meng klik tanda play pada menu bar
jika berhasil tanpa ata eror maka  tampilannya akan seperti ini

Demikian lah penjelasan tenteng membuat kriptografi gronsfled  menggunakan vbnet 2008,jangan lupa kunjungi mesran.net untuk mengetahui informasi dan semua tentang program

selamat mencoba.....!!!!!!

Read More

membuat Kriptografi Vernam Dengan menggunakan VBNET 2008

Disini saya akan memposting hasil latihan yang telah saya pelajari dimesran.net tentang kriptografi
buat lah terlebih dahulu formnya seperti gember dibawah ini

senjutnya gantilah name dan teksnya sesuai dengan gambar ini

langkah selanjutnya isilah kodingnya sesuai dengan teks yang telah ditulis sebelumnya seperti dibawah ini


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub btnenskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenskripsi.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 nEnc As Integer
        j = 0
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, 1, 1)) - 65
            nKunci = Asc(Mid(sKey, j, 1)) - 65
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.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


langkah terakhir jika tekah selesai maka boca jalankan programnya dengan menekan tombol "F5" atau mrngklik ikon play pada menu bar
jika telah berhasil maka tampilannya akan seperti ini

tidak sulit bukan untuk mrmbuatnya? jika kita ada kemauan dan niat pasti kita bisa mengerjakannya walaupun itu sulat
demikianlah  postingan saya kali ini jangan lupa kunjungi blog saya dan juga mesran.net untuk mempelajari tentang dunia pemograman yang uptodate

Read More

Membuat Kripto grafi Caesar menggunakan VBNET 2008

Disini saya akan memposting  hasil latihan saya  yang terdapat di modul pemograman visual
langkah pertama buatlah dulu desain formnya

setelah itu gantilah mane dan teksnya sesuai dengan yang tertera pada gambar dibawah ini

selanjutnya masukkan codingnya seperti dibawah ini

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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plain.Text = ""
        chiper.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("yakin anda ingin keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    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, 1)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plain.Text = xkalimat
    End Sub
End Class
coba jalankan proses dengan menekan tombol "F5" atau dengan mengklik lambang plat pada menu bar
jika telah berhasil maka tampilah nya akan seperti ini

demikian lah postingan saya selamat mencoba....

Read More

Belajar Pemograman di mesran.net

Pak Mesran adalah seorang dosen pemograman di STMIK BUDI DARMA Medan,selain itu Pak Mesran juga menjabat sebagai Ketua STMIK BUDI DARMA Medan.
 Pak Mesran juga mendirikan club pemograman yg bernama BPC (Budi Darma Programing Club) yang terbentuk sejak beberapa tahun yang lalu, Pak Mesran juga mengelola sebuah situs internet dan juga sebuah blog yang aktif yaitu mesran.net dan http://mesran.blogspot.com/
  mesran.net adalah situs yang membahas seluruhnya tentang programing  mulai dari Visual Basic 6,Visual Basic NET ,DELPHI,C++,C,PASCAL,PHP dan banyak lagi informasi menarik lainnya. begitu juga dengan http://mesran.blogspot.com/ yang selalu update tiap harinya,
Kita juga bisa belajar pemograman di sana,sesuai dengan motto yang tercantum diMesran Punya Blog yaitu "Selalu berusaha untuk memberikan yang terbaik" dan juga dimesran.net yaitu "Hanya ingin berbagi kebaikan mendapatkan kebaikan yang lain"
Buat  yang ingin belajar bahasa programan silahkan kunjungi situs ini mesran.net dan Selalu berusaha untuk memberikan yang terbaik Terima kasih Pak mesran yg telah mengajari kami bahasa pemograman,buat pak mesran sukses selalu

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :

Modifikasi program berikut ini http://mesran.blogspot.com/2013/11/pemakaian-if-else-dalam-penyelesaian.html dengan menambahkan komponen LISTVIEW

(http://mesran.net/quiz.html)

Berikut ini adalah jawabannya

buat terlebih dahulu desain formnya 

 

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-MED-102")
        kp.Items.Add("SAL-BEL-103")
        kp.Items.Add("GRO-DEL-104")
    End Sub

    Private Sub jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ttagihan.Text = Val(bbeban.Text) + (harga.Text * jp.Text)
            pajak.Text = 0.01 * ttagihan.Text
            pembayaran.Text = Val(ttagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)
        Select Case x
            Case "100" : nama.Text = "Suhairy Tri Yadhi"
            Case "101" : nama.Text = "Paul Walker"
            Case "102" : nama.Text = "Dominic Toretto"
            Case "103" : nama.Text = "Brian Haner"
            Case "104" : nama.Text = "Lukman Wijaya"
        End Select
        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        Select Case x
            Case "TOK"
                harga.Text = 250
                bbeban.Text = 15000
                tipe.Text = "TOKO"
            Case "RUM"
                harga.Text = 150
                bbeban.Text = 10000
                tipe.Text = "RUMAH"
            Case "PAB"
                harga.Text = 25000
                bbeban.Text = 250000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga.Text = 20000
                bbeban.Text = 60000
                tipe.Text = "SWALAYAN"
            Case "SAL"
                harga.Text = 900
                bbeban.Text = 20000
                tipe.Text = "SALON"
            Case "GRO"
                harga.Text = 100
                bbeban.Text = 1100
                tipe.Text = "GROSIR"
        End Select
        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        Select Case x
            Case "MED"
                : daerah.Text = "MEDAN"
            Case "BEL"
                : daerah.Text = "BELAWAN"
            Case Else
                : daerah.Text = "DELI SERDANG"
        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tanya As String
        tanya = MsgBox("Anda Yakin Ingin Keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("Kode Pelanggan", 20, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga M3", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 160, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nama.Text
        Lst.SubItems.Add(kp.Text)
        Lst.SubItems.Add(tipe.Text)
        Lst.SubItems.Add(daerah.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(bbeban.Text)
        Lst.SubItems.Add(jp.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(nama.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        IsiTabel()
        nama.Text = ""
        kp.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        harga.Text = ""
        bbeban.Text = ""
        jp.Text = ""
        pajak.Text = ""
        ttagihan.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub btnhapus_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

    Private Sub btnberhis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnberhis.Click
        kp.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga.Text = ""
        jp.Text = ""
        ttagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        bbeban.Text = ""
        pajak.Text = ""
    End Sub
End Class

Tekan F5 untuk menjalankan tugas 

jika tehah selesai maka tampilannya akan seperti ini

Demikilahlah postingan saya  Nama : lukman wijaya  NPM : 12110631
 selamat belajar bahasa pemograman dan jangan lupa kunjungi  blog pak mesran

 

Read More