April 26, 2024, 04:54:58 AM

News:

IonicWind Snippit Manager 2.xx Released!  Install it on a memory stick and take it with you!  With or without IWBasic!

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