تمت الإجابة كود بسيط توليد الارقام

تم تحميل الصفحة في 1,6661770 ثانية
كود بسيط توليد الارقام
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
13 يناير 2018
المشاركات
178
الإعجابات
84
النقاط
28
العمر
32
السلام عليكم
انا عاوز كود توليد اللارقام
يكون الارقام ادخل مستند نص مثل هيك
1110000-1119999
2220000-2229999
3330000-3339999
يعمل توليد لارقام من الاصفر الارقام 9
 

CorrM

Just a Programmer
rankrankrankrankrankrank
إنضم
27 ديسمبر 2013
المشاركات
3,704
الإعجابات
7,053
النقاط
113
العمر
23
الإقامة
Egypt
كم تدفع .؟!!

هل تقصد كود ام برنامج ام ناخذ من وقتنا لنبرمج لك .؟! بدون ادنى مجهود .؟
 

Abufahmi

مُميّز نُقطة لُغات البَرمَجة
rankrank
إنضم
23 سبتمبر 2013
المشاركات
265
الإعجابات
408
النقاط
63
الإقامة
Jordan
انسخ هذا الفنكش :
C#:
        private string RandomPassword(int line)
        {
            string a = string.Empty;
            Random rnd = new Random();
            for (int i = 0; i < line; i++)
            {
                string r = rnd.Next(0, 9999999).ToString("D7");
                r += " - ";
                r += rnd.Next(0, 9999999).ToString("D7");
                r += "\r\n";
                a += r;
            }
            return a;
        }
حيث ان (int line) تمثل عدد الاسطر التي تريد توليدها



ثم بحدث زر التوليد والحفظ ضع هذا الكود لتوليد الاسطر وحفظها
علي هيئة ملف تكست
C#:
 private void buSave_Click(object sender, EventArgs e)
        {
            string str = RandomPassword(10);
            if(!string.IsNullOrEmpty(str))
            {
                System.IO.File.WriteAllText(Application.StartupPath + "\\text.txt", str);
            }
        }

بزر طلب الملف المحفوظ :
C#:
 private void buRetrieve_Click(object sender, EventArgs e)
        {
            string tmpTx = Application.StartupPath + "\\text.txt";
            if (System.IO.File.Exists(tmpTx))
            {
                string str = System.IO.File.ReadAllText(tmpTx);
                if (!string.IsNullOrEmpty(str))
                {
                    MessageBox.Show(str);
                }
            }
        }


وهذه VB.NET
كود:
Private Function RandomPassword(line As Integer) As String
    Dim a As String = String.Empty
    Dim rnd As New Random()
    Dim i As Integer = 0
    While i < line
        Dim r As String = rnd.[Next](0, 9999999).ToString("D7")
        r += " - "
        r += rnd.[Next](0, 9999999).ToString("D7")
        r += vbCr & vbLf
        a += r
        i += 1
    End While
    Return a
End Function

Private Sub buSave_Click(sender As Object, e As EventArgs)
    Dim str As String = RandomPassword(10)
    If Not String.IsNullOrEmpty(str) Then
        System.IO.File.WriteAllText(Application.StartupPath + "\text.txt", str)
    End If
End Sub

Private Sub buRetrieve_Click(sender As Object, e As EventArgs)
    Dim tmpTx As String = Application.StartupPath + "\text.txt"
    If System.IO.File.Exists(tmpTx) Then
        Dim str As String = System.IO.File.ReadAllText(tmpTx)
        If Not String.IsNullOrEmpty(str) Then
            MessageBox.Show(str)
        End If
    End If
End Sub

بالتوفيق اخي
 
إنضم
13 يناير 2018
المشاركات
178
الإعجابات
84
النقاط
28
العمر
32
كم تدفع .؟!!

هل تقصد كود ام برنامج ام ناخذ من وقتنا لنبرمج لك .؟! بدون ادنى مجهود .؟
ههههههههههههه
ما تفكرا كل شي الفلوس و له المصاري
الحمدلله في الناس كتيرر بساعدو
مش مثلك كل شي بمصاري يا باشا
الحمدلله ربنا كبيرر
اذا مو حابب تساعد ياريت ما تقوت علي الموضوعي
الله معك
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل