سلام من تو این کد مشکلی نمیبینم و لی وقتی دکمه pause رو زدی موقع زدن پلی دوباره از اول شروع میشه؟
'
listview1.SingleLineLayout.Label.Left=listview1.SingleLineLayout.Label.Left-2%x
'
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("tam")
If File.Exists(File.DirInternal,"sqldata2.db")=False Then
File.Copy(File.DirAssets,"sqldata2.db",File.DirInternal,"sqldata2.db")
End If
SQL.Initialize(File.DirInternal,"sqldata2.db",False)
timer1.Initialize("timer1", 1000)
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
ToastMessageShow("s",False)
End Try
MediaPlayer1.Initialize2("MediaPlayer1" )
MediaPlayer1.Load(File.DirAssets, lblword.Text)
End Sub
Sub imgnex_Click
imgpause.Visible=False
imgplay.Visible=True
If MediaPlayer1.IsPlaying Then
MediaPlayer1.stop
End If
i=i+1
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
ToastMessageShow("s",False)
End Try
End Sub
Sub imgback_Click
imgpause.Visible=False
imgplay.Visible=True
If MediaPlayer1.IsPlaying Then
MediaPlayer1.stop
End If
i=i-1
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
ToastMessageShow("s",False)
End Try
End Sub
Sub imgplay_Click
MediaPlayer1.Initialize2(MediaPlayer1 )
MediaPlayer1.Load(File.DirAssets, lblword.Text)
MediaPlayer1.play
imgpause.Visible=True
imgplay.Visible=False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub timer1_Tick
If MediaPlayer1.IsPlaying Then
barPosition.Value = MediaPlayer1.Position / MediaPlayer1.Duration * 100
lblPosition.Text = "Position: " & ConvertToTimeFormat(MediaPlayer1.Position) & _
" (" & ConvertToTimeFormat(MediaPlayer1.Duration) & ")"
End If
End Sub
Sub ConvertToTimeFormat(ms As Int) As String
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
Sub barVolume_ValueChanged (Value As Int, UserChanged As Boolean)
MediaPlayer1.SetVolume(barVolume.Value / 100, barVolume.Value / 100)
End Sub
Sub barPosition_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged = False Then Return
MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration
If MediaPlayer1.IsPlaying = False Then 'in halat zamani etefagh miofte k music b akhar reside v karbar neshangaro b aval montaghel mikone
MediaPlayer1.Play
End If
timer1_Tick
End Sub
Sub Looping_CheckedChange(Checked As Boolean)
End Sub
Sub imgstop_Click
MediaPlayer1.Stop
imgpause.Visible=False
imgplay.Visible=True
End Sub
Sub imgpause_Click
MediaPlayer1.Pause
imgpause.Visible=False
imgplay.Visible=True
End Sub
سوال
1212 76
سلام من تو این کد مشکلی نمیبینم و لی وقتی دکمه pause رو زدی موقع زدن پلی دوباره از اول شروع میشه؟
' listview1.SingleLineLayout.Label.Left=listview1.SingleLineLayout.Label.Left-2%x ' Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("tam") If File.Exists(File.DirInternal,"sqldata2.db")=False Then File.Copy(File.DirAssets,"sqldata2.db",File.DirInternal,"sqldata2.db") End If SQL.Initialize(File.DirInternal,"sqldata2.db",False) timer1.Initialize("timer1", 1000) Try cr=SQL.ExecQuery("SELECT*FROM sqldataa") cr.Position=i lblword.Text=cr.GetString("sot") Catch ToastMessageShow("s",False) End Try MediaPlayer1.Initialize2("MediaPlayer1" ) MediaPlayer1.Load(File.DirAssets, lblword.Text) End Sub Sub imgnex_Click imgpause.Visible=False imgplay.Visible=True If MediaPlayer1.IsPlaying Then MediaPlayer1.stop End If i=i+1 Try cr=SQL.ExecQuery("SELECT*FROM sqldataa") cr.Position=i lblword.Text=cr.GetString("sot") Catch ToastMessageShow("s",False) End Try End Sub Sub imgback_Click imgpause.Visible=False imgplay.Visible=True If MediaPlayer1.IsPlaying Then MediaPlayer1.stop End If i=i-1 Try cr=SQL.ExecQuery("SELECT*FROM sqldataa") cr.Position=i lblword.Text=cr.GetString("sot") Catch ToastMessageShow("s",False) End Try End Sub Sub imgplay_Click MediaPlayer1.Initialize2(MediaPlayer1 ) MediaPlayer1.Load(File.DirAssets, lblword.Text) MediaPlayer1.play imgpause.Visible=True imgplay.Visible=False End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub timer1_Tick If MediaPlayer1.IsPlaying Then barPosition.Value = MediaPlayer1.Position / MediaPlayer1.Duration * 100 lblPosition.Text = "Position: " & ConvertToTimeFormat(MediaPlayer1.Position) & _ " (" & ConvertToTimeFormat(MediaPlayer1.Duration) & ")" End If End Sub Sub ConvertToTimeFormat(ms As Int) As String 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 Sub barVolume_ValueChanged (Value As Int, UserChanged As Boolean) MediaPlayer1.SetVolume(barVolume.Value / 100, barVolume.Value / 100) End Sub Sub barPosition_ValueChanged (Value As Int, UserChanged As Boolean) If UserChanged = False Then Return MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration If MediaPlayer1.IsPlaying = False Then 'in halat zamani etefagh miofte k music b akhar reside v karbar neshangaro b aval montaghel mikone MediaPlayer1.Play End If timer1_Tick End Sub Sub Looping_CheckedChange(Checked As Boolean) End Sub Sub imgstop_Click MediaPlayer1.Stop imgpause.Visible=False imgplay.Visible=True End Sub Sub imgpause_Click MediaPlayer1.Pause imgpause.Visible=False imgplay.Visible=True End Sub'لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.