En VB6 , vous pouvez utiliser DirectX pour créer des applications graphiques de Windows audio , vidéo et données. Le SDK DirectX est gratuit à partir du site Microsoft . L'objet de DirectSound est l'objet de périphérique audio principal . Il peut être utilisé pour les effets sonores dans les jeux , et il peut gérer plusieurs sons en même temps. Contrôler le système audio grâce à DirectSound comme le panoramique et le volume. En VB6, vous pouvez créer un projet pour lire les données de tampon dans un fichier WAV via les objets DirectX . Choses que vous devez
VB6
Voir Plus Instructions
1
Cliquez sur " Démarrer", " Tous les programmes " et " Visual Basic " pour ouvrir VB6 . Cliquez sur " Fichier" et " Nouveau" pour créer un nouveau projet. Entrez un nom pour le projet. Spécifiez un emplacement pour les fichiers de projet .
2
Cliquez sur "Project " et " Références " pour ajouter DirectX référence pour le projet. Cochez la case « DirectX 8 pour Type Library Visual Basic " sur l'interface «Références» . Cliquez sur « OK ».
3
définir des variables pour le projet. Ajoutez le code suivant à la Form1.vb : Dim dx As New DirectX8Dim ds Comme DirectSound8Dim buffer1 Comme DirectSoundSecondaryBuffer8Dim buffer2 Comme DSBUFFERDESC
4
Initialisation DirectSound via le code suivant: Set dx = New DirectX8Set ds = dx.DirectSoundCreate ( "")
5
créer une zone tampon via le code suivant: 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
Créez un ton et écrire à dsToneBuffer : iFor Dim i = 0 To DUR * SRATEsbuf (i) = 10000 * Sin ( 2 * PI * FREQ * i /SRATE ) idsToneBuffer.WriteBuffer Suivant 0, 2 * DUR * SRATE , sbuf (0 ) , DSBLOCK_DEFAULT
7
Ecrire les données du buffer dans un fichier WAV : DS.CreateSoundBufferToFile ( App.Path & "\\ my.wav " , dsToneBuffer )
