Mp3 Player Slider Position update issue

Question

How to update slider position automatically

please help me on this issue

progress bar is working correctly  but not slider

GameWindow.Width = 500
GameWindow.Height = 400
GameWindow.CanResize = "False"
GameWindow.Show()
Slider_Progress_Bar = GameControls.AddProgressBar(0,70,200,330,22)
Slider = GameControls.AddSlider(0,70,200,330,25)
Play = GameControls.AddButton("Play",250-35,250-25,70,50)
Next = GameControls.AddButton("Next",295,250-17.5,80,35)
Prev = GameControls.AddButton("Prev",125,250-17.5,80,35)
Player = Media.CreateMediaPlayer("C:\Users\Home\Music\Music\1.mp3",0,0,0,0)
GameControls.RegisterValueChangedEvent(Slider,"Possition_Change")
GameControls.RegisterMouseDownEvent(Play,"Play_Song")
Sub Play_Song
  Media.Play(Player)
EndSub
Sub Possition_Change
  Media_Lenth = Media.GetLength(Player)
  Media_Possition = Media.GetPosition(Player)
  Real_Time_Possition = (Media_Possition*100)/Media_Lenth
  Media.SetPosition(Player,(GameControls.GetValue(Slider)*Media_Lenth)/100)
EndSub
While(Media_Possition<>Media_Lenth)
  Media_Lenth = Media.GetLength(Player)
  Media_Possition = Media.GetPosition(Player)
  Real_Time_Possition = (Media_Possition*100)/Media_Lenth
  GameControls.SetValue(Slider_Progress_Bar,Real_Time_Possition)
EndWhile

 

Sorry for my bad English

Answer 1

 How about this ?

GameWindow.Width = 500
 GameWindow.Height = 400
 GameWindow.CanResize = "False"
 GameWindow.Show()
 
 sound_List()
 
 Slider_Progress_Bar = GameControls.AddProgressBar(0,70,200,330,22)
 Slider = GameControls.AddSlider(0,70,200,330,25)
 GameControls.RegisterValueChangedEvent(Slider,"Possition_Change")
 Play = GameControls.AddButton("Play",250-35,250-25,70,50)
 GameControls.RegisterMouseDownEvent(Play,"Play_Song")
 Next = GameControls.AddButton("Next",295,250-17.5,80,35)
 GameControls.RegisterMouseDownEvent(Next, "Next_Song")
 Prev = GameControls.AddButton("Prev",125,250-17.5,80,35)
 GameControls.RegisterMouseDownEvent(Prev, "Prev_Song")
 Stop = GameControls.AddButton("Stop",50,250-17,70,35)
 GameControls.RegisterMouseDownEvent(Stop,"Stop_Song")

 
 start= Lst[2]
 MName= GameControls.AddButton(start,50,280,300,30)
 Player = Media.CreateMediaPlayer(start,0,0,0,0)
 Media.play(player)
 
 While(Media_Possition<>Media_Lenth)
   Media_Lenth = Media.GetLength(Player)
   Media_Possition = Media.GetPosition(Player)
   Real_Time_Possition = (Media_Possition*100)/Media_Lenth
   GameControls.SetValue(Slider_Progress_Bar,Real_Time_Possition)
 EndWhile
 
 Sub Play_Song
   Media.stop(Player)
   b= Math.GetRandomNumber(num)
   Media.SetMedia(Player, LST[b])
   GameControls.SetText(Mname,LST[b])
   Media.Play(Player)
 EndSub
 
 Sub Next_Song
   Media.stop(Player)
   b=b+1
   If b>num Then
     b=num
   EndIf
   Media.SetMedia(Player, LST[b])
   GameControls.SetText(Mname,LST[b])
   Media.Play(Player)
 EndSub

 Sub Prev_Song
   Media.stop(Player)
   b=b-1
   If b<1 Then
     b=1
   EndIf
   Media.SetMedia(Player, LST[b])
   GameControls.SetText(Mname,LST[b])
   Media.Play(Player)
 EndSub 

 Sub Stop_Song
   Media.stop(Player)
 EndSub 
 
 Sub Possition_Change
   Media_Lenth = Media.GetLength(Player)
   Media_Possition = Media.GetPosition(Player)
   Real_Time_Possition = (Media_Possition*100)/Media_Lenth
   Media.SetPosition(Player,(GameControls.GetValue(Slider)*Media_Lenth)/100)
 EndSub
 
 Sub sound_List
   LST=file.GetFiles("d:/MP3WAV") ' Your sound folder   ( mp3  wav etc.... )
   num=array.GetItemCount(LST)
 EndSub

Answer 2

 

