[mervandzz]

                 السلام عليكم ورحمة الله وبركاته
        
اريد من اخوتي الكرام كود لتوليد ارقام تسلسلية زي المثال الي في الصورة







واكون شاكر لكم علي افادتي

[abulayth]

السلام عليكم

الموضوع اسهل مما تتخيل

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        Dim z As Integer

        Int32.TryParse(TextBox1.Text, j)
        Int32.TryParse(TextBox2.Text, z)



        For i = j To j + z


            ListBox1.Items.Add(i)
        Next

    End Sub
End Class 


يعطيك العافية

[silverlight]

PHP كود :

 Dim startNumber As Integer = CType(Nothing, Integer)
        Dim sStart As String = TextBox1.Text
        If Not String.IsNullOrEmpty(sStart) Then
            startNumber = Integer.Parse(sStart)
        End If

        Dim totalnumer As Integer = CType(Nothing, Integer)
        Dim sTotal As String = TextBox2.Text
        If Not String.IsNullOrEmpty(totalnumer) Then
            totalnumer = Integer.Parse(sTotal)
        End If

        For i As Integer = 0 To totalnumer - 1
            ListBox1.Items.Add(i + startNumber)
        Next 


في الحدث الخاص ب الباتون Generate ضع الكود اعلاه
ولتضع في اعتبارك التالي
TextBox1 يستخدم في قراءة StartNumber
TextBox2 يستخدم في قراءة TotalNumber

[mervandzz]

مشكورين علي الافادة و الله يعطيكم العافية

[أبو عمر]

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To Val(TextBox2.Text)

            ListBox1.Items.Add(i + Val(TextBox1.Text))
        Next
    End Sub 


يبدو لي اقصر طريق

[سعود]

PHP كود :

Public Class Form1
    Dim i As Integer = 0
    Dim itm As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        itm = Val(txtstart.Text)
        Do Until i = Val(txtcount.Text)
            ListBox1.Items.Add(itm)
            i += 1
            itm += 1
        Loop
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox(ListBox1.Items.Count)
    End Sub
End Class 


[Kian Tech]

اليك هذا افضل  وابسط كود لتوليد الارقام ويمكن التحكم بحجم الخانات  ومستحيل تشابه الارقام 

PHP كود :

 Dim number As Integer
        Randomize()
        number = Int(Rnd() * 9999999) + 1
        MsgBox(number)