October 09, 2024, 04:35:16 PM

News:

IWBasic runs in Windows 11!


Playing with BEEP

Started by billhsln, December 08, 2021, 07:47:02 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

billhsln

This is supposed to be "My Bonnie lies over the ocean".  It is a little off, but I am kind of a tin ear.  So I thought that maybe some one else would like to play with it and maybe create a few short songs.

SUB endbeep()
BEEP(392,190)
BEEP(659,190)
BEEP(587,190)
BEEP(523,190)
BEEP(587,190)
BEEP(523,190)
BEEP(440,190)
BEEP(392,190)
BEEP(330,660)
BEEP(392,190)
BEEP(659,190)
BEEP(587,190)
BEEP(523,190)
BEEP(523,190)
BEEP(494,190)
BEEP(523,190)
BEEP(587,660)
RETURN
ENDSUB

Here is what I started from:

' dwFreq - frequency in hertz
' dwDuration - duration in milliseconds
Declare "kernel32.dll",Beep(dwFreq As int,  dwDuration As int),int
beep(600,50)

/*  play Bonnie with Beep

Frequency is any literal or variable value from 37 to 32767, but 0 is allowed for delays.
Duration is any literal or variable number of TIMER ticks with a duration of 1/18th second. 18 = one second.

Note: I don't think that 18 is 1 second, 190 seems to work better for me.

READ note%, duration%, word$

DATA 392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies ",587,8,"O-",523,8,"Ver ",440,8,"the "
DATA 392,8,"O-",330,32,"cean ",392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies "
DATA 523,8,"O-",494,8,"ver ",523,8,"the ",587,40,"sea ",392,8,"My ",659,8,"Bon-",587,8,"nie"
DATA 523,8," lies ",587,8,"O-",523,8,"ver ",440,8,"the ",392,8,"O-",330,32,"cean ",392,8,"Oh "
DATA 440,8,"bring ",587,8,"back ",523,8,"my ",494,8,"Bon-",440,8,"nie ",494,8,"to ",523,32,"me..!"
*/

/*
                             The Seven Music Octaves 
     
         Note     Frequency      Note     Frequency      Note      Frequency
       1* D#1 ...... 39           G3 ....... 196          A#5 ...... 932
          E1 ....... 41           G#3 ...... 208          B5 ....... 988
          F1 ....... 44           A3 ....... 220       6* C6 ....... 1047
          F#1 ...... 46           A#3 ...... 233          C#6 ...... 1109
          G1 ....... 49           B3 ....... 247          D6 ....... 1175
          G#1 ...... 51        4* C4 ....... 262          D#6 ...... 1245
          A1 ....... 55           C#4 ...... 277          E6 ....... 1318
          A#1 ...... 58           D4 ....... 294          F6 ....... 1397
          B1 ....... 62           D#4 ...... 311          F#6 ...... 1480
       2* C2 ....... 65           E4 ....... 330          G6 ....... 1568
          C#2 ...... 69           F4 ....... 349          G# ....... 1661
          D2 ....... 73           F#4 ...... 370          A6 ....... 1760
          D#2 ...... 78           G4 ....... 392          A#6 ...... 1865
          E2 ....... 82           G#4 ...... 415          B6 ....... 1976
          F2 ....... 87           A4 ....... 440       7* C7 ....... 2093
          F#2 ...... 92           A# ....... 466          C#7 ...... 2217
          G2 ....... 98           B4 ....... 494          D7 ....... 2349
          G#2 ...... 104       5* C5 ....... 523          D#7 ...... 2489
          A2 ....... 110          C#5 ...... 554          E7 ....... 2637
          A#2 ...... 117          D5 ....... 587          F7 ....... 2794
          B2 ....... 123          D#5 ...... 622          F#7 ...... 2960
       3* C3 ....... 131          E5 ....... 659          G7 ....... 3136
          C#3 ...... 139          F5 ....... 698          G#7 ...... 3322
          D3 ....... 147          F#5 ...... 740          A7 ....... 3520
          D#3 ...... 156          G5 ....... 784          A#7 ...... 3729
          E3 ....... 165          G#5 ...... 831          B7 ....... 3951
          F3 ....... 175          A5 ....... 880       8* C8 ....... 4186
          F#3 ...... 185 
                                 # denotes sharp
*/

Maybe some one more musically inclined than me can come up with more?

Enjoy,
Bill
When all else fails, get a bigger hammer.

Brian

Sounds good to me, Bill - I even recognised the tune!

Attached a CONSOLE version for anyone wishing to try it

Brian

billhsln

Found a few songs (a few I don't recognize).

Enjoy,
Bill
When all else fails, get a bigger hammer.

Brian

There were some stinkers in there, Bill. Thought I was good on music, but they defeated me. Tidied it up a little for you

Brian