Printable View
hi i am trying to creat a jukebox where you enter the number of the track that you want and it will put it into a list box and then play i have managed to get the cod working for the track number to be placed in the list box but i am unable to get the audio to play from the list box.
if anyone could post how to do it and the code that i will need i will be realy plesed
Paste this into a new Module by itself:
and then this in a form:Code:Option Explicit
Public SoundFile() As String
Sub LoadSounds()
ReDim SoundFile(0) As String
SoundFile(0) = "C:\WINDOWS\MEDIA\TADA.WAV"
End Sub
Code:Option Explicit
Private Const SND_APPLICATION = &H80 ' look for application specific association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim flag As Boolean
Private Sub Command1_Click()
If Not flag Then
Command1.Caption = "Stop"
PlaySound SoundFile(0), ByVal 0&, SND_ASYNC Or SND_LOOP
Else
Command1.Caption = "Play"
PlaySound SoundFile(0), ByVal 0&, SND_MEMORY
End If
flag = Not flag
End Sub
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Call LoadSounds
Command1.Caption = "Play"
End Sub
thanks for the reply.
how would i be able to play audio from me entering a 4 digit number into a listbox
hear is the way that the program will look if i can get it to work
You need to associate the 4 digit number to the filename which contains the audio you wish to play. Use the play sound function outlined in the code posted earlier to have it play the sound you want.Quote:
Originally Posted by bigfootmatthew
i have tryed what was sergesterd but it will only let me change the numbers between the brackets to a number between 0 and 9 plz explain how to do it if i am doing somthing wrong
Should be as easy as this.
Code:
Private Sub Form_Load()
Dim song As String, num As Integer
song = InputBox("Enter the song to play:")
num = Val(song)
' do some error checking here
Call LoadSounds(song)
End Sub
Sub LoadSounds(ByVal sn As Integer)
Dim DrvFolder As String ' "C:\TEMP\"
Dim SngExt As String ' "wav"
Dim SngToPlay As String
SngToPlay = DrvFolder & Format(sn, "0000") & ".WAV"
SoundFile(0) = SngToPlay
End Sub
Simply replace the SoundFile(0) portion above with the filename you want to play or assign SoundFile(0)=The filename you want to play.Code:
Private Sub Command1_Click()
If Not flag Then
Command1.Caption = "Stop"
PlaySound SoundFile(0), ByVal 0&, SND_ASYNC Or SND_LOOP
Else
Command1.Caption = "Play"
PlaySound SoundFile(0), ByVal 0&, SND_MEMORY
End If
flag = Not flag
End Sub
The load sounds portion in the code block is not needed but you do have to specify a valid filename for the playsound function.
Since you are using 4 digit track numbers in your list then either your filenames have to match those four digit numbers or you have to have another list or array set up to match the track number to the filename.
Let's say your filenames are the same 4 digits that are in the list and then have a wav extension and they exist in c:\MyMusic
In your list1 doubleclick event you could have something like the following assuming you used the full code block posted earlier.
Code:
Soundfile(0)="C:\MyMusic\" & list1.text &".wav"
Command1_click
Since David now delivered an easy to implement playing scheme, you only have to manage the file selection, as DataMiser hinted.
To me this seems to be the most important consideration: how is the file naming convention?
You might want to associate three different informations with each other:
a) Title of the song how it is displayed for selection
b) 4 digit number associated with it
c) actual name of the file to play
I rather wouldn't name my songs "0001.mp3", "1234.mp3" because you might loose overview.
Also I presume the files you want to put in have already comprehensive names.
E.g.: you need sort of a table which associates the informations:
0001, Help, Help-Beatles.mp3
0002, Paint it black, PaintItBlack-Stones.mp3
0003, Next Song's Title, NextSongsFileName.mp3
...
I would approach like that:
Write text file (with Editor) to contain such a list as shown above which links numbers to the display titles to the filenames.
At Form_Load() you read this file into an array or a collection or a ListBox or other element of your choice.
Then you have all the mechanisms you need to make your project work like shown in your planning.
i am still having trouble to get the audio to work as i cant assign an audio to a 4 digit number to each track and get that to go into a play list and then play from the play list it is so annoying that i have had loads of responses but i still cant get it to work
could some one plz explain how i would do this as it is driving me crazy
Post some of your code. If you followed the suggestions, it should work.
i have tried all the segesterd code and it wont work
hears my code
Code:Private Sub cmd_1_6_Click()
cmd_1_6.Enabled = False
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_1.jpg")
pic_bottom.Picture = LoadPicture("board_2.jpg")
End Sub
Private Sub cmd_13_18_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = False
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_5.jpg")
pic_bottom.Picture = LoadPicture("board_6.jpg")
End Sub
Private Sub cmd_19_24_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = False
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_7.jpg")
pic_bottom.Picture = LoadPicture("board_8.jpg")
End Sub
Private Sub cmd_25_30_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = False
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_9.jpg")
pic_bottom.Picture = LoadPicture("board_10.jpg")
End Sub
Private Sub cmd_31_36_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = False
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_11.jpg")
pic_bottom.Picture = LoadPicture("board_12.jpg")
End Sub
Private Sub cmd_37_42_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = False
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_13.jpg")
pic_bottom.Picture = LoadPicture("board_14.jpg")
End Sub
Private Sub cmd_43_48_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = False
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_15.jpg")
pic_bottom.Picture = LoadPicture("board_16.jpg")
End Sub
Private Sub cmd_49_54_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = False
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_17.jpg")
pic_bottom.Picture = LoadPicture("board_18.jpg")
End Sub
Private Sub cmd_55_60_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = False
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_19.jpg")
pic_bottom.Picture = LoadPicture("board_20.jpg")
End Sub
Private Sub cmd_61_66_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = False
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_21.jpg")
pic_bottom.Picture = LoadPicture("board_22.jpg")
End Sub
Private Sub cmd_67_72_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = False
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_23.jpg")
pic_bottom.Picture = LoadPicture("board_24.jpg")
End Sub
Private Sub cmd_7_12_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = False
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_3.jpg")
pic_bottom.Picture = LoadPicture("board_4.jpg")
End Sub
Private Sub cmd_73_78_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = False
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_25.jpg")
pic_bottom.Picture = LoadPicture("board_26.jpg")
End Sub
Private Sub cmd_79_84_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = False
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_27.jpg")
pic_bottom.Picture = LoadPicture("board_28.jpg")
End Sub
Private Sub cmd_85_90_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = False
cmd_91_96.Enabled = True
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_29.jpg")
pic_bottom.Picture = LoadPicture("board_30.jpg")
End Sub
Private Sub cmd_91_96_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = False
cmd_97_99.Enabled = True
pic_top.Picture = LoadPicture("board_31.jpg")
pic_bottom.Picture = LoadPicture("board_32.jpg")
End Sub
Private Sub cmd_97_99_Click()
cmd_1_6.Enabled = True
cmd_7_12.Enabled = True
cmd_13_18.Enabled = True
cmd_19_24.Enabled = True
cmd_25_30.Enabled = True
cmd_31_36.Enabled = True
cmd_37_42.Enabled = True
cmd_43_48.Enabled = True
cmd_49_54.Enabled = True
cmd_55_60.Enabled = True
cmd_61_66.Enabled = True
cmd_67_72.Enabled = True
cmd_73_78.Enabled = True
cmd_79_84.Enabled = True
cmd_85_90.Enabled = True
cmd_91_96.Enabled = True
cmd_97_99.Enabled = False
pic_top.Picture = LoadPicture("board_33.jpg")
pic_bottom.Picture = LoadPicture("board_0.jpg")
End Sub
Private Sub cmd_back_Click()
jukebox_home.Show
Unload Me
End Sub
Private Sub cmd_close_Click()
Unload Me
End Sub
Private Sub cmd_delete_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
Else
Beep
End If
End Sub
Private Sub cmd_log_off_Click()
Shell ("shutdown -l")
End Sub
Private Sub cmd_shut_down_Click()
Shell ("shutdown -s")
End Sub
Private Sub cmd_submit_Click()
List1.AddItem txt_number
End Sub
Try it again, with code tags, like this:
Code:Private Sub cmd_log_off_Click()
Shell ("shutdown -l")
End Sub
Private Sub cmd_shut_down_Click()
Shell ("shutdown -s")
End Sub
Private Sub cmd_submit_Click()
List1.AddItem txt_number
End Sub
it is getting the audio to play from the list not getting it to shut down or anything
You should look up CONTROL ARRAYS. You could eliminate 99% of the duplication by referring to each button() as cmdButton(x)
Then, in the cmdButton(x) click event, VB sends the correct button info to the click event.
Do you store the file location string in the listbox? If not, then you need a string array to store the locations.
i input the number from a text box and it gose into the list and then plays the songs from the list
I don't quite understand what all this button mess is supposed to do. It seems to me there ar about 17 buttons with some sort of mutual exclusion. For this we got the OptionButton, also known as radio button. Set their Style property to graphical and they look exactly like a CommandButton. Put some of them in a frame and they work automatically just like that, that only one of them is pressed at a time and if you click on one of them all the others are released.
Concerning the playing: Our help would be more precise and would be less confusing for you if you could give us some facts:
Give the folder name where the song files are.
Give one or two examples of the existing file names.
Are the filenames the song titles or do you want to display a title text which is not the very same as the file name?
With this information I could direct you to some method of associating all together with the 4 digit number.
the folder name is music
two of the files
Symphony_No_3.wma
Ome Step Beyond.wma
the file names are going to be the same as displayed
and i would like it to play from a list box when a 4 digit number is enterd into it
Right. Let's do a simple approach.
We take a ListBox named lstSoundFiles and fill it up at Form_Load()
Note how I have simply put the 4 digit number in front of the actual filenameCode:Private Sub Form_Load()
lstSoundFiles.AddItem "1234: Symphony_No_3"
lstSoundFiles.AddItem "1235: One Step Beyond"
'... more to come
End Sub
We take an input field TextBox named txtSel, where we will enter the number.
We will further take a button named btnPlay to play the selection.
This is the Click routine of the play button
How it works: It scans through all items of the ListBox for the 4 digits you entered in the input field. If they were found, the filename is separated from this ListBox entry, combined with the folder name and the ending and then used in the PlaySound statement to play it.Code:Private Sub btnPlay_Click()
Dim n$, f$, i%
n$ = txtSel.Text
'a test could be put here to verify we have 4 digits
For i = 0 To lstSoundFiles.ListCount - 1
If Left$(lstSoundFiles.List(i), 4) = n$ Then
'cut off the preceding number
f$ = Mid$(lstSoundFiles.List(i), 7)
txtMessage.Text = "Playing " + f$
PlaySound "C:\music" & f$ & ".wma", 0, SND_MEMORY
Exit Sub
End If
Next
'if we come here we have not found the number in the list
txtMessage.Text = "Not found: " & n$
End Sub
I have attached the small sample as a working project for you to examine.
BTW. I'm not sure if PlaySound can handle .wma files. I can't verify since I have no .wma music on my computer here. I'm only sure PlaySound can play a .wav file.
Oops, sorry, there's a small mistake in the PlaySound line. I missed the "\" between Path and filename.
This is what it should be:
Code:PlaySound "C:\music\" & f$ & ".wma", 0, SND_MEMORY
tis is ok but i want to start with no song in the list and then when they input a 4 digit number it adds the song that relates to that number then plays it from the list i dont want to use a 4 digit number to select a song from then list
have a look at the word document that i posterd earlia to find out how i have got it
Well, I wanted to show you how an association and selection mechanism could be implemented, which takes a 4 digit number and resolves it into a filename to play.
Other techniques are possible too, but this here seemed quite comprehensive to me.
(Although I wouldn't dare show this to CPUWizard ;) )
Just imagine that you make this ListBox invisible so it doesn't show up on your screen. Nevertheless you can use it to determine the filename from a 4 digit number, provided that you fill this ListBox at Form_Load() with all your song filenames.
Now you have to think a little for yourself:
Instead of using the PlaySound statement at this position, you can use something like this:
This adds the determined filename to a ListBox called lstPlayList.Code:lstPlayList.AddItem f$
Now you only have to write a little loop which plays the files in lstPlayList one after the other.
If you need further help for this, we surely can make more proposals as how to accomplish this.
i will do it how you did it in the earlya reply.
just one more thing tho how do i get it to loop
and i actully cant get that one that u posted to play sound
Go back to my sample, and see how I set the folder and file name
Actually, I think PlaySound cannot handle .wma files. It only plays .wav
We have to find an API call to play .wma music. :)
i have converted one of my audio files to wav but it still wont play sound
Before playing the file, check if the path is assembled correctly. You could dos so by checking the filesize like this:
If you have not assembled the filename correctly the program shows an error 'File not found'.Code:' first build the filename, where f$ is the name from the list
p$ = "C:\music\" & f$ & ".wav"
' now check if the file exists. l must be dimmed a Long
l = FileLen(p$)
' then try to play it
PlaySound p$, 0, SND_MEMORY
If the file exists in the place where you specified it, the PlaySound must play it.
Please do as described to find out if your filename assembly is correct.
well the sample that u posted i have adapted that to how i want it and it displays the name of the track that has been selected but it just wont play.
i have check the path for the audio but it just wont play.
by any chance do i need a media player control or not?
if i dont will it be easyer if i had one?
*double checking recent posts*
Yes, well I'm sorry. The PlaySound-statement should be
where the call won't return until the file is played to the end.Code:PlaySound f$, 0, SND_SYNC
will play the file in background, without stopping the previously startet PlaySound.Code:PlaySound f$, 0, SND_ASYNC OR SND_NOSTOP
I know this is not quite yet what you want, but try this out and tell if you got any sound playing, then we continue and look for something to determine the end of playing and start playing the next song in the list.
i have tryed what was posted and it still dosn't work.
would it be better if i used a media player controle
You could try DirectSound. This played the avi in vista
This looks interesting, David, but overlooking the code, it will refuse to play .wma files. It only accepts .mp3 for audio.
I shall get me a .wma and try if it will be played, too.
thaks for all the help it was much apreciated.
i have know got the program working an i am so pleased but i couldent have done it without all of you once again thank you