Paste von Anonym am 2010-09-05 17:36:42 Syntax:

Examples()

#region Examples
Func Examples()
;-- Clocks - (Coldplay)
For $x = 1 to 4
_BeepPiano(67,200)
_BeepPiano(62,200)
_BeepPiano(59,200)
_BeepPiano('R',10)
_BeepPiano(67,200)
_BeepPiano(62,200)
_BeepPiano(59,200)
_BeepPiano('R',10)
_BeepPiano(67,200)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(60,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(60,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(60,200)
Next
EndFunc
#endregion


Func _BeepPiano($nKey,$nDur)
Local $sPianolist[100]
$sPianolist = StringSplit( _
"27.5000|29.1353|30.8677|32.7032|34.6479|36.7081|3 8.8909|"& _
"41.2035|43.6536|46.2493|48.9995|51.9130|55.0000|5 8.2705|"& _
"61.7354|65.4064|69.2957|73.4162|77.7817|82.4069|8 7.3071|"& _
"92.4986|97.9989|103.826|110.000|116.541|123.471|1 30.813|"& _
"138.591|146.832|155.563|164.814|174.614|184.997|1 95.998|"& _
"207.652|220.000|233.082|246.942|261.626|277.183|2 93.665|"& _
"311.127|329.628|349.228|369.994|391.995|415.305|4 40.000|"& _
"466.164|493.883|523.251|554.365|587.330|622.254|6 59.255|"& _
"698.456|739.989|783.991|830.609|880.000|932.328|9 87.767|"& _
"1046.50|1108.73|1174.66|1244.51|1318.51|1396.91|1 479.98|"& _
"1567.98|1661.22|1760.00|1864.66|1975.53|2093.00|2 217.46|"& _
"2349.32|2489.02|2637.02|2793.83|2959.96|3135.96|3 322.44|"& _
"3520.00|3729.31|3951.07|4186.01|","|")
If $nKey = 'R' Then
Sleep($nDur)
Else
Beep($sPianolist[$nKey],$nDur)
EndIf
EndFunc