GameWindow.Width = 500
GameWindow.Height = 400
GameWindow.Title = "Small Music Player - By Amir"
GameWindow.CanResize = "False"
GameWindow.Show()
Slider_Progress_Bar = GameControls.AddProgressBar(0,70,200,330,15)
Slider = GameControls.AddSlider(0,70,200,330,5)
Play = GameControls.AddButton("Play",238,250-25,70,50)
Next = GameControls.AddButton("Next",317,250-17.5,80,35)
File_Open = GameControls.AddButton("Open Files",10,10,80,30)
Prev = GameControls.AddButton("Prev",149,250-17.5,80,35)
Player = Media.CreateMediaPlayer("C:\Users\Home\Music\Music\1.mp3",0,0,0,0)
Stop = GameControls.AddButton("Stop",70,250-17,70,35)
GameControls.RegisterValueChangedEvent(Slider,"Position_Change")
GameControls.RegisterMouseDownEvent(Play,"Play_Song")
GameControls.RegisterMouseDownEvent(File_Open,"Open_Files")
GameControls.RegisterMouseDownEvent(Next,"Play_Next")
GameControls.RegisterMouseDownEvent(Prev,"Play_Prev")
GameControls.RegisterMouseDownEvent(Stop,"Stop_Song")
Sub Open_Files
  Dir = Dialogs.AskForDirectory()
  Files_Array = FilePlus.GetAllFiles(Dir)
  Total_Files = Array.GetItemCount(Files_Array)
  If Array.IsArray(Files_Array) = "True" Then
    GameControls.Remove(File_Open)
    EndIf
  For i = 1 To Total_Files
    TextWindowPlus.WriteLine(Files_Array[i])
  EndFor
EndSub
Sub Play_Song
   If Array.IsArray(Files_Array) = "False" Then
   Dialogs.ShowMessageBox("Please Select Media Diractory First","No Files","OK","Error")
  Else
   Media.stop(Player)
   Media.SetMedia(Player, Files_Array[1])
   File_Name = FilePlus.GetFileName(Files_Array[1])
   GameWindow.BrushColor = GameWindow.BackgroundColor
   GameControls.AddRectangle(15,100,455,25)
   GameWindow.BrushColor = "Red"
   GameControls.AddText("Now Playing : " +File_Name,20,100,"Comic Sans MS",15,"False","False")
   Media.Play(Player)
   EndIf
 EndSub
 Sub Play_Next
   If Array.IsArray(Files_Array) = "False" Then
   Dialogs.ShowMessageBox("No Song Files To Play","No Files","OK","Error")
  Else
   Media.stop(Player)
   Song_Id = Song_Id + 1
   If Song_Id > Total_Files Then
     Song_Id = Total_Files
   EndIf
   Media.SetMedia(Player, Files_Array[Song_Id+1])
   File_Name = FilePlus.GetFileName(Files_Array[Song_Id+1])
   GameWindow.BrushColor = GameWindow.BackgroundColor
   GameControls.AddRectangle(15,100,455,25)
   GameWindow.BrushColor = "Red"
   GameControls.AddText("Now Playing : " +File_Name,20,100,"Comic Sans MS",15,"False","False")
   Media.Play(Player)
   EndIf
 EndSub
 Sub Play_Prev
   If Array.IsArray(Files_Array) = "False" Then
   Dialogs.ShowMessageBox("No Song Files To Play","No Files","OK","Error")
  Else
   Media.stop(Player)
   Song_Id = Song_Id - 1
   If Song_Id < 1 Then
     Song_Id = 1
   EndIf
   Media.SetMedia(Player, Files_Array[Song_Id])
   File_Name = FilePlus.GetFileName(Files_Array[Song_Id])
   GameWindow.BrushColor = GameWindow.BackgroundColor
   GameControls.AddRectangle(15,100,455,25)
   GameWindow.BrushColor = "Red"
   GameControls.AddText("Now Playing : " +File_Name,20,100,"Comic Sans MS",15,"False","False")
   Media.Play(Player)
   EndIf
 EndSub
 Sub Stop_Song
   If Array.IsArray(Files_Array) = "False" Then
   Dialogs.ShowMessageBox("Already Stoped","No Files","OK","Error")
  Else
    Media.stop(Player)
    EndIf
 EndSub
Sub Position_Change
  If Array.IsArray(Files_Array) = "False" Then
    Dialogs.ShowMessageBox("Please Select Media Diractory First","No Files","OK","Error")
    Else
  Media_Lenth = Media.GetLength(Player)
  Media_Position = Media.GetPosition(Player)
  Real_Time_Position = (Media_Position*100)/Media_Lenth
  Media.SetPosition(Player,(GameControls.GetValue(Slider)*Media_Lenth)/100)
  EndIf
