صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: اصلاح کد ویژوال بیسیک نوشتن اعداد به حروف (عربی)

  1. #1


    آخرین بازدید
    2020/10/09
    تاریخ عضویت
    February 2014
    نوشته ها
    36
    امتیاز
    38
    سپاس
    35
    سپاس شده
    11 در 9 پست
    سطح اکسل
    44.00 %

    اصلاح کد ویژوال بیسیک نوشتن اعداد به حروف (عربی)

    با سلام

    یه ماژول ویژوال رو تو پیوست به صورت فایل تکست text گذاشتم

    این ماژول برای نوشتن اعداد به حروف (عربی) هست

    وقتی 0 وارد میکنی 0 به عدد مینویسه

    و اگر هم به مجموعه زير Case Is = 0: Digit1 = "صفر" اضاف شود 0 رو درست مینویسه ولی وقتی 20-30-40 و .... رو وارد میکنم علاوه بر بیست و سی صفر هم کنارش مینویسه مثلا مینویسه صفر وعشرون که باید فقط عشرون بنویسه و با صفر ترکیب نشه
    لطفا برام اصلاح کنید. ممنون
    Select Case c1
    Case Is = 1: Digit1 = "واحد"
    Case Is = 2: Digit1 = "اثنان"
    Case Is = 3: Digit1 = "ثلاث"
    Case Is = 4: Digit1 = "اربع"
    Case Is = 5: Digit1 = "خمس"
    Case Is = 6: Digit1 = "ست"
    Case Is = 7: Digit1 = "سبع"
    Case Is = 8: Digit1 = "ثمان"
    Case Is = 9: Digit1 = "تسع"
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط msmaiili : 2014/02/24 در ساعت 09:02 دلیل:اصلاح فایل پیوست

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط msmaiili نمایش پست ها
    با سلام

    یه ماژول ویژوال رو تو پیوست به صورت فایل تکست text گذاشتم

    این ماژول برای نوشتن اعداد به حروف (عربی) هست

    وقتی 0 وارد میکنی 0 به عدد مینویسه

    و اگر هم به مجموعه زير Case Is = 0: Digit1 = "صفر" اضاف شود 0 رو درست مینویسه ولی وقتی 20-30-40 و .... رو وارد میکنم علاوه بر بیست و سی صفر هم کنارش مینویسه مثلا مینویسه صفر وعشرون که باید فقط عشرون بنویسه و با صفر ترکیب نشه
    لطفا برام اصلاح کنید. ممنون
    Select Case c1
    Case Is = 1: Digit1 = "واحد"
    Case Is = 2: Digit1 = "اثنان"
    Case Is = 3: Digit1 = "ثلاث"
    Case Is = 4: Digit1 = "اربع"
    Case Is = 5: Digit1 = "خمس"
    Case Is = 6: Digit1 = "ست"
    Case Is = 7: Digit1 = "سبع"
    Case Is = 8: Digit1 = "ثمان"
    Case Is = 9: Digit1 = "تسع"
    فایل تکست خالی بود



  5. #3


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    فایل پیوست رو ببین باید درست شده باشه
    فايل هاي پيوست شده فايل هاي پيوست شده



  6. سپاس ها (3)


  7. #4


    آخرین بازدید
    2020/10/09
    تاریخ عضویت
    February 2014
    نوشته ها
    36
    امتیاز
    38
    سپاس
    35
    سپاس شده
    11 در 9 پست
    سطح اکسل
    44.00 %

    ممنون آقا مهدی
    این که خودش هم اینجوری بود
    میخواستم 0 رو صفر بنویسه الا 0 رو به عدد (0) مینویسه

    گفتم خودم سعی کردم درستش کنم تو قسمتی که بالا توضیح دادم اگه اون کارو انجام بدم برای رفع این مشکل، مشکل فعلی حل میشه یعنی صفر رو درست مینویسه ولی تو بیست و اینا مشکل پیش میاد
    خواستم جوری درستش کنین که اولا مشکل 0 حل بشه و بعد این مشکلی که عرض کردم پیش نیاد

  8. #5


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    فک کردم اشکال وارد کردن کد به اکسل رو داری

    الان متوجه شدم فایل رو ببین مشکل حله یا نه؟
    فايل هاي پيوست شده فايل هاي پيوست شده




  9. #6


    آخرین بازدید
    2020/10/09
    تاریخ عضویت
    February 2014
    نوشته ها
    36
    امتیاز
    38
    سپاس
    35
    سپاس شده
    11 در 9 پست
    سطح اکسل
    44.00 %

    اوکی
    ممنون از لطفتون
    حل شد

  10. #7


    آخرین بازدید
    2020/10/09
    تاریخ عضویت
    February 2014
    نوشته ها
    36
    امتیاز
    38
    سپاس
    35
    سپاس شده
    11 در 9 پست
    سطح اکسل
    44.00 %

    آقا مهدی یه زحمت دیگه براتون داشتم

    تو همین تابعی که زحمتشو کشیدین و اصلاحش کردین

    اگه عدد مورد نظر 10 باشه مینویسه عشرة و اگه ترکیب اعداد 1 تا 9 با 10 باشه یعنی 11 تا 19 مینویسه ثلاث عشر 13 و یا أربع عشر 14
    این روند زمانی درسته که معدود مورد نظر ما مذکر باشه
    اگه معدود مؤنث باشه برعکس میشه
    یعنی: 10 میشه عشر و ترکیب 10 با اعداد میشه عشرة (15 خمس عشرة) و ...

    مشکلی که هست این بخش تابع اصولی نوشته نشده و روندش اینجوریه که یک معادل (عشر) برای 10 گذاشته و زمانی که 10 تنها باشه (ة) بهش اضاف کرده تا بشه (عشرة) و زمانی که با بقیه اعداد ترکیب بشه همونو فراخوانی کرده.

    اگه شما بتونین عدد 10 رو از اعداد ترکیبیش تفکیک کنید و براش یه معادل حروف بذارین این مشکل حل میشه و میشه ویرایشش کرد.

    نمیدونم متوجه منظورم شدین یا نه

    اگه زحمتشو بکشین ممنون میشم

  11. #8


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    راستش هیچی نفهمیدم



  12. #9


    آخرین بازدید
    2020/10/09
    تاریخ عضویت
    February 2014
    نوشته ها
    36
    امتیاز
    38
    سپاس
    35
    سپاس شده
    11 در 9 پست
    سطح اکسل
    44.00 %

    بذار ساده تر بگم

    در حالت فعلی : 10 مینویسه: عشرة 13 مینویسه: ثلاث عشر

    من میخوام اینجوری بنویسه: 10: عشر 13: ثلاث عشرة

    اگه "عشر" تو تابع رو به "عشرة" تغییر بدم مورد دوم درست میشه اما مورد اول نه. نتیجه تغییر عشر به عشرة اینجوری میشه:

    10 مینویسه: "عشرةة" 13 مینویسه: "عشرة"

    این به این دلیله که تابع جوری نوشته شده که بخش دوم یازده تا نوزده و خود ده رو از یک جا میخونه و فقط وقتی عدد ما 10 باشه یه (ة) بهش اضاف میکنه به همین خاطر من نمیتونم برای خود 10 واژه مستقل تعریف کنم

    شما یه جوری برای خود 10 جدا از یازده تا نوزده یه واژه مستقل تعریف کنید مثل همون صفر که درستش کردین

    تا من بتونم برای خود 10 یه معادل حروف بذارم و برای بخش دوم اعداد 11 تا 19 که در واقع همون ده هست هم باز یه واژه مستقل بذارم

    اگه این کار رو انجام بدین مشکل من حل میشه

    ممنون

  13. #10


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    مونث بودن یا مذکر بودن کلمات به نظرم غیر قابل تشخیص هست ، در مورد عدد صفر یک شرط ساده به تابع اضافه کردم اگر دقت کنید برای 10 هم همین کار رو میشه کرد




صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. تقاضای برگزاری دوره ویژوال بیسیک
    توسط Amin_D در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2013/09/17, 06:10
  2. خواند IP با ویژوال بیسیک
    توسط ashkan در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2012/10/05, 15:31
  3. یادگیری ویژوال بیسیک
    توسط khakzad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2010/08/10, 12:36

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ماژول در اکسل 2010 اعداد را به حروف

ماژول تبدیل عدد به حروف در اکسل

سورس تبدیل عدد به حروف در ویژوال بیسیک

۵۵به عربی چی میشه؟

نوشتن عدد 13 به حروف

اعدادبه عربی چی میشه

عدد 13به عربی

اعداد به عربی چی میشه

تابع عدد به حروف عربي در اكسل

تابع عدد به حروف عربي

نوشتن عدد های عربی از 1تا10

عدد 933 به عربى چى ميشه

با چه تابعی در ویژوال بیسیک عدد را به حروف تبدیل کنیم

نوشتن حروف عدد چهل به عربی

۱۵به عربی چی میشه

از 1تا 10 حروف عربی

۲۶به عربی چی میشه

تبدیل یک کلمه به حروف در vb6

۱۵به حروف

نوشتن اعداد عربی در اکسل

نگارش برخی حروف عربی با اعداد

طرز نوشتن کد حرف در ویژورال بیسیک

۲۷ب عربی چی میشه

۱۸۰به عربی چی میشه

تبدیل رقم به حروف عربی

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است