السلام عليكم ورحمة الله وبركاته
PHP كود :
Public Class Form1
Dim lst As String = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
Dim lst2 As String = "hfje[po]`v.sawq'/uytr;glki,d"
Dim enc As Boolean
Private Function rotatestring(txt As String) As String
Dim t As String = ""
If enc = False Then
For Each h As String In txt
If lst.Contains(h) Then
t &= lst2(lst.IndexOf(h))
Else
t &= h
End If
Next
enc = True
ElseIf enc = True Then
For Each h As String In txt
If lst2.Contains(h) Then
t &= lst(lst2.IndexOf(h))
Else
t &= h
End If
Next
enc = False
End If
Return t
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = rotatestring(TextBox1.Text)
End Sub
End Class
في السابق اتوهق في مشكلة خارج الصفيف OutOfRange
واحاول سد الفراغ باي طريقة ومع الوقت شلون صار الحل اشتراط بسيط
يعني اسرد الحروف العربية ابتثجحخد وهكذا للياء واذا انتهيت نفس اماكن الحروف العربية انقرها مرة اخرى بعد تحويل الكتابة للانجليزي او اي لغة اخرى!
صبحكم الله بالخير
معذرة اخواني الكرام حين طبقت الفكرة بالاساس على حروف لغة عربية فقط لكن عند كتابة الموضوع جعلتها مع حروف انجليزية يعني الحروف ليست متكافئة يعني حتحصل مشكلة خارج المصفوفة .
كل واحد وطريقته عاد بحل اي مشكلة تواجهه اذا عرفها.
مثلا بالطريقة هذي الحل اضافة رقمين للحروف الانجليزية حتى يكون الطول واحد