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

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

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

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

السلام عليكم

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

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