(29-01-21, 05:22 PM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
حول النص الى مصفوفة ثم استخدم الدالة.

(29-01-21, 06:53 PM)العبادي 2 كتب :

(29-01-21, 05:22 PM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
حول النص الى مصفوفة ثم استخدم الدالة.

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

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

(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

(29-01-21, 08:44 PM)سعود كتب :
هذي بطريقة اخرى وهي مثل ماقلت لك عملتها شوف الرابط