09-05-2012، 08:47 PM
یک سورس میخوام که حروف رندوم 4 حرفه بده
|
امتیاز موضوع:
Title: رندوم
حالت موضوعی |
09-05-2012، 09:17 PM
یه همچین چیزی رو در نظر داشته باش :
که فکر می کنم بدونی چطور استفاده کنی ! مثلا واسه 4 حرفی باید هنگام فراخوانی تابع 4 استفاده کنی
کد:
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 استفاده کنی
باید حرف زورو نشنوم کر شم فقط -- تو نه رفیق ریگی نیست به کفشم نترس
نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم
باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی یهویی خیس شن
نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم
باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی یهویی خیس شن
| موضوعات مشابه ... | |||||
| موضوع | نویسنده | پاسخ | بازدید | آخرین ارسال | |
| انتخاب رندوم از لیست باکس | aghamali | 0 | 2,594 |
04-16-2015، 06:30 AM آخرین ارسال: aghamali |
|
Browsing: