Πώς να δημιουργήσετε Equalizer Γραφήματα σε Visual Basic

Ένα γραφικό ισοσταθμιστή σας επιτρέπει να δείτε πού κατοικεί η ρύθμιση οπτικά . Ρυθμίσεις για την ισοφάριση περιλαμβάνουν " τόνος " και " όγκο . « Ο όγκος είναι συνήθως εκπροσωπούνται ως ένα κουμπί ολίσθησης σε μια γραμμή που αντιπροσωπεύει ένα υψηλό και ένα χαμηλό εύρος . Σύρετε το κουμπί στο μηδέν κλείνει τον ήχο , ενώ συρόμενη έως 8 καθιστά πιο δυνατά . Hash σήματα ή πραγματικοί αριθμοί μπορεί να είναι εκεί για να δείξει τις υψηλές και χαμηλές τιμές . Οδηγίες
Η

1 Ανοίξτε ένα νέο Visual Basic.NET Windows Forms Application έργου . Προσθέστε ένα " trackbar " ελέγχου για κάθε ελεγκτή για την ισοφάριση . Όγκος, πρίμα και τα μπάσα είναι κοινά στοιχεία ελέγχου του ισοσταθμιστή . Θα πρέπει επίσης να προσθέσετε ένα "παιχνίδι" και "stop " ή " παύση " κουμπί στη φόρμα σας . 2

Ρυθμίστε τη θέση , το όνομα , ελάχιστη τιμή , μέγιστη τιμή , τον προσανατολισμό και το μέγεθος των κάθε " trackbar " ελέγχου. Η τοποθεσία βρίσκεται από το xy συντεταγμένων σχετικά με τη μορφή , ο προσανατολισμός είναι οριζόντια ή κάθετη και το μέγεθος αντιπροσωπεύεται επίσης από τις θέσεις των σημείων xy :

Me.tbBass.Location = Νέα 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 = Νέα System.Drawing.Size ( 56 , 194 )
εικόνων 3

Ορίστε μια συσκευή ελέγχου για την αναπαραγωγή του ήχου με το έργο . Μπορείτε να χρησιμοποιήσετε την κλάση " SoundPlayer " στο . NET Framework 4 , ή ίσως να θέλετε να καταχωρήσετε ένα OCX τρίτων και αναφορά στην αίτησή σας . Ο έλεγχος από τρίτους γίνεται αναφορά στον κώδικα ως «Ιδιωτικά WithEvents myWave Όπως NewOCX.WaveDevice , " όπου " NewOCX " αντιπροσωπεύει ένα στοιχείο ελέγχου τρίτων καταχωρηθεί στη μηχανή . Η Microsoft SoundPlayer αναφέρεται ως "Ιδιωτική παίκτης Ως SoundPlayer » και « Εισαγωγές System.Media " απαιτείται επίσης στην ενότητα " δηλώσεις " του κωδικού σας.
Η 4

Χρησιμοποιήστε το " AddHandler " ? μέθοδο για να συλλάβει τη νέα τιμή όταν ο χρήστης διαφάνειες ένα από τα ισοσταθμιστή ελέγχει τα πάνω ή προς τα κάτω :

AddHandler tbBass.ValueChanged , AddressOf tb_ValueChanged

να αναγνωρίσει τη λειτουργία " tb_ValueChanged " με αναφορά σε μια λειτουργία που ονομάζεται " ChangeGain " που κάνει πραγματικά την εργασία .

Private Sub tb_ValueChanged ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) ChangeGain ( ) End Sub

Μέσα από το " ChangeGain " λειτουργία είναι μια πρόσκληση για να ενημερώσετε την αξία του αντικειμένου ισοσταθμιστή που αναφέρεται σε αυτό το συστατικό που επισημάνθηκαν στην« trackbar : "

equalizer.SetGain ( 0 , tbVolume.Value ) equalizer.SetGain ( 1 , tbBass . Value) equalizer.SetGain ( 2 , tbTreble.Value )
Η
εικόνων