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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1563)



مطلوب كود يعبر عن الحروف بدلا من الارقام - مبرمج مبتدئ - 15-01-14

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

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



RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - asto - 15-01-14

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


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - VB_Coder - 15-01-14

السلام عليكم

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

- تحياتي .


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - asto - 15-01-14

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


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - مبرمج مبتدئ - 16-01-14

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

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


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - مبرمج مبتدئ - 16-01-14

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


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - VB_Coder - 16-01-14

السلام عليكم

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

- تحياتي .


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - مبرمج مبتدئ - 16-01-14

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


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - مبرمج مبتدئ - 13-10-14

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


RE: مطلوب كود يعبر عن الحروف بدلا من الارقام - مبرمج مبتدئ - 13-10-14

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