[Ex] Jouer de la musique avec le HP du PC.

[timmalos]

Bonjour à tous:) alors voila je voulais envoyer à un ami un joyeux anniversaire avec des beep, donc une musique qui fait - de 1 ko c'est toujours cool. j'ai reussi a trouver, mais trop tard, malheuresement... Je vous met mes recherches pour que vous puissiez faire les musiques que vous voulez:

ATTENTION LA MUSIQUE NE VIENT PAS DES HAUTS PARLEURS, AVANT DE TESTER LE SCRIPT VEILLEZ A NE PAS DERANGER VOTRE FAMILLE OU A NE PAS ETRE AU TRAVAIL !!!

Voici le début de Joyeux Anniversaire

Code : Tout sélectionner

;~ Do 261,6 Hz 
;~ Do# 277.2 Hz 
;~ Ré 293.7 Hz 
;~ Ré# 311.1 Hz 
;~ Mi 329.7 Hz 
;~ Fa 349.2 Hz 
;~ Fa# 370.0 Hz 
;~ Sol 392.0 Hz 
;~ Sol# 415.3 Hz 
;~ La 440 Hz 
;~ La# 466.2 Hz 
;~ Si 493.9 Hz 
;~ Do 523.2 Hz 




Beep(262*2, 500)
Beep(262*2, 200)
Beep(294*2, 500)
Beep(262*2, 1000)
Beep(349*2, 500)
Beep(330*2, 2000)
Sleep(500)
Beep(262*2, 500)
Beep(262*2, 200)
Beep(294*2, 500)
Beep(262*2, 1000)
Beep(392*2, 500)
Beep(349*2, 1000)

Voilà, d'aucune utilité , mais toujours marrant

[timmalos]

Quand j'y pense, ca peut etre une bonne idée pour m'entrainer à faire des Gui complexes , je vais essayer de faire un utilitaire avec un clavier, et si on clique dessus, ca fait la musique etc:)


Je sais, je sers à rien

[jbnh]

Purée, t'aurais du prévenir que le son provient de la tour et non du casque Moi qui ai le PC dans le salon !

[timmalos]

Mdr
je suis désolé:)
tu m'a vraiment faire rire quand j'ai lu ca:)
Dis toi que mon pc aussi est dans le salon, et que quand j'ai fait tous les tests pour faire la musique comme il fallait, il y avait ma famille dérriere qui gueulait:)




Et merci Tlem pour l'ajout du titre j'avais completement oublié:) désolé

[Yogui]

et je le test au boulot

[Tlem]

Pour faire suite à l'exemple de Tim, voici une mise à jour de l'exemple, avec une fonction qui permet de jouer une musique sous forme de note ecrite (Do, Re, Mi, ...) :

► Afficher le texte

Code : Tout sélectionner

; Notes sur la base Do, Do#, Re, Re#, Mi, Fa, Fa#, Sol, Sol#, La, La#, Si :
; P = Pause, Do3 = Do octave 3, Re4 = Ré octave 4, Sol2 = Sol Octave 2, etc ...
; Les Tempo :
; R = Ronde, B = Blanche, N = Noire, C = Croche, DC = Double Croche, TC = Triple Croche, QC = Quadruple Croche
;
; Pour jouer une musique, il suffit de lancer la fonction _PlaySong($sSong, $iTempo) avec comme paramètres :
; $sSong = Une chaine de caractère représentant les notes séparée par un espace.
; Chaque note est ecrite sous la forme : Do3-n (NoteOctave-tempo)
;, $iTempo = Un nombre qui servira de base de calcul du tempo des notes (par défaut égal à 100).

_PlaySong('Do3-n Re3-c Mi3-c Fa3-c Sol3-c La3-n Si3-c P-n Do4-n Re4-n Mi4-n Fa4-n Sol4-n La4-n Si4-n Do5-n')
_InitTempo(30)
_PlaySong('Do3-n Re3-c Mi3-c Fa3-c Sol3-c La3-n Si3-c P-n Do4-n Re4-n Mi4-n Fa4-n Sol4-n La4-n Si4-n Do5-n')


; #################################################################################################
;                                           Fonctions
; #################################################################################################
Func _PlaySong($sSong)
    If Not IsDeclared('do0') Then _InitNotes()
    If Not IsDeclared('r') Then _InitTempo()

    $aSong = StringSplit($sSong, ' ')
    For $i = 1 To $aSong[0]
        $aNote = StringSplit($aSong[$i], '-')
        If (Eval($aNote[1]) And Eval($aNote[2])) Then
            Beep(Eval($aNote[1]), Eval($aNote[2]))
        EndIf
    Next
EndFunc   ;==>_PlaySong

Func _InitNotes()
    ; La calcul exacte des notes devrait être :
    ; Fn = Fo * a^n  Avec a Avec a la racine douzième de deux et n le nombre de demi-tons au-dessus de la note de départ Fo.
    ; La racine douzième est : 2^(1/12)
    ; La note de référence est le La 3ième octave d'une fréquence de 440Hz.
    ; Voir http://fr.wikipedia.org/wiki/Note_de_musique pour plus de renseignements.
    Local $aNotes[12] = ['do', 'do#', 're', 're#', 'mi', 'fa', 'fa#', 'sol', 'sol#', 'la', 'la#', 'si']
    Local $aFreq[12] = [32.7, 34.65, 36.71, 38.89, 41.20, 43.65, 46.25, 49, 51.91, 55, 58.27, 61.74]

    $Coef = 1
    For $Oct = 0 To 7
        For $i = 0 To UBound($aNotes) - 1
            Assign($aNotes[$i] & $Oct, $aFreq[$i] * $Coef, 2)
        Next
        $Coef = $Coef * 2
    Next
EndFunc

Func _InitTempo($iTempo = 100)
    Local $i, $Tempo = $iTempo * 10
    Global $P = 37
    Global $aTempo[7] = ['r', 'b', 'n', 'c', 'dc', 'tc', 'qc']
    Global $aDuree[7] = [$Tempo * 4, $Tempo * 2, $Tempo * 1, $Tempo / 2, $Tempo / 4, $Tempo / 8, $Tempo / 16]

    For $i = 0 To UBound($aTempo) - 1
        Assign($aTempo[$i], $aDuree[$i], 2)
    Next
EndFunc

Ce n'est pas parfait puisqu'il manque encore beaucoup de chose (telle que les pauses entre les notes), mais c'est déjà pas mal pour s'amuser.