منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى (/showthread.php?tid=2806)



تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى - yes14 - 08-05-14

السلام عليكم
لو سمحتوا يا جماعة دى اول مشاركة ليا فى المنتدى
انا عاوز برنامج ينتج رقم عشوائى من عدد خانات انا اللى احددها ويحفظ الرقم ده فى ملف نصى عشان اقدر اطبعه
لو سمحتوا يا جماعة انا محتاج البرنامج ده ضرورى
شكرا



RE: تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى - Ali Wisam - 08-05-14

و عليكم السلام ..
لست ذا معرفة تامة بهذا الموضوع , لكن حسبما اعرف اسهل طريقة لتوليد ارقام عشوائية هي استخدام الدالة Rnd
مثلا لتوليد رقم عشوائي الى 10
استعمل الكود
كود :
Dim X As Integer = Int(10 * Rnd())
و اظن انك تستطيع الاعتماد على الوقت في هذه المسألة
و لحفظ الملف النصي .. استخدم هذا الكود
كود :
IO.File.WriteAllText("path",Text)
حيث path هو مسار الحفظ , و Text هي محتويات النص ..
تحياتي


RE: تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى - حريف برمجة - 08-05-14

وعليكم السلام ورحمة الله وبركاته

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



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

كود :
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



RE: تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى - yes14 - 08-05-14

جارى التجربة وشكرا جزيلا لكم .Smile