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

تنظیم صدا با کتابخانه phone


حمید حمید

سوال

سلام دوستان 

If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
			phone.SetVolume(phone.VOLUME_MUSIC,3,True)
	Else if KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
		
			phone.SetVolume(phone.VOLUME_MUSIC,3,True)
	End If

برای تنظیم صدا ویدئو از کتابخونه phone استفاده کردم جای عددی که نوشتم(3) باید چی بذارم؟ که وقتی دکمه کم کردن صدارو میزنیم کم کم صداش کم شه تا کمترین صدا و قطع شدن صدا بره 


وقتی هم دکمه زیاد کردن صدارو فشار میدیم کم کم صداش زیاد شه تا بیشترین صدای گوشی برسه؟♥:53:

 

 

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

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

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

در 22 دقیقه قبل، حمید حمید گفته است :

سلام دوستان 


If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
			phone.SetVolume(phone.VOLUME_MUSIC,3,True)
	Else if KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
		
			phone.SetVolume(phone.VOLUME_MUSIC,3,True)
	End If

برای تنظیم صدا ویدئو از کتابخونه phone استفاده کردم جای عددی که نوشتم(3) باید چی بذارم؟ که وقتی دکمه کم کردن صدارو میزنیم کم کم صداش کم شه تا کمترین صدا و قطع شدن صدا بره 


وقتی هم دکمه زیاد کردن صدارو فشار میدیم کم کم صداش زیاد شه تا بیشترین صدای گوشی برسه؟♥:53:

 

 

سلام دوسته عزیرم 

خسته نباشه عزیزم

این کد رو تست کن ببین جواب میده یا نه خبرشو بده

من این تکه کد تو یکی از برنامه هام بود واستون پیداش کردم گذاشتم اینجا، قبلا از همین سایت برداشته بودمش، یادم نیست کی گذاشته بود  فکر کنم اسمشون سید محمد بود. خلاصه از هرکی هست حلال کنه دیگه. 

sub Global
Dim volom As Int = 1
Dim ph As Phone
end sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 

Select KeyCode
	
Case KeyCodes.KEYCODE_VOLUME_DOWN

	For i = 0 To 1
	ph.SetVolume(ph.VOLUME_MUSIC,volom,True)
	volom = volom - 1
	Next

Case KeyCodes.KEYCODE_VOLUME_UP

	For i = 0 To 1
	ph.SetVolume(ph.VOLUME_MUSIC,volom,True)
Volom = volom + 1
	Next
End Select
Return True
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 11 ساعت قبل، Sajad Soltani گفته است :

سلام دوسته عزیرم 

خسته نباشه عزیزم

این کد رو تست کن ببین جواب میده یا نه خبرشو بده

من این تکه کد تو یکی از برنامه هام بود واستون پیداش کردم گذاشتم اینجا، قبلا از همین سایت برداشته بودمش، یادم نیست کی گذاشته بود  فکر کنم اسمشون سید محمد بود. خلاصه از هرکی هست حلال کنه دیگه. 


sub Global
Dim volom As Int = 1
Dim ph As Phone
end sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 

Select KeyCode
	
Case KeyCodes.KEYCODE_VOLUME_DOWN

	For i = 0 To 1
	ph.SetVolume(ph.VOLUME_MUSIC,volom,True)
	volom = volom - 1
	Next

Case KeyCodes.KEYCODE_VOLUME_UP

	For i = 0 To 1
	ph.SetVolume(ph.VOLUME_MUSIC,volom,True)
Volom = volom + 1
	Next
End Select
Return True
End Sub

دمت گرم سجاد جان مرسی از کمکت:53:

یه سوالی اگر بخوام با هر بار فشار دادن دکمه افزایش یا کاهش صدا مقدار کمتری صدا کم و زیاد شه اون وقت باید چطوری بنویسم کد رو؟

الان که دکمه رو میزنم یکم زیادی صدا کم و زیاد میشه

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

در 7 ساعت قبل، حمید حمید گفته است :

دمت گرم سجاد جان مرسی از کمکت:53:

یه سوالی اگر بخوام با هر بار فشار دادن دکمه افزایش یا کاهش صدا مقدار کمتری صدا کم و زیاد شه اون وقت باید چطوری بنویسم کد رو؟

الان که دکمه رو میزنم یکم زیادی صدا کم و زیاد میشه

سلام دوست عزیزم خوشحالم تونستم کمکت کنم. 

اون 1 رو تغییرش بده ببین تغییری میکنه؟ 

موفق باشی عزیزم❤️

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

در 1 ساعت قبل، Sajad Soltani گفته است :

سلام دوست عزیزم خوشحالم تونستم کمکت کنم. 

اون 1 رو تغییرش بده ببین تغییری میکنه؟ 

موفق باشی عزیزم❤️

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

ممنون کمکت:53:

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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