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
Sounds good to me, Bill - I even recognised the tune!
Attached a CONSOLE version for anyone wishing to try it
Brian
Found a few songs (a few I don't recognize).
Enjoy,
Bill
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