+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11546)
أريد تكرار نص بشرط تغيير قيمة معينة فيه بشكل عشوائي - Mohammedk - 27-02-15
السلام عليكم ورحمة الله وبركاته
لدي سؤال كيف يمكن انشاء كود لتكررا نص معين واضافة عليه 5 ارقام عشوائية وعدم تكرار الارقام في المرة الماضيه
صورة توضح الفكرة
[url=http://www.up-00.com/][/url]عند الضغك على انشاء يتم تكرار النص الموجود في تكست 1
عدد 200 مرة وتغيير النجوم في 5 ارقام عشوائيه وكتابته في التكست 2
RE: أريد تكرار نص بشرط تغيير قيمة معينة فيه بشكل عشوائي - undetected71 - 28-02-15
وعليكم السلام ورحمة الله وبركاتة
تفضل عملت لك كود آتمنى يكون ها هو المطلوب
PHP كود :
Dim CharArray() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789".ToCharArray
TextBox3.Clear()
Dim Rnd As New Random
For i = 1 To CInt(TextBox1.Text)
Dim NewString1 As String = Nothing
Dim NewString2 As String = Nothing
For Rndom = 0 To 4
NewString1 += CharArray(Rnd.Next(0, CharArray.Length))
Next
For Rndom2 = 0 To 4
NewString2 += CharArray(Rnd.Next(0, CharArray.Length))
Next
TextBox3.Text += String.Format("User : {0} | Pass : {1}", NewString1, NewString2) & vbNewLine
Next
حيث TextBox3 هو النص الجديد الي تحت
و TextBox2 هي القيمة او عدد التكرار
وفقك الله ,
RE: أريد تكرار نص بشرط تغيير قيمة معينة فيه بشكل عشوائي - ameerah - 28-02-15
جرب التالي
كود :
For i = 1 To Val(Me.TextBox2.Text)
Do
Dim n As Integer = New Random().Next(10000, 99999)
Dim t As String = Replace(TextBox1.Text, "*****", n)
If Not TextBox3.Text.Contains(t) Then
TextBox3.AppendText(t & vbNewLine)
Exit Do
End If
Loop
NextRE: أريد تكرار نص بشرط تغيير قيمة معينة فيه بشكل عشوائي - Mohammedk - 28-02-15
شكراً أخي undetected71 الله يعطيك الف عافيه
الله يسلم ايديك أخي ameerah هل يمكن الاضافة على الاكود PASS2 ولاكن يكون نفس PASS1 + انه يكون اليوزر نيم مختلف عن الباسورد ؟؟
مثلاً
USER : 222 PASS1: 333 PASS2:333