ساخت اعداد و حروف تصادفی

[nimar9]

سلام خدمت همگی . یه سوال داشتم اونم اینه که چطوری می تونم این کارو کنم.

مثلا یه کد 5451F به برنامه بدم و هر بار کلیک روی کامند جای اینا عوض شه مثل 541F5 یا F4155 یا ...
ممنون اگر جوابمو بدید.

[ashkufaraz]

هر کدام از اجزای رشته ورودی(عدد/حرف) را بریز داخل یک خانه آرایه
و بعد با یک تابع رندومایز خانه های آرایه را به صورت تصادفی کنار هم بچین و بده خروجی

[nimar9]

هر کدام از اجزای رشته ورودی(عدد/حرف) را بریز داخل یک خانه آرایه
و بعد با یک تابع رندومایز خانه های آرایه را به صورت تصادفی کنار هم بچین و بده خروجی

راه راهت تر هست اگر نیست یه زره اینو بشکافید.

[nimar9]

یعنی کسی بلد نیست که جواب بده ؟

[محسن واژدی]

سلام علیکم
تابع زیر بررسی کنید:
Function RandomString(ByVal sTarStr$) As String
On Error Resume Next
Dim iCurPos%
Do
Randomize
If Len(sTarStr$) = 1 Then
RandomString = RandomString & sTarStr$
Exit Do
End If

Do
iCurPos% = Int(Rnd() * Len(sTarStr$))
Loop Until iCurPos% > 0

RandomString = RandomString & Mid$(sTarStr$, iCurPos%, 1)
Mid$(sTarStr$, iCurPos%) = vbLf
sTarStr$ = Replace(sTarStr$, vbLf, Empty)
Loop While Not sTarStr$ = Empty

End Function

به عنوان مثال:
MsgBox RandomString("541F5")

موفق باشید