تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى
#1
السلام عليكم
لو سمحتوا يا جماعة دى اول مشاركة ليا فى المنتدى
انا عاوز برنامج ينتج رقم عشوائى من عدد خانات انا اللى احددها ويحفظ الرقم ده فى ملف نصى عشان اقدر اطبعه
لو سمحتوا يا جماعة انا محتاج البرنامج ده ضرورى
شكرا
الرد }}}
تم الشكر بواسطة:
#2
و عليكم السلام ..
لست ذا معرفة تامة بهذا الموضوع , لكن حسبما اعرف اسهل طريقة لتوليد ارقام عشوائية هي استخدام الدالة Rnd
مثلا لتوليد رقم عشوائي الى 10
استعمل الكود
كود :
Dim X As Integer = Int(10 * Rnd())
و اظن انك تستطيع الاعتماد على الوقت في هذه المسألة
و لحفظ الملف النصي .. استخدم هذا الكود
كود :
IO.File.WriteAllText("path",Text)
حيث path هو مسار الحفظ , و Text هي محتويات النص ..
تحياتي
الرد }}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

اعمل مثل الصورة :



وقم بنسخ الكود كامل ولصقه في الفورم :

كود :
Public Class Form1

    Public Shared Function RandomNumStr(ByVal intStrLength As Integer) As String
        'الوظيفة المسئولة عن توليد الرقم العشوائي
        Dim chars = "0123456789"
        Dim intLength As Integer = intStrLength - 1
        Dim stringChars = New Char(intLength) {}
        Dim random = New Random()
        For i As Integer = 0 To stringChars.Length - 1
            stringChars(i) = chars(random.[Next](chars.Length))
        Next
        Dim finalString = New [String](stringChars)
        Return finalString
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'لو التكست فارغ لا ينفذ الكود
        If TextBox1.Text = "" Or TextBox1.Text = "0" Then Exit Sub

        'تعبئة التكست بالرقم العشوائي حسب طول الرقم المكتوب في التكست بوكس 1
        TextBox2.Text = RandomNumStr(TextBox1.Text)
    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        'لمنع كتابة احرف في التكست
        If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
            e.Handled = True
        End If
        If Asc(e.KeyChar) = 8 Then
            e.Handled = False
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fs As System.IO.FileStream = System.IO.File.Create(Application.StartupPath & "\FileName.txt")

        Dim info As Byte() = New System.Text.UTF8Encoding(True).GetBytes(TextBox2.Text)
        fs.Write(info, 0, info.Length)
  Process.Start(Application.StartupPath & "\FileName.txt")
        fs.Close()
    End Sub

End Class
الرد }}}
تم الشكر بواسطة: ناجي إبراهيم
#4
جارى التجربة وشكرا جزيلا لكم .Smile
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف نستورد أعمدة محددة من أكسل ؟ saud1004 10 393 25-01-24, 04:12 PM
آخر رد: saud1004
  عمل نسخه احتياطيه والاستعاده لملف قاعدة بيانات Backup/Restore Localdb MDF file Owz 1 362 25-09-23, 11:52 AM
آخر رد: devpos
  عرض صفوف محددة kebboud 6 604 27-04-23, 11:16 AM
آخر رد: kebboud
  نسخ احتياطي لملف قاعدة بيانات sql عبدالكريم برشدان 1 380 04-01-23, 12:29 PM
آخر رد: Jounior_P
  [VB.NET] عند تصدير البيانات من DataGridView1 لملف Excel MOHAMMED ALZWI 2 482 22-12-22, 10:58 AM
آخر رد: MOHAMMED ALZWI
  كيف يمكن إدخال بيانات ( اسم المستخدم وكلمة المرور ) لملف مشاركة برمجياً. عبد الله 8 4,206 10-12-22, 04:00 PM
آخر رد: Calvinarins
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 642 08-12-22, 09:22 AM
آخر رد: مصمم هاوي
Rainbow [كود] رساله خطاء لملف اكسس مرتبط بفيجوال دوت نت. محمد مسافر 5 667 23-11-22, 12:16 PM
آخر رد: Jounior_P
  [VB.NET] حدف كل اسطر محددة في داتا قريد فيو ali_ahmed12 2 596 08-11-22, 10:18 PM
آخر رد: مصمم هاوي
  [سؤال] كيفية تصدير اعمدة محددة من الداتا قريد الي الاكسل عبدالكريم برشدان 3 1,960 10-10-22, 09:29 AM
آخر رد: أبووسم

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


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