-----------------------------------

copthesaint

Mon Nov 17, 2008 4:00 pm


Sound Check

-----------------------------------

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

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

Mon Nov 17, 2008 5:08 pm


Re: Sound Check

-----------------------------------

Pretty cool!  :D 

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

Mon Nov 17, 2008 5:17 pm


Re: Sound Check

-----------------------------------

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