منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
EnglishToArabicNumber - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم مقالات C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=177)
+--- الموضوع : EnglishToArabicNumber (/showthread.php?tid=10053)

EnglishToArabicNumber - Sajad - 13-08-13

بسم الله الرحمن الرحيم

وصلى الله على محمد وآله الطاهرين

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

سنتعلم في هذا الموضوع كيفية تحويل الارقام الانكليزية الى ارقام عربية وايضا كيفية تحول الرقم الى صيغة معينة كالاسعار بالتحديد


في البدابة أنشيء مشروع جديد من نوع Class Library سواء كنت مبرمج VB او #C , سم المشروع بأسم EnNumToArNum

الان من الـ Solution Explorer غير اسم الـClass1 الى EnToAr

اولا اضف مجالات الاسماء التالية:

#C
PHP كود :
using System;
using System.Globalization;
using System.Text; 

VB
PHP كود :
Imports System
Imports System.Globalization
Imports System.Text 

ثم اضف الدالة التالية:

#C
PHP كود :
private static string Choosing(string ch, double input,IFormatProvider culture)
        {
            var output = new StringBuilder();

            var nums = ch == "1" ? input.ToString(CultureInfo.InvariantCulture) : input.ToString("C", culture);

            foreach (var c in nums)
            {
                if (char.IsDigit(c))
                {
                    for (var i = 0; i < EnDigits.Length; i++)
                    {
                        if (c != EnDigits[i]) continue;
                        output.Append(ArDigits[i]);
                    }
                }
                else
                {
                    output.Append(c);
                }
            }

            return output.ToString();
        } 


VB
PHP كود :
Private Shared Function Choosing(ch As String, input As Double, culture As IFormatProvider) As String
            Dim output = New StringBuilder()

            Dim nums = If(ch = "1", input.ToString(), input.ToString("C", culture))

            For Each c In nums
                If Char.IsDigit(c) Then
                    For i As Integer = 0 To EnDigits.Length - 1
                        If c <> EnDigits(i) Then
                            Continue For
                        End If
                        output.Append(ArDigits(i))
                    Next
                Else
                    output.Append(c)
                End If
            Next

            Return output.ToString()

        End Function 

شرح الكود:

في البداية يتم تعريف متغير من الفئة StringBuilder
ثم يتم المقارنة هل المتغير ch المرسل من قبل الدالتين 1 أم 2؟
اذا 1 أي يتم تحويل الرقم الى رقم عربي بدون تغيير صيغة الرقم (يعني بدون تحويلها الى صيغة السعر)
اذا 2 أي يتم تحويل الرقم الى رقم عربي مع تغيير صيغة الرقم الى صيغة سعر طبعا في هذه الحالة المستخدم سوف يختار صيغة السعر حسب دولته كما سنرى لاحقا
والوظيفة الرئيسية لهذه الدالة هي المقارنة بين الرقم (الانكليزي) المدخل مع الرقم الانكليزي المخزون في المتغير EnDigit وبالتالي يتم جلب الرقم العربي من المتغير ArDigit عن طريق موقع الرقم الانكليزي في المتغير EnDigit

توضيح:
فرضا المدخل يحتوي على الرقم 2 لذا حسب الترتيب فان موقع الرقم 2 هي 2 لذا سيتم المقارنة بالشكل التالي
PHP كود :
Endigi[2]=='2'
output+=ArDigit[2] 


وأخيرا أضف دالتين بنفس الاسم بالشكل التالي:

#C
PHP كود :
public static string EnToArNumber(double input)
       {
           return Choosing("1", input, null);
       }

        public static string EnToArNumber(double input, CultureInfo culture)
        {
            return Choosing("2", input, culture);
        } 

VB
PHP كود :
Public Shared Function EnToArNumber(input As Double) As String
            Return Choosing("1", input, Nothing)
        End Function

        Public Shared Function EnToArNumber(input As Double, culture As CultureInfo) As String
            Return Choosing("2", input, culture)
        End Function 

الى هنا وبفضل الله انتهينا من عمل ملف DLL ,الان اعمل Build للمشروع وسينتج ملف باسم EnNumToArNum.dll في مخرجات المشروع

طريقة استخدام الملف:

طبعا افتح مشروع جديد من نوع Windows Application وسمه ما شئت سواء كنت مبرمج #C او VB

ثم اضف ملف الـdll عن طريق الـSolution Explorer ثم كلك يمين على اسم المشروع ولي على اسم الSolution ومن ثم AddReference

بعد ما تضيف الملف أضفه الى الكود بالشكل التالي:

#C


PHP كود :
usingr EnNumToArNum; 


اما لمبرمجي VB فلا يحتاج اضافة مجال الاسماء الى الكود ,على كل حال يكون بهذه الطريقة:

VB
كود :
Imports EnNumToArNum

أما طريقة استخدام الدالة

اولا: بدون تحويل الرقم الى صيغة السعر:


#C
كود :
colotxtTotalPrice.Text = EnToAr.EnToArNumber(44556);

