Jump to content

Another beep song UPDATED!

Paulie

By Paulie,
in AutoIt Example Scripts

 Share

Recommended Posts

  • Replies 165
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Paulie
Paulie

hey Guys! GUI update Much functionality added: Better Commented Results (Include Pitch and Key Number) Modify and Insert have been refined and now works on rests Ability to insert comments (Measure L

Posted Images

WTS Polymath

WTS

Posted
Posted

hi paulie, i shortened your script.. thought i'd share:

Examples()

#region Examples
Func Examples()
;-- Crazy Train intro - Black Sabbath/Ozzy
For $x = 1 to 4
_BeepPiano(34,200)
_BeepPiano(34,200)
_BeepPiano(41,200)
_BeepPiano(34,200)
_BeepPiano(42,200)
_BeepPiano(34,200)
_BeepPiano(41,200)
_BeepPiano(34,200)
_BeepPiano('R',10)
_BeepPiano(39,200)
_BeepPiano(37,200)
_BeepPiano(36,200)
_BeepPiano(37,200)
_BeepPiano(39,200)
_BeepPiano(37,200)
_BeepPiano(36,200)
_BeepPiano(32,200)
Next

;-- The Entertainer Intro - (Scott Joplin)
_BeepPiano(66,200)
_BeepPiano(68,200)
_BeepPiano(64,200)
_BeepPiano(61,200)
_BeepPiano('R',100)
_BeepPiano(63,200)
_BeepPiano(59,200)
_BeepPiano('R',200)
_BeepPiano(54,200)
_BeepPiano(56,200)
_BeepPiano(52,200)
_BeepPiano(49,200)
_BeepPiano('R',100)
_BeepPiano(51,200)
_BeepPiano(47,200)
_BeepPiano('R',200)
_BeepPiano(42,200)
_BeepPiano(44,200)
_BeepPiano(40,200)
_BeepPiano(37,300)
_BeepPiano('R',100)
_BeepPiano(39,200)
_BeepPiano(37,200)
_BeepPiano(36,200)
_BeepPiano(35,200)
_BeepPiano('R',600)
_BeepPiano(59,200)
_BeepPiano('R',500)
_BeepPiano(54,200)
_BeepPiano(55,200)
_BeepPiano(56,200)
_BeepPiano(64,300)
_BeepPiano('R',100)
_BeepPiano(56,200)
_BeepPiano(64,300)
_BeepPiano('R',100)
_BeepPiano(56,200)
_BeepPiano(64,500)
_BeepPiano('R',100)
_BeepPiano(64,200)
_BeepPiano(66,200)
_BeepPiano(67,200)
_BeepPiano(68,250)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(66,200)
_BeepPiano(68,250)
_BeepPiano('R',10)
_BeepPiano(63,200)
_BeepPiano(66,250)
_BeepPiano(64,300)

;-- Clocks - (Coldplay)
For $x = 1 to 4
_BeepPiano(67,200)
_BeepPiano(62,200)
_BeepPiano(59,200)
_BeepPiano('R',10)
_BeepPiano(67,200)
_BeepPiano(62,200)
_BeepPiano(59,200)
_BeepPiano('R',10)
_BeepPiano(67,200)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(65,200)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(60,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(60,200)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(64,200)
_BeepPiano(60,200)
Next
EndFunc
#endregion

;==================================
; Name: _BeepPiano()
; Description: Plays piano notes with beep()
; Parameter(s):  $nKey = Piano key
;               $nDur = Duration
; Author(s): Paulie/ WTS
; Note(s): Requires beta 3.1.xx
;==================================
Func _BeepPiano($nKey,$nDur)
    Local $sPianolist[100];81
    $sPianolist = StringSplit( _
        "27.5000|29.1353|30.8677|32.7032|34.6479|36.7081|38.8909|"& _
        "41.2035|43.6536|46.2493|48.9995|51.9130|55.0000|58.2705|"& _
        "61.7354|65.4064|69.2957|73.4162|77.7817|82.4069|87.3071|"& _
        "92.4986|97.9989|103.826|110.000|116.541|123.471|130.813|"& _
        "138.591|146.832|155.563|164.814|174.614|184.997|195.998|"& _
        "207.652|220.000|233.082|246.942|261.626|277.183|293.665|"& _
        "311.127|329.628|349.228|369.994|391.995|415.305|440.000|"& _
        "466.164|493.883|523.251|554.365|587.330|622.254|659.255|"& _
        "698.456|739.989|783.991|830.609|880.000|932.328|987.767|"& _
        "1046.50|1108.73|1174.66|1244.51|1318.51|1396.91|1479.98|"& _
        "1567.98|1661.22|1760.00|1864.66|1975.53|2093.00|2217.46|"& _
        "2349.32|2489.02|2637.02|2793.83|2959.96|3135.96|3322.44|"& _
        "3520.00|3729.31|3951.07|4186.01|","|")
    If $nKey = 'R' Then 
        Sleep($nDur)
    Else
        Beep($sPianolist[$nKey],$nDur)
    EndIf
EndFunc
Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted (edited)

hi paulie, i shortened your script.. thought i'd share:

I like how you did it, but the only reason i like the otherone is its WAY less to write

having to write

_BeepPiano(*Note*,*Duration*)

While nicely formated is a lot to write for EVERY NOTE

but it does substantially shorten the code

thanks,

Also,

I think we should rename it from '_BeepPiano' to just '_Piano'

saves time

Edited by Paulie
Link to comment
Share on other sites
taurus905 Universalist

taurus905

Posted
Posted

Paulie,

Check out this freeware download:

http://www.tucows.com/preview/335682

It may give you some ideas on how to make a keyboard piano.

I was also thinking that you could make a keyboard gui.

Just some thoughts. I know it would be a lot of work.

taurus905

"Never mistake kindness for weakness."-- Author Unknown --"The highest point to which a weak but experienced mind can rise is detecting the weakness of better men."-- Georg Lichtenberg --Simple Obfuscator (Beta not needed.), Random names for Vars and Funcs

Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted

Paulie,

Check out this freeware download:

http://www.tucows.com/preview/335682

It may give you some ideas on how to make a keyboard piano.

I was also thinking that you could make a keyboard gui.

Just some thoughts. I know it would be a lot of work.

taurus905

I wanted to make a gui Piano, but how to fit all those keys on the screen?

Maybe i'll do like a 26 key piano using just the 13 keys before and after middle C

But heres my problem how do I shape the white keys to fit around the black ones? because on most pianos, the keys are 'L' shaped

Link to comment
Share on other sites
  • 1 month later...
blademonkey Universalist

blademonkey

Posted
Posted

I wanted to make a gui Piano, but how to fit all those keys on the screen?

Maybe i'll do like a 26 key piano using just the 13 keys before and after middle C

But heres my problem how do I shape the white keys to fit around the black ones? because on most pianos, the keys are 'L' shaped

Well you would create the black keys after having created the white keys which would result in them overlapping the white keys.

---"Educate the Mind, Make Savage the Body" -Mao Tse Tung

Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted

Well you would create the black keys after having created the white keys which would result in them overlapping the white keys.

UPDATE!: Added mario theme song!!!(see first post)

@Blademonkey

Until you tried to click or activate a white key, then it would become on top, and the only way to get it to look like a piano again would be to play all the black keys :)

Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted

Dude thats freaking awsome, the whole thing, after of course i figured out how to put it all together. I'm sorta new to coding. :)

Thank you for your kind words, glad you like it any particularly easy song requests?(still can't figure out chords)

UPDATE: Improved the mario song and added more :P

Enjoy

Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted (edited)

Maybe you could try making a beep version of T.N.T. by AC-DC? That would be really cool :) I like your talents with the Mario Song, much better than mine, lol. Keep up the great work Paulie. Just wondering, if you don't mind me asking, how old are you?

I am 15

will be driving on the 24 of Sept.

Edited by Paulie
Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted

UPDATE:

Mario Underworld Song!

(First post is too long)

While 1
For $i = 1 to 2
_28(168)
_40(168)
_25(168)
_37(168)
_26(168)
_38(168)
_R(168*8)
Next
For $i = 1 to 2
_21(168)
_33(168)
_18(168)
_30(168)
_19(168)
_31(168)
_R(168*8)
Next
_19(168)
_18(168)
_17(168)
_16(224)
_R(7)
_19(224)
_R(7)
_18(224)
_R(7)
_12(224)
_R(7)
_13(224)
_R(7)
_17(224)
_16(224)
_23(224)
_22(224)
_21(224)
_28(224)
_27(224)
_26(168);
_r(28)
_22(168)
_R(28)
_18(168)
_R(28)
_17(168)
_R(28)
_16(168)
_R(28)
_15(168)
_R(224*8)
Wend
Link to comment
Share on other sites
  • 2 weeks later...
X13lade Seeker

X13lade

Posted
Posted

WTS has that shortened version that i was looking at and i was pretty bored so i made it play i like to move it move it. ^.^ rofl its boring without the words or any other beats but oh well. Ps. sorry if its really big. im new here.

Examples()

#region Examples
Func Examples()
;-- I Like To Move It Move It

For $x = 1 to 4
_BeepPiano(53,400)
_BeepPiano('R',50)
_BeepPiano(53,400)
_BeepPiano('R',50)
_BeepPiano(53,400)
_BeepPiano('R',50)
_BeepPiano(53,200)
_BeepPiano('R',20)
_BeepPiano(60,300)
_BeepPiano('R',400)
Next
For $x = 1 to 4
_BeepPiano(53,400)
_BeepPiano('R',10)
_BeepPiano(53,400)
_BeepPiano('R',10)
_BeepPiano(53,400)
_BeepPiano('R',10)
_BeepPiano(53,200)
_BeepPiano('R',10)
_BeepPiano(60,200)
_BeepPiano('R',10)
_BeepPiano(56,400)
_BeepPiano('R',10)
_BeepPiano(56,400)
_BeepPiano('R',10)
_BeepPiano(55,200)
_BeepPiano('R',10)
_BeepPiano(56,200)
_BeepPiano('R',10)
_BeepPiano(55,200)
_BeepPiano('R',10)
_BeepPiano(60,200)
_BeepPiano('R',10)
Next
For $x = 1 to 8
_BeepPiano(55,400)
_BeepPiano('R',10)
_BeepPiano(55,400)
_BeepPiano('R',10)
_BeepPiano(55,400)
_BeepPiano('R',10)
_BeepPiano(55,200)
_BeepPiano('R',10)
_BeepPiano(62,200)
_BeepPiano('R',10)
_BeepPiano(58,400)
_BeepPiano('R',10)
_BeepPiano(58,400)
_BeepPiano('R',10)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(58,200)
_BeepPiano('R',10)
_BeepPiano(57,200)
_BeepPiano('R',10)
_BeepPiano(62,200)
_BeepPiano('R',10)
Next
For $x = 1 to 2
_BeepPiano(51,400)
_BeepPiano('R',10)
_BeepPiano(51,400)
_BeepPiano('R',10)
_BeepPiano(51,400)
_BeepPiano('R',10)
_BeepPiano(51,200)
_BeepPiano('R',10)
_BeepPiano(58,200)
_BeepPiano('R',10)
_BeepPiano(54,400)
_BeepPiano('R',10)
_BeepPiano(54,400)
_BeepPiano('R',10)
_BeepPiano(53,200)
_BeepPiano('R',10)
_BeepPiano(54,200)
_BeepPiano('R',10)
_BeepPiano(53,200)
_BeepPiano('R',10)
_BeepPiano(58,200)
_BeepPiano('R',10)
Next
For $x = 1 to 2
_BeepPiano(53,400)
_BeepPiano('R',10)
_BeepPiano(53,400)
_BeepPiano('R',10)
_BeepPiano(53,400)
_BeepPiano('R',10)
_BeepPiano(53,200)
_BeepPiano('R',10)
_BeepPiano(60,200)
_BeepPiano('R',10)
_BeepPiano(56,400)
_BeepPiano('R',10)
_BeepPiano(56,400)
_BeepPiano('R',10)
_BeepPiano(55,200)
_BeepPiano('R',10)
_BeepPiano(56,200)
_BeepPiano('R',10)
_BeepPiano(55,200)
_BeepPiano('R',10)
_BeepPiano(60,200)
_BeepPiano('R',10)
Next
EndFunc
#endregion

;==================================
; Name: _BeepPiano()
; Description: Plays piano notes with beep()
; Parameter(s):  $nKey = Piano key
;                $nDur = Duration
; Author(s): Paulie/ WTS
; Note(s): Requires beta 3.1.xx
;==================================
Func _BeepPiano($nKey,$nDur)
    Local $sPianolist[100];81
    $sPianolist = StringSplit( _
        "27.5000|29.1353|30.8677|32.7032|34.6479|36.7081|38.8909|"& _
        "41.2035|43.6536|46.2493|48.9995|51.9130|55.0000|58.2705|"& _
        "61.7354|65.4064|69.2957|73.4162|77.7817|82.4069|87.3071|"& _
        "92.4986|97.9989|103.826|110.000|116.541|123.471|130.813|"& _
        "138.591|146.832|155.563|164.814|174.614|184.997|195.998|"& _
        "207.652|220.000|233.082|246.942|261.626|277.183|293.665|"& _
        "311.127|329.628|349.228|369.994|391.995|415.305|440.000|"& _
        "466.164|493.883|523.251|554.365|587.330|622.254|659.255|"& _
        "698.456|739.989|783.991|830.609|880.000|932.328|987.767|"& _
        "1046.50|1108.73|1174.66|1244.51|1318.51|1396.91|1479.98|"& _
        "1567.98|1661.22|1760.00|1864.66|1975.53|2093.00|2217.46|"& _
        "2349.32|2489.02|2637.02|2793.83|2959.96|3135.96|3322.44|"& _
        "3520.00|3729.31|3951.07|4186.01|","|")
    If $nKey = 'R' Then
        Sleep($nDur)
    Else
        Beep($sPianolist[$nKey],$nDur)
    EndIf
EndFunc
Link to comment
Share on other sites
Joke758 Wayfarer

Joke758

Posted
Posted (edited)

Mario Underwater:

While 1
_42 ( 300 )
_44 ( 300 )
_46 ( 300 )
;
_47 ( 300 )
_49 ( 300 )
_50 ( 300 )
;
_51 ( 150 )
_51 ( 150 )
_51 ( 150 )
_R ( 150 )
_51 ( 150 )
_R ( 150 )
;
_51 ( 600 )
_47 ( 300 )
;
_56 ( 900 )
;
_55 ( 900 )
;
_56 ( 900 )
;
_R ( 150 )
_47 ( 150 )
_49 ( 150 )
_51 ( 150 )
_52 ( 150 )
_54 ( 150 )
;

_56 ( 900 )
;
_55 ( 600 )
_57( 300 )
;
_56 ( 900 )
;
_R ( 600+150 )
_47 ( 150 )
;
_54 ( 900 )
;
_53( 900 )
;
_54 ( 900 )
;

_R ( 150 )
_47 ( 150 )
_49 ( 150 )
_51 ( 150 )
_52 ( 150 )
_53 ( 150 )
;
_54 ( 900 )
;
_47 ( 600 )
_57 ( 300 )
;
_56 ( 900 )
;
_R ( 600+150 )
_47 ( 150 )
;
_59 ( 900 )
;
_59 ( 900 )
;
_59 ( 900 )
;
_59 ( 300 )
_61 ( 150 )
_R ( 300 )
_59 ( 150 )
;
_57 ( 900 )
;
_57 ( 900 )
;
_57 ( 900 )
;
_57 ( 300 )
_59 ( 150 )
_R ( 300 )
_57 ( 150 )
;
_56 ( 900 )
;
_49 ( 300 )
_51 ( 300 )
_57 ( 300 )
;
_56 ( 150 )
_56 ( 150 )
_56 ( 300 + 150)
_51 ( 150 )
;
_52 ( 900 )
WEnd
Edited by Joke758

[u]My Programs:[/u]Word Search Creator - Make your own Word SearchShortHand - Hide a secret message in a jpg fileHex Editor - Edit your Binary fileIncrease file size - Increase the size of any filesArt Generator - A program that generate random picture[u]My Functions:[/u]16-Bits Hash - My Hash function similar to MD5Probabilities - My probabilities function (factorial, permuation, combination)_GetDate() - Convert a date to a day of the week_Base(), _Dec() - Convert a number in any base (bin, oct, hex, dec). Create your own!

Link to comment
Share on other sites
Paulie Universalist

Paulie

Posted
  • Author
Posted

Mario Underwater:

While 1
_42 ( 300 )
_44 ( 300 )
_46 ( 300 )
;
_47 ( 300 )
_49 ( 300 )
_50 ( 300 )
;
_51 ( 150 )
_51 ( 150 )
_51 ( 150 )
_R ( 150 )
_51 ( 150 )
_R ( 150 )
;
_51 ( 600 )
_47 ( 300 )
;
_56 ( 900 )
;
_55 ( 900 )
;
_56 ( 900 )
;
_R ( 150 )
_47 ( 150 )
_49 ( 150 )
_51 ( 150 )
_52 ( 150 )
_54 ( 150 )
;

_56 ( 900 )
;
_55 ( 600 )
_57( 300 )
;
_56 ( 900 )
;
_R ( 600+150 )
_47 ( 150 )
;
_54 ( 900 )
;
_53( 900 )
;
_54 ( 900 )
;

_R ( 150 )
_47 ( 150 )
_49 ( 150 )
_51 ( 150 )
_52 ( 150 )
_53 ( 150 )
;
_54 ( 900 )
;
_47 ( 600 )
_57 ( 300 )
;
_56 ( 900 )
;
_R ( 600+150 )
_47 ( 150 )
;
_59 ( 900 )
;
_59 ( 900 )
;
_59 ( 900 )
;
_59 ( 300 )
_61 ( 150 )
_R ( 300 )
_59 ( 150 )
;
_57 ( 900 )
;
_57 ( 900 )
;
_57 ( 900 )
;
_57 ( 300 )
_59 ( 150 )
_R ( 300 )
_57 ( 150 )
;
_56 ( 900 )
;
_49 ( 300 )
_51 ( 300 )
_57 ( 300 )
;
_56 ( 150 )
_56 ( 150 )
_56 ( 300 + 150)
_51 ( 150 )
;
_52 ( 900 )
WEndoÝ÷ Ûú®¢×j¹â·*.mæ­ëh¶x¬çm)àêÞ²h§y©òÁ¬jëh×6While 1
_R(900)
_42 ( 300 )
_44 ( 300 )
_46 ( 300 )
_47 ( 300 )
_49 ( 300 )
_50 ( 300 )
_51 ( 150 )
_51 ( 150 )
_51 ( 150 )
_R ( 150 )
_51 ( 150 )
_R ( 150 )
_51 ( 600 )
_47 ( 300 )
_56 ( 900 )
_55 ( 900 )
_56 ( 900 )
_47 ( 150 )
_49 ( 150 )
_51 ( 150 )
_52 ( 150 )
_54 ( 300 )
_56 ( 900 )
_55 ( 600 )
_57( 300 )
_56 ( 900 )
_R(300)

_47(300)
_54(900)
_53(900)
_54(900)
_47(150)
_49(150)
_51(150)
_52(150)
_53(300)
_54(900)
_47(600)
_57(300)
_56(900)

_R(450)
_47(300)
_56(900)
_55(900)
_54(900)
_59(300)
_61(300)
_59(300)
_56(900)
_47(300)
_49(300)
_57(300)
_56(150)
_R(15)
_56(150)
_R(15)
_56(300)
_R(150)
_51(150)
_52(300)
Wend
Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...