20 replies to this topic

[Jarryd]

Great tutorial man

[dwizzy]

Hi I am new to VB and I was looking at this to play mutiple sound but for some reason this it never worked. What I am doing wrong here..



Public Class Form1
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Dim musicAlias As String
Dim musicPath As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
musicAlias = "myAudio"
musicPath = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\sounds\super mario bros remix dj alexander.wav"
mciSendString("Open " & Chr(34) & musicPath & Chr(34) & " alias " & musicAlias, CStr(0), 0, 0)
mciSendString("Play " & musicAlias, CStr(0), 0, 0)
End Sub
End Class

[elricworld]

Hi!
Your thread was very helpful!

I am able to play multiple sound at once,
but I wonder how to make a max/min volume to control the volume while playing the sound ?
can anyone help me ?

Thanks!

[Tyrranus]

Is there an ability to loop music files this way?
sorry I am a total noob at coding and this was a huge help since all I wanted was to play background music and the occasional sound effect. Definite + rep, you saved me from killin someone for sure!!

edit:
and while Im pulling off my little thread necro here, Is it possible to use this to play a small 'playlist' of music? from the look of it I think I can sorta see how you could, but again I suck at this still

Edited by Tyrranus, 04 November 2011 - 10:52 PM.

[Tyrranus]

noone?

[Tyrranus]

[AntoineDionne]

Hello!

Thank you for the code that's working number 1!

2 question tho !

I've search arround the internet to find a way to put a button Volume + and Volume -, is there any command line that you know that can do this?

And is there a way to loop the music once it's done?

Thanks for any help!

[NelsonWong]

Hi for this code here. i got a question. If i would to copy my program code and use it into another computer, it will not work right?? compare to the 1st one

Dim musicAlias As String = "myAudio"

Dim musicPath As String = "C:\Users\Public\Music\Sample Music\Symphony_No_3.wma"

this is the 1st one!



My.Computer.Audio.Play(musicPath, AudioPlayMode.BackgroundLoop)

My.Computer.Audio.Play(musicPath, AudioPlayMode.WaitToComplete)

[Drakhtul]

nice, thanks