PDA

View Full Version : سوال: تبدیل عدد به حرف


Hassan2500
پنج شنبه 21 دی 1391, 20:15 عصر
سلام

من میخوام این تابع جوری ویرایش بشه که تمام مراتب عدد (یکان - دهگان - صدگان - هزارگان) رو به حرف تبدیل کنه مثلاً عدد 1358 رو در تکست1 مینویسیم و در تکست2 به ترتیب باید نوشته بشه: ح ن ش غ

3: ج
67: ز س
80: ف
111: ا ي ق
403: ج ت
555: ه ن ث
800: ض
1111: ا ي ق غ


Function Estentagh(EstentagheAdad As String) As String
Select Case EstentagheAdad
Case 1: EstentagheAdad = "ا"
Case 2: EstentagheAdad = "ب"
Case 3: EstentagheAdad = "ج"
Case 4: EstentagheAdad = "د"
Case 5: EstentagheAdad = "ه"
Case 6: EstentagheAdad = "و"
Case 7: EstentagheAdad = "ز"
Case 8: EstentagheAdad = "ح"
Case 9: EstentagheAdad = "ط"
Case 10: EstentagheAdad = "ي"
Case 20: EstentagheAdad = "ک"
Case 30: EstentagheAdad = "ل"
Case 40: EstentagheAdad = "م"
Case 50: EstentagheAdad = "ن"
Case 60: EstentagheAdad = "س"
Case 70: EstentagheAdad = "ع"
Case 80: EstentagheAdad = "ف"
Case 90: EstentagheAdad = "ص"
Case 100: EstentagheAdad = "ق"
Case 200: EstentagheAdad = "ر"
Case 300: EstentagheAdad = "ش"
Case 400: EstentagheAdad = "ت"
Case 500: EstentagheAdad = "ث"
Case 600: EstentagheAdad = "خ"
Case 700: EstentagheAdad = "ذ"
Case 800: EstentagheAdad = "ض"
Case 900: EstentagheAdad = "ظ"
Case 1000: EstentagheAdad = "غ"
End Select
Estentagh = EstentagheAdad
End Function

Private Sub Text1_Change()
Text2 = Estentagh(Text1)
End Sub
aria1o
پنج شنبه 21 دی 1391, 21:15 عصر
با سلام
دوست عزیز تابعی که نوشتی مشکل داره .این تابع با رویداد text1.change جور در نمیاد . دستور change هر سری که یک عدد وارد میشه میاد text2 رو عوض میکنه .شما تو تابع عدد 555 تعریف نکردی با mid میتونی 555 رو به ه ه ه تبدیل کنی ....بیشتر رو کاری که میخوای بکنی فکر کن .
Hassan2500
پنج شنبه 21 دی 1391, 22:01 عصر
با سلام
دوست عزیز تابعی که نوشتی مشکل داره .این تابع با رویداد text1.change جور در نمیاد . دستور change هر سری که یک عدد وارد میشه میاد text2 رو عوض میکنه .شما تو تابع عدد 555 تعریف نکردی با mid میتونی 555 رو به ه ه ه تبدیل کنی ....بیشتر رو کاری که میخوای بکنی فکر کن .

جناب aria1o من از برنامه نویسی چیز زیادی بلد نیستم چون درسش رو نخوندم فقط به این کدها احتیاج دارم حالا اگه کسی از دوستان میتونه کد بالا رو طبق اون چیزی که گفتم درستش رو برام بنویسه ممنون میشم
SlowCode
پنج شنبه 21 دی 1391, 22:59 عصر
سلام این سورس رو ببین.
Mr'Jamshidy
جمعه 22 دی 1391, 01:26 صبح
من یک برنامه کار با ابجد نوشتم ولی به زبان دات نت به کارت میاد؟
Hassan2500
جمعه 22 دی 1391, 15:57 عصر
سلام

جناب محسن 15 به این سورسی که گذاشتین در اصطلاح علم حروف میگن عدد کبیر از سؤال گرفتن اما من چیزی که میخوام و در پست1 توضیح دادم برعکس این سورسی است که گذاشتین و بهش در علم حروف میگن استنطاق کردن یعنی عدد رو دوباره تبدیل به حرف میکنیم حالا اگه میشه کد پست1 رو طبق اون چیزی که خواستم برام ویرایش کنید

مثال
حسن
عدد کبیر: 118
استنطاق عدد 118: ح ي ق
SlowCode
جمعه 22 دی 1391, 19:21 عصر
بله درسته دقت نکرده بودم.
اینی که شما میگی نوشتنش نسبت به برعکسش سخته.
اون کد شما هم جواب نمیده، چون مثلا اگه عدد 20 رو در نظر بگیری چندین احتمال وجود داره: 20و10+10و10+9+1و8+7+5و5+5+5+5و...
همونطور که می بینی همه این ها باید بررسی بشه.
خودت روش فکر کن، منم اگه تونستم یه کدی براش می نویسم.