Code : Tout sélectionner
Dim $aNote[29] = [36, 36, 41, 36, 49, 46, 0, 36, 36, 41, 36, 55, 49, 0, 36, 36, 73, 61, 48, 46, 41, 41, 0, 66, 66, 62, 49, 56, 50]
Dim $aDuree[29] = [4, 2, 6, 6, 6, 8, 10, 4, 2, 6, 6, 6, 8, 5, 4, 2, 6, 6, 6, 5, 2, 5, 10, 4, 3, 6, 8, 10, 20]
For $i = 0 To UBound($aNote) - 1
Beep($aNote[$i] * 10, $aDuree[$i] * 100)
Sleep(30)
Next
exit 0