In VB6 , kunt u DirectX gebruiken om audio , video en grafische Windows-toepassingen te creëren . De DirectX SDK is vrij van Microsoft website. De DirectSound object is de belangrijkste audio- object -apparaat . Het kan worden gebruikt voor geluidseffecten in games en kan meerdere geluiden verwerken in een keer . Controle het audiosysteem door DirectSound zoals panning en volume. In VB6 , kunt u een project om buffer gegevens te lezen in een WAV-bestand via de DirectX- objecten te maken . Wat je nodig hebt VB6 Toon Meer Aanwijzingen 1 Klik op " Start", " Alle programma's " en " Visual Basic " om VB6 te openen . Klik op " File " en " Nieuw " om een nieuw project aan te maken . Voer een naam voor het project . Geef een locatie voor het project bestanden . Kopen van 2 Klik op " Project " en " verwijzingen " naar DirectX referentie voor het project toe te voegen . Vink " DirectX 8 voor Visual Basic Type Library " op de " References " interface. Klik op "OK . " 3 Definieer variabelen voor het project . Voeg de volgende code toe aan de Form1.vb : Dim dx als Nieuwe DirectX8Dim ds Zoals DirectSound8Dim buffer1 Zoals DirectSoundSecondaryBuffer8Dim buffer2 Zoals DSBUFFERDESC 4 initialiseren DirectSound via code : Set dx = Nieuw DirectX8Set ds = dx.DirectSoundCreate ( " " ) 5 Maak een buffer via code : Buffer2.fxFormat.nFormatTag = WAVE_FORMAT_PCMBuffer2.fxFormat.nSize = 0Buffer2.fxFormat.lExtra = 0Buffer2.fxFormat.nChannels = 1Buffer2.fxFormat.lSamplesPerSec = SRATEBuffer2 . fxFormat.nBitsPerSample = 16Buffer2.fxFormat.nBlockAlign = 2Buffer2.fxFormat.lAvgBytesPerSec = 2 * SRATEBuffer2.lFlags = 0Buffer2.lBufferBytes = 2 * DUR * SRATESet dsToneBuffer = DS.CreateSoundBuffer ( buffer2 ) 6 Maak een toon en schrijven naar dsToneBuffer : Dim IFOR i = 0 To DUR * SRATEsbuf ( i ) = 10.000 * Sin ( 2 * PI * FREQ * i /Srate ) Volgende idsToneBuffer.WriteBuffer 0 , 2 * DUR * Srate , SBUF ( 0 ) , DSBLOCK_DEFAULT 7 Schrijf de buffer data naar een WAV-bestand : DS.CreateSoundBufferToFile ( App.path & " \\ my.wav " , dsToneBuffer )
|