EndSub
While("True")
  Media_Lenth = Media.GetLength(Player)
  Media_Position = Media.GetPosition(Player)
  Real_Time_Position = (Media_Position*100)/Media_Lenth
  GameControls.SetValue(Slider_Progress_Bar,Real_Time_Position)
  If Media_Position = Media_Lenth Then
    Program.Delay(200)
    GameControls.SetValue(Slider,0)
    Play_Next()
  EndIf
EndWhile

Thank you so much for help NaochanON :)

Answer 3

New Version: CGX280

need help on converting milliseconds into minutes and second like 01:45.

|  Min = Math.Remainder(Media_Position/(1000*60),60)
|  Secs = Math.Remainder(Media_Position/1000,60)

did it myself:)

but

i still struggling on Slider issue got little success but when mouse is moves over slider it pause the playing sound.

Answer 4

 

 

Update : FXJ606

Answer 5

Hello,

I have a problem here :

 

Have an idea ?

---

absolu

Answer 6

I also had a problem.  This program needs dialogs.askdirectory or you must set your music directory first .

How about this .  GSV585-0  ( use dialogs.askdirectory )

Answer 7

New GUI Layout

 

Thankyou so much NaochanON your code is simple clean and much faster than mine...

Answer 8

Hello,

I have a problem here :

 

Have an idea ?

---

absolu

care to explain please?

Answer 9

I have an error with this instruction (problem of property) :

   GameWindow.BrushColor

???

 

 

Sub Play_List
   GameWindow.BrushColor = GameWindow.BackgroundColor
   GameControls.AddRectangle(0,70,480,105)
   GameWindow.BrushColor = "Red"
   GameControls.AddText("Prev Song : " +Files_Array[Song_Id-2],20,70,"Comic Sans MS",11,"False","False")
   GameControls.AddText("Prev Song : " +Files_Array[Song_Id-1],30,90,"Comic Sans MS",13,"False","False")
   GameWindow.BrushColor = "Blue"
   GameControls.AddText("Current Song : " +Files_Array[Song_Id],40,110,"Comic Sans MS",16,"True","False")
   GameWindow.BrushColor = "Red"
   GameControls.AddText("Next Song : " +Files_Array[Song_Id+1],30,130,"Comic Sans MS",13,"False","False")
   GameControls.AddText("Next Song : " +Files_Array[Song_Id+2],20,150,"Comic Sans MS",11,"False","False")
EndSub

Sub Time_Info
  GameWindow.BrushColor = "White"
  GameControls.AddRectangle(417,199,60,19)
  GameWindow.BrushColor = "Black"

---

absolu

Answer 10

SB's color is set and it returns the color code correctly. but data doesn't. Try this. 

GraphicsWindow.Show()
GraphicsWindow.BackgroundColor="Teal"
GraphicsWindow.BrushColor="Red"
TextWindow.WriteLine("BackGroundColor= "+GraphicsWindow.BackgroundColor)
TextWindow.WriteLine("BrushColor= "+GraphicsWindow.BrushColor)
TextWindow.WriteLine("  ")

gameWindow.Show()
gameWindow.BackgroundColor="Teal"
gameWindow.BrushColor="Red"
TextWindowplus.WriteLine("BackGroundColor= "+gamewindow.BackgroundColor)
TextWindowPlus.WriteLine("BrushColor= "+gameWindow.BrushColor)

Answer 11

No, there is the same problem.

 

---

absolu

Answer 12

Hidden playlist pan


Import Code : BGV706

NaochanON Please help me to show file list into playlist pan i mean just give me idea... :)

Answer 13

This time it's better, it works, but there is still a problem with the dialog box to open an mp3 or a video.
The dialog box asks me to select a folder, but when I select the folder where I have my music mp ", etc ... the folder appears empty ... and suddenly, I can not open ...

---

absolu

Answer 14

BGV706-1    Play list disappears 

BGV706-2    Play list moves left(right) like this.

 

Answer 15

1) check your file extension type , and change line22.

Line 22...   Musicext="mp3:wma:mp4:avi:wmv:mpg"  '  add your file type extension like this

 

2)change starting file No  at line 53 ,76  ( maybe array[1] is not a music(movie) file.  my case was  .ini file )

Line 53...   Player = Media.CreateMediaPlayer(Files_Array[3],7,7,446,296)  '  Open first  file

Line 76...   Song_Id=3

Answer 16

I tried, but it makes no difference.

Here is a program that I tried and that works. it will give you an idea, perhaps, the problem I encounter.

