تولید یک مقدار 12 رقمی " random"

[arastooms 1,046]

سلام به همه عزیزان 
دنبال دستوری میگردم که بتونم یک مقدار متشکل از حروف و اعداد ولی رندوم ایجاد کنم 
مثلا 12 رقمی باشه حروف کوچک و بزرگ هم باشه با اعداد
چه فرمانی باید بدم 

این فرمان که درانجمن بود برای اعداد 12 رقمی کار میکنه ولی حروف قبول نمیکنه !!


 

Dim adad As Int
adad=Rnd(111111111111,9999999999999)
ToastMessageShow(adad,True)

ممنون از راهنمایی عزیزان

[امین شاهدی 5,771]

Dim random As String

For i=0 To 14
Dim c As Char = Chr(Rnd(33, 127))
random=random&c
Next

Msgbox( random ,"")

میتونین محدوده یونیکد (توی کد بین 33 و 127) رو مشخص کنید و هر نوع کاراکتری رو به متغیرتون اضافه کنید

ی

لیست unicode هارو از اینجا ببینید : https://en.wikipedia.org/wiki/List_of_Unicode_characters#Latin_Extended-A

شماره هر یونیکد توی ستون # نمایش داده شده و مقداری که میگیرید هم توی ستون GLYPH

[کاربر ناشناس 2,148]

درود

میشه بگید این خط الان چه کار میکنه 

اصلا Char چیه ؟

Dim c As Char = Chr(Rnd(33, 127))

[امین شاهدی 5,771]

 

درود

میشه بگید این خط الان چه کار میکنه 

اصلا Char چیه ؟

Dim c As Char = Chr(Rnd(33, 127))

 

Chr مخفف Character ، و یه عدد یونیکد میگیره و یک کاراتر که واسه همون عدد هست رو بر میگردونه(ASCII) ، لیست کاراکتر ها رو هم که دادم و میتونین ببینید.

[arastooms 1,046]

Dim random As String

For i=0 To 14
Dim c As Char = Chr(Rnd(33, 127))
random=random&c
Next

Msgbox( random ,"")

میتونین محدوده یونیکد (توی کد بین 33 و 127) رو مشخص کنید و هر نوع کاراکتری رو به متغیرتون اضافه کنید

ی

لیست unicode هارو از اینجا ببینید : https://en.wikipedia.org/wiki/List_of_Unicode_characters#Latin_Extended-A

شماره هر یونیکد توی ستون # نمایش داده شده و مقداری که میگیرید هم توی ستون GLYPH

 

مثل همیشه عالی و بی نقص امین جان 

سپاس و تشکر فراوان 

کد عالی کار میکنه من پست رو پاسخ داده شده اعلام میکنم که مدیران محبت کنند قفل کنند تا عزیزان دیگه در صورت نیاز استفاده کنند

با تشکر

[arastooms 1,046]

دوستان ابن کد رو هم من بسط دادم برای تولید عدد 12 رقمی از اعداد و حروف کوچک و بزرگ 
هربار به حلقه for یکی اضافه کنید به ارقام 3 رقم اضافه میشه 
امید وارم به کار تون بیاد و تشکر از امین عزیز 
 

Sub Button1_Click
'	
Dim random As String

For i=0 To 3
Dim c As Char = Chr(Rnd(48, 57))
Dim d As Char = Chr(Rnd(65, 90))
Dim f As Char = Chr(Rnd(97, 122))
random=random&d&c&f
Next

Msgbox( random ,"")

End Sub