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

[حمید حمید 4]

سلام دوستان 

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) باید چی بذارم؟ که وقتی دکمه کم کردن صدارو میزنیم کم کم صداش کم شه تا کمترین صدا و قطع شدن صدا بره 

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

 

 

[Sajad Soltani 7]

در 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) باید چی بذارم؟ که وقتی دکمه کم کردن صدارو میزنیم کم کم صداش کم شه تا کمترین صدا و قطع شدن صدا بره 

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

 

 

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

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

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

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

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

[حمید حمید 4]

در 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

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

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

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

[Sajad Soltani 7]

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

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

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

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

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

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

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

[حمید حمید 4]

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

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

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

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

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

ممنون کمکت