رفتن به مطلب
  • 0

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


HS71

سوال

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

 

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

 

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

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

 

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

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

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

با تشکر.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام.

باید به جای رویداد کلیک از رویداد 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/

لینک ارسال
به اشتراک گذاری در سایت های دیگر


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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...