اجرا نشدن فایل صوتی

[infoshayesteh 1]

دوستان سلام

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

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim mp As MediaPlayer

    Private PanelSath1 As Panel
    Private LbDars1 As Label
    Private Btdars1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btdars1_Click
    mp.Initialize2("mp")
    mp.Load(File.DirAssets , "D1.mp3")
    mp.Play
    
End Sub

Sub Btdars2_Click
    
End Sub

Sub Btdars3_Click
    
End Sub

Sub Btdars4_Click
    
End Sub

Sub LbDars1_Click
    mp.Initialize2("mp")
    mp.Load(File.DirAssets , "Track 03.mp3")
    mp.Play
End Sub

[infoshayesteh 1]

ممنونم

 

 

[infoshayesteh 1]

سلام ببخشیدباز مزاحم شدم 

کاری که گفته بودید انجام دادم اما خطا گرفت

 Activity.LoadLayout("LayoutDars1")
    mp.Initialize2("mp")
    mp.Load(File.DirAssets , "D1.mp3")
    Dim b As Boolean
    b=True
    
    mp1.Initialize2("mp1")
    mp1.Load(File.DirAssets , "Track 03.mp3")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btdars1_Click
    
    If b = True Then
        b = False
        mp.Play
    Else
        b = True
        mp.Pause
    End If
End Sub

 

 

[Salar82 919]

خب شما اول متغیر b رو تعریف کنید تا درست شه.

Sub Globals
	Dim b As Boolean
End Sub

 

[infoshayesteh 1]

آقایی ممنون من اشتباها توی اکتیویتی تعریف کرده بودم بازم ممنون

[Salar82 919]

سلام

چک کنید که صدای دیوایستون پایین نیست. یا اینکه ممکنه موت باشه.

اگر صداش بلند بود، برنامه رو رو گوشی واقعی تست کنید.

 

بازم اگر نشد، اسم فایلتون رو عوض کنید، به احتمال %90 مشکلتون حل میشه.

چون قبلاً خودم همچین مشکلی رو داشتم.

 

[infoshayesteh 1]

دوست عزیز ممنونم از جوابتون 

اما همچنان روی کلید یا لیبل که میزنم هیچ عکس العملی انجام نمیشه در ضمن تمامای مواردی که ذکر کردید انجام شدروی گوشی واقعی نصب کردم ،اسم فایل روعوض کردم ،اسم برنامه رو عوض کردم ،صدا رو هم چک کردم قبلش همین دستور رو در برنامه دیگری با همین گوشی انجام دادم مشکلی نبود 

 

[Salar82 919]

خط های مربوط به Initialize و Load رو داخل اکتیویتی کریت بنویسید و اجرا کنید.

یا

قبل از اجرا کردن صوتتون، کد زیر رو بنویسید:

Sleep(500)

 

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

[infoshayesteh 1]

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

[Salar82 919]

- برای هر صوت یه متغیر مجزا تعریف کنید.

- صوت ها رو تو اکتیویتی کریت لود کنید.

بعد Clean Project رو بزنید و کامپایل کنید.

 

اگر نشد، مشکل از دیوایستون هست.

[infoshayesteh 1]

سلام ببخشید میشه یکم واضح تر توضیح بدید البته میدونم از دیوایس نیست چون توی یک برنامه دیگه استفاده کردم درست بود ولی چون بنده مبتدی هستم اگه واضح تر بیان کنید این نکاتی که گفته شد ممنون میشم 

در پناه حق

[Salar82 919]

در 5 ساعت قبل، Salar82 گفته است :

- برای هر صوت یه متغیر مجزا تعریف کنید.

بجای اینکه متغیر mp رو برای سه چار تا صوت بذارید، چند تا متغیر مثل mp , mp1 , mp3 , mp4 و... تعریف کنید و هر کدوم رو فقط برای یک صوت درنظر بگیرید.

 

در 5 ساعت قبل، Salar82 گفته است :

بعد Clean Project رو بزنید و کامپایل کنید.

گزینه CleanProject رو از طریق مسیر  Tools ------> CleanProject  بزنید و بعد برنامه رو اجرا کنید

[infoshayesteh 1]

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

 

[Salar82 919]

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

[infoshayesteh 1]

سلام

لینک فایل

http://uupload.ir/view/0gfp_lernenglish1.rar/

[Salar82 919]

من پروژتون رو نگاه کردم

مشکلتون داخل اکتیویتی SOTOH هست.

بجای اینکه با زدن دکمه سطح1، اکتیویتی سطح1 رو باز و بعد لایوت رو لود کنید، اومدین لایوت رو با زدن دکمه سطح1(Btssath1) اود کردین و اکتیویتی actsath1 رو اصلاً باز نکردید.

 

یعنی کدهایی که برای mediaplayer نوشتین، اصلاً اجرا نمیشه که بخواد اجراش کنه یا نه.

این دو خط کد رو جایگزین کدهای رویداد Btssath1_click کنید:

	Activity.Finish
	StartActivity(ActSathe1)

 

حالا داخل اکتیویتی actsath1، بیاین لایوتتون رو لود کنید.

 

[infoshayesteh 1]

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

امیدوارم همیشه موفق و پیروز باشید

در پناه حق

[infoshayesteh 1]

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

 

[Salar82 919]

یه متغیر از نوع Boolean تعریف کنید و مقدار اون رو از همون اول true بذارید.

با زدن کلیک چک کنید این متغیر true هست یانه. اگر بود، صوت رو اجرا کنه و متغیر رو False بذاره و برعکس.

Sub Btssath1_Click
	If b = True Then
    	b = False
		mp.Play
    Else
    	b = True
		mp.Pause
	End If
End Sub