[M3HRSH4D]

سلام

اين کد چرا وقتي 7 , 8 بار پشت سر هم پلي بزنم صدا قطع ميشه يا بهتره بگم هنگ ميکنه ؟ حتي صداي کل گوشي !!

اگه کسي واسه پلي کردن صدا روش ديگه اي داره بگه

مرسي

کد:

Sub Globals
Dim seda As MediaPlayer
end sub

------------------'
Sub btn_Click
seda.Initialize2("seda")
seda.Load(File.DirAssets,"music.ogg")
seda.Play
End Sub

[Thewolf]

سلا م ...!!!

شما باید دو خط اول کد پلی کردن رو در ساب Activity_Create بنویسی!البته با این کار دیگه با هر بار کلیک کردن از اول پخش نمیشه!!!

ولی من روی تبلت ایسوس فون پد تست کردم بعد از 20 بار زدن هم هنگ نکرد!!!

کد:

Sub Activity_Create(FirstTime As Boolean)
Seda.Initialize2("seda")
Seda.Load(File.DirAssets,"thewolf.mp3")
End Sub
Sub Button1_Click
Seda.Play    
End Sub

[M3HRSH4D]

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

از sound pool استفاده کردم مشکلم حل شد . فقط هی پشت سر هم پلی میشه . ینی کلا لوپینگش روشنه .

از این استفاده کردم اگه یه بار پلی بشه مشکلم کلا حل میشه ....

کد:

Sub Process_Globals
    Dim s As SoundPool
    Dim seda As Int
End Sub

'---------------------

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        s.Initialize(1)
        seda = s.Load(File.DirAssets, "ehem.ogg")
    End If
    
    Activity.LoadLayout("main")
End Sub

'--------------------
sub btn_Click
s.Play(seda, 1, 1, 1, -1, 1)
end sub

[Thewolf]

آها!!! اخه Sound Pool فقط واسه صداهای کوتاه کاربرد داره!
خب واسه اینکه از حالت لوپ خارج شه باید اون 1- رو به 0 تغییر بدید!

کد:

sub btn_Click
s.Play(seda, 1, 1, 1, 0, 1)
end sub

خب دیگه موفق باشید ... اعتبار یادت نره!...

[M3HRSH4D]

اقا مرسی

راستی من هرکاری میکنم اندازه صفحرو نمیتونم واسه همه رزولوشنا ست کنم . اگه میشه یه پروژه ی کوچیک درس کنی یا اینجا اموزش بدی


از new variant رزولوشن اد میکنم مثلا 1280X720 . دزاینمو میکنم ولی وقتی رو گوشی نصب میکنم باز سرجاشون نیست وسایلا .
از کدای set layout استفاده کردم ولی به نتیجه ای نرسیدم . 

اگه میشه راهنمایی کنید

[Thewolf]

من واسه این کار از Designer Scripts تو منوی Designer استفاده میکنم!


البته میشه از کدنویسی هم استفاده کرد ولی این کار استاندارده!

اگه تو اون قسمت کد نویسی کنی میفهمی که خیلی راحت تر میشه مکان اشیا رو انتخاب کرد. مثلا علاوه بر btn1.Left می تونی از btn1.Right هم استفاده کنی!

واسه اینکه روی همه گوشی ها به طور یکسان نمایش داده بشه بهتره از % استفاده کنی! یعنی btn1.Width = 100%x با این کار رو هر گوشی اندازه همونه و نیازی نیست واسه هر گوشی جدا بخوای اونا رو ست کنی!

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

[M3HRSH4D]

اقا واقعا مرسسسسیییی  


یه سوال دیگم داشتم ولی روم نمیشه بگم .

یا بگم ؟؟

[Thewolf]

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

بفرمایید سوالتون رو مطمئنا همه ی کاربران فروم در صورتی که جواب رو بدونن حتما جواب میدن ...

[M3HRSH4D]

شرمنده میکنید
راسش من یه پیانو ساده میسازم .
که میدونید چندین دکمه داره . مثلا من یه دکمه ای رو میزنم یه صدایی میده  . ولی باید همون موقع که فشار دادم صدارو بده . یعنی تو بخش down click دکمه باید کد بنویسم درسته؟؟
اونجا مینویسم . ولی وقتی دکمه رو فشار میدم صدا پخش میشه . اگه زود بزنم و بردارم دسمو همه چی عالیه . ولی کافیه 2 یا 3 ثانیه دسمو روی دکمه نگه دارم یا دیر دسمو بردارم از رو دکمه اون موقع دوبار صدا پخش میشه .
از کد media player اسفاده میکنم . که فک نکنم از کد پخش صدا باشه.

[Thewolf]

میشه قسمتی از سورس برنامه رو بذارید!!!