انتخاب تصادفی عدد 16 رقمی

[mehrabmmp 528]

سلام

 

من میخوام یه عدد تصادفی 16 رقمی انتخاب شه و تو یه لیبل نمایش داده بشه

 

من با تابع رندوم این کارو میکنم ولی نمیشه عدد 7 8 رقمی میده

label.text = rnd(999999999999999,9999999999999999)

[Farzad Musavi 576]

بله این ارور رو میده

 

Untitled.png

label1.text=Rnd(10000000,99999999)&Rnd(10000000,99999999)

[Farzad Musavi 576]

label.text = rnd(1000000000000000,9999999999999999)

اینو تست کردی؟

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

سلام

بر دو جوان عزیز

چرا اینقدر خودت رو اذیت میکنی

از کتابخانه Assistant_random استفاده کن

[mehrabmmp 528]

label.text = rnd(1000000000000000,9999999999999999)

اینو تست کردی؟

 

 

بله این ارور رو میده

 

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

http://answercenter.ir/topic/11419-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C-assistant-rnd/

[razavioo 310]

سلام

 

من میخوام یه عدد تصادفی 16 رقمی انتخاب شه و تو یه لیبل نمایش داده بشه

 

من با تابع رندوم این کارو میکنم ولی نمیشه عدد 7 8 رقمی میده

label.text = rnd(999999999999999,9999999999999999)

 

من اینطوری به ذهنم می رسه :

	label1.text = 0
	For i = 1 To 12
		Dim p As Long = label1.text
		If i = 1 Then
			p = (p*10) + Rnd(1,9)
			label1.text = P
		Else
			p = (p*10) + Rnd(0,9)
			label1.text = P
		End If
	Next i

من برای یک عدد دوازده رقمی نوشتم. شما تغییرش بده به هر عددی که خواستی

اشتباه بود کدم اصلاحش کردم.