Lil sample

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 643 fois - Téléchargée 17 fois

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

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
jeudi 17 septembre 2009
Statut
Membre
Dernière intervention
25 janvier 2012

Pas de news?
Merci,
Thierry.
Messages postés
7
Date d'inscription
jeudi 17 septembre 2009
Statut
Membre
Dernière intervention
25 janvier 2012

Bonjour,
Est ce que la livraison du nouvel exe a été faite.
Merci,
Thierry.
Messages postés
5
Date d'inscription
jeudi 14 décembre 2000
Statut
Membre
Dernière intervention
30 septembre 2010

Ok je te fais ça pour ce soir :)
Messages postés
7
Date d'inscription
jeudi 17 septembre 2009
Statut
Membre
Dernière intervention
25 janvier 2012

Bonjour et merci pour la réponse sur le Framework.
Mais sachant que l'installation de ce fameux Framework est assez lourde.
Est ce que le fournisseur du code peut fabriquer un exe contenant tout ce qu'il faut (librairie, etc) pour pouvoir l'exécuter sur un windows sans ce "package".
Merci,
Thierry.
Messages postés
5
Date d'inscription
jeudi 14 décembre 2000
Statut
Membre
Dernière intervention
30 septembre 2010

Ouep je voulais mettre tout le zip mais bon je vais juste mettre mon code
Afficher les 9 commentaires

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.