ایجاد شماره تصادفی در vb2013

[arman_holy]

سلام مهندسین
می خوام کاربر با وارد شدن به صفحه،برنامه یک شماره تصادفی براش در نظر بگیره..از ورژن 2013 هم استفاده میکنم
ممنونم اگ با توضیح برام بنویسین چون دبیرستان بودم با vb6 کار کردم الان کارشناسیم هیچی یادم نمونده

[gilsoft]

سلام مهندسین
می خوام کاربر با وارد شدن به صفحه،برنامه یک شماره تصادفی براش در نظر بگیره..از ورژن 2013 هم استفاده میکنم
ممنونم اگ با توضیح برام بنویسین چون دبیرستان بودم با vb6 کار کردم الان کارشناسیم هیچی یادم نمونده

سلام دوست عزیز

اینم کد مربوطه:
' Initialize the random-number generator.
VBMath.Randomize()

' Generate random value between 1 and 9999.
Dim value As Integer = CInt(Int((9998 * Rnd()) + 1))

کد فوق یک عدد تصادفی مابین 1 تا 9999 تولید می‌کنه ....

موفق باشید .....

[arman_holy]

ممنون جواب داد..
فقط اگه بخام عددش 16 رقم باشه و با کلیک روی دکمه توی یه دیالوگ باکس نشون بده چه باید کرد؟

[gilsoft]

ممنون جواب داد..
فقط اگه بخام عددش 16 رقم باشه و با کلیک روی دکمه توی یه دیالوگ باکس نشون بده چه باید کرد؟

سلام دوست عزیز

اینم کد تولید اعداد تصاددفی 16 رقمی :
Imports VB = Microsoft.VisualBasic

Public Class Form1
Dim Min As ULong = 1000000000000000
Dim Max As ULong = 9999999999999999
Dim value As ULong = 0

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
VBMath.Randomize()
Try
value = CULng(Min + ((Max - Min) * Rnd()))
TextBox1.Text = value
Catch ex As Exception
TextBox1.Text = "Error !"
End Try
End Sub
End Class

موفق باشید