FWN604

I have all the extensions.

 

 

---

absolu

Answer 17

Hello NaoChanON i want something like this...

 

GameWindow.Show()
For i = 1 To 5
  songname[i] = GameControls.AddText("Song" +i,5,40*i,"Arial",16,"False","False")
EndFor
For i = 1 To 5
  GameControls.RegisterMouseDownEvent(songname[i],"click"+i)
EndFor

Sub click1
  Dialogs.ShowMessageBox("Song 1","Yeah","OK","None")
EndSub
Sub click2
  Dialogs.ShowMessageBox("Song 2","Yeah","OK","None")
EndSub
Sub click3
  Dialogs.ShowMessageBox("Song 3","Yeah","OK","None")
EndSub
Sub click4
   Dialogs.ShowMessageBox("Song 4","Yeah","OK","None")
 EndSub
Sub click5
   Dialogs.ShowMessageBox("Song 5","Yeah","OK","None")
 EndSub

Answer 18

I tried, but it makes no difference.

Here is a program that I tried and that works. it will give you an idea, perhaps, the problem I encounter.

FWN604

I have all the extensions.

 

 

---

absolu

 draw a sine wave to make a fake sound visualizer when an audio sound is playing??? WOW It's a great idea :)

Answer 19

What about this? NaoChanON

Answer 20

Looks very nice! 

Answer 21

Import code : KTK217

Is there any way to get rid of this nasty flickering while drawing or cleaning something on Graphic window???

NaochanON if you have spare time please help me to make file filter it loads everything from directory i want to filter non video and music file...

Answer 22

There is something i don't understand. I run the program and i have this message :

Ok, but, when I selection a file (échantillon de musique) for open my musics mp3, there is this message:

So, I can not open and test a music or video.

What should I do ?

 

 

 

---

absolu

Answer 23

When I run the program, a window opens automatically.
I select a folder (sample music ===> where a few mp3)
But it does not work.

So, I can not open and test a music or video.

What should I do?

---

absolu

Answer 24

Error message is not shown.  PLS add image(jpg or png file).

 

 maybe array[n] is not a music(movie) file. my case was desktop.ini file

*Desktop.ini file is a hidden file. but file.getfiles command gets it.

see below window , List:4 desktop means "Desktop,ini" file.

Answer 25

TKQ922   add text once. Use settext to change name and

 for i=.... settext   endfor.  to simplify.

 

 PLease use  TKQ922-0     

Notice: Subfolder sound files or movie files are gotten and listed.

  This is  avoided  if you change fileplus.getallfiles to fileplus.getfiles. 

TKQ922-3     (Added program end button and New file open button) 

Answer 26

Yes, this time it's good. It works.
I created the folder on the desktop, with my files.
With the program TKQ922-0 I do not read the audio, but video, while with the videos TKQ922 walk.



There is just the scroll bar does not vary with the length of the files.
And it would be nice to open files in any folder.

I have a little ^ ^ but it's worth, I think.


If interested, I can look at a graphic of the player ^ ^? (with separate elements).

---

absolu

Answer 27

A bit modified to scroll Playlist automatically when next song event is triggered...

Code : ZHT069

And Thank you So Much NaochanON... your very kind person...

now this project is complete next task is to port this app to VB10 :)

Thanks again NaochanON for your help...

---

They say working hard is good but i say working smart is best...

Answer 28

Yes, this time it's good. It works.
I created the folder on the desktop, with my files.
With the program TKQ922-0 I do not read the audio, but video, while with the videos TKQ922 walk.



There is just the scroll bar does not vary with the length of the files.
And it would be nice to open files in any folder.

I have a little ^ ^ but it's worth, I think.


If interested, I can look at a graphic of the player ^ ^? (with separate elements).

---

can you please explain the bold  part???

---

They say working hard is good but i say working smart is best...

Answer 29

I think it is possible to improve the appearance of the player. So I propose, if interested, to prepare a visual interface prettier, with photoshop, etc ...
We can do everything separately (buttons, playback bar, etc ...)

---

absolu

Answer 30

Not at all.  I  got nice ideas from your program.  Thanks.

I can't help you about VB. (I don't know about VB at all) 

 ZHT069  works well. nice!

Answer 31

Not at all.  I  got nice ideas from your program.  Thanks.

Please share with me ;)

and what "Not at all"???

---

They say working hard is good but i say working smart is best...

Answer 32

I think it is possible to improve the appearance of the player. So I propose, if interested, to prepare a visual interface prettier, with photoshop, etc ...
We can do everything separately (buttons, playback bar, etc ...)

---

absolu

