[farfour]

السلام عليكم
كيف حالكم
انا اقوم بتوليد ارقام هاتف عشوائية
اريد اضافة تكرار لهذا الكود ليجلب لي 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

[سعود]

تفضل المثال البسيط

PHP كود :

Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
    Dim p As String = "0123456789"
    Private Function gen()
        Dim t As String = ""
        Dim i As Integer
        For i = 0 To (p.Length - 1)
            t &= p(Int(Rnd() * (p.Length - 1)))
        Next
        Return t
    End Function

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label1.MouseUp
        dr = False
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.mloc
        Randomize()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim m As Integer
        For m = 1 To 20
            TextBox1.AppendText(gen() & vbNewLine)
        Next

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub


End Class 


انت ركز على الاكواد التالية:

PHP كود :

Dim p As String = "0123456789"
    Private Function gen()
        Dim t As String = ""
        Dim i As Integer
        For i = 0 To (p.Length - 1)
            t &= p(Int(Rnd() * (p.Length - 1)))
        Next
        Return t
    End Function

 Dim m As Integer
        For m = 1 To 20
            TextBox1.AppendText(gen() & vbNewLine)
        Next 


[farfour]

(21-05-20, 11:57 PM)سعود كتب : تفضل المثال البسيط

PHP كود :

Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
    Dim p As String = "0123456789"
    Private Function gen()
        Dim t As String = ""
        Dim i As Integer
        For i = 0 To (p.Length - 1)
            t &= p(Int(Rnd() * (p.Length - 1)))
        Next
        Return t
    End Function

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label1.MouseUp
        dr = False
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.mloc
        Randomize()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim m As Integer
        For m = 1 To 20
            TextBox1.AppendText(gen() & vbNewLine)
        Next

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub


End Class 


انت ركز على الاكواد التالية:

PHP كود :

Dim p As String = "0123456789"
    Private Function gen()
        Dim t As String = ""
        Dim i As Integer
        For i = 0 To (p.Length - 1)
            t &= p(Int(Rnd() * (p.Length - 1)))
        Next
        Return t
    End Function

 Dim m As Integer
        For m = 1 To 20
            TextBox1.AppendText(gen() & vbNewLine)
        Next 


شكراا اخي سعود و ان شاء الله عيدك مبارك و على جميع المسلمين