Buatlah terlebih dahulu designya seperti gambar yang di atas.
setelah itu silahkan buat coding programnya
Public Class Form1
Private Sub en_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles en.Click
Dim s As String = ""
Dim
skalimat As String
= ""
For p =
1 To Len(plain.Text)
s = Mid(plain.Text, p, p)
s = Chr(Asc(s) + 3)
skalimat = skalimat + s
Next
chiper.Text = skalimat
End Sub
Private Sub des_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles des.Click
Dim s As String = ""
Dim
skalimat As String
= ""
For p =
1 To Len(chiper.Text)
s = Mid(chiper.Text, p, p)
s = Chr(Asc(s) - 3)
skalimat = skalimat + s
Next
plain.Text = skalimat
End Sub
Private Sub plain_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles plain.TextChanged
End Sub
End Class
sehinggah hasilnya seperti
