تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب كود يعبر عن الحروف بدلا من الارقام
#1
السلام عليكم ورحمة الله
اريد كود يحول الارقام الى حروف معينة او يعبر عن الارقام بالحروف
ولتوضيح الفكرة

قديما كانت العرب لا تعرف الاعداد , وكانت تعبر عن الاعداد بالحروف
مثلا : حرف الالف يعبر عن الرقم 1
حرف الباء يعبر عن رقم 2
حرف ج يعبر عن رقم 3
حرف د يعبر عن رقم 4
حرف هـ يعبر عن رقم 5
حرف و يعبر عن رقم 6
حرف ز يعبر عن رقم 7
حرف ح يعبر عن رقم 8
حرف ط يعبر عن رقم 9
حرف ي يعبر عن رقم 10
حرف ك يعبر عن رقم 20
حرف ل يعبر عن رقم 30
حرف م يعبر عن رقم 40
حرف ن يعبر عن رقم 50
حرف س يعبر عن رقم 60
حرف ع يعبر عن رقم 70
حرف ف يعبر عن رقم 80
حرف ص يعبر عن رقم 90
حرف ق يعبر عن رقم 100
حرف ر يعبر عن رقم 200
حرف ش يعبر عن رقم 300
حرف ت يعبر عن رقم 400
حرف ث يعبر عن رقم 500
حرف خ يعبر عن رقم 600
حرف ذ يعبر عن رقم 700
حرف ض يعبر عن رقم 800
حرف ظ يعبر عن رقم 900
حرف غ يعبر عن رقم 1000

مثلا كانوا يعبرون عن الرقم 71 هكذا (عا) كانوا يقدمون العشرات على الاحاد
العين =70 والالف =1 اذن يصير الرقم بالحروف عا
مثلا الرقم 165 يصير (قسه) لان القاف =100 والسين =60 والهاء تساوي 5
وطبعا يقدمون الالوف على المئات
والمئات على العشرات
والعشرات على الاحاد
وعندما يريدون التعبير عن رقم 2000 يقدمون حرف يدل على التكرار
وهو حرف الباء لانه يدل على الرقم اثنين ثم رقم يدل على المرتبة وهى مرتبة الالوف وهو حرف الغين
اذن الرقم 2000 يصير (بغ)
الرقم 3000 يصير (جغ)
الرقم عشرة ألاف يصير (يغ)
الرقم عشرين الف يصير (كغ)
وكانت هذه طريقة اهل المشرق
وهى تقديم الالوف ثم المئات ثم العشرات ثو الاحاد
ولكن اهل المغرب العربي
كانوا يقدمون الاحاد ثم العشرات ثم المئات ثم الالوف
مثلا الرقم 165 يصير في المغرب ( هسق)
لان هـ=5 , س=60 , ق=100
الرقم 222 يصير (بكر)
الرقم 2568 يصير ( حسثغب)
والمطلوب برنامج مكون من ثلاثة خانات
الخانة الاولى نضع فيها الرقم
والخانة الثانية تعبر عن الرقم بطريقة المشرق
والخانة الثالثة تعبر عن الرقم بطريقة اهل المغرب
وشكرا لكم
الرد }}}
تم الشكر بواسطة:
#2
اعطنا مثال على 2568 بالحالتين

على العموم تكتب ضمن كوماند

كود :
text2.text=""
ReDim f(27) As String
ReDim ff(27) As Integer
f(0) = "ا"
ff(0)=1
f(1)="ب"
ff(1)=2
اكمله حتى f(27)="غ"
ff(27)=1000

dim x as Integer

x=text1.text/1000

dim y as Integer

y=text1.text/100
a=text1.text-(1000*x)

dim z as Integer

z=text1.text/10
aa=text1.text-(1000*x)-(100*y)

dim zz as Integer

zz=text1.text-(1000*x)-(100*y)-(10*z)

ثم كيف تستعمله
كود :
for i=0 to 27
if ff(i)= x  then
q=f(i)

text2.text= q
endif
if ff(i)= y then
q=f(i)

text2.text= text2.text & q
endif
if ff(i)= z then
q=f(i)

text2.text= text2.text & q
endif
if ff(i)= zz then
q=f(i)

text2.text= text2.text & q
endif

