منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مطلوب كود يعبر عن الحروف بدلا من الارقام

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

قديما كانت العرب لا تعرف الاعداد , وكانت تعبر عن الاعداد بالحروف
مثلا : حرف الالف يعبر عن الرقم 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 يصير ( حسثغب)
والمطلوب برنامج مكون من ثلاثة خانات
الخانة الاولى نضع فيها الرقم
والخانة الثانية تعبر عن الرقم بطريقة المشرق
والخانة الثالثة تعبر عن الرقم بطريقة اهل المغرب
وشكرا لكم

اعطنا مثال على 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 مرتبة الآحاد

السلام عليكم

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

- تحياتي .

دائما اكوادك رائعة و مختصرة يا استاذنا الكريم
vb_coder

مشكور اخى الكريم asto
مشكور اخى الكريم vb_coder
جارى تجربة الكود

تمت تجربة الكود
بالفعل كود رااائع جدا جدا
ومشكور جزيل الشكر اخى vb_coder
وعندى سؤال اخر
اريد طباعة المدخلات والمخرجات
وليكن المثال على الكود السابق
اريد طباعة ادخال الرقم وطباعة الحروف الناتجة التى تعبر عن الرقم
فى ورقة وورد

اخي الكريم VB_Coder
ارجو مساعدتي في اكمال هذا الكود
المرفق في هذا الرد
حاولت ارفاق الملف ولكنى لم استطع
عموما الملف على رابط خارجي
اضغط هنا لتحميل الملف المرفق
ولكم جزيل الشكر

السلام عليكم

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

- تحياتي .

ما شاء الله عليك
انت فعلا مبرمج محتررررررررف
وانا اشكرك جزيل الشكر
وانا بالفعل ممنون لك جدا
لانى بالفعل احببت البرمجة لكني للاسف مبتدي
وانا اريد ان اتخذ منك معلما لى ودليلا لى فى عالم البرمجة بالفيجوال بيسك
شكر الله سعيك
وغفر لك ذنبك
ووفقك لكل ما يحبه ويرضاه
كل التحية والتقدير لك

الاخ الكريم VB_Coder
السلام عليكم ورحمة الله وبركاته
ارجو اكمال الكود حتى يعبر عن الملايين والمليارات والتريليون
علما بأن (غغ) تعبر عن المليون
(غغغ) تعبر عن المليار
(غغغغ) تعبر عن التريليون
والرابط الاتي به الكود الذي يحتاج التعديل
http://www.gulfup.com/?MrdIc2
ولكم جزيل الشكر

شكرا على ردكم الطيب اخى VB_Coder
وكان هذا هو الملف الذي تم تعديله من قبل الاخ الكريمVB_Coder
وذلك حتى تعم الفايدة للجميع
http://www.gulfup.com/?ED0mnB

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مبرمج مبتدئ

asto

VB_Coder

asto

مبرمج مبتدئ

مبرمج مبتدئ

VB_Coder

مبرمج مبتدئ

مبرمج مبتدئ

مبرمج مبتدئ