تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في توليد arabic qr code osmana2005 5 895 21-01-18, 02:04 PM
آخر رد: ndjakoub
Information طلب كود تنسييق ارقام العملة Top King 8 304 17-01-18, 05:50 PM
آخر رد: Top King
  [سؤال] طرح 3 من مجموع ارقام Mohamed20 2 113 17-01-18, 05:01 PM
آخر رد: Mohamed20
  توليد زر مع حدثها الخاص Basil Abdallah 2 125 17-01-18, 04:46 PM
آخر رد: Basil Abdallah
  [VB.NET] اريد كود برنامج جرد بحيت يدخل لي تلقائيا ارقام تسلسلية silensieux2013 8 272 18-12-17, 03:03 AM
آخر رد: silensieux2013
  [VB.NET] كيف اجعل عمود بالداتا جريد فيو يساوي نفس ارقام العمود السابق له مع حذف ارقام اقل من ص السيد الجوهري 1 148 22-11-17, 12:30 AM
آخر رد: محمد بن عطية
  توليد تاريخ بعد شهر من اليوم Abdelazez.Ahmad 2 160 03-11-17, 08:31 PM
آخر رد: Abdelazez.Ahmad
  كيفية معرفة رقم تم حذفه وسط ارقام متسلسلة تناسيم 11 677 21-08-17, 11:38 PM
آخر رد: محمود بكرى
  كتابة ارقام وعلامة عشرية واحدة فقط atefkhalf2004 5 4,952 26-07-17, 01:04 PM
آخر رد: youssef mester
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 1,468 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة

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


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