Code: Select all
aani=LoadSound("media\sheep.wav")
PlaySound aani,100,0,16000
Wait 200
PlaySound aani,100,0,16000
Wait 200
PlaySound aani,100,0,16000
Wait 200
PlaySound aani,100,0,(16000*2.0^(4.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(2.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(2.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(2.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(5.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(4.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(4.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(2.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(2.0/12.0))
Wait 200
PlaySound aani,100,0,(16000*2.0^(0.0/12.0))
Wait 400
WaitKey
Sävelissä 0=C 1=C# 2=D 3=D# 4=E 5=F jne.