تقييم الموضوع :
  • 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] ابحث عن شرح عمل صلاحيات محددة 0theghost0 13 296 28-08-17, 08:48 PM
آخر رد: 0theghost0
  [VB.NET] عمل صلاحيات محددة hitman48 6 150 15-08-17, 04:11 PM
آخر رد: hitman48
Rainbow [VB.NET] نسخة تجريبية منه تتوقف عن العمل بعد فترة محددة محمد مسافر 3 2,106 07-08-17, 02:40 PM
آخر رد: مصمم هاوي
  [VB.NET] كيف تحويل كلمة محددة من RichTextBox الي # e-coder 4 161 04-07-17, 04:41 PM
آخر رد: 20917
  [VB.NET] ترتيب الوقت من 6 خانات dubai.eig 3 193 07-05-17, 01:22 AM
آخر رد: dubai.eig
  بخصوص تكوين Setup للبرنامج محمد محمود الغرياني 0 173 01-03-17, 01:40 AM
آخر رد: محمد محمود الغرياني
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 259 23-02-17, 12:28 PM
آخر رد: ssayed111
  [SQL] تكوين الاستعلام thevirus 1 95 12-02-17, 07:53 PM
آخر رد: مساعدة
Lightbulb طلب بسيط: فورم إدخال (4) خانات... Arabia 6 420 25-10-16, 04:36 PM
آخر رد: Arabia
  [VB.NET] ممكن كيفيه عمل save and restore لملف الmspr medoddd 2 349 25-08-16, 07:49 PM
آخر رد: medoddd

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


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