fade کردن صدا

[sibil]

سلام دوستان عزیز .....

می خواستم بدونم چجوری میشه وقتی روی دکمه stop کلیک می کنیم ، موزیکمون یکدفعه قطع نشه و در واقع Fade

بشه . و همین طور برعکس وقتی play می کنیم به بالا فید بشه و ادامه موزیک پخش بشه ................


ممنون می شم جواب بدین ......................

 

[nevercom]

از اونجایی که توابع MMB برای کنترل صدا، صدای اصلی ویندوز رو کم و زیاد میکنه نه صدایی که از MMB پخش میشه، احتمالاً نیاز خواهید داشت تا از پلاگین برای کم و زیاد کردن صدای خروجی استفاده کنید و افکت Fade In/Out رو خودتون ایجاد کنید
البته شاید پلاگینی برای اینکار وجود داشته باشه که متاسفانه من از اون بیخبرم.

 

[sibil]

به فکری که من دارم نوجه کنین :


وقتی کاربر روی دکمه stop کلیک میکنه صدا به تدریج کم میشه و وقتی 0 شد . صدا stop میشه و دوباره صدای ویندوز به حالت قبل

برمی گرده این فرایند چند لحظه بیشتر طول نمیکشه . درسته ؟


با توجه به این موضوع من نتونستم کدش رو درست در بیارم لطفا کمک کنید ........

 

[nevercom]

برای کم کردن صدا به تدریج میتونین از کد زیر استفاده کنین:

[FONT=Courier New][SIZE=2][color=#0000FF]For[/color] i=[color=#ff0000]1[/color] [color=#0000FF]To[/color] [color=#ff0000]20[/color] 
  [color=#000090][b]VolumeDown[/b][/color]() 
  [color=#000090][b]Pause[/b][/color]("[color=#ff0000]30[/color]") 
[color=#0000FF]Next[/color] i[/SIZE][/FONT]

ولی مشکل اینجاست که در MMB تابعی برای بدست آوردن درجه ی صدای کنونی وجود نداره بنابراین شما قادر نخواهید بود صدا رو درست به میزان اولیش برگردونید، که این باعث آزار کاربر میشه

 

[macsoft]

این کاری که میگم اگر بکنی MMB صدای کنونیتو دوباره برمیگردونه وقتی که Fade out انجام شد
تو جواب بعدی میگم

 

[macsoft]

خوب اول تو دکمه Stop این متغییر ها رو وارد کن:
fadeout$='<srcdir>\fadeout.txt'
fadeoutvol$=CBK_Volume
a=StrToFile(fadeout$,fadeoutvol$,0,0)
For i=1 To 20
VolumeDown()
Pause("30")
Next i
getvol$=StrFromFile(fadeout$,1,1(
VolumeUp("getvol$")

 

[BEHESHT]

خیلی خیلی ممنون

جالب بود من اصلا به این ثابت CBK_Volume توجه نکرده بودم

بعد یه تذکر جای برادر کوچک تر جسارته اگه کد ها رو داخل تگ کد بذارید خونا تر میشد که تو نوشتار با شارپ (#) مشخص شده

موفق باشی