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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: