خواندن شماره به صورت صدا

[mohammadsaleh]

اگر بخواهيم به منظور خاصي شماره هاي ثبت شده در فيلد اكسس خوانده شود از چه روشي بايد استفاده كنيم . مثل شماره هايي كه تلفن هاي گوياي بانك ها اعلام مي كنند. يعني متون ثابت مشخصي ضبط شود و به شماره خاص مورد نظر ما كه برسد آن شماره را خوانده و مجددا ادامه متن را بخواند.


من علمني حرفا فقد صيرني عبدا. امام علي عليه السلام

[mohammadsaleh]

دوستان عزيز كما كان منتظر راه حل هاي پيشنهادي شما هستم.

من علمني حرفا فقد صيرني عبدا. امام علي عليه السلام

[HAMRAHSOFT.IR]

سلام
متونم به پرسم براي چي مخوايد اعداد بخونيد و چه استفادهي مخواي ببريد تا بشتر بشه راهنماي كرد ولي براي اينكار از اكتويكس مي توني اسفاده كنيد كه اگر كرك شدش گريت بيا خيلي خوب در غير انصورت بايد پول بدي

[shaghaghi]

سلام
ابتدا از پیاده سازی یک مثال ساده شروع می کنیم تا روش کار دست شما بیاد
می خواهیم یک شماره تلفن را به صورت دو رقم دو رقم با کمک نرم افزار تلفظ کنیم:
تابعی را با روش زیر می سازیم و اعداد را بصورت دو رقم، دو رقم جدا سازی کرده و برای قرائت به این تابع ارجاع می دهیم:
روش ساخت این تابع:
از یک گوینده برای تلفظ اعداد کمک می گیریم، نکته ی مهم اینجاست که از او نمی خواهیم اعداد 00 الی 99 را تک تک تلفظ کند و صد فایل صوتی بسازیم!
از او می خواهیم اعداد به همین صورتی که ما می گوییم تلفظ کند:
سری اول تلفظ شامل اعداد 00 الی 19 می باشد.(20 فایل صوتی)
سری دوم شامل اعداد 0 الی 9 (10 فایل صوتی)
سری سوم شامل اعداد 20،30،40 الی 90(8 فایل صوتی)
سری چهارم شامل تلفظ بیست و، سی و، چهل و، الی نود و (8 فایل صوتی)
شما تنها به 46 فایل صوتی نیاز دارید الیته می توان حرف و را به تنهایی تلفظ کرد و با سری سوم پیوند داد و تعداد فایل را به 39 برسانیم اما در این صورت قدری کیفیت کار پایین خواهد آمد
سپس فایل های صوتی در یک فولدر یا بصورت OLe در table نگهداری می کنید
اکنون کافی است با تفکیک یکان و صدگان هر عدد دو رقمی و شرط گذاری بر اساس ارزش اعداد صداهای ضبط شده را به ترتیب مورد نظرمان و با حداقل وقفه اجرا کنید (با کمک توابع خاص پخش فایل های صوتی که توابع api هم این امکان را دارند )
یک مثال برای پیاده سازی: برای عدد 22 تلفظ بیست و را از سری چهارم و دو را از سری دوم فرخوانی میکنیم
به همین سادگی!

[shaghaghi]

سلام
در ضمن برای اینکه ترتیب پخش فایل های صوتی تان بدون مشکل باشد، می بایست بین دو دستور ایجاد صوتتان، با دادن عدد 0.1 تابع زیر را فراخوانی کنید، تا به اندازه ی 0.1 ثانیه تاخیر ایجاد کنید( DoDelay 0.1)


Function DoDelay(Optional Second As Integer = 1)
Dim PauseTime, start, Finish, TotalTime
PauseTime = Second ' Set duration.
start = Timer ' Set start time.
Do While Timer < start + PauseTime
DoEvents ' Yield to other processes.
Loop

End Function