مشکل در پخش موزیک و سیک بار

[shahriar 408]

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

کد :

Sub Process_Globals
	Dim time1 As Timer

End Sub

Sub Globals
	Private SeekBar1 As SeekBar
	Dim MediaPlayer1 As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("m")
	time1.Initialize("time1",1000)
	time1.Enabled=True
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	MediaPlayer1.Initialize2("MediaPlayer1")
	MediaPlayer1.Load(File.DirAssets,"pishahangi-Bikalam.mp3")
	MediaPlayer1.Play
End Sub

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	If UserChanged = False Then Return 'the value was changed programmatically
    MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration
    time1_tick 'immediately update the progress label
End Sub

Sub time1_tick
 If MediaPlayer1.IsPlaying Then
       SeekBar1.Value = MediaPlayer1.Position / MediaPlayer1.Duration * 100

    End If

End Sub

مشکل از کجاست ؟

[Alireza.Ghafari 2,104]

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

[shahriar 408]

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

 

مشکل حل شد حالا سیک بار با آهنگ جلو و عقب نمیره

[1234 51]

If UserChanged = False Then Return
    MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration
    timer1_tick 

این کد رو برای سیک بار قرار بدین