İlk Olarak Forumumuza 3 adet Textbox ,2 Adet Buton Ekleyelim ve Aşadaki Kodları foruma Yapıştıralım....


Forum:


Private Sub Command1_Click()
Text2 = Kodla(Text1)
End Sub
Function Kodla(kelime As String)
For i = 1 To Len(kelime)
g = Mid(kelime, i, 1)
a = Asc(g)
b = a + 10
If b > 255 Then b = b - 255
Mid(kelime, i, 1) = Chr(b)
Next i
Kodla = kelime
End Function
Function coz(kelime As String)
For i = 1 To Len(kelime)
g = Mid(kelime, i, 1)
a = Asc(g)
b = a - 10
If b < 0 Then b = b + 255
Mid(kelime, i, 1) = Chr(b)
Next i
coz = kelime
End Function
Private Sub Command2_Click()
Text3 = coz(Text2)
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Ahmet Beliktay Yapımıdır", 64, "FRMTR İCİN "
End Sub

BİR KISMI ALINTIDIR

Yorumlarınızı Ve Raplerinizi Esirgemeyin....
Bir Teşekkur Etmek Bu kadar Zor Olmamalı ????
__________________