راهنمایی جهت، اسم آهنگه در حال پخش در Layout

[HS71 78]

سلام دوستان.

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

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

اما مشکلی که دارم اینه که چطور آهنگی که در حال پخشه و یا در حال رد شدن به وسیله دکمه رد کردن هستش، اون آهنگ اسمش مثلا در پایین صفحه جای تایم آهنگ نشون داده بشه...

خلاصه حرفم اینه که کابر بفهمه چه اهنگی در حال رد شدن و یا پخشه...!

 

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

یا تکست؟

یا نمیدونم....

 

لطفا راهنمایی کنید. و کدش رو تا میشه کامل یاد بدین....

 

به عنوان نمونه:

 

که به حساب الان اهنگ دوم در حال پخشه.

ممنون.

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

درود

اسم آهنگ هارو دارید از دیتابیس میخونید ؟؟

اگه نه، اسم آهنگ ها در DirAssets به چه صورتی هستند ؟

 

اگه فقط با کلیک کردن روی آیتم میخواستید اسم آهنگ رو در Label نشون بدید که خیلی راحت توی ItemClick میومدید Label.Text = Value میکردید.

فقط بحث جلو و عقب کردن آهنگ داره می مونه که اون هم اگه با دیتابیس باشه خیلی راحت میتونید Position رو کم و زیاد کنید و اسم آهنگ رو GetString کنید.

 

البته دیتابیس هم نداشته باشید باز هم تقریبا خیلی راحت میشه اسم رو گرفت با Next. فقط توضیح بدید که از مولتی پنل استفاده کردید؟ + از دیتابیس استفاده کردید ؟

 

××××××××××××××××××××××××××××××××

 

در مورد اینکه چطور نمایشش بدید که راحت میتونید یک Panel قرار بدید و روش یک یا دو تا Label اضافه کنید.

[HS71 78]

والا من دقیقا نمیدونم دیتا بیس چیه!؟!

 اهنگ ها تماما در پوشه ی فایلز هستش که از 0 شماره گذاری کردم تا 30

0.mp3

1.mp3

2.mp3

.

.اما در کدها اسم آهنگ ها رو نوشتم.

نمونه کدها رو میزارم ببینید لطفا:

 

 

sub Activity_Create(FirstTime As Boolean

....

....

....
    List1.AddTwoLinesAndBitmap("01. Arteta - Lust  ","03:42",LoadBitmap(File.DirAssets, "music.png
    List1.AddTwoLinesAndBitmap("02. Yancrix - Vitoria ","04:45",LoadBitmap(File.DirAssets, "music.png
    List1.AddTwoLinesAndBitmap("03. Rantane - Ooops ","03:07",LoadBitmap(File.DirAssets, "music.png
    List1.AddTwoLinesAndBitmap("04. Johnro - Earth ","04:01",LoadBitmap(File.DirAssets, "music.png

    List1.AddTwoLinesAndBitmap("05. Vicin - Forwarder ","03:52",LoadBitmap(File.DirAssets, "music.png

...

....

end sub

.

.

..

Sub List1_ItemClick (Position As Int, Value As Object

    mp = Position
    m.Stop
    m.Load(File.DirAssets, Position & ".mp3")
    m.Play
    Loopi_CheckedChange(Loopi.Checked
    
    timer1.Initialize("timer1", 1000
    timer1.Enabled=True
    
            seekbar.Visible = True
    stopkey.Visible = True
    playkey.Visible = False
End Sub

.

..

Sub playkey_Click
    
 mp = mp
  m.Stop
   m.Load(File.DirAssets, mp & ".mp3
    m.Play
    Loopi_CheckedChange(Loopi.Checked
    
    playkey.Visible = False
     stopkey.Visible = True    
    m.Play
     timer1.Initialize("timer1", 1000)
      timer1.Enabled=True
     seek.Visible = True
End Sub
.

.

..

Sub nextkey_Click

  If mp = 30 Then
        mp = -1
    End If    
 mp = mp+1
 
 If playkey.Visible = False Then
   m.Stop
   m.Load(File.DirAssets, mp& ".mp3
   m.Play
       Loopi_CheckedChange(Loopi.Checked
   Else
       m.Stop
        m.Load(File.DirAssets, mp& ".mp3
     seek.Visible = False
    End If
 timer1.Initialize("timer1", 1000
   timer1.Enabled=True
      
End Sub

.

.

..

Sub backey_Click

    If mp = 0  Then
        mp = 29
    End If
  mp = mp-1
 
  If playkey.Visible = False Then
    m.Stop
     m.Load(File.DirAssets, mp& ".mp3
   m.Play
   Loopi_CheckedChange(Loopi.Checked
    Else
     m.Stop
     m.Load(File.DirAssets, mp& ".mp3
     seek.Visible = False
     End If
 timer1.Initialize("timer1", 1000
  timer1.Enabled=True
 
End Sub
.

.

.

ببخشید اگه یکم جا به جا شده کدها، مستقیم کپی کردم........دیگه همینه کدهای نوشته شده..

 

دیگه مشکلی نداره برنامم ، فقط همین که اسم آهنگ نمیاد و معلوم نیست کدوم آهنگ در حاله پخشه گیرشم!

حالا اگه فهمیدین لطفا راهنمایی کنید چطور وقتی آهنگ مد نظر پخش کردیم اسم آهنگ هم بیاد... اگه میشه نمونه کدشو بنویسید.

مرسی.