Sh4dows a écrit :@Yogui :
@Magique : tu veux des sons de piano autre que les beep de la carte mère ?
oui c'est bien ca que j'aimerai trouver
Sh4dows a écrit :@Yogui :
@Magique : tu veux des sons de piano autre que les beep de la carte mère ?
eu je veux bien extraire les notes je ne sais pas dire quel note est quoi et si mes souvenirs sont bon un piano a plus de 80 touches quoi est quoi la dedans je suis un peu perduSh4dows a écrit :Sinon pour les Sons MP3 des notes c'est pas un problème tu télécharge la démo de FL Studio et tu met chaque note su piano roll dans un pattern que tu extrait en mp3 !
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 305, 232, 470, 384)
Global $Label1 = GUICtrlCreateLabel("", 88, 8, 44, 180)
GUICtrlSetBkColor(-1, 0xFFFFFF)
Global $Label2 = GUICtrlCreateLabel("", 138, 8, 44, 180)
GUICtrlSetBkColor(-1, 0xFFFFFF)
Global $Label3 = GUICtrlCreateLabel("", 189, 8, 44, 180)
GUICtrlSetBkColor(-1, 0xFFFFFF)
Global $Label4 = GUICtrlCreateLabel("Do", 104, 200, 18, 17)
Global $Label5 = GUICtrlCreateLabel("Re", 152, 200, 18, 17)
Global $Label6 = GUICtrlCreateLabel("Mi", 208, 200, 15, 17)
Global $Label7 = GUICtrlCreateLabel("", 120, 8, 28, 140)
GUICtrlSetBkColor(-1, 0x000000)
Global $Label8 = GUICtrlCreateLabel("", 177, 8, 28, 140)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
SoundPlay(@ScriptDir&"\DO.mp3")
Case $Label2
SoundPlay(@ScriptDir&"\RE.mp3")
Case $Label3
SoundPlay(@ScriptDir&"\MI.mp3")
EndSwitch
WEnd
en wav ca serai parfaisalex1205 a écrit :Je peut te les faire en wav, ou si tu veux les mid
Mais ça risque d'être long