تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] Generate of Numbers
#1
Exclamation 
                 السلام عليكم ورحمة الله وبركاته
        
اريد من اخوتي الكرام كود لتوليد ارقام تسلسلية زي المثال الي في الصورة







واكون شاكر لكم علي افادتي
الرد }}}}
تم الشكر بواسطة: سعود
#2
السلام عليكم

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

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim i 
As Integer
        Dim j 
As Integer
        Dim z 
As Integer

        Int32
.TryParse(TextBox1.Textj)
 
       Int32.TryParse(TextBox2.Textz)



 
       For i j To j z


            ListBox1
.Items.Add(i)
 
       Next

    End Sub
End 
Class 
يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: mervandzz , سعود
#3
PHP كود :
 Dim startNumber As Integer CType(NothingInteger)
 
       Dim sStart As String TextBox1.Text
        If Not String
.IsNullOrEmpty(sStartThen
            startNumber 
Integer.Parse(sStart)
 
       End If

 
       Dim totalnumer As Integer CType(NothingInteger)
 
       Dim sTotal As String TextBox2.Text
        If Not String
.IsNullOrEmpty(totalnumerThen
            totalnumer 
Integer.Parse(sTotal)
 
       End If

 
       For i As Integer 0 To totalnumer 1
            ListBox1
.Items.Add(startNumber)
 
       Next 
في الحدث الخاص ب الباتون Generate ضع الكود اعلاه
ولتضع في اعتبارك التالي
TextBox1 يستخدم في قراءة StartNumber
TextBox2 يستخدم في قراءة TotalNumber
الرد }}}}
تم الشكر بواسطة: mervandzz , سعود
#4
مشكورين علي الافادة و الله يعطيكم العافية
الرد }}}}
تم الشكر بواسطة: سعود
#5
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        
For As Integer 0 To Val(TextBox2.Text)

            
ListBox1.Items.Add(Val(TextBox1.Text))
        
Next
    End Sub 
يبدو لي اقصر طريق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: سعود
#6

PHP كود :
Public Class Form1
    Dim i 
As Integer 0
    Dim itm 
As Integer
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles Button2.Click
        MsgBox
(ListBox1.Items.Count)
 
   End Sub
End 
Class 
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أبو عمر , أبو عمر
#7
اليك هذا افضل  وابسط كود لتوليد الارقام ويمكن التحكم بحجم الخانات  ومستحيل تشابه الارقام Blush



PHP كود :
 Dim number As Integer
        Randomize
()
 
       number Int(Rnd() * 9999999) + 1
        MsgBox
(number
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم