[العبادي 2]

(29-01-21, 08:02 PM)سعود كتب :

PHP كود :

Private Function RandomizeArray(ByRef arr() As String) As String()
        Dim i, j As Integer
        Dim temp As String
        Randomize
        For i = 0 To UBound(arr)
            j = Int(((UBound(arr)) - i + 1) * Rnd() + i)
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        Next
        RandomizeArray = arr
    End Function
Private Function MakeArrFromText(ByVal txt As String) As String()
Dim arr() As String
Dim p As Integer
p = 0
For i = 1 To Len(txt)
Dim v As String
v = Mid(txt, i, 1)
ReDim Preserve arr(p)
arr(p) = v
p = p + 1
Next
MakeArrFromText = arr
End Function
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Text1.Text = ""
Dim myarr() As String
myarr = MakeArrFromText(a)
myarr = RandomizeArray(myarr)
For Each h In myarr
Text1.Text = Text1.Text & h
Next
End Sub 


ولو تحب المرفق فكلمة فك الضغط

vb4arb

جميل جدا اخي سعود

ولكن 
نحتاج بعض التعديل 
حتى يتم خلط الحروف بقاعدة يسار يمين  ثم يمين يسار
بحيث يكون الناتج كما في الصورة المرفقة
اكرر شكري وتقديري لك