Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man skapar våg från buffertar i VB6

    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 )

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man använder en timer i ett VB6 DLL
    ·Hur ansluta till databasen i VBS
    ·Ansluta till en Access- DB i Visual Basic Net
    ·Hur byta namn på mappar i Visual Basic
    ·XNA Handledning för Rotera en 3D-modell
    ·Visual Basic Villkor Explained
    ·Hur man laddar en CSV -fil till en datamängd
    ·Ta reda på vilken Check är markerad i Visual Basic Ne…
    ·Microsoft VB NET certifiering
    ·Hur man gör ett Visual Basic Image Uploader
    Utvalda artiklarna
    ·Kan Android Run Jar
    ·Så dokument programvara Krav
    ·Oracle DBA Certification Requirements
    ·Inaktivera en server klient Tangentbord Använda Java
    ·Connect : Direct Coding Tricks
    ·Hur man skapar en Om Else uttalande i C
    ·Hur man skriver pseudokod för att slå upp ord i en or…
    ·Hur man gör Facebook Connect Med PHP
    ·Hur man undviker den Gå Typ Alla i MySQL
    ·Hur du plottar flera datapunkter i MATLAB
    Copyright © Dator Kunskap http://www.dator.xyz