Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CT.Text = " "
PT.Text = " "
End Sub
Private Sub BTNDEKRIPSI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDEKRIPSI.Click
Dim jumlah As Double = Len(CT.Text)
Dim x As String
Dim xkalimat As String = " "
Dim i As Double
Dim bil As Integer
For i = 1 To jumlah
x = Mid(CT.Text, i, 1)
bil = Asc(x) - 3
x = Chr(bil)
xkalimat = xkalimat + x
Next i
PT.Text = xkalimat
End Sub
End Class
Tidak ada komentar:
Posting Komentar