كيف اقوم بتغيير احرف جملة باستخدام ال ascii

	Private Function ChangChar(ByVal Sta As String, Optional ByVal ChangeVal As Integer = 3) As String
		Sta = TextBox1.Text
		Dim res(Sta.Length) As Char
		For i As Integer = 1 To Sta.Length
			res(i - 1) = Chr(Asc(Mid(Sta, i, 1)) + ChangeVal)
		Next
		Return res
	End Function

مثال عن الاستخدام

		TextBox2.Text = ChangChar(TextBox1.Text)
		TextBox3.Text = ChangChar(TextBox1.Text, 5)

شكرا اخي احتاج الى شرح هاتين الخطوتين

Dim res(Sta.Length) As Char

حيث لماذا لم نجعل res ك strings حيث انني سوف اقوم بتشفير جمل

ولم اعرف لمذا استخدمنا (Sta.Length)

وارجو شرح هذه

res(i - 1) = Chr(Asc(Mid(Sta, i, 1)) + ChangeVal)

مالفائدة من استخدام mid

البرنامج عمل عندي بشكل صحيح

وموجود في المرفقات

WindowsApplication1.rar

العبارة

Dim res(Sta.Length) As Char

تعرف مصفوفة من النوع Char بطول النص الأصلي بما أن الكود يتعامل مع حرف حرف لذلك استخدمنا متغير مؤقت عبارة عن مصفوفة محارف نحوله فيما بعد إلى String بعد الانتهاء من العملية

والعبارة

res(i - 1) = Chr(Asc(Mid(Sta, i, 1)) + ChangeVal)

هي عبارة عن استخدام الدالة Asc لتعيد مقابل الحرف في جدول ASCII حيث نضيف له القيمة التي نريدها ChangeVal ثم نستخدم الدالة Chr لتعطينا المحرف المقابل للرقم الجديد بعد عملية الإضافة حيث نضعها في مكانها الصحيح حسب الترتيب في المصفوفة res(i - 1)

بقيت العبارة

Mid(Sta, i, 1)

حيث تستخدم الدالة Mid لإعادة سلسلة نصية جزئية من سلسة نصية أطول وهنا نقول له أعد سلسلة نصية ابتداء من الحرف ذو الترتيب i وبطول 1 حرف وذلك من السلسة النصية sta