• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 11 رای - 2.45 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: رندوم
حالت موضوعی
#1
یک سورس میخوام که حروف رندوم 4 حرفه بده
 
پاسخ
#2
یه همچین چیزی رو در نظر داشته باش :

کد:
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 استفاده کنی
باید حرف زورو نشنوم کر شم فقط -- تو نه رفیق ریگی نیست به کفشم نترس

 نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم

باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی  یهویی خیس  شن
 
پاسخ
#3
میشه سورس بدین؟
 
پاسخ
#4
پسورد :
کد:
www.parsicoders.com


فایل‌های پیوست
.rar   Random Letter Generator(www.parsicoders.com).rar (اندازه 1.27 KB / تعداد دانلود: 4)
باید حرف زورو نشنوم کر شم فقط -- تو نه رفیق ریگی نیست به کفشم نترس

 نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم

باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی  یهویی خیس  شن
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  انتخاب رندوم از لیست باکس aghamali 0 2,594 04-16-2015، 06:30 AM
آخرین ارسال: aghamali

پرش به انجمن:


Browsing: 1 مهمان