تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] توليد ارقام
#1
السلام عليكم

يا اخوان بدنا نعمل برنامج يحتوي علي 2 تكست بوكس

الاولي تحوي بداية الرقم وليكن 000 والثانية نهاية الرقم 999

اريد برنامج يحفظ الي كل الارقام الممكن توليدها من 3 اراقام بين هذين الرقمين في

مستند نص ؟

[/align]
[/align]

الرد
تم الشكر بواسطة:
#2
تفضل اخي

كود :
Dim Rnd As Random = New Random
        Dim List2 As New ArrayList
        Do While List2.Count < 1000
            Dim Num As Integer = Rnd.Next(0, 1000)
            If Not List2.Contains(Num) Then List2.Add(Num)
        Loop
        Dim save As New SaveFileDialog
        save.Title = "Select Path"
        save.Filter = "TextFile(.txt)|*.txt"
        save.FileName = "rondomNumers"
        If save.ShowDialog = DialogResult.OK Then
            Using W As IO.StreamWriter = IO.File.AppendText(save.FileName)
                For i As Integer = 0 To 999
                    W.WriteLine(String.Format("{0:000}", List2.Item(i)))
                Next
                W.Close()
            End Using
        End If
الرد
تم الشكر بواسطة: محمد سالم المحترف


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مربع النص يبدا بحرف ومن بعد ارقام anis 3 105 09-04-19, 02:36 AM
آخر رد: elgokr
  ترتيب ارقام الملفات ابو روضة 0 54 23-03-19, 04:31 PM
آخر رد: ابو روضة
  [نقاش] توليد رقم فاتورة georgos 5 184 24-02-19, 09:33 PM
آخر رد: حريف برمجة
  [VB.NET] استفسار :- عرض ارقام الاي بي المربوطه في الشبكه dubai.eig 0 173 24-11-18, 03:35 AM
آخر رد: dubai.eig
  [VB.NET] توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها larbihamri 8 426 26-07-18, 10:45 PM
آخر رد: سعود
  مشكلة في توليد arabic qr code osmana2005 5 1,506 21-01-18, 02:04 PM
آخر رد: ndjakoub
Information طلب كود تنسييق ارقام العملة Top King 8 721 17-01-18, 05:50 PM
آخر رد: Top King
  [سؤال] طرح 3 من مجموع ارقام Mohamed20 2 281 17-01-18, 05:01 PM
آخر رد: Mohamed20
  توليد زر مع حدثها الخاص Basil Abdallah 2 325 17-01-18, 04:46 PM
آخر رد: Basil Abdallah
  [VB.NET] اريد كود برنامج جرد بحيت يدخل لي تلقائيا ارقام تسلسلية silensieux2013 8 593 18-12-17, 03:03 AM
آخر رد: silensieux2013

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


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