beep song request!

[daslick]

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....

[Uten]

SZearch for +beep +song. There are some udf's in the Scripts forum.

[daslick]

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

I understand the UDF

[daslick]

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....

[Uten]

Oh, I see. Don't think I will even try. Sorry.

[BALA]

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

[jvanegmond]

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)

expandcollapse popup

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 January 20, 2007 by Manadar

[daslick]

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.

[Lakes]

First Hit on Google http://www.phy.mtu.edu/~suits/notefreqs.html

SheetMusic Reader Here http://www.recordare.com/sharpeye/ only costs $160...

Whats needed here is A Midi to BeepSong Autoit script, should make a nice project for someone...