کار با سیک بار

[pmtweb 38]

سلام

من یه آموزش ساده و ابتدایی کار با سیک بار رو میخواستم که چطوره میزان پیشرفت پخش یک اهنگ رو نشون بده همین ! ( دوستان فکر نکنم زیاد براتون سخت باشه )

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

ممنون میشم کمک کنید

[pmtweb 38]

جواب بدید دیگه

[mr-edris 186]

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

[shahab.es 5,429]

سلام عزیزم

http://learningstation.ir/2015/05/27/%D8%B3%D9%88%D8%B1%D8%B3-muisc-player-%D8%A8%D8%B1%D8%A7%DB%8C-b4a/

اینو یه نگاه بنداز

[امین شاهدی 5,765]

شما یه تایمر با Interval یک ثانیه نعریف کن و بعد به این صورت استفاده کن :

Dim mp As MediaPlayer
Dim SeekBar1 As SeekBar
Dim label1 As Label



Sub timer_Tick
  
        SeekBar1.Value = mp.Position / mp.Duration * 100
        label1.Text =ConvertToTimeFormat(mp.Position) &    "  /  " & ConvertToTimeFormat(mp.Duration)
End Sub

Sub ConvertToTimeFormat(ms As Int) As String
'in sub baraye tabdil MS be halate zamani (  1000ms ~>0:01 )
    Dim seconds, minutes As Int
    seconds = Round(ms / 1000)
    minutes = Floor(seconds / 60)
    seconds = seconds Mod 60
    Return NumberFormat(minutes, 1, 0) & ":" & NumberFormat(seconds, 2, 0) 'ex: 3:05
End Sub