Log In
Register
Home
August 13, 2018
Offline
I am creating a learning system for children with cards that have an animal and a bar code. The idea is to play an initial video, in LOOP, asking the child to choose a card and pass it through the reader. Then, the system shows you a video of that animal, and returns to the initial video, again in LOOP, waiting for a new card. On Sheet1, I have column A with the barcodes, and column B with the file names. The system searches in col The code entered with the bar code, and plays the file in column B
So far, when I open the excel, start the initial video in LOOP, place the cursor in the combobox, and when reading a card, play the corresponding video, empty the combobox and reposition the cursor in the combobox What I do not achieve Do that at the end of it, replay the initial video in LOOP.
Another option i think is to work with 2 wmp. One for the permanent looping video and another for the interactive video, playing it over the permanent loop wmp player, and closing it when the play finish.
From now on, thanks for your help
October 5, 2010
Online
Hi Victor,
Can you please attach a sample workbook with the code in it.
Regards
Phil
October 5, 2010
Online
I feel this might be easier to do if written in a browser rather than Excel?
August 13, 2018
Offline
Hi Philip, thanks for your fast reply. Here is uploaded the file
rockola.xlsx.xlsm
August 13, 2018
Offline
About your comment "I feel this might be easier to do if written in a browser rather than Excel?"
VIP
Trusted Members
June 25, 2016
Offline
Hi Victor
Give this a try.
You will need to adjust the codes to suit your needs.
Hope this helps.
Sunny
August 13, 2018
Offline
Great job Sunny!!! tomorrow I will dedicate myself to work to adapt it exactly to what I need, but with just testing it, and some small modifications that I made, I think it is the just help I needed.Change the "LOOP" mode according to the file that is played, and creating a playlist ... when I get it ready, I'll comment again. (I'm going to sleep, in Argentina, it's 00: 00hs.) Thank you very much!
VIP
Trusted Members
June 25, 2016
Offline
You can also refer here for another topic on WMP.
August 13, 2018
Offline
Hi SunnyKow!! The code already works correctly! I deeply appreciate the quick and careful response.
The next step i´ll do is to try to remove the caption and the close buton to the userform.
Regards
Victor
VIP
Trusted Members
June 25, 2016
Offline
Hi Victor
Thanks for your feedback.
Good to know the codes are useful to you.
Cheers
Sunny
August 13, 2018
Offline
Dear Sunny. Unfortunately the code has stopped working.
I have run it on another computer and it works correctly.
I have tried reinstalling Excel, but the problem persists. (I work with excel in Spanish)
I have removed the ErrorTrap and the error it indicates is:
- the error '-2147418113 (8000ffff)' occurred at runtime:
Error in the 'newPlaylist' method of object 'IWMPPlaylistCollection'
Any ideas?
Thank you again
Victor
VIP
Trusted Members
June 25, 2016
Offline
Hi Victor
I have tested the codes on my personal PC and at the workplace with no problem whatsoever.
Possibly Excel version problem (I am using Excel 2010) but I am not sure if it will run on a higher version of Excel.
I had encountered problems before with 32 and 64 bit version of Excel. Possible this could be the problem.
I may be wrong but I am not sure. Sorry I am unable to help on this issue.
Sunny
VIP
Trusted Members
June 25, 2016
Offline
Hi Victor
I have tested it on Excel 2013 (64-bit) and did not encounter any problem.
I really have no idea what is causing your error.
Sunny
August 13, 2018
Offline
Hello Sunny! I have tried reinstalling Excel, installing the 2003, 2016, 2010 versions, and the problem persists. But I think I've finally found the problem.
Each time a video is played, a playlist is created, and saved in the music \ playlist folder as follows ...
MyPlayList
MyPlayList (2)
MyPlayList (3)
MyPlayList (4)
MyPlayList (5)
...
When the copy is called "MyPlayList (1999)" the error begins
I has trying change the playlistname (MyPlayList) with any other, and the code back to life!It makes me suspect that it is then a limit of wmp
The solution that I found, so that the name is not repeated, is to replace this line
Set sPlayList = WindowsMediaPlayer1.playlistCollection.newPlaylist ("MyPlayLists")
with this
Set sPlayList = WindowsMediaPlayer1.playlistCollection.newPlaylist ("MyPlayLists" & Now)
then the playlist files now has been saved as
MyPlayLists16-08-2018 22-42-35
MyPlayLists16-08-2018 22-42-42
MyPlayLists16-08-2018 22-42-50
MyPlayLists16-08-2018 22-42-57
MyPlayLists16-08-2018 22-43-02
...
impossible to be repeated!
I am very happy, I am testing it and at the moment it works correctly
What I do not like is that so many files are saved. I could solve it by finding a way to create a code that erases all files " MyPlayList.* " every time the Excel file is executed.
VIP
Trusted Members
June 25, 2016
Offline
Hmm didn't know about the limit.
I would have deleted the old playlist (if one exist) before I play a new video.
August 13, 2018
Offline
It would also be a valid option! but I think it can generate a little delay between the playslist play
VIP
Trusted Members
June 25, 2016
Offline
You can try this code to delete the files.
Sub DeletePlayList()
On Error Resume Next
Kill "C:\Users\UserName\Music\Playlists\MyPlayList*.wpl"
On Error GoTo 0
End Sub
August 13, 2018
Offline
That code works correctly, but, only in my computer. When a teacher will try to run in your system, it will dont run because the folder is different.
Im thinking in a code to obtain the windows user name to replace the UserName automatically in each case.
VIP
Trusted Members
June 25, 2016
Offline
You can try this to get the user name
Sub DeletePlayList()
MyName=environ("username")
On Error Resume Next
Kill "C:\Users\" & MyName & "\Music\Playlists\MyPlayList*.wpl"
On Error GoTo 0
End Sub
1 Guest(s)
