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

[bahman.net]

با سلام
من خیلی تو این سایت و جاهای دیگه گشتم ولی چیزی که بتونه کمکم کنه نتونستم پیدا کنم اگه کسی کامپوننتی یاچیزی که به درد بخوره داره بگذاره تا مشکل ما هم حل بشه خیلی ضروریه. هر روشی رو امتحان کردم به نظرم غیر از این روش راه دیگه ای نباشه چون دامنه اعداد خیلی زیاده

[ghafoori]

دوست عزیز در تبدیل عدد به حرف ما ان را 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:
4234

اما activex ان بصورت فارسی ناقابل 260000 تومان است:چشمک:

[bahman.net]

از جوابتون ممنونم باز هم اگه کسی بتونه کمک کنه بگه تا استفاده کنیم

[bahman.net]

میشه در این مورد بیشتر توضیح بدی
وی بی 2005 هم توابع ساده ای برای پخش صدا دارد کلا شما باید 41 صدا برای تلفظ اعداد را داشته باشید تا تریلیون هم بتونید تلفظ کنید

:

[ghafoori]

با دستور زیر شما میتوانید براحتی یک صدا از نوع wave را پخش کنید این متد میتوانید ادرس فایل یا یک stream یا ارایه ای از بایت را بگیرد و ان را پخش کند



my.Computer.Audio.Play()

[bahman.net]

خیلی ممنون خیلی کمکم کرد

[65mojir]

-------------------ممنون

[Peyman_Ranjbar]

FarsiLibrary (http://www.codeproject.com/useritems/FarsiLibrary.asp)

اینو امتحان کن
این کارو برات انجام میده.
تو قسمت demo دکمه دوم از سمت چپ