Faite votre musique (maj)

Télécharger le projet
Commenter

Description

permet d'editer ca propre musique ou encore d'ouvrir des musique deja existante au format .mcx
Avec 88 morceaux de musique dans le zip de quoi faire chanter votre UC

Source / Exemple : 


Private Declare Function Beep Lib "kernel32" ( _
                 ByVal dwFreq As Long, _
                 ByVal dwDuration As Long) As Long
Dim note As Variant

Private Sub Form_KeyPress(KeyAscii As Integer)
note = KeyAscii
Select Case note
    Case Asc("a")
        Text1.Text = Text1.Text & 10
    Case Asc("z")
        Text1.Text = Text1.Text & 11
    Case Asc("3")
        Text1.Text = Text1.Text & 20
    Case Asc("e")
        Text1.Text = Text1.Text & 12
    Case Asc("4")
        Text1.Text = Text1.Text & 21
    Case Asc("r")
        Text1.Text = Text1.Text & 13
    Case Asc("5")
        Text1.Text = Text1.Text & 22
    Case Asc("t")
        Text1.Text = Text1.Text & 14
    Case Asc("w")
        Text1.Text = Text1.Text & 30
    Case Asc("s")
        Text1.Text = Text1.Text & 40
    Case Asc("x")
        Text1.Text = Text1.Text & 31
    Case Asc("d")
        Text1.Text = Text1.Text & 41
    Case Asc("c")
        Text1.Text = Text1.Text & 32
    Case Asc("v")
        Text1.Text = Text1.Text & 33
    Case Asc("g")
        Text1.Text = Text1.Text & 42
    Case Asc("b")
        Text1.Text = Text1.Text & 34
    Case Asc("h")
        Text1.Text = Text1.Text & 43
    Case Asc("n")
        Text1.Text = Text1.Text & 35
    Case Asc("j")
        Text1.Text = Text1.Text & 44
    Case Asc("k")
        Text1.Text = Text1.Text & 36
    Case Asc("Y")
        Text1.Text = Text1.Text & 50
    Case Asc("7")
        Text1.Text = Text1.Text & 60
    Case Asc("u")
        Text1.Text = Text1.Text & 51
    Case Asc("8")
        Text1.Text = Text1.Text & 61
    Case Asc("i")
        Text1.Text = Text1.Text & 52
    Case Asc("o")
        Text1.Text = Text1.Text & 53
    Case Asc("0")
        Text1.Text = Text1.Text & 62
    Case Asc("p")
        Text1.Text = Text1.Text & 54
    Case Asc("l")
        Text1.Text = Text1.Text & 63
    Case Asc("m")
        Text1.Text = Text1.Text & 55
End Select
End Sub

Private Sub Form_Load()
Me.Top = Form2.Top - Me.Height
Me.Left = Form2.Left
Form4.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Form4
End Sub

Private Sub Label10_Click()
Text1.Text = Text1.Text & "32"
Call joue(32)
End Sub

Private Sub Label11_Click()
Text1.Text = Text1.Text & "33"
Call joue(33)
End Sub

Private Sub Label12_Click()
Text1.Text = Text1.Text & "34"
Call joue(34)
End Sub

Private Sub Label13_Click()
Text1.Text = Text1.Text & "35"
Call joue(35)
End Sub

Private Sub Label14_Click()
Text1.Text = Text1.Text & "36"
Call joue(36)
End Sub

Private Sub Label15_Click()
Text1.Text = Text1.Text & "50"
Call joue(50)
End Sub

Private Sub Label16_Click()
Text1.Text = Text1.Text & "51"
Call joue(51)
End Sub

Private Sub Label17_Click()
Text1.Text = Text1.Text & "52"
Call joue(52)
End Sub

Private Sub Label18_Click()
Text1.Text = Text1.Text & "53"
Call joue(53)
End Sub

Private Sub Label19_Click()
Text1.Text = Text1.Text & "54"
Call joue(54)
End Sub

