Um equalizador gráfico permite que você veja onde a configuração reside visualmente . Ajustes no equalizador incluem " tom " e " volume. " O volume é normalmente representado como um botão de correr em uma linha que representa uma alta e uma baixa gama . Deslizar o botão de zero desliga o som , enquanto deslizando-a até 8 faz com que seja mais alto. Marcas de hash ou números reais podem estar lá para indicar os valores altos e baixos . Instruções
1
Abra um novo Visual Basic.NET Windows Forms Application Project . Adicione um controle " Trackbar " para cada controlador no equalizador. Volume, graves e agudos são controles comuns do equalizador. Você também deve adicionar um "play" e "stop" ou "pausa" botão ao seu formulário.
2
Definir o local , nome, valor mínimo, valor máximo , orientação e tamanho de cada controle " Trackbar " . A localização é definida pela coordenada xy sobre a forma , a orientação é horizontal ou vertical e o tamanho também é representada pelas posições de ponto xy :
Me.tbBass.Location = Nova 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 = Novo System.Drawing.Size ( 56, 194 ),
3
Definir um controle do dispositivo para reprodução de som para o projeto. Você pode usar a classe " SoundPlayer " in. NET Framework 4, ou você pode querer registrar um OCX de terceiros e referenciá-lo em seu aplicativo . O controle de terceiros é mencionado no código como "Private WithEvents myWave Como NewOCX.WaveDevice ", onde " NewOCX " representa um controle de terceiros registradas na máquina. A Microsoft SoundPlayer é referenciado como " jogador privado como SoundPlayer " e " System.Media importações " também é necessária na seção " Declarações " de seu código.
4
Use o " AddHandler " , método para capturar o novo valor quando o usuário desliza um dos equalizador controla cima ou para baixo :
AddHandler tbBass.ValueChanged , AddressOf tb_ValueChanged
Declare a função " tb_ValueChanged " com uma referência a uma função chamada " ChangeGain " que realmente faz o trabalho .
Private Sub tb_ValueChanged (sender as Object , ByVal e As System.EventArgs ) ChangeGain () End Sub
Dentro do " ChangeGain " função é uma chamada para atualizar o valor do objeto equalizador que faz referência a esse componente identificado no " Trackbar : "
equalizer.SetGain ( 0, tbVolume.Value ) equalizer.SetGain (1, tbBass . Value) equalizer.SetGain (2, tbTreble.Value )
