+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: رندوم (/showthread.php?tid=2752)
رندوم - a.adhami - 09-05-2012
یک سورس میخوام که حروف رندوم 4 حرفه بده
RE: رندوم - Kei armin - 09-05-2012
یه همچین چیزی رو در نظر داشته باش :
کد:
Function RandomString(cb As Integer) As String
Randomize
Dim rstr As String
rstr = "abcdefghijklmnopqrstuvwxyz"
Dim i As Long
For i = 1 To cb
RandomString = RandomString & Mid$(rstr, Int(Rnd() * Len(rstr) + 1), 1)
Next
End Functionکه فکر می کنم بدونی چطور استفاده کنی ! مثلا واسه 4 حرفی باید هنگام فراخوانی تابع 4 استفاده کنی
RE: رندوم - a.adhami - 09-05-2012
میشه سورس بدین؟
RE: رندوم - Kei armin - 09-05-2012
پسورد :
کد:
www.parsicoders.com