منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

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

[صورة مرفقة: 1472044682621.png]

واكون شاكر لكم علي افادتي [صورة مرفقة: blush.gif]

السلام عليكم

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

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 

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

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

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

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 

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

PHP كود :
 Dim number As Integer
        Randomize()
        number = Int(Rnd() * 9999999) + 1
        MsgBox(number) 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mervandzz

abulayth

silverlight

mervandzz

أبو عمر

سعود

Kian Tech