Papper class for Program Basis Data

Source codenya membuat pengamanan karakter:

Private Sub cmddec_Click()
sinp = txtinput.Text
sout = “”
For p = 1 To Len(sinp) Step 1
sc = Mid(sinp, p, 1)
nc = Asc(sc) – 3
sout = sout + Chr(nc)
Next p
txtoutput.Text = sout
End Sub

txtoutput.Text = “”

Private Sub cmdenc_Click()
sinp = txtinput.Text
sout = “”
For p = 1 To Len(sinp) Step 1
sc = Mid(sinp, p, 1)
nc = Asc(sc) + 3
sout = sout + Chr(nc)
Next p
txtoutput.Text = sout
End Sub

txtinput.Text = “”

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdclear_Click()

Private Sub Form_Load()
txtoutput.Enabled = False
End Sub

lagi ora mod

Iseng aku buat link download tentang berbagai e-book dan majalah, kalau sukses dan banyak respon dari pengunjung nanti insya Allah saya posting lagi deh yang lebih banyak lagi, maklum versi trial. terimakasih atas perhatiannya dan semoga halaman download ini bermanfaat. oh ya kalau yang mau kritik dan saran bisa kirim saya komentar di bawah ya. terimakasih