Sådan oprettes Equalizer Grafer i Visual Basic

Sådan oprettes Equalizer Grafer i Visual Basic


En grafisk equalizer kan du se, hvor indstillingen er bosat visuelt. Indstillinger på equalizeren omfatte "tone" og "volumen". Mængden er normalt repræsenteret som en glidende knap på en linje, som repræsenterer en høj og en lav rækkevidde. Glidende knappen til nul slår lyden fra, mens du trækker den op til 8 gør det højere. Hash mærker eller faktiske antal kan være der til at angive de høje og lave værdier.

Vejledning

1

Åbn en ny Visual Basic.NET Windows Forms Application Project. Tilføj en "Trackbar" kontrol for hver controller på equalizeren. Volumen, bas og diskant er almindelige equalizer kontroller. Du bør også tilføje en "play" og "stop" eller "pause" for at din formular.

2

Angiv placering, navn, minimumsværdi, maksimal værdi, orientering og størrelsen af ​​hver "Trackbar" kontrol. Placeringen er fastsat af xy koordinat om form, orientering er vandret eller lodret og størrelse er også repræsenteret ved XY punkt holdninger:

Me.tbBass.Location = Ny System.Drawing.Point (58, 148)
Me.tbBass.Minimum = -10
Me.tbBass.Maximum = 10
Me.tbBass.Name = "tbBass"
Me.tbBass.Orientation = System.Windows.Forms.Orientation.Vertical
Me.tbBass.Size = Ny System.Drawing.Size (56, 194)

3

Definer en enhed kontrol for at spille lyd til projektet. Du kan bruge "SoundPlayer" klasse i .NET Framework 4, eller du måske ønsker at registrere en tredjepart OCX og reference det i din ansøgning. Den tredjeparts kontrol henvises til i kode som "Private WithEvents myWave Som NewOCX.WaveDevice," hvor "NewOCX" repræsenterer et tredjeparts kontrol registreret på maskinen. Microsoft SoundPlayer er opført som "Private afspiller som SoundPlayer" og "Import System.Media" er også påkrævet i afsnittet "Erklæringer" af din kode.

4

Brug "AddHandler" metode til at fange den nye værdi, når brugeren glider en af ​​equalizeren styrer op eller ned:

AddHandler tbBass.ValueChanged, AddressOf tb_ValueChanged

Erklær "tb_ValueChanged" funktion med en henvisning til en funktion kaldet "ChangeGain", der rent faktisk gør arbejdet.

Private Sub tb_ValueChanged (ByVal afsender Som Object, ByVal e Som System.EventArgs)

ChangeGain()

End Sub

Inde i "ChangeGain" -funktionen er en opfordring til at opdatere værdien af ​​det udlignende objekt, der refererer til den pågældende komponent identificeret i "Trackbar:"

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

Relaterede artikler