need help with mmcontrol
i have a set of morse code wav files and i want a string to be played using the wav files..but i cant seem to do it right because theres no sound
Private Sub cmdplaysound_Click()
Dim position As Integer
For position = Len(str1) To 1 Step -1
mmc1.FileName = App.Path & "\wav\" & UCase(Mid$(str1, position, 1)) & "_morse_code.wav"
mmc1.Command = "Open"
mmc1.Shareable = False
mmc1.Command = "Play"
Next
End Sub
it this right? if anyone can suggest something better than mmcontrol id appreciate it :D
also how can i play right after the other?
[661 byte] By [
holyknight] at [2007-11-11 9:55:52]
# 1 Re: need help with mmcontrol
those few codes :
mmc1.FileName = "Right_wav_path.wav"
mmc1.Command = "Open"
mmc1.Shareable = False
mmc1.Command = "Play"
have no problems at all and if the filename is defined to a right wav file it must be played well .
also check what is "str1" maybe you can't access for loop from the begeening or any thing like this <check it in debug mode>
to continue playing catch this event :
Private Sub MM1_Done(NotifyCode As Integer)
MsgBox "yup"
End Sub
In the place of "msgbox" put your catch event to start next and so on .
Amahdy at 2007-11-11 17:23:28 >
