[The Light Fire]

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

اريد كود يختار لي حرف عشوائي من الابجدية الانجليزية

واريد ايضا نفس الكود لكن بختيار من حرف كذا الى كذا

يعني ابي من حرف A الى حرف D فقط .. مثلا

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

[alma2]

كود :

Dim r As New Random
        Dim c As Char = ChrW(r.Next(AscW("A"), AscW("Z") + 1))
        'c تحتوي على الحرف المختار عشوائيا

        MsgBox(c)

[The Light Fire]

(09-06-17, 02:28 AM)alma2 كتب :

كود :

       Dim r As New Random
       Dim c As Char = ChrW(r.Next(AscW("A"), AscW("Z") + 1))
       'c تحتوي على الحرف المختار عشوائيا

       MsgBox(c)

شكرا