‘İlk Önce 2 Textbox
‘2 Command Button Ekleyin
‘1.textboxa yazcaz 2.den alcaz (İkisininde Multi lşne True Olsun)
‘1.command ile şifrelicez 2.ile çözcez
‘Forma Yerleştirin
‘İsimlerine Karışmayın….
‘Kod Başlangıcı
‘——————————————————————————————————————-””’—‘
Private Sub Command1_Click()
Dim yazı As String, yazı1 As String
Dim i As Integer
On Error Resume Next ‘Hata Oluşursa Görmezden Gelmesi için
For i = 1 To Len(Text1.Text) ‘textin uzunluğu kadar
yazı = Mid(Text1.Text, i, 1) ‘Her Harfi al
yazı = Asc(yazı) ‘Sayıya Çevir
yazı = yazı + 5 ‘5 Arttır
yazı = Chr(yazı) ‘Yeniden Yazı Yap
yazı1 = yazı1 & yazı
Next
Text2.Text = yazı1
End Sub
Private Sub Command2_Click()
Dim yazı As String, yazı1 As String
Dim i As Integer
On Error Resume Next ‘Hata Oluşursa Görmezden Gelmesi için
For i = 1 To Len(Text1.Text) ‘textin uzunluğu kadar
yazı = Mid(Text1.Text, i, 1) ‘Her Harfi al
yazı = Asc(yazı) ‘Sayıya Çevir
yazı = yazı – 5 ‘5 Arttır
yazı = Chr(yazı) ‘Yeniden Yazı Yap
yazı1 = yazı1 & yazı
Next
Text2.Text = yazı1
End Sub
‘———————————————————————————————————
‘Kod Bitişi
Sonraki Yazı