Een grafische equalizer laat je zien waar de instelling verblijft visueel . Instellingen op de gelijkmaker bevatten "toon " en " volume . " Het volume wordt normaal weergegeven als een glijdende knop op een lijn die een hoog en een laag bereik vertegenwoordigt . Schuif de knop op nul schakelt het geluid uit , terwijl schuiven tot 8 maakt het luider . Hekjes of het werkelijke aantal kan er zijn om de hoge en lage waarden geven . Instructies
1 Open een nieuw Visual Basic.NET Windows Forms Application Project . Voeg een " Trackbar " controle voor elke controller op de gelijkmaker . Volume , treble en bas zijn vaak equalizerregelaars . Je moet ook een " play" en " stop " of " pauze" knop aan uw formulier toe te voegen . Kopen van 2 Stel de locatie , naam , minimale waarde , maximale waarde , oriëntatie en grootte van elk " Trackbar " controle . De locatie is door de xy coördinaat op het formulier , oriëntatie horizontaal of verticaal is en de grootte is ook vertegenwoordigd door de xy puntposities : Me.tbBass.Location
= Nieuw 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 = Nieuw System.Drawing.Size ( 56 , 194 )
3 Definieer een apparaat te bedienen voor het afspelen van geluid aan het project . U kunt de " SoundPlayer " klasse te gebruiken in . NET Framework 4 , of wilt u misschien registreren van een derde partij OCX en ze kan in uw toepassing . De controle door derden wordt verwezen in code als " Private WithEvents myWave Zoals NewOCX.WaveDevice , " waar " NewOCX " staat voor een controle van derden op het apparaat geregistreerd . De Microsoft SoundPlayer wordt verwezen als " Private speler als SoundPlayer " en " Invoer System.Media " is ook vereist in de sectie " verklaringen " van je code .
4 Gebruik de " AddHandler " , methode om de nieuwe waarde vast te leggen wanneer de gebruiker schuift een van de equalizer bestuurt omhoog of omlaag : AddHandler
tbBass.ValueChanged , AddressOf tb_ValueChanged
Verklaar de functie " tb_ValueChanged " met een verwijzing naar een functie genaamd " ChangeGain " dat eigenlijk doet het werk . Private Sub tb_ValueChanged ( ByVal afzender als Voorwerp , ByVal e als System.EventArgs ) ChangeGain ( ) op Twitter End Sub
Inside the " ChangeGain " functie is een oproep aan de waarde van de equalizer object werken dat verwijzingen die welke in de van " Trackbar : " equalizer.SetGain
( 0 , tbVolume.Value ) equalizer.SetGain ( 1 , tbBass . Value ) equalizer.SetGain ( 2 , tbTreble.Value ) op Twitter
|
