ملاحظة منقول من المنتدي السابق للعضو:- 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 من المشروع بناء على النظام الجديد فى المنتدى وتجب الفيروسات و القرصنة
اتمنى ان يفيدكم الموضوع
ولا تنسونا من دعاء صالح بظهر الغيب
بالتوفيق
ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- 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) لكي يأخذ قيمة رقمية في حال كان فارغ .
ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- mero5000
وليه التعب ده اخ رامى
هناك طريقين يكملو بعض
الاول تحديد للتكست بوكس كتابة ارقام فقط فى حدث 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
كده هيكون اكبر رقم مليار
تم ارفاق مشروع به الاكواد الجديدة
وتم تعديل المشروع بالمشاركة الاول ليكون مثل هذه المشاركة
ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- mero5000
فعلا فانا جربتها حتى الملاين تعمل بشكل جيد وبدون مشاكل ولا غلط
المشكلة ن اول المليارات
رغم ان مفيش حد هيعمل ل المليارات
يمكن استبدال الكود هذا
بهذا
موقتا الى ان اعالجها ان شاء الله
ملاحظة مشاركة منقوله من المنتدي السابق للعضو:- ramilove
بعد اذن مديرنا العزيز Mero5000 تم تعديل المثال واصبح يفقط الارقام من 1 الى 999 مليار يعني عدد الرقم يجب ان يكون 12 خانة فقط كحد اعلى.
وما عاد في حاجة لكتابة جملة تجاوز الاخطاء Try
وايضا بامكانك تغير نوع العملة بمنتهى السهولة .
وبس يصير مع حدا منا مبلغ تليار او ترليون ابقى بنطلب من الاخ ميرو يعدله لنا
ومثال الاخ Mero5000 في المرفقات بالدوت نت 2008
الله يعطيق العافية اخ اوتار
بس عندي ملاحظة ليش ما يفقط القيمة العشرية
السلام عليكم .. الأخ .. مبرمج أوتار .. بعد اذنكم .. عايز أغير كلمة جنيهاً بكلمة درجة .... هل يمكن تعديلها ... ولكم جزيل الشكر
cvcvcv كتب :السلام عليكم .. الأخ .. مبرمج أوتار .. بعد اذنكم .. عايز أغير كلمة جنيهاً بكلمة درجة .... هل يمكن تعديلها ... ولكم جزيل الشكر
عليكم السلام وحمة الله وبركاته
ابشر يا اخي العزيز سوف اشرح لك طريقة تغير كمله بعد اذن اخ Mero5000
بعد فتح برنامج سوف يظهر لك الكلاس اسمه mero5000.vb
ادخل عليها ومن ثم ابحث عن كلمه جنيها اسبتدله بكلمة درجة
الصوره توضح ذلك
بعد ذلك قم بدخول عليه My project
اختار compile وحدد مسار dll بعد ذلك اضغط على Build
صورة الملف الناتج
الان وقت عمل البرنامج الذي سوف نستدعي بة الملف Dll من Add Reference
ارفقت لك الملف بعد التعديل
اعتذر عن هذا الشرح السريع ،ارجو انا اكون قد افدتك ...
اتمنى لك التوفيق ...
aymen كتب :الله يعطيق العافية اخ اوتار
بس عندي ملاحظة ليش ما يفقط القيمة العشرية
السلام عليكم ورحمة الله وبركاته
الله يعافيك يا اخ
سوف احول لكي اجعله يقبل القيمة العشرية
اتمنى لك التوفيق ...