Private Sub statusTimer_Tick()
' Track info for notification text
getPosition
End Sub
Public Sub getPosition()
' Use java object to enquire about the current position of playing track
Dim jo As JavaObject = musicStream
Dim position As Int
position = jo.RunMethod("getPosition", Null)
' Get track position and duration, format as "m:ss / m:ss"
Dim duration As String = ConvertToTimeFormat(position) & " / " & ConvertToTimeFormat(musicStream.duration)
' Update log and app notification with track title and runtime info
Debug.debugLog(duration) 'DEBUG
n.SetInfo(currentlyPlaying, duration, "")
n.Notify(1)
End Sub
Sub ConvertToTimeFormat(ms As Int) As String
' Format ms into minutes and seconds
Dim seconds, minutes As Int
seconds = Round(ms / 1000)
minutes = Floor(seconds / 60)
seconds = seconds Mod 60
' Return in time format "m:ss"
Return NumberFormat(minutes, 1, 0) & ":" & NumberFormat(seconds, 2, 0)
End Sub