إقتباس :

A-Z true and 0-9 true but a-z false then
"charset = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789

(10-12-15, 09:32 PM)hamada558 كتب :

كود :

Shared Function RandomChars(ByVal m_CapitalChars_AZ As Boolean, ByVal m_SmallChars_az As Boolean, ByVal m_numbers_09 As Boolean, ByVal length As Integer) As String
   Dim charset As String = ""
   If m_CapitalChars_AZ Then charset &= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   If m_SmallChars_az Then charset &= "abcdefghijklmnopqrstuvwxyz"
   If m_numbers_09 Then charset &= "0123456789"

   Dim result As String = ""

   If charset <> "" Then
       Static r As New Random ' Static مهم اختياره
       For i = 1 To length
           result &= charset(r.Next(0, charset.Length))
       Next
   End If

   Return result
End Function

(11-12-15, 07:17 PM)hamada558 كتب : طريقة استخدام الكود باستعائة بمارامترات بتحددها ب true أو false لكل من m_CapitalChars_AZ وm_SmallChars_az وm_numbers_09 وتحديد طول الناتج في length

كود :

textBox1.Text = RandomChars(true, true, true, 10);

أو

كود :

textBox1.Text = RandomChars(checkBox1.Checked, checkBox2.Checked, checkBox3.Checked,10);

---

طريقة استخدام الكود باستعائة بمارامترات بتحددها ب true أو false لكل من m_CapitalChars_AZ وm_SmallChars_az وm_numbers_09 وتحديد طول الناتج في length

كود :

textBox1.Text = RandomChars(true, true, true, 10);

أو

كود :

textBox1.Text = RandomChars(checkBox1.Checked, checkBox2.Checked, checkBox3.Checked,10);