Ako vytvoriť Equalizer grafy v jazyku Visual Basic

Grafický ekvalizér umožňuje vidieť , kde je nastavenie býva vizuálne . Nastavenie na ekvalizéra sú " tón " a " objem " . Objem je zvyčajne reprezentovaný ako posuvné tlačidlo na riadku , ktorý predstavuje vysokú a nízku rozsahu . Posuvné tlačidlo na nulu vypne zvuk , zatiaľ čo posunutím až 8. robí to hlasnejšie . Hash značky alebo môže byť skutočný počet sa uviesť vysoké a nízke hodnoty . Pokyny dovolená 1

Otvorte nový vizuálny Basic.NET Windows Forms aplikácie Project . Pridať " Trackbar " ovládanie pre každého regulátora na ekvalizéra . Objem , výšok a basov sú bežné ovládacie prvky ekvalizéra . Mali by ste tiež pridať " hrať " a " stop " alebo " pozastaviť " tlačidlo do formulára .
2

Nastavte umiestnenie , názov , minimálne hodnoty , maximálnej hodnoty , orientácie a veľkosti každý " Trackbar " ovládanie . Umiestnenie sa nastavuje pomocou súradníc XY na formulári , orientácia je horizontálne alebo vertikálne a veľkosť je tiež zastúpená v bode pozície xy :

Me.tbBass.Location = New 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 = New System.Drawing.Size ( 56 , 194 )
3

Definujte ovládanie zariadení na prehrávanie zvuku do projektu . Môžete použiť " SoundPlayer " triedu . NET Framework 4 , alebo budete chcieť zaregistrovať tretích strán , OCX a odkázať ho v aplikácii . Ovládanie tretích strán je odkazované v kóde ako " Private WithEvents myWave Ako NewOCX.WaveDevice , " kde " NewOCX " predstavuje kontrolu tretích strán registrovaný na stroji . Microsoft SoundPlayer je odvolával sa na ako " Private prehrávač , SoundPlayer " a " dovoz System.Media " je tiež potrebné v sekcii " deklaráciou " vášho kódu .
4

Použite " AddHandler " , spôsob , ako zachytiť novú hodnotu , keď užívateľ zasunie jedna z ekvalizéra ovláda nahor alebo nadol :

AddHandler tbBass.ValueChanged , AddressOf tb_ValueChanged

deklarovať funkciu " tb_ValueChanged " s odkazom na funkcia s názvom " ChangeGain " , ktoré vlastne robí prácu .

Private Sub tb_ValueChanged ( byVal sender As Object , byval e ako System.EventArgs ) ChangeGain ( ) End Sub

Inside " ChangeGain " Funkcia je výzva na aktualizáciu hodnoty ekvalizéra objektu , ktorý odkazuje na túto súčasť identifikovaný v " Trackbar : "

equalizer.SetGain ( 0 , tbVolume.Value ) equalizer.SetGain ( 1 , tbBass . hodnota ) equalizer.SetGain ( 2 , tbTreble.Value )

• Predchádzajúca strana: Ako vytvoriť DataSet z GridView 
• Ďalšia strana: Ako vytvoriť JPEG pomocou jazyka Visual Basic 2010 Express & ImageDraw