May 05, 2024, 02:14:39 PM

News:

Own IWBasic 2.x ? -----> Get your free upgrade to 3.x now.........

Beeper

Started by GWS, July 06, 2011, 09:16:45 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

GWS

July 06, 2011, 09:16:45 AM
Hi folks,

Pity this doesn't get to the sound card - it would scare the living daylights out of anybody ..  ;D

Code Select

openconsole
cls

Declare "kernel32",Beep(Frequency as Int, Msec as Int)

w = 0
for i = 1 to 400
  w = w + 5
  If w = 360 then w = 0
  b = 2 * 3.141 * w / 360
  f = sin(b) * 400 + 500
  Beep (f,10)
next i

do:until inkey$<>""
closeconsole
end


all the best, :)

Graham
Tomorrow may be too late ..
User actions
Print
Go Up Pages1