21-05-20, 04:30 PM
السلام عليكم
كيف حالكم
انا اقوم بتوليد ارقام هاتف عشوائية
اريد اضافة تكرار لهذا الكود ليجلب لي 20 نتيجة في textbox
كيف حالكم
انا اقوم بتوليد ارقام هاتف عشوائية
اريد اضافة تكرار لهذا الكود ليجلب لي 20 نتيجة في textbox
كود :
Dim XArray() As Char = "0123456789".ToCharArray
Dim xGenerator As System.Random = New System.Random()
Dim xStr As String = String.Empty
While xStr.Length < 8
If xGenerator.Next(0, 2) = 0 Then
xStr &= XArray(xGenerator.Next(0, XArray.Length))
End If
End While