AutoIt Français

Code : Tout sélectionner

Hotkeyset("{F1}","F1")
Hotkeyset("{F2}","F2")
Hotkeyset("{F3}","F3")
Hotkeyset("{F4}","F4")
Hotkeyset("{F5}","F5")
Hotkeyset("{F6}","F6")
Hotkeyset("{F7}","F7")
Hotkeyset("{F8}","F8")
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Piano", 336, 106, 256, 155)
$C1 = GUICtrlCreateButton(" ", 8, 8, 33, 81, 0)
$D1 = GUICtrlCreateButton(" ", 48, 8, 33, 81, 0)
$E1 = GUICtrlCreateButton(" ", 88, 8, 33, 81, 0)
$F1 = GUICtrlCreateButton(" ", 128, 8, 33, 81, 0)
$G1 = GUICtrlCreateButton(" ", 168, 8, 33, 81, 0)
$A1 = GUICtrlCreateButton(" ", 208, 8, 33, 81, 0)
$B1 = GUICtrlCreateButton(" ", 248, 8, 33, 81, 0)
$C2 = GUICtrlCreateButton(" ", 288, 8, 33, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
If $nMsg = $C1 Then Call("F1")
If $nMsg = $D1 Then Call("F2")
If $nMsg = $E1 Then Call("F3")
If $nMsg = $F1 Then Call("F4")
If $nMsg = $G1 Then Call("F5")
If $nMsg = $A1 Then Call("F6")
If $nMsg = $B1 Then Call("F7")
If $nMsg = $C2 Then Call("F8")
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func F1()
Beep(264, 500)
EndFunc

Func F2()
Beep(297, 500)
EndFunc

Func F3()
Beep(330, 500)
EndFunc

Func F4()
Beep(352, 500)
EndFunc

Func F5()
Beep(396, 500)
EndFunc

Func F6()
Beep(440, 500)
EndFunc

Func F7()
Beep(495, 500)
EndFunc

Func F8()
Beep(523.3, 500)
EndFunc