+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب تعديل على كود توليد Random (/showthread.php?tid=8539)
طلب تعديل على كود توليد Random - مبرمج أوتار - 19-04-13
السلام عليكم وحمة الله وبركاته
طلب تعديل على كود توليد ارقام واحرف عشوائيه بشرط عدم تكرر البيانات ولايتعد 5 ارقام واحرف ...
مثال على المطلوب :-
UT245
GT200
DS285
JG254
الكود هذا يظهر الحرف فقط اريد اضافة الارقام معه
كود :
Dim Random = New Random
Dim Rand As String = ""
Do Until Val(Rand.Length) >= 5
Rand &= ChrW(Random.Next(Asc("A"), Asc("Z")))
TextBox1.Text = Rand
Loopلدي مشكله اخرى
هي في ComboBox
ComboBox يوجد فيها ثلاث قيم 1 و 2 و 3
المطلوب هو
لدي Panel1 في حاله Panel1.Visible = False
ولكن بشرط اذا تم اختيار القيمة رقم 2 يظهر لى Panel1.Visible = True
واذا تم تغير القيمة الي الحالات 1 او 3 يظهر بحاله Panel1.Visible = False بمعنى يختفي :o
اتمنى الفكره واضحه ...
طلب تعديل على كود توليد Random - سعود - 19-04-13
تصدق مخي وقف خلاص
احاول افهم المطلوب واكتب الحل.
طلب تعديل على كود توليد Random - learning.net - 19-04-13
اخى الكريم
اعتقد انى فهمت المطلوب (او هذا ما اتمنى
)بالنسبه لكود التوليد العشوائى للحروف والارقام معا يمكنك تجربة هذا الكود
PHP كود :
Dim randam As New Random
Dim int As String = ChrW(randam.Next(Asc("0"), Asc("9")))
Dim str As String = ChrW(randam.Next(Asc("a"), Asc("z")))
Dim rnd_length As Integer = randam.Next(5, 5)
Dim strbuil As New System.Text.StringBuilder
Do While strbuil.Length < rnd_length
Dim i As Integer = randam.Next(20)
If i > 10 Then
strbuil.Append(str(randam.Next(str.Length)))
Else
strbuil.Append(int(randam.Next(int.Length)))
End If
Loop
TextBox1.Text = strbuil.ToString
وبالنسبه لل ComboBox
فى حدث ال SelectedIndexChanged تبع ال ComboBox ضع هذا الكود
PHP كود :
Select Case ComboBox1.Text
Case 1
Panel1.Visible = False
Case 2
Panel1.Visible = True
Case 3
Panel1.Visible = False
End Select
اتمنى ان اكون فهمت المطلوب .... اما غير ذلك فاعذرنى لعدم فهمى
وبالتوفيق ان شاء الله
طلب تعديل على كود توليد Random - learning.net - 19-04-13
و اذا كنت تريد توليد ارقام وحروف بدون تكرار يمكنك استخدام هذه الداله
PHP كود :
Public Shared Function RandomNumStr(ByVal intStrLength As Integer) As String
Dim chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
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
وفى اى حدث ضع هذا الكود
PHP كود :
TextBox1.Text = RandomNumStr(5)
طلب تعديل على كود توليد Random - مبرمج أوتار - 19-04-13
بارك الله فيك يا اخي
الحمد الله انحلت المشاكل ...