دالة RandomString للحصول على نصوص عشوائية

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

إخـواني الأعضـاء الكرام, كيف حال الجميع؟

أسـأل الله العظيم أن تكونوا فى أفضل حال وأتم عافية

وجدت الكثير من الأسئلة المتعلقة بكيفية الحصول على نصوص عشوائية على المنتديات خلال بحثي على الشبكة, فقررت أن أقوم بعمل دالة توفر لك هذه العملية (توليد النصوص العشوائية) مع بعض الإمكانيات البسيطة كتحديد عدد الحروف الأتية داخل نص وكذلك إذا ما كنت تُريدها حروفاً كبيرة (Capital) أو صغيرة (Small) او حتى إذا كنت تُريد النص مُكون من الحروف الكبيرة والصغيرة معاً, فالدالة تحتوي على ثلاثة Parameters من النوع Optional (معاملات إختيارية) أي يُمكنك وضع القيم لها او حتى لا تُعطيها قيم فكما نعلم أن المعاملات الإختيارية تحتوي على قيم إفتراضية فأتمنى أن تستفيدوا منها جميعاً.

الدالة:
'Author: Programmation(OmarNegm)
Public Function RandomString(Optional ByVal CharactersCount As Integer = 5, Optional ByVal LCaseString As Boolean = False, Optional ByVal UCaseString As Boolean = False) As String
Dim Chrs As String, LstStr As String
Dim I As Integer, X As Integer, Y As Integer
'---------------------------
Chrs = "abcdefghijklmnopqrstuvwxyz"
If LCaseString = True Then
Chrs = Chrs
ElseIf UCaseString = True Then
Chrs = UCase(Chrs)
Else
Chrs = LCase(Chrs) & UCase(Chrs)
End If
'---------------------------
I = 0
X = Len(Chrs)
LstStr = ""
Do Until I = CharactersCount
Y = Int(Rnd * (X))
If Not Y = 0 Then
If LstStr = "" Then
LstStr = Mid$(Chrs, Y, 1)
I = I + 1
Else
LstStr = LstStr & Mid$(Chrs, Y, 1)
I = I + 1
End If
End If
Loop
'---------------------------
RandomString = LstStr
End Function

كيفية التعامل مع الدالة:

فقط ضع الدالة داخل Module ويُمكنك بعدها إستدعائها من داخل أي نموذج (Form) داخل المشـروع

أما عن طريقة إستخدامك لها برمجياً فسيكون الأمر بالأكواد البسيطة التالية:

أولاً الكود التالي سوف يقوم بتوليد نص مكون من 5 حروف عشوائية مكونة من الحروف الكبيرة (Capital) و الصغيرة (Small) داخل الـ Text1 :

Text1.Text = RandomString()
اما أذا كنت تُريد تحديد عدد الحروف العائدة فتلك مهمة المعامل الأول ويُمكنك تحديد عدد الحروف بالطريقة التالية:

الكود التالي سوف يقوم بتوليد نص مكون من 20 حرف مكون من الحروف الصغيرة والكبيرة:

Text1.Text = RandomString(20)
كذلك يُمكنك تحديد حالة الحروف من صغيرة او كبيرة بالطريقة التالية:

الكود التالي سوف يقوم بتوليد 8 حروف مكونة من الحروف الصغيرة فقط:

Text1.Text = RandomString(8, True)
او
Text1.Text = RandomString(8, True, False)

كلا الطريقتين جائزتين.

والكود التالي سوف يقوم بتوليد 12 حرف مكون من الحروف الكبيرة فقط:

Text1.Text = RandomString(12, , True)

أو

Text1.Text = RandomString(12, False, True)

كلا الطريقتين جائزتين.

أتمنى أن تستفيدوا من الدالة, ولا تنسونا من صالح دعائكم

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

Advertisements

One thought on “دالة RandomString للحصول على نصوص عشوائية

اترك رد

إملأ الحقول أدناه بالمعلومات المناسبة أو إضغط على إحدى الأيقونات لتسجيل الدخول:

WordPress.com Logo

أنت تعلق بإستخدام حساب WordPress.com. تسجيل خروج   / تغيير )

صورة تويتر

أنت تعلق بإستخدام حساب Twitter. تسجيل خروج   / تغيير )

Facebook photo

أنت تعلق بإستخدام حساب Facebook. تسجيل خروج   / تغيير )

Google+ photo

أنت تعلق بإستخدام حساب Google+. تسجيل خروج   / تغيير )

Connecting to %s