Private Sub Label20_Click()
Text1.Text = Text1.Text & "55"
Call joue(55)
End Sub

Private Sub Label24_Click()
Text1.Text = Text1.Text & "20"
Call joue(20)
End Sub

Private Sub Label25_Click()
Text1.Text = Text1.Text & "21"
Call joue(21)
End Sub

Private Sub Label26_Click()
Text1.Text = Text1.Text & "22"
Call joue(21)
End Sub

Private Sub Label27_Click()
Text1.Text = Text1.Text & "40"
Call joue(40)
End Sub

Private Sub Label28_Click()
Text1.Text = Text1.Text & "41"
Call joue(41)
End Sub

Private Sub Label29_Click()
Text1.Text = Text1.Text & "42"
Call joue(42)
End Sub

Private Sub Label3_Click()
Text1.Text = Text1.Text & "10"
Call joue(10)
End Sub

Private Sub Label30_Click()
Text1.Text = Text1.Text & "43"
Call joue(43)
End Sub

Private Sub Label31_Click()
Text1.Text = Text1.Text & "44"
Call joue(44)
End Sub

Private Sub Label32_Click()
Text1.Text = Text1.Text & "60"
Call joue(60)
End Sub

Private Sub Label33_Click()
Text1.Text = Text1.Text & "61"
Call joue(61)
End Sub

Private Sub Label34_Click()
Text1.Text = Text1.Text & "62"
Call joue(62)
End Sub

Private Sub Label35_Click()
Text1.Text = Text1.Text & "63"
Call joue(63)
End Sub

Private Sub Label4_Click()
Text1.Text = Text1.Text & "11"
Call joue(11)
End Sub

Private Sub Label5_Click()
Text1.Text = Text1.Text & "12"
Call joue(12)
End Sub

Private Sub Label6_Click()
Text1.Text = Text1.Text & "13"
Call joue(13)
End Sub

Private Sub Label7_Click()
Text1.Text = Text1.Text & "14"
Call joue(14)
End Sub

Private Sub Label8_Click()
Text1.Text = Text1.Text & "30"
Call joue(30)
End Sub

Private Sub Label9_Click()
Text1.Text = Text1.Text & "31"
Call joue(31)
End Sub

Function joue(note2 As Integer)
Select Case note2
        Case 10
        a = Beep(165, 200)
        Case 11
        a = Beep(175, 200)
        Case 20
        a = Beep(185, 200)
        Case 12
        a = Beep(196, 200)
        Case 21
        a = Beep(208, 200)
        Case 13
        a = Beep(220, 200)
        Case 22
        a = Beep(233, 200)
        Case 14
        a = Beep(247, 200)
        Case 30
        a = Beep(262, 200)
        Case 40
        a = Beep(277, 200)
        Case 31
        a = Beep(294, 200)
        Case 41
        a = Beep(311, 200)
        Case 32
        a = Beep(330, 200)
        Case 33
        a = Beep(349, 200)
        Case 42
        a = Beep(370, 200)
        Case 34
        a = Beep(392, 200)
        Case 43
        a = Beep(415, 200)
        Case 35
        a = Beep(440, 200)
        Case 44
        a = Beep(466, 200)
        Case 36
        a = Beep(494, 200)
        Case 50
        a = Beep(523, 200)
        Case 60
        a = Beep(554, 200)
        Case 51
        a = Beep(587, 200)
        Case 61
        a = Beep(622, 200)
        Case 52
        a = Beep(659, 200)
        Case 53
        a = Beep(698, 200)
        Case 62
        a = Beep(740, 200)
        Case 54
        a = Beep(784, 200)
        Case 63
        a = Beep(831, 200)
        Case 55
        a = Beep(880, 200)
End Select
End Function

Conclusion :


programme sans pretention, mais je me suis amuser en le programment.
Télécharger le projet

Codes Sources

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.

Du même auteur (cs_NeoCortex)