تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود سريع للتجديد وليس جديد
#1
السلام عليكم ورحمة الله وبركاته

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(hThen
                    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(hThen
                    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.ObjectAs System.EventArgsHandles Button1.Click
        TextBox1
.Text rotatestring(TextBox1.Text)
 
   End Sub
End 
Class 

في السابق اتوهق في مشكلة  خارج الصفيف OutOfRange
واحاول سد الفراغ باي طريقة ومع الوقت شلون صار الحلSad اشتراط بسيط
يعني اسرد الحروف العربية ابتثجحخد وهكذا للياء واذا انتهيت نفس اماكن الحروف العربية انقرها مرة اخرى بعد تحويل الكتابة للانجليزي او اي لغة اخرى!
صبحكم الله بالخير


معذرة اخواني الكرام حين طبقت الفكرة بالاساس على حروف لغة عربية فقط لكن عند كتابة الموضوع جعلتها مع حروف انجليزية يعني الحروف ليست متكافئة يعني حتحصل مشكلة خارج المصفوفة  .
كل واحد وطريقته عاد بحل اي مشكلة تواجهه اذا عرفها.
مثلا بالطريقة هذي الحل اضافة رقمين للحروف الانجليزية حتى يكون الطول واحد
الرد }}}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم