AutoIt Français

Bonjour à tous et à toutes,

Je viens de faire un Piano BEEP, en 1 heure. Pareil que DJSIR, mais avec les demis-tons.

► Afficher le texteCode de Piano BEEP

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\autoit\piano beep.lxf
$Form1 = GUICreate("Piano Beep", 771, 576, 192, 124)
$Button2 = GUICtrlCreateButton("DO#", 64, 40, 67, 209, $WS_GROUP)
$Button3 = GUICtrlCreateButton("RE#", 152, 40, 67, 209, $WS_GROUP)
$Button4 = GUICtrlCreateButton("FA#", 359, 40, 67, 209, $WS_GROUP)
$Button5 = GUICtrlCreateButton("SOL#", 448, 40, 67, 209, $WS_GROUP)
$Button6 = GUICtrlCreateButton("LA#", 542, 40, 67, 209, $WS_GROUP)
$Button7 = GUICtrlCreateButton("DO", 32, 256, 75, 313, $WS_GROUP)
$Button8 = GUICtrlCreateButton("RE", 123, 255, 75, 313, $WS_GROUP)
$Button9 = GUICtrlCreateButton("MI", 220, 256, 75, 313, $WS_GROUP)
$Button10 = GUICtrlCreateButton("FA", 307, 254, 75, 313, $WS_GROUP)
$Button11 = GUICtrlCreateButton("SOL", 404, 252, 75, 313, $WS_GROUP)
$Button12 = GUICtrlCreateButton("LA", 494, 251, 75, 313, $WS_GROUP)
$Button13 = GUICtrlCreateButton("SI", 593, 253, 75, 313, $WS_GROUP)
$Button14 = GUICtrlCreateButton("DO", 679, 253, 75, 313, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Bienvenu(e) dans le piano electrique.", 72, 8, 167, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $Button2 Then Call("do2")
    If $nMsg = $Button3 Then Call("re2")
    If $nMsg = $Button4 Then Call("fa2")
    If $nMsg = $Button5 Then Call("sol2")
    If $nMsg = $Button6 Then Call("la2")
    If $nMsg = $Button7 Then Call("do1")
    If $nMsg = $Button8 Then Call("re")
    If $nMsg = $Button9 Then Call("mi")
    If $nMsg = $Button10 Then Call("fa")
    If $nMsg = $Button11 Then Call("sol")
    If $nMsg = $Button12 Then Call("la")
    If $nMsg = $Button13 Then Call("si")
    If $nMsg = $Button14 Then Call("do3")
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd


#Region Touches Dièses
Func do2()
    Beep(277, 500)
EndFunc   ;==>do2

Func re2()
    Beep(311, 500)
EndFunc   ;==>re2

Func fa2()
    Beep(375, 500)
EndFunc   ;==>fa2

Func sol2()
    Beep(425, 500)
EndFunc   ;==>sol2

Func la2()
    Beep(475, 500)
EndFunc   ;==>la2
#EndRegion Touches Dièses

#Region Touches Normales
Func do1()
    Beep(264, 500)
EndFunc   ;==>do1

Func re()
    Beep(297, 500)
EndFunc   ;==>re

Func mi()
    Beep(330, 500)
EndFunc   ;==>mi

Func fa()
    Beep(352, 500)
EndFunc   ;==>fa

Func sol()
    Beep(396, 500)
EndFunc   ;==>sol

Func la()
    Beep(440, 500)
EndFunc   ;==>la

Func si()
    Beep(495, 500)
EndFunc   ;==>si

Func do3()
    Beep(523.3, 500)
EndFunc   ;==>do3
#EndRegion Touches Normales

Je pense que c'est un peu fait à l'arrache.
Mais c'est toujours amusant
Alex1205

Avec le roi Dagobert au début : (fait vite fait

)

► Afficher le texte

Code : Tout sélectionner

#include  <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\autoit\piano beep.lxf
$Form1 = GUICreate("Piano Beep", 771, 576, 192, 124)
$Button2 = GUICtrlCreateButton("DO#", 64, 40, 67, 209, $WS_GROUP)
$Button3 = GUICtrlCreateButton("RE#", 152, 40, 67, 209, $WS_GROUP)
$Button4 = GUICtrlCreateButton("FA#", 359, 40, 67, 209, $WS_GROUP)
$Button5 = GUICtrlCreateButton("SOL#", 448, 40, 67, 209, $WS_GROUP)
$Button6 = GUICtrlCreateButton("LA#", 542, 40, 67, 209, $WS_GROUP)
$Button7 = GUICtrlCreateButton("DO", 32, 256, 75, 313, $WS_GROUP)
$Button8 = GUICtrlCreateButton("RE", 123, 255, 75, 313, $WS_GROUP)
$Button9 = GUICtrlCreateButton("MI", 220, 256, 75, 313, $WS_GROUP)
$Button10 = GUICtrlCreateButton("FA", 307, 254, 75, 313, $WS_GROUP)
$Button11 = GUICtrlCreateButton("SOL", 404, 252, 75, 313, $WS_GROUP)
$Button12 = GUICtrlCreateButton("LA", 494, 251, 75, 313, $WS_GROUP)
$Button13 = GUICtrlCreateButton("SI", 593, 253, 75, 313, $WS_GROUP)
$Button14 = GUICtrlCreateButton("DO", 679, 253, 75, 313, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Bienvenu(e) dans le piano electrique.", 72, 8, 167, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Call("si")
Call("si")
Call("la")
Call("la")
Call("sol")
Call("sol")
Call("la")
Call("si")
Call("do")
Call("si")
Call("la")
Call("sol")
Call("la")
Call("sol")
Sleep(100)
Call("sol")
Call("la")
Call("si")
Sleep(200)
Call("si")
Sleep(50)
Call("si")
Call("do")
Call("rea")
Call("la")
Sleep(100)
Call("la")
Call("la")
Sleep(70)
Call("sol")
Call("la")
Call("si")
Sleep(200)
Call("si")
Sleep(50)
Call("si")
Call("do")
Call("rea")
Call("la")
Sleep(100)
Call("la")
Call("la")
Sleep(200)
Call("si")
Call("si")
Sleep(100)
Call("la")
Call("la")
Sleep(100)
Call("sol")
Call("sol")
Sleep(100)
Call("la")
Sleep(300)
Call("si")
Sleep(20)
Call("do")
Sleep(20)
Call("si")
Sleep(20)
Call("la")
Sleep(20)
Call("sol")
Sleep(20)
Call("la")
Sleep(20)
Call("solg")


While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $Button2 Then Call("do2")
    If $nMsg = $Button3 Then Call("re2")
    If $nMsg = $Button4 Then Call("fa2")
    If $nMsg = $Button5 Then Call("sol2")
    If $nMsg = $Button6 Then Call("la2")
    If $nMsg = $Button7 Then Call("do1")
    If $nMsg = $Button8 Then Call("re")
    If $nMsg = $Button9 Then Call("mi")
    If $nMsg = $Button10 Then Call("fa")
    If $nMsg = $Button11 Then Call("sol")
    If $nMsg = $Button12 Then Call("la")
    If $nMsg = $Button13 Then Call("si")
    If $nMsg = $Button14 Then Call("do3")
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd


#Region Touches Dièses
Func do2()
    Beep(277, 300)
EndFunc   ;==>do2

Func re2()
    Beep(311, 300)
EndFunc   ;==>re2

Func fa2()
    Beep(375, 300)
EndFunc   ;==>fa2

Func sol2()
    Beep(425, 300)
EndFunc   ;==>sol2

Func la2()
    Beep(475, 300)
EndFunc   ;==>la2
#EndRegion Touches Dièses

#Region Touches Normales
Func do1()
    Beep(264, 300)
EndFunc   ;==>do1

Func re()
    Beep(297, 300)
EndFunc   ;==>re

Func mi()
    Beep(330, 300)
EndFunc   ;==>mi

Func fa()
    Beep(352, 300)
EndFunc   ;==>fa

Func sol()
    Beep(396, 300)
EndFunc   ;==>sol

Func la()
    Beep(440, 300)
EndFunc   ;==>la

Func si()
    Beep(495, 300)
EndFunc   ;==>si

Func do3()
    Beep(623.3, 300)
EndFunc   ;==>do3

Func Rea()
    Beep(600, 300)
EndFunc   ;==>do3

Func Solg()
    Beep(400, 1000)
EndFunc   ;==>do3
#EndRegion Touches Normales

alex1205 a écrit :Pareil que DSJIR, mais avec les demis-tons.

Pareil que qui ?

je viens d'essayer en faisant juste un copier coller j'avoue
je trouve chouette l'idée
peut-on mettre des son autre que ceux du pc ?
et au niveau graphique peut-on y mettre des images qui ressemble a des touches
juste pour savoir si c'est possible si oui je chercherai, je trouve ca un bon exercice pour commencer la prog

Oui, c'est possible !

DJSIR a écrit :Oui, c'est possible !

intéressant tout ca
merci pour l'info
je pense que je vais m'amuser la dessus

eu la lettre a élise je pense quand même pas la mettre en prog ca risque d'être très long quoi que je verrai en fonction du temps

Franchement, tu t'attendait à quoi comme réponse ?

► Afficher le textevoir ce que j'avais préparé

DJSIR a écrit :Franchement, tu t'attendait à quoi comme réponse ?
► Afficher le textevoir ce que j'avais préparé
Tu modifies les Beep, avec des SoundPlay (étant donné qu'il te faut des sons de piano) et les GUICtrlCreateButton par des GUICtrlCreatePic ! (tadaaa)

a celle que j'ai eu

et tu m'as même aider pour la suite, j'en demandais pas tant merci bcp pour ton aide

je viens de regarder un peu ce que tu m'as mis comme information il y a juste les boutons que je vais un peu ramer avec mais sinon le reste ca devrai aller enfin je pense je ferai des essai et je dirai les résultat
si je m'en sort pas j'espère pouvoir faire appel a un coup de main mais je veux essayer seul en premier sinon j'apprendrai jamais

si tu ne trouves pas les images dont t'as besoin, je vais te donner un petit conseil.

tu crées des GUICtrlCreateLabel vides, tu leur appliquent un GUICtrlSetBkColor de façon à ce que ça fasse un genre de solide que tu place ou tu veux.

de plus, il est cliquable !

merci du conseil mais c'est pas les images qui vont me poser le plus gros pb c'est les sons
pour les image je peu toujours les créer en Photoshop si besoin est

et l'autre pb que je vais rencontrer mais que j'ai pas encore chercher c'est trouver la partition du morceau que je désire mettre dans le script

Bonjour g un souci avec mon beep il fonctionne pas alors qu'il fonctionne au démarrage de mon PC

System D'exploitation : Windows 7 Intégrale x64
Carte Mère : Asus A8N-SLI Premium

Je te dirais que c'est ta carte mère.
J'ai le même système que toi.

la j'avoue que j'ai épuisé mes ressources
j'arrive pas a trouver les son juste des note a utiliser sur internet
je désire trouvé le son de chaque note que l'on utilise en version de son des touche de piano en fichier individuel pour chaque touche
est-ce que quelqu'un aurai un site sur lequel on sais trouver ca
merci d'avance

ca fait 6h que je cherche sur google avec tout ce que je connais mais je trouve pas les son individuel sniff

avec ce lien trouvé grâce à mon ami google : avec pour mot clef : fréquence note

http://jeanjacques.dialo.free.fr/frequenc.htm

après pour connaitre la colonne Sh4dows indique qu'un DO à pour fréquence :

Func do1()
Beep(264, 300)
EndFunc ;==>do1

Dans le tableau la colonne 3 indique 263 j'imagine que le do Sh4dows est sur la troisième octave

merci yogui mais c'est pas la fréquence des notes que je désire avoir, ca ca ne pose pas de réel pb de les trouvés, mais c'est le son pour moi avoir un son moins métallique que celui fournis par le pc
comprend tu ma demande?

merci pour l'info sur les fréquences

@Yogui : J'ai pas trop compris ce que tu entendais par "Dans le tableau la colonne 3 indique 263 j'imagine que le do Sh4dows est sur la troisième octave".

Bref ayant fais de la musique pendant 4ans notamment du piano j'ai réaliser le code avec l'oreille et pour le moment la seul notre qui ne va pas et le Do aigus (soit le dernier).
Et comme je ne me suis pas amusé à tester des millions de fréquences ben voilà quoi

@Magique : tu veux des sons de piano autre que les beep de la carte mère ?

Sh4dows a écrit :@Yogui : J'ai pas trop compris ce que tu entendais par "Dans le tableau la colonne 3 indique 263 j'imagine que le do Sh4dows est sur la troisième octave".

Bref ayant fais de la musique pendant 4ans notamment du piano j'ai réaliser le code avec l'oreille et pour le moment la seul notre qui ne va pas et le Do aigus (soit le dernier).
Et comme je ne me suis pas amusé à tester des millions de fréquences ben voilà quoi

n'ayant jamais fais de musique de ma vie j'ai certainement dit un bétise

@magique pour utiliser autre chose que des beep ça va être plus long récupérer des son (wav mp3 ou autre) puis les faire jouer.

Sh4dows a écrit :Bref ayant fais de la musique pendant 4ans notamment du piano j'ai réaliser le code avec l'oreille et pour le moment la seul notre qui ne va pas et le Do aigus (soit le dernier).

C'est vraiment pas malin, quand on sait que les fréquances des notes se trouves tres facilement sur le net et que la fonction beep() demande les meme, c'est tres rapide a faire !

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 !

AutoIt Français

[Ex] Piano en forme de BEEP

[Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP

Re: [Ex] Piano en forme de BEEP