تبدیل نوشتار (عدد) به گفتار فارسی در سیستم گویا
با سلام
من خیلی تو این سایت و جاهای دیگه گشتم ولی چیزی که بتونه کمکم کنه نتونستم پیدا کنم اگه کسی کامپوننتی یاچیزی که به درد بخوره داره بگذاره تا مشکل ما هم حل بشه خیلی ضروریه. هر روشی رو امتحان کردم به نظرم غیر از این روش راه دیگه ای نباشه چون دامنه اعداد خیلی زیاده
دوست عزیز در تبدیل عدد به حرف ما ان را 3رقم 3 رقم از سمت راست جدا میکردیم حالا کافی بود ان سه رقم را تبدیل حروف کنیم بهد طبق ان بهش هزاز یا میلیون نسبت دهیم شما فقط کافی است بتونید یک عدد سه رقمی را تبدیل به عدد بکنید بعد همچی درست میشود
من مثال تبدیل عدد به حرف را براتون میزارم شما فقط کافی است بجای چاپ حروف صدای ان را پخش کنید وی بی 2005 هم توابع ساده ای برای پخش صدا دارد کلا شما باید 41 صدا برای تلفظ اعداد را داشته باشید تا تریلیون هم بتونید تلفظ کنید
به ازا هر کدام یک صداone(0) = "صفر" : one(1) = "یک" : one(2) = "دو" : one(3) = "سه" : one(4) = "چهار"
one(5) = "پنج" : one(6) = "شش" : one(7) = "هفت" : one(8) = "هشت" : one(9) = "نه"
two(0) = "ده" : two(1) = "یازده" : two(2) = "دوازده" : two(3) = "سیزده" : two(4) = "چهرده"
two(5) = "پانزده" : two(6) = "شانزده" : two(7) = "هفده" : two(8) = "هیجده" : two(9) = "نوزده"
Three(2) = "بیست" : Three(3) = "سی" : Three(4) = "چهل" : Three(5) = "پنجاه"
Three(6) = "شصت" : Three(7) = "هفتاد" : Three(8) = "هشتاد" : Three(9) = "نود"
Hundred(1) = "یکصد" : Hundred(2) = "دویست" : Hundred(3) = "سیصد"
Hundred(4) = "چهارصد" : Hundred(5) = "پانصد" : Hundred(6) = "ششصد"
Hundred(7) = "هفتصد" : Hundred(8) = "هشتصد" : Hundred(9) = "نه صد"
Thousand = "هزار" : lakh = " هزار" : Crore = " میلیون" : Billion = "بیلیون"
Million = "میلیون" : Trillion = "تریلیون"
کد برنامه vb2005و vb2003:
Sample 11.zip
اما activex ان بصورت فارسی ناقابل 260000 تومان است
از جوابتون ممنونم باز هم اگه کسی بتونه کمک کنه بگه تا استفاده کنیم
میشه در این مورد بیشتر توضیح بدیوی بی 2005 هم توابع ساده ای برای پخش صدا دارد کلا شما باید 41 صدا برای تلفظ اعداد را داشته باشید تا تریلیون هم بتونید تلفظ کنید
:
با دستور زیر شما میتوانید براحتی یک صدا از نوع wave را پخش کنید این متد میتوانید ادرس فایل یا یک stream یا ارایه ای از بایت را بگیرد و ان را پخش کند
my.Computer.Audio.Play()
خیلی ممنون خیلی کمکم کرد
-------------------ممنون
FarsiLibrary
اینو امتحان کن
این کارو برات انجام میده.
تو قسمت demo دکمه دوم از سمت چپ
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول