Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[ VB 6.0 ] Wav-files afspelen

Anoniem
Wouter Broekhuizen
14 antwoorden
  • Ik il wav-files afspelen met mijn vb-proggie. Ik maak dus gebruik van het MultiMedia Control. Hij speelt de geluiden el af, maar ik hoor echter geen geluid. Weet iemand waar door dit komt?

    [code:1:b270166e3a] ' Set properties needed by MCI to open.
    MMControl1.Notify = False
    MMControl1.Wait = True
    MMControl1.Shareable = False
    MMControl1.DeviceType = "WaveAudio"
    MMControl1.FileName = App.Path & "/modules/" & lblMName.Caption & cmbMSound.Text

    ' Open the MCI WaveAudio device.
    MMControl1.Command = "Open"[/code:1:b270166e3a]
  • Ik heb ook met die mmcontrol zitten stoeien maar kreeg hem niet werkende. Toen kwam ik egens het volgende tegen. Geen control nodig en werkt als een trein.
    [code:1:bd9fb90fdc]mciExecute ("play " & "c:\dir\geluidsfile.wav")
    [/code:1:bd9fb90fdc]
  • [quote:0908904ef2="bosjvd"]Ik heb ook met die mmcontrol zitten stoeien maar kreeg hem niet werkende. Toen kwam ik egens het volgende tegen. Geen control nodig en werkt als een trein.
    [code:1:0908904ef2]mciExecute ("play " & "c:\dir\geluidsfile.wav")
    [/code:1:0908904ef2][/quote:0908904ef2]

    werkt alleen niet… '[b:0908904ef2]Sub or Function not defined[/b:0908904ef2]'. Is er nog een reference die ik moet toevoegen?
  • [quote:77c72a4d8e="Kamikaasje"]
  • Sorry die had ik ff over het hoofd gezien. ik heb een iets andere. Zal wel niet uitmaken.

    [code:1:abc2888247]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    [/code:1:abc2888247]
  • Je kan variablen gebruiken. Ik denk dat je de foutmelding krijgt omdat je play zonder "" gebruikt hebt. Moet dus zijn "play ". Let op de spatie.
  • [quote:56a2b2fcec="bosjvd"]Sorry die had ik ff over het hoofd gezien. ik heb een iets andere. Zal wel niet uitmaken.

    [code:1:56a2b2fcec]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    [/code:1:56a2b2fcec][/quote:56a2b2fcec]
    Doet het nog niet. Ik krijg de melding dat het opgegeven MCI apparaat niet geopend is of niet wordt herkend. :-?

    <XML:EDIT>Klopt, zag het net opeens :P </XML:EDIT>
  • Heb je de declare wel in een module staan en niet in de form code.
  • [quote:2afc94af2c="bosjvd"]Heb je de declare wel in een module staan en niet in de form code.[/quote:2afc94af2c]

    jazeker 8)
  • Wat gek. Ik heb ff een nieuw projectje gemaakt en het werkt perfect.
    Module code:
    [code:1:f48af1425c]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    [/code:1:f48af1425c]En form code met 1 button:[code:1:f48af1425c]Private Sub Command1_Click()
    mciExecute ("play " & "c:\ChatBeep.wav")
    End Sub
    [/code:1:f48af1425c]Druk op de knop en krijg geluid.
  • [quote:0cff58efd9="bosjvd"]Wat gek. Ik heb ff een nieuw projectje gemaakt en het werkt perfect.
    Module code:
    [code:1:0cff58efd9]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    [/code:1:0cff58efd9]En form code met 1 button:[code:1:0cff58efd9]Private Sub Command1_Click()
    mciExecute ("play " & "c:\ChatBeep.wav")
    End Sub
    [/code:1:0cff58efd9]Druk op de knop en krijg geluid.[/quote:0cff58efd9]
    :-? :-? :-?
    Wat raar, nu werkt hij bij mij opeens wel… :oops: :-?
    Nou ja, in elk geval erg bedankt. Maar weet je of je hiermee ook avi-bestanden mee kunt afspelen?
  • Nee, dat weet ik niet. Kwestie van proberen denk ik.
  • AVI kan ook. Elk mci compatible device kun je afspelen met mciExecute.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.