دالة (hndlPercentValue) لتفقيط النسب المؤية

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

لقد كنت أقوم البارحة بعمل دالة تقوم بعمل تفقيط للنسب او القيم المؤية.

مثلاً إذا كانت القيمة هي 87 % فتقوم الدالة بتحويلها الى سبعة وثمانون بالمئة , كما تُعطيك الدالة حرية الأختيار ما بين إستخدام بالمئة او التعويض عنها بالمعامل % , أضع الدالة بين يديكم فأرجو أن تستفيدون منها.

الدالة:

'Author Programmation(OmarNgem)
Public Function hndlPercentValue(ByVal Number As Integer, Optional ByVal UsePercentScore As Boolean = False, Optional ByVal ReversePercentScore As Boolean = False) As String
Dim strWords As String = "أحد,واحد,إثنان,ثلاثة,أربعة,خمسة,ستة,سبعة,ثمانية,تسعة,إثنا"
Dim strWords2 As String = "عشر,عشرة,عشرون,ثلاثون,أربعون,خمسون,ستون,سبعون,ثمانون,تسعون,مئة"
Dim arrWord() As String = Split(strWords, ",")
Dim arrWord2() As String = Split(strWords2, ",")
Dim frstNum As String = ""
Dim scdNum As String = ""
Dim FinalFilter As String = ""
If Number > 0 And Number 1 And scdNum = 1 Then
If frstNum = 2 Then
FinalFilter = arrWord(10).ToString
Else
FinalFilter = arrWord(Int(frstNum)).ToString
End If
FinalFilter &= " " & arrWord2(0).ToString
Else
If frstNum > 0 Then
FinalFilter = arrWord(Int(frstNum)).ToString
FinalFilter &= " و " & arrWord2(Int(scdNum)).ToString
Else
FinalFilter = arrWord2(Int(scdNum)).ToString
End If
End If
Case 3
FinalFilter = "مئة"
End Select
Else
FinalFilter = "لا شئ"
End If
If UsePercentScore = False Then
FinalFilter &= " بالمئة"
Else
If ReversePercentScore = False Then
FinalFilter &= " %"
Else
FinalFilter = "% " & FinalFilter
End If
End If
Return FinalFilter
End Function

كيفية إسـتخدام الدالة:
1 – ضع الدالة داخل Module وبعدها يُمكنك إستدعائها من أي مكان داخل مشروعك.
2 – الدالة تحتوي على ثلاثة معاملات اولهم (Number) إجباري والأثنين الأخرى (UsePercentScore, ReversePercentScore) إختيارية:

أما الأول فهو من النوع Integer ويتم التعويض عنه بالنسبة المؤية.
والثاني (إختياري) ويُستخدم إذا ما كنت تُريد إستخدام معامل بالمئة (%) بدلاً من إستخدامها حرفياً (أقصد بدلاً من “بالمئة”).
اما الثالث (إختياري) ويُستخدم فى عكس محاذاة المعامل (%) وذلك فى حالة إذا لم تُكن مُستخدماً الخاصية RightToLeft للكائن الذى سوف تحصل على التفقيط داخله فتُعطيه القيمة True ليعكس لك وجوده ليظهر لك التفقيط بشكل صحيح.

إستخدام الدالة برمجـياً:
1 – الأمر التالي سوف يقوم بتفقيط النسبة 76 :
TextBox1.Text = hndlPercentValue(76)

النتيجة = “% تسعة وتسعون”

2 – نفس الأمر السابق ولكن مع عكس وجود معامل %:
TextBox1.Text = hndlPercentValue(99,True,True)

النتيجة = “ستة وسبعون بالمئة”

1 – الأمر التالي سوف يقوم بتفقيط النسبة 99 ويقوم بإستخدام المعامل % بدلاً من كتابتها حرفياً:

TextBox1.Text = hndlPercentValue(99,True)

النتيجة = “تسعة وتسعون %”

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

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

Advertisements

2 thoughts on “دالة (hndlPercentValue) لتفقيط النسب المؤية

  1. أخي الحبيب نرجو منك طلب متواطع بلنسبة لمستواك العلمي والعملي وهو كالتالي
    نرجو منك عمل مثال بسيط ألا وهو ربط قواعد بيانات عبر الشبكة
    أواكل 10 جـ مع الفجول بيسك 2008 ونرجو ذلك باسرع وقت ممكن
    والفففففففففففففففففف شكر على كل هذا الجهد المبذول

  2. اخي الفاضل ارجو مساعدتي بايجاد برنامج بلغة فجوال بيسك 0.6 لمعالجة الصورة ب فلتر نوع mean filter بعد اجراء هستوغرام على الصورة الاصلية

اترك رد

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

WordPress.com Logo

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

صورة تويتر

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

Facebook photo

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

Google+ photo

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

Connecting to %s