راهنمایی در مورد، دکمه های پخش موسیقی

[HS71 78]

با سلام خدمت دوستان انجمن.

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

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

 

اینم نمونه کدهایی که نوشتمه:

Sub Process_Globals
 Dim m As MediaPlayer
End Sub




Sub Globals
 
    Dim List1 As ListView  
    Private stopkey As Button
    Private playkey As Button
    Private backey As Button
    Private nextkey As Button
End Sub
  



Sub List1_ItemClick (Position As Int, Value As Object)
    
    m.Stop
    m.Load(File.DirAssets, Position & ".mp3")
    m.Play
    
    stopkey.Visible = True
End Sub





Sub stopkey_Click
    stopkey.Visible = False
    playkey.Visible = True
    
    m.Stop
    
End Sub



Sub playkey_Click
    playkey.Visible = False
    stopkey.Visible = True
       
End Sub



Sub backey_Click

End Sub


Sub nextkey_Click
    
End Sub

تو سایت هم زیاد سرچ کردم اما درمورد این مورد درست توضیح نداده بودن!

 

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

باتشکر.

[مهدی ایزدی 9,203]

درود

شما فقط کافیه یک Int تعریف کنید که کار همون Position رو انجام بده

سر دستی میگم چیکار کنید

توی globals :

dim i as int

توی رویداد ItemClick مربوط به listview :

i = position

خب !

حالا توی کلید nextkey :

i = i+1
    m.Stop
    m.Load(File.DirAssets, i& ".mp3")
    m.Play

توی کلید backkey :

i = i-1
    m.Stop
    m.Load(File.DirAssets, i& ".mp3")
    m.Play

فقط یک شرط هم باید بزارید که مثلا اگه i = 1 بود دیگه backkey فعال نباشه چون دیگه فایل 0 وجود نداره و برنامه خطا میده

[HS71 78]

مهدی جان واقعا ممنون، آخه من حدود دو هفته که وارد برنامه نویسی شدم و از قبلشم هیچی از برنامه نویسی نمیدونستم...

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

باز هم تشکر..

موفق پیروز باشی...

[HS71 78]

ممنون مهدی عزیز، اما چرا حالا با خطا روبرو میشم ،   به لی اوت گیر میده!  البته توی عکس یه پله بالا زدم لی اوت رو روی 36 !  وگرنه توی اخطار همون خط لی اوتو گیر میده...

 

 اونارو نوشتم بعدش با خطا روبرو میشم، و،  وقتی پاک کنم راحت اجرا میشه!

 

و همینطور ایا دستور ایفم درست نوشتم یا نه؟ البته 1 نوشته بودم اما بعد 0 نوشتم و عکس گرفتم از دستور ایف.

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

مشکل یه جای دیگه باید باشه اما کجا؟نمیدونم.

 

 

 

 

[HS71 78]

ببخشید مشکل از تعریفint بود که اسمش رو تغییر دادم به ii درست شد!

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

دستور ایف که دادم به کلید های عقب و جلو، حالا وقتی روی اهنگ اول میام و عقب میزنم اونوقت کلا از کار میفته و اگه اهنگه بعدی بزنم و بخوام دوباره عقب بزنم دیگه دکمه عقب از کار افتاده........ در مورد کلید نکست هم همینطوره....

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

Sub backey_Click

If ii = 1 Then

backey.Enabled = False

End If

ii = ii-1

m.Stop

m.Load(File.DirAssets, ii& ".mp3")

m.Play

End Sub

Sub nextkey_Click

If ii = 30 Then

nextkey.enabled=false

End If

ii = ii+1

m.Stop

m.Play

End Sub

و یه چند سوال دیگه:

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

1.حالا چطور وقتی اهنگی در حال پخش باشه و کاربر استاپ بزنه و دوباره پلی بزنه همون اهنگ دوباره از اول پخش بشه؟

2. چطور وقتی اهنگی تموم میشه دکمه استاپ تبدیل به پلی بشه؟

[مهدی ایزدی 9,203]

دستور ایف که دادم به کلید های عقب و جلو، حالا وقتی روی اهنگ اول میام و عقب میزنم اونوقت کلا از کار میفته و اگه اهنگه بعدی بزنم و بخوام دوباره عقب بزنم دیگه دکمه عقب از کار افتاده........ در مورد کلید نکست هم همینطوره....

 

یک Else بزار و Enabled = True کن

 

1.حالا چطور وقتی اهنگی در حال پخش باشه و کاربر استاپ بزنه و دوباره پلی بزنه همون اهنگ دوباره از اول پخش بشه؟

خب کاری نداره دیگه

فقط باید از همون Stop و Play استفاده کنی

نیازی به اضافه کردن i و یا Initialize کردن هم نداری دیگه

2. چطور وقتی اهنگی تموم میشه دکمه استاپ تبدیل به پلی بشه؟

 

MediaPlayer یک Sub داره به نام Complate

مثلا :

Sub m_Complete
اینجا کد مربوط به تبدیل استاپ به پلی رو قرار بده	
End Sub