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

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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : تفقيط الارقام فى الدوت نت (/showthread.php?tid=4567)

الصفحات: 1 2

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 28-09-12

ملاحظة منقول من المنتدي السابق للعضو:- mero5000

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

اقدم لحضراتكم ملفين dll قمت بعملها لتفقيط الارقام الى حروف

طريقة الاتستخدام للذين لا يعرفون التعامل مع ملفات dll

افتح مشروع جديد
ضع ملف dll فى مسار المشروع فى مجلد Debug
من قائمة project >>> add reference

ستظهر لك نافذة .. من التبويب Browse

اختار ملف dll الى وضعناه فى مسار المشروع بمجلد Debug
ثم اضغط ok

الان اذهب للفروم وضع به Buttun & Textbox & label

الان مرحلة الكود
اولا اضف فضاء الاسماء الاتى

PHP كود :

Imports mero5000
Imports mero5000.mero 

وفى حدث الزر اكتب الكود التالى

PHP كود :

Dim m As New mero
Label1.Text = (m.mero5000(TextBox1.Text)) 

فقط هذا الكود لتفقيط بالاعتماد على ملفات dll

مرفق ملفان dll الاول للجنية والثانى للريال

ومرفق مشروع كمثال

تم حذف ملف exe من المشروع بناء على النظام الجديد فى المنتدى وتجب الفيروسات و القرصنة

اتمنى ان يفيدكم الموضوع

ولا تنسونا من دعاء صالح بظهر الغيب

بالتوفيق

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 28-09-12

ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- ramilove

[COLOR="Navy"]بارك الله بيك اخي عمر

بس ملاحظة للي بدو يستخدمها يجب وضع جملة try لتجاوز الاخطاء في حال عدم ادخال قيمة في التكست بكس او في حال ادخال قيمة اكبر من مليار .[/COLOR]

PHP كود :

Try

            Dim m As New mero

            Label1.Text = (m.mero5000(TextBox1.Text))

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

او وضع Val(TextBox1.Text) لكي يأخذ قيمة رقمية في حال كان فارغ .

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 28-09-12

ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- mero5000

وليه التعب ده اخ رامى Smile

هناك طريقين يكملو بعض

الاول تحديد للتكست بوكس كتابة ارقام فقط فى حدث KeyPress

PHP كود :

PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (e.KeyChar < "0"Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = True
EndSub 

والثانية تحديد للتكست بوكس عدد الارقام المدخلة فيها فى حدث TextChanged
10 ارقام فقط

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.MaxLength = 10
End Sub 

كده هيكون اكبر رقم مليار Smile

تم ارفاق مشروع به الاكواد الجديدة

وتم تعديل المشروع بالمشاركة الاول ليكون مثل هذه المشاركة

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 28-09-12

ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- mero5000

فعلا فانا جربتها حتى الملاين تعمل بشكل جيد وبدون مشاكل ولا غلط
المشكلة ن اول المليارات
رغم ان مفيش حد هيعمل ل المليارات Smile

يمكن استبدال الكود هذا

PHP كود :

TextBox1.MaxLength = 10 

بهذا

PHP كود :

TextBox1.MaxLength = 9 

موقتا الى ان اعالجها ان شاء الله

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 28-09-12

مرفق كود الكلاس

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 28-09-12

ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- ramilove

بعد اذن مديرنا العزيز Mero5000 تم تعديل المثال واصبح يفقط الارقام من 1 الى 999 مليار يعني عدد الرقم يجب ان يكون 12 خانة فقط كحد اعلى.

وما عاد في حاجة لكتابة جملة تجاوز الاخطاء Try

وايضا بامكانك تغير نوع العملة بمنتهى السهولة .

وبس يصير مع حدا منا مبلغ تليار او ترليون ابقى بنطلب من الاخ ميرو يعدله لنا

ومثال الاخ Mero5000 في المرفقات بالدوت نت 2008

تفقيط الارقام فى الدوت نت - aymen - 20-06-13

الله يعطيق العافية اخ اوتار
بس عندي ملاحظة ليش ما يفقط القيمة العشرية

تفقيط الارقام فى الدوت نت - cvcvcv - 20-06-13

السلام عليكم .. الأخ .. مبرمج أوتار .. بعد اذنكم .. عايز أغير كلمة جنيهاً بكلمة درجة .... هل يمكن تعديلها ... ولكم جزيل الشكر

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 21-06-13

cvcvcv كتب :السلام عليكم .. الأخ .. مبرمج أوتار .. بعد اذنكم .. عايز أغير كلمة جنيهاً بكلمة درجة .... هل يمكن تعديلها ... ولكم جزيل الشكر

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

ابشر يا اخي العزيز سوف اشرح لك طريقة تغير كمله بعد اذن اخ Mero5000

بعد فتح برنامج سوف يظهر لك الكلاس اسمه mero5000.vb

ادخل عليها ومن ثم ابحث عن كلمه جنيها اسبتدله بكلمة درجة
الصوره توضح ذلك

بعد ذلك قم بدخول عليه My project

اختار compile وحدد مسار dll بعد ذلك اضغط على Build

صورة الملف الناتج

الان وقت عمل البرنامج الذي سوف نستدعي بة الملف Dll من Add Reference

ارفقت لك الملف بعد التعديل

اعتذر عن هذا الشرح السريع ،ارجو انا اكون قد افدتك ...

اتمنى لك التوفيق ...

تفقيط الارقام فى الدوت نت - مبرمج أوتار - 21-06-13

aymen كتب :الله يعطيق العافية اخ اوتار
بس عندي ملاحظة ليش ما يفقط القيمة العشرية

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

الله يعافيك يا اخ

سوف احول لكي اجعله يقبل القيمة العشرية

اتمنى لك التوفيق ...