مشکل کلیک باتن برای پخش صدا

[HS71 78]

سلام و درود به دوستان انجمن،

 

روی برنامه پیانویی داریم کار میکنیم و مشکلی داریم برای کلیک شدن باتن ها ، که وقتی کلیک میشه تا انگشت رو بر نداریم صدای اون دکمه پخش نمیشه در حالی که میخوایم سریع پخش بشه..،  یعنی چطور میشه جوری تنظیم کرد که باتن ها مثله یه دکمه پیانوی واقعی عمل کنه و همینکه دکمه رو زدیم و یا لانگ کلیک کردیم بلافاصله صدا پخش بشه؟

 

البته روی همه حالت های باتن ها کار گذاشتیم که بین اینا کلیک Down مثله واقعی عمل میکنه اما مشکل بدی که داره صدای اون باتن دوبار پشت سر هم پخش میشه و انگار کاربر دو بار کلیک زده باشه!!

در مورد کدها هم پخش کننده با SoundPool تعریف شده

 

Sub Button1_Click         ' down  ,  up , longclick
    sp.Play (c, 1, 1, 1, 0, 1)
End Sub

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

خلاصه اگه راهی هست یا اینکه ما اشتباه پیش رفتیم لطفا راهنمایی کنید.

با تشکر.

[HS71 78]

ببخشید دوستان کسی نمیدونه ست چطور باتن ها رو مثله دکمه های پیانو تنظیم کنیم ؟

تو پست اول کامل گفته شده...

[پژمان نیکروان 6,054]

سلام.

باید به جای رویداد کلیک از رویداد down استفاده کنید:

Sub button1_Down
	
End Sub

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

پاسخ سوم تاپیک زیر رو ببینید:

http://answercenter.ir/topic/10274-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D8%AF%D9%88-%D8%A8%D8%A7%D8%B1-%D8%AF%D8%B3%D8%AA%D9%88%D8%B1-button5-down-%D9%BE%D8%B4%D8%AA-%D8%B3%D8%B1-%D9%87%D9%85/

[HS71 78]

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

پاسخ سوم تاپیک زیر رو ببینید:

http://answercenter.ir/topic/10274-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D8%AF%D9%88-%D8%A8%D8%A7%D8%B1-%D8%AF%D8%B3%D8%AA%D9%88%D8%B1-button5-down-%D9%BE%D8%B4%D8%AA-%D8%B3%D8%B1-%D9%87%D9%85/

 

 

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

Sub Button2_Down
    If test = False Then
                   sp.Play (re, 1, 1, 1, 0, 1)
         test = True
         Else
            test = False
    End If
    
End Sub

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

لطفا راهی هست راهنمایی کنید.