Sound Check

[copthesaint]

This is a program that will tell you what the sound is
+it makes a cool noise

code:

var spd := 400 var sdp := 400 var x:= maxx div 2 var y:= maxy div 2 var mx:= x div 5500 var my:= y div 5500 View.Set ("offscreenonly") var chars : array char of boolean process sounds     sound (spd, sdp)     put (spd),(sdp)     View.Update     cls      end sounds loop     Input.KeyDown (chars)     if chars (KEY_DOWN_ARROW) then         if spd > 0 then             spd := spd - 5             sdp := sdp - 5             fork sounds         end if            end if     if chars (KEY_UP_ARROW) then         if spd < 5500 then             spd := spd + 5             sdp := sdp + 5             fork sounds         end if        end if     put (spd),(sdp)     View.Update     cls end loop

[Jack140]

Pretty cool!

As you hit the up arrow key to its max, its frequency will be to high to hear... Also called "Ultrasonic"
As you hit the down arrow key to its max, its frequency will be to low to hear... Also called "Infrasonic"

I think its cool!
A typical human can hear from 20Hz - 20000Hz
Although, After a while of listening, its gets annoying... lol

Great Job!!!

[copthesaint]

Here's an update
go to http://compsci.ca/v3/viewtopic.php?p=172956#172956
This is the new program with this one.