تقييم الموضوع :
  • 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 ك ب / التحميلات : 85)
كود :
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 ك ب / التحميلات : 77)
كود :
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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ود ان اضيف هذه الارقام مع بعضها في تكست ثالث و وضع علامة ( / ) بينهما allobaed 3 96 23-11-16, 02:08 PM
آخر رد: sendbad100
  اريد برنامج لتعلم الحروف الانجليزية عبدالله الجذيلات 0 113 04-08-16, 03:01 PM
آخر رد: عبدالله الجذيلات
  احتاج الى الكود لتحويل الارقام الى حروف hicham716 10 446 07-07-16, 09:29 PM
آخر رد: hicham716
  [سؤال] مطلوب كود تفقيط الأرقام بالانجليزي aboezzat84 2 207 07-04-16, 02:56 PM
آخر رد: aboezzat84
  [سؤال] مطلوب برنامج تحويل الارقام او الحروف من شكل الى شكل تاج 8 559 31-12-15, 09:35 PM
آخر رد: تاج
  [سؤال] اصل الارقام تاج 5 249 30-12-15, 05:00 AM
آخر رد: تاج
  ارجوا الحل عن الارقام hisoma 0 142 29-12-15, 06:12 PM
آخر رد: hisoma
  ارجوا الرد للاهمية عن الارقام والنسخ hisoma 8 275 28-12-15, 06:44 PM
آخر رد: hisoma
  [vb6.0] مطلوب كود لإضافة مجموعة من textboxs إلي قاعدة البيانات MEDO’S PROJECT 0 138 27-12-15, 10:25 AM
آخر رد: MEDO’S PROJECT
  سؤال فيما يخص تحويل الارقام الى حروف abde6726 2 323 23-12-15, 12:48 AM
آخر رد: Ahmed_Mansoor

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


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