VB
كود :
txtTotalPrice.Text = EnToAr.EnToArNumber(112434)

ثانيا: تحويل الرقم مع تحديد صيغة السعر حسب البلد

#C
كود :
ctxtTotalPrice.Text = EnToAr.EnToArNumber(99777,newCultureInfo("AR-IQ"));

VB
كود :
txtTotalPrice.Text = EnToAr.EnToArNumber(345533, New CultureInfo("AR-IQ"))

طبعا ملاحظة اخيرة لم أضف المتغيرات العامة لان الاعدادات في المنتدى لا يقبل الارقام العربية

في انتظار ملاحظاتكم ولا تنسوني و والدي من صالح دعواتكم

ملف الـ dll في المرفقات

EnglishToArabicNumber - الشاكي لله - 13-08-13

قصدك الهندية :d

ارقامنا العربية اخذوها الانجليز ههههه


متألق بمواضيعك اخي سجاد وتأتي بالجديد دائما

وفقك الله

EnglishToArabicNumber - Sajad - 13-08-13

نعم الهنديةSmile

ههههههههه ما باليد حيلة

اخوية جربت الملف؟

جرب واعطيني خبر.

EnglishToArabicNumber - الشاكي لله - 13-08-13

sajad كتب :نعم الهنديةSmile

ههههههههه ما باليد حيلة

اخوية جربت الملف؟

جرب وقل واعطيني خبر.

نعم جربته ونجح :d

PHP كود :
double enNumber = Convert.ToDouble("1.45356");
            MessageBox.Show(EnNumToArNum.EnToAr.EnToArNumber(enNumber)); //١.٤٥٣٥٦ 

ماشاء الله عليك

EnglishToArabicNumber - Sajad - 13-08-13

الحمد لله شكرا لك اخي العزيز

EnglishToArabicNumber - عبد الله190 - 01-08-14

Sajad كتب :نعم الهنديةSmile

ههههههههه ما باليد حيلة

اخوية جربت الملف؟

جرب واعطيني خبر.

شكرا لردك أخي الكريم
أولا أنا محتار كيف يسمي الإخوة الأكارم أرقامنا العربية بالأرقام الإنجليزية ويسمون الأرقام الهندية بالأرقام العربية
اعلموا أيها الأفاضل أن الغرب ليس له أرقام وأكرر الغرب كله ليس له أرقام فهم يستعملون الأرقام العربية
أما إخوتنا في المشرق العربي فهم يستعملون الأرقام الهندية ويعتقدون أنها ارقام عربية
إن الحضارة العربية الاسلامية هي أساس الحضارة الغربية ولولا أرقامنا ما كانوا ليصلوا إلى ما وصلوا إليه
لكننا أصبحا الآن أمة جاهلة تتناحر على الكراسي والملك وتركت التقدم والرقي
وانظروا ما يحدث حاليا: صراعات دموية وتحطيم لكل مكتسبات الأمة بدعوى الجهاد ههههه
تركوا اسرائيل تعبث في فلسطين والحكام على كراسيهم منكبين وجهاد في قتل المسلمين في كل بقاع العالم ، هل هذا جهاد؟
إن الله حرم قتل المسلم وحرم قتل النفس البشرية عامة إلا بالحق
فكيف بالجماعات التكفيرية تعث فسادا في الأرض، هل فعلا ما يقومون به جهاد؟
إن معظم هؤلاء القوم جهلة ولا يحسنون أن شيء ونتيجة لحقدهم الشديد على أمة محمد ضلى الله عليه وسلم ، وتناسهم أن المسلم دمه وعرضه وماله حرام ، فنطقه بالشهادة تعصمه من القتل، فما بال هؤلاء الجهلة المأجورين يقتلون أبناء دينهم وأبناء جلدتهم بغير حق؟

RE: EnglishToArabicNumber - AboBattal - 04-10-24

لايمكن تحميل المرفق

RE: EnglishToArabicNumber - salamandal - 04-10-24

(01-08-14, 02:29 PM)عبد الله190 كتب : شكرا لردك أخي الكريم

وانظروا ما يحدث حاليا: صراعات دموية وتحطيم لكل مكتسبات الأمة بدعوى الجهاد ههههه
تركوا اسرائيل تعبث في فلسطين والحكام على كراسيهم منكبين وجهاد في قتل المسلمين في كل بقاع العالم ، هل هذا جهاد؟
إن الله حرم قتل المسلم وحرم قتل النفس البشرية عامة إلا بالحق
فكيف بالجماعات التكفيرية تعث فسادا في الأرض، هل فعلا ما يقومون به جهاد؟
إن معظم هؤلاء القوم جهلة ولا يحسنون أن شيء ونتيجة لحقدهم الشديد على أمة محمد ضلى الله عليه وسلم ، وتناسهم أن المسلم دمه وعرضه وماله حرام ، فنطقه بالشهادة تعصمه من القتل، فما بال هؤلاء الجهلة المأجورين يقتلون أبناء دينهم وأبناء جلدتهم بغير حق؟

للاسف نحن نعيش في عصر الانحطاط