Sine wave: Difference between revisions
→{{header|Phix}}
(Added Go) |
|||
Line 109:
say 'Still no? Ok how about:';
shell 'play -n -c1 synth 5.0 sin %-12';</lang>
=={{header|Phix}}==
Windows only
<lang Phix>atom k32=NULL, xBeep
procedure beep(integer frequency, duration=5000)
if platform()=WINDOWS then
if k32=NULL then
k32 = open_dll("kernel32.dll")
xBeep = define_c_proc(k32, "Beep", {C_INT,C_INT})
end if
c_proc(xBeep,{frequency,duration})
end if
end procedure
beep(prompt_number("Enter Frequency (100..10000 recommended):",{0x25,0x7FFF}))</lang>
|