+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : احتاج الى الكود لتحويل الارقام الى حروف (/showthread.php?tid=16365)
احتاج الى الكود لتحويل الارقام الى حروف - hicham716 - 05-07-16
السلام عليكم ورحمة الله وبركاته
احتاج الى الكود سورس لبرنامج vb6
لتحويل الارقام الى حروف مع الفاصلة (الاجزاء) و بالدرهم
مثال
يحول 23.55 الى ثلاثة وعشرون درهما و خمسة و خمسون سنتيما
جزاكم الله خيرا
RE: احتاج الى الكود لتحويل الارقام الى حروف - الوادي - 05-07-16
يا هشام،
بامكانك البحث في المنتدى، فهذا الموضوع متوفر بكثرة
فقط اكتب (تفقيط) في مستطيل البحث في الأعلى يسارا مثل هذه الصورة
RE: احتاج الى الكود لتحويل الارقام الى حروف - hicham716 - 06-07-16
الله الله
ولا اروع
الله يجزيكم بالف خير
وعيد مبارك سعيد
هذا ماكنت ابحث عنه بالضبط
بقي شيء بسيط جدا اذا كان بإمكان احد الاخوة يصلحه
وهـــــــــــــــو:
الرقم 2 يكتب --درهمان-- بدل-- اثنان درهما -- نفس الشيء بالنسبة لـ 102و1002 و 10002......
العدد 5 يكتب -- خمسة دراهم -- بدل --خمسة درهما-- نفس الشيء بالنسبة لـ للاعداد من 3 الى 10 و من 3 الى 10 بعد المائة والالف ......
و "درهم" بالنسبة للاعداد 1 و 100 و 101 و 1000 و 1001 درهم ..............
RE: احتاج الى الكود لتحويل الارقام الى حروف - الوادي - 07-07-16
يا أمير (إسم على مسمى)،
فتحت المرفق بالمفكرة ونقلت كود الموديول لل VB.NET لتجربته،
طبعا اضطررت لوضع التعريفات التالية
PHP كود :
Dim LE, p, PS, POUNDS, V, VPS, Result, WORDINTEGER, WORDPS, n, c, C1, str1, C2, str2, C3, str3, C4, str4, C5, str5, C6, str6
بالاضافة لوضع كلمة Strings قبل كل من الكلمات Right وLeft
فكانت النتيجة (ولا أروع) سرقت التعبير من هشام.
RE: احتاج الى الكود لتحويل الارقام الى حروف - الوادي - 07-07-16
يا أمير (إسم على مسمى)،
كل مالك تكبر في نظري.
أنتم كبير من قبل.....
RE: احتاج الى الكود لتحويل الارقام الى حروف - hicham716 - 07-07-16
----------------------------
المعذرة اخي
انت و ضعت الفاصلة هكذا (,) بدل (.)
الله يجعل هذا المجهود في ميزان حسناتك
جرب هذا العدد
101,01
يطلع هكذا
مائة ودرهم درهما ودرهم سنتيما ...
RE: احتاج الى الكود لتحويل الارقام الى حروف - hicham716 - 07-07-16
If Text1.Text >= 3 And Text1.Text <= 10 Then
هذه الطريقة تكون مطردة لكل اخر رقمين على اليمين وقبل الفاصلة 1005.56
الان فهمت الطريقة ان شاء الله سأحول بنفسي
الله يحفظك و يحفظ باقي الاخوة بهذا المنتدى الهادف