Sign in to follow this  
Followers 0
daslick

beep song request!

9 posts in this topic

I think this is the sheet music for the song that the tune came from.

http://www.guitarnut.com/folktablature/the...ttlehymn_sn.png

Someone please correct me if I am wrong.

I am not asking some1 to do this for me, I just need some direction. How do I go about making a beep(#,#) song for

"I know a song that gets on everybody's nerve's, everybody's nerves, everybody's nerves, i know a song that gets on everybody's nerves and it goes like this!"

I tried to guess the first few frequencies... but at that rate it will take me years... if I don't sleep.

Any help or advice will be appreciated!

Thanks. Maybe I should get some sleep....

Share this post


Link to post
Share on other sites



I know, I don't know how to convert sheet music into frequency...

I understand the UDF

Share this post


Link to post
Share on other sites

The problem is that I don't read music well... / at all.

I need help getting that utterly annoying tune to letters... the UDF i am using only needs letters....

Share this post


Link to post
Share on other sites

You'll need to find the right frequencies for each note. For example the popular tuning note A is at a frequency of 440.


[font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

If you can read sheet music. You can use this function to play the song.

Reading sheet music is incredibly simple. Take 5 to 10 minutes to study it from some webpage, and you're done.

Examples:

Bb4 ( lowered B on 4th ladder)

C4 ( C on 4th ladder)

F#5 ( higher F on 5th ladder)

Func NoteToFreq($FullNote)
    Local $Note, $Mod, $Lad
    Local Const $a = 2^(1/12)
    If StringLen($FullNote) = 2 Then
        $Note = StringLeft($FullNote,1)
        $Lad = StringRight($FullNote, 1)
    ElseIf StringLen($FullNote) = 3 Then
        $Note = StringLeft($FullNote,1)
        $Mod = StringMid($FullNote,2,1)
        $Lad = StringRight($FullNote, 1)
    Else
        SetError(1)
        Return
    EndIf
    Local $step
    $step -= (4-$Lad) * 12
    If $Mod = "#" Then
        $step += 1
    ElseIf $Mod = "b" Then
        $step -= 1
    EndIf
    Select
        Case $Note = "A"
            $step += 0
        Case $Note = "B"
            $step += 2
        Case $Note = "C"
            $step -= 9
        Case $Note = "D"
            $step -= 7
        Case $Note = "E"
            $step -= 5
        Case $Note = "F"
            $step -= 4
        Case $Note = "G"
            $step -= 2
        Case Else
            SetError(2)
            Return
    EndSelect
    Local $frequency = 440*$a^$step
    Return $frequency
EndFunc

I don't remember if I had posted this before.

Edited by Manadar

Share this post


Link to post
Share on other sites

I had that func already, or a similar one. I am unable to read music. I guess I'll get a friend to help me read it if no1 on autoit wants to.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0