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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية معرفة رقم تم حذفه وسط ارقام متسلسلة تناسيم 11 311 21-08-17, 11:38 PM
آخر رد: محمود بكرى
  كتابة ارقام وعلامة عشرية واحدة فقط atefkhalf2004 5 4,378 26-07-17, 01:04 PM
آخر رد: youssef mester
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 923 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  مشكلة في توليد arabic qr code osmana2005 4 567 26-12-16, 08:29 AM
آخر رد: مساعدة
  طريقة ادخال ارقام في صندوق نص hatem555 3 715 27-10-16, 03:37 PM
آخر رد: rafaag777
  [سؤال] كود كتابة ارقام فقط في داتا جريد فيو ابو يوسف النواوي 2 420 30-09-16, 11:58 PM
آخر رد: ابو يوسف النواوي
  الحصول على اول 3 ارقام Mohamed20 3 332 07-08-16, 05:16 PM
آخر رد: silverlight
  ارقام السريال بورت معكوسة abody.galal 0 247 28-05-16, 10:59 PM
آخر رد: abody.galal
Smile [سؤال] برنامج توليد حروف وارقام HASSOUN 2 548 04-04-16, 02:07 AM
آخر رد: HASSOUN
  [VB.NET] مشكله : textbox نقبل ارقام فقط وdatagride لاتعرض الارقام العشريه مصطفى العراقي 2 656 15-03-16, 12:56 PM
آخر رد: مصطفى العراقي

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


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