next i
يعني ترتيب هذه الشروط الاربعة يغيير النتيجة
حيث الاكس هو مرتبة الالف و الواي مرتبة المئات و الزد مرتبة العشرات و zz مرتبة الآحاد
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم

- في المرفقات .

- تحياتي .


الملفات المرفقة
.rar   ConvertMoneyToSpecialChar.rar (الحجم : 2.3 ك ب / التحميلات : 194)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: asto
#4
دائما اكوادك رائعة و مختصرة يا استاذنا الكريم
vb_coder
الرد }}}
تم الشكر بواسطة: VB_Coder
#5
مشكور اخى الكريم asto
مشكور اخى الكريم vb_coder
جارى تجربة الكود

تمت تجربة الكود
بالفعل كود رااائع جدا جدا
ومشكور جزيل الشكر اخى vb_coder
وعندى سؤال اخر
اريد طباعة المدخلات والمخرجات
وليكن المثال على الكود السابق
اريد طباعة ادخال الرقم وطباعة الحروف الناتجة التى تعبر عن الرقم
فى ورقة وورد
الرد }}}
تم الشكر بواسطة:
#6
اخي الكريم VB_Coder
ارجو مساعدتي في اكمال هذا الكود
المرفق في هذا الرد
حاولت ارفاق الملف ولكنى لم استطع
عموما الملف على رابط خارجي
اضغط هنا لتحميل الملف المرفق
ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

- التعديل في المرفقات .

- تحياتي .


الملفات المرفقة
.rar   الارقام-Fixed.rar (الحجم : 2.36 ك ب / التحميلات : 159)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة:
#8
ما شاء الله عليك
انت فعلا مبرمج محتررررررررف
وانا اشكرك جزيل الشكر
وانا بالفعل ممنون لك جدا
لانى بالفعل احببت البرمجة لكني للاسف مبتدي
وانا اريد ان اتخذ منك معلما لى ودليلا لى فى عالم البرمجة بالفيجوال بيسك
شكر الله سعيك
وغفر لك ذنبك
ووفقك لكل ما يحبه ويرضاه
كل التحية والتقدير لك
الرد }}}
تم الشكر بواسطة: VB_Coder
#9
الاخ الكريم VB_Coder
السلام عليكم ورحمة الله وبركاته
ارجو اكمال الكود حتى يعبر عن الملايين والمليارات والتريليون
علما بأن (غغ) تعبر عن المليون
(غغغ) تعبر عن المليار
(غغغغ) تعبر عن التريليون
والرابط الاتي به الكود الذي يحتاج التعديل
http://www.gulfup.com/?MrdIc2
ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#10
شكرا على ردكم الطيب اخى VB_Coder
وكان هذا هو الملف الذي تم تعديله من قبل الاخ الكريمVB_Coder
وذلك حتى تعم الفايدة للجميع
http://www.gulfup.com/?ED0mnB
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 179 16-08-23, 10:41 AM
آخر رد: Microformt
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 3,475 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
Thumbs Up [كود] مشكله فى كود تفقيط الارقام الى حروف eng_elsawy 17 12,831 17-12-19, 03:01 AM
آخر رد: حامد محمد
  [سؤال] السلام عليكم .. مطلوب ترتيب السلسلة النصيةالتالية khaledk84 1 1,403 07-09-19, 01:22 AM
آخر رد: alaa_altunsi
  طلب مساعدة عن كيفية الحفاظ على ترتيب الاسماء حسب الحروف الابجدية والتسلسل gonm64 14 3,847 26-07-19, 11:45 AM
آخر رد: gonm64
  كيف يتم الحفاظ على تسلسل الارقام في حالة اجراء البحث gonm64 9 2,866 08-07-19, 06:42 AM
آخر رد: gonm64
  مطلوب كود اضافة الضريبة 5 % على اجمالي الفاتورة fahad fbs 3 3,318 19-06-19, 01:22 AM
آخر رد: محمود بكرى
  تحويل الارقام من الانجليزية للعربية dr.mostashar 7 3,394 22-02-19, 09:57 PM
آخر رد: AL_BRNS
  مطلوب طريقة الفرز على حسب عمودين في جدول واحد w123eg 2 1,886 26-12-17, 09:33 PM
آخر رد: w123eg

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم