منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود اختيار حرف من الابجدية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

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

واريد ايضا نفس الكود لكن بختيار من حرف كذا الى كذا
يعني ابي من حرف A الى حرف D فقط .. مثلا

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

        MsgBox(c)
(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)

شكرا  Heart