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....