En grafisk equalizer kan du se var inställningen bosatt visuellt . Inställningar på equalizer inkluderar " tonen " och " volym . " Volymen normalt representeras som en glidande knapp på en linje som representerar ett högt och ett lågt utbud . Genom att skjuta knappen till noll stänger av ljudet , samtidigt som du drar den upp till 8 gör det starkare . Hash märken eller faktiska siffror kan vara där för att indikera de höga och låga värden . Instruktioner
1
Öppna ett nytt Visual Basic.NET Windows Forms Application Project . Lägg en " Trackbar " kontroll för varje regulator på equalizern . Volym , diskant och bas är vanliga equalizerkontrollerna . Du bör också lägga till en " lek " och " stopp " eller " pausa " knapp i formuläret .
2
Ange plats , namn , minimivärde , maximivärde , orientering och storlek varje " Trackbar " kontroll . Platsen ligger i xy koordinat på formuläret , är vågrät eller lodrät och storlek är också representerad av xy punktpositioner :
Me.tbBass.Location = Ny System.Drawing.Point 58 ( , 148 ) Me.tbBass.Minimum = - 10Me.tbBass.Maximum = 10Me.tbBass.Name = " tbBass " Me.tbBass.Orientation = System.Windows.Forms.Orientation.VerticalMe.tbBass.Size = Ny System.Drawing.Size ( 56 , 194 )
3
Definiera en enhet kontroll för att spela ljud till projektet . Du kan använda " SoundPlayer " klass i . NET Framework 4 , eller kanske du vill registrera en tredje part OCX och referera till den i din ansökan . Den tredjepartskontroll refereras i koden som " Private WithEvents myWave Som NewOCX.WaveDevice , " där " NewOCX " representerar en tredjepartskontroll registrerats på maskinen . Microsoft SoundPlayer refereras som " Privat aktör Som SoundPlayer " och " Import System.Media " krävs också i " Förklaringar " i din kod .
4
Använd " AddHandler " , metod för att fånga det nya värdet när användaren glider en av equalizern styr upp eller ner :
AddHandler tbBass.ValueChanged , AddressOf tb_ValueChanged
Deklarera " tb_ValueChanged " funktion med en hänvisning till en funktion som heter " ChangeGain " som faktiskt gör jobbet .
Private Sub tb_ValueChanged ( ByVal avsändare As Object , ByVal e som System.EventArgs ) ChangeGain ( ) End Sub
Inuti " ChangeGain " funktionen är en uppmaning att uppdatera värdet av equalizer objekt som referenser som komponent som anges i " Trackbar : "
equalizer.SetGain ( 0 , tbVolume.Value ) equalizer.SetGain ( 1 , tbBass . Value ) equalizer.SetGain ( 2 , tbTreble.Value ) katalog
