Lil sample

Commenter

Contenu du snippet

Bonjours et bien je vous poste ma source d'une petite appli que j'ai fais pour le weekend dernier, il permet de lancer des samples via le pavé numérique.
Donc je l'ai dev vite fait un soir c'était pour mon netbook donc si le code n'est pas parfait ba c'est normal :)
Voila je vous le distribue vu que j'ai mes nouvelles platines et seulement mon netbook pour les samples donc si d'autres sont dans le même cas que moi je pense que ça leur servira :)

Source / Exemple : 


Public Class Sample

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        'modification du volume en fonction de la trackbar
        AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
    End Sub

    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        'modification du volume en fonction de la trackbar
        AxWindowsMediaPlayer2.settings.volume = TrackBar2.Value()
    End Sub

    Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
        'modification du volume en fonction de la trackbar
        AxWindowsMediaPlayer3.settings.volume = TrackBar3.Value
    End Sub

    Private Sub TrackBar4_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar4.Scroll
        'modification du volume en fonction de la trackbar
        AxWindowsMediaPlayer6.settings.volume = TrackBar4.Value()
    End Sub

    Private Sub TrackBar5_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar5.Scroll
        'modification du volume en fonction de la trackbar
        AxWindowsMediaPlayer5.settings.volume = TrackBar5.Value
    End Sub

    Private Sub TrackBar6_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar6.Scroll
        'modification du volume en fonction de la trackbar
        AxWindowsMediaPlayer4.settings.volume = TrackBar6.Value
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

    End Sub

    Private Sub Sample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Met une boucle sur tout les samples
        'AxWindowsMediaPlayer1.settings.setMode("Loop", True)
        'AxWindowsMediaPlayer2.settings.setMode("Loop", True)
        'AxWindowsMediaPlayer3.settings.setMode("Loop", True)
        'AxWindowsMediaPlayer4.settings.setMode("Loop", True)
        'AxWindowsMediaPlayer5.settings.setMode("Loop", True)
        'AxWindowsMediaPlayer6.settings.setMode("Loop", True)
        'Met tout les sons a 100 au chargement du form
        AxWindowsMediaPlayer1.settings.volume = 100
        AxWindowsMediaPlayer2.settings.volume = 100
        AxWindowsMediaPlayer3.settings.volume = 100
        AxWindowsMediaPlayer4.settings.volume = 100
        AxWindowsMediaPlayer5.settings.volume = 100
        AxWindowsMediaPlayer6.settings.volume = 100

    End Sub

    Private Sub Shapes_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RectangleShape1.KeyDown, OvalShape1.KeyDown, LineShape1.KeyDown
        'met en lecture la sample associé au pavé numerique si la touche est appuyé
        If e.KeyCode = Keys.NumPad1 Then
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            AxWindowsMediaPlayer1.Ctlcontrols.play()
        End If
        If e.KeyCode = Keys.NumPad2 Then
            AxWindowsMediaPlayer2.Ctlcontrols.stop()
            AxWindowsMediaPlayer2.Ctlcontrols.play()
        End If
        If e.KeyCode = Keys.NumPad3 Then
            AxWindowsMediaPlayer3.Ctlcontrols.stop()
            AxWindowsMediaPlayer3.Ctlcontrols.play()
        End If
        If e.KeyCode = Keys.NumPad6 Then
            AxWindowsMediaPlayer4.Ctlcontrols.stop()
            AxWindowsMediaPlayer4.Ctlcontrols.play()
        End If
        If e.KeyCode = Keys.NumPad5 Then
            AxWindowsMediaPlayer5.Ctlcontrols.stop()
            AxWindowsMediaPlayer5.Ctlcontrols.play()
        End If
        If e.KeyCode = Keys.NumPad4 Then
            AxWindowsMediaPlayer6.Ctlcontrols.stop()
            AxWindowsMediaPlayer6.Ctlcontrols.play()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            AxWindowsMediaPlayer1.settings.setMode("Loop", True)
        Else
            AxWindowsMediaPlayer1.settings.setMode("Loop", False)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            AxWindowsMediaPlayer2.settings.setMode("Loop", True)
        Else
            AxWindowsMediaPlayer2.settings.setMode("Loop", False)
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            AxWindowsMediaPlayer3.settings.setMode("Loop", True)
        Else
            AxWindowsMediaPlayer3.settings.setMode("Loop", False)
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            AxWindowsMediaPlayer4.settings.setMode("Loop", True)
        Else
            AxWindowsMediaPlayer4.settings.setMode("Loop", False)
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            AxWindowsMediaPlayer5.settings.setMode("Loop", True)
        Else
            AxWindowsMediaPlayer5.settings.setMode("Loop", False)
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            AxWindowsMediaPlayer6.settings.setMode("Loop", True)
        Else
            AxWindowsMediaPlayer6.settings.setMode("Loop", False)
        End If
    End Sub
End Class

Conclusion :


J'espère que sa servira a quelques-un d'entre vous ;)
PS : Il y a quelques samples que j'avais.
PS2 : Désolé de ne pas l'avoir mis plus tôt je ne suis plus aussi souvent sur CS :S

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.