I VB6 , kan du använda DirectX för att skapa ljud, video och grafik Windows-program . Den DirectX SDK är fri från Microsofts webbplats . Den DirectSound objektet är den viktigaste ljudenhet objektet . Den kan användas för ljudeffekter i spel , och det kan hantera flera ljud på en gång . Styr ljudanläggningen via DirectSound såsom panorering och volym . I VB6 , kan du skapa ett projekt för att läsa buffert data till en WAV -fil via DirectX objekten . Saker du behöver
VB6
Visa fler instruktioner
1
Klicka på "Start ", " Alla program " och " Visual Basic " för att öppna VB6 . Klicka på " File " och " New " för att skapa ett nytt projekt . Ange ett namn för projektet . Ange en plats för projektet filerna .
2
Klicka på " Projekt " och " Referenser " för att lägga till DirectX referens för projektet . Kryssa " DirectX 8 för Visual Basic Type Library " på " Referenser " gränssnitt . Klicka på " OK . " Addera 3
Definiera variabler för projektet . Lägg till följande kod i den Form1.vb : Dim dx Som New DirectX8Dim ds Som DirectSound8Dim buffer1 Som DirectSoundSecondaryBuffer8Dim buffer2 Som DSBUFFERDESC
4
Initiera DirectSound via kod : Set dx = Ny DirectX8Set ds = dx.DirectSoundCreate ( " " )
5
Skapa en buffert via kod : 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
Skapa en ton och skriva till dsToneBuffer : Dim IFOR i = 0 till DUR * SRATEsbuf ( i) = 10000 * Sin ( 2 * PI * FREQ * i /srate ) Nästa idsToneBuffer.WriteBuffer 0 , 2 * DUR * srate , SBUF ( 0 ) , DSBLOCK_DEFAULT
7
Skriv bufferten data till en WAV -fil : DS.CreateSoundBufferToFile ( App.Path & " \\ my.wav " , dsToneBuffer )
