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