i tried few days ago will show you a screenshot but that isn't complete as of now

---

They say working hard is good but i say working smart is best...

Answer 33

ok.
Do not hesitate, if you need help with this graphic

---

absolu

Answer 34

TKQ922   add text once. Use settext to change name and

 for i=.... settext   endfor.  to simplify.

 

 PLease use  TKQ922-0     

Notice: Subfolder sound files or movie files are gotten and listed.

  This is  avoided  if you change fileplus.getallfiles to fileplus.getfiles. 

TKQ922-3     (Added program end button and New file open button) 

in program TKQ922-3 we need to clean already loaded files from file array but don't know how...

---

They say working hard is good but i say working smart is best...

Answer 35

ok.
Do not hesitate, if you need help with this graphic

---

absolu

i know nothing about Photoshop and graphics. your help would be more than appreciated... :)

---

They say working hard is good but i say working smart is best...

Answer 36

i know nothing about Photoshop and graphics. your help would be more than appreciated... :)

---

They say working hard is good but i say working smart is best...

ok, I'll make you an offer graphic and if you're going to advance it like that ^ ^

I prepare a proposal tonight.

---

absolu

Answer 37

TKQ922   add text once. Use settext to change name and

 for i=.... settext   endfor.  to simplify.

 

 PLease use  TKQ922-0     

Notice: Subfolder sound files or movie files are gotten and listed.

  This is  avoided  if you change fileplus.getallfiles to fileplus.getfiles. 

TKQ922-3     (Added program end button and New file open button) 

in program TKQ922-3 we need to clean already loaded files from file array but don't know how...

---

They say working hard is good but i say working smart is best...

Indeed, it is better with these little options.
the playhead does not move in the duration of the file.

---

absolu

Answer 38

Here is a first proposal for the player interface :

 

 

We can try to work around that style, adjusting certain dimensions.
And why not add this in the small basic library.

---

absolu

Answer 39

looking great...

Today i looked into vlc Player skin and i strongly believe that it wont be so hard to load vlc skins into our player with little and no modification? what do you think absolu??

and yes your interface looks very cool now design is very clean and simple.

---

They say working hard is good but i say working smart is best...

Answer 40

DCH701

man it gonna be a great piece of software i'm excited.

---

They say working hard is good but i say working smart is best...

Answer 41

looking great...

Today i looked into vlc Player skin and i strongly believe that it wont be so hard to load vlc skins into our player with little and no modification? what do you think absolu??

and yes your interface looks very cool now design is very clean and simple.

---

They say working hard is good but i say working smart is best...

Thank you ^ ^
If you want, I can prepare the separate elements in .PNG with alpha, in order to manipulate and easy positioning.

Then we can adjust them.

---

absolu

Answer 42

Lets's go !! ^^

---

absolu

Answer 43

Okay Lets go...

---

They say working hard is good but i say working smart is best...

Answer 44

hmm email me when you finish your work...

[e-mail]

---

They say working hard is good but i say working smart is best...

Answer 45

Here I am at work, but I'm starting tonight, to the separate elements ^ ^

---

absolu

Answer 46

hmm email me when you finish your work...

[e-mail]

---

They say working hard is good but i say working smart is best...

Ok, no problem !!!

---

absolu

Answer 47

hmm email me when you finish your work...

[e-mail]

---

They say working hard is good but i say working smart is best...

Ok, no problem !!!

---

absolu

I have send you a mail, with le first test ^^

---

absolu

Answer 48

TKQ922-5 slider  works.

 

Answer 49

Great, it will be top (-;

I will make adjustments dimensions.

I send you an email in the weekend.

---

absolu

Answer 50

Great, it will be top (-;

I will make adjustments dimensions.

I send you an email in the weekend.

---

absolu

hmmm ok

---

They say working hard is good but i say working smart is best...

Answer 51

I made ​​some adjustments on the interface and the parameters for the positions of the buttons.
Here is a screenshot.

Here is the code, with the repositioning elements :

QTD813

---

absolu

Answer 52

Very interesting project going on here. Unfortunately your players wont work with next version of Data Extension (Changed CreateMediaPlayer to AddMediaPlayer and removed File parameter )

You will have nice Media player sample in few days after I have finished testing new features of my extension.

Answer 53

Great,wecan not wait^ ^

---

absolu

Answer 54

Very interesting project going on here. Unfortunately your players wont work with next version of Data Extension (Changed CreateMediaPlayer to AddMediaPlayer and removed File parameter )

You will have nice Media player sample in few days after I have finished testing new features of my extension.

Thanks Oskariok :) i am waiting for next version of data ext....

---

They say working hard is good but i say working smart is best...