FoxPro Tutorial & Source Code
* Author : Team of Pelagian Softwares
* Date : 11/11/2004
* Source : hbirth.prg
* Description : Program to Play 'Happy Birthday'
set talk off
?"Playing 'Happy Birthday'"
?
D1 = 293.7
E = 329.6
F = 370.0
G = 392
A = 440.0
B = 493.9
C = 523.3
D2 = 567
Minim = 12
Crotchet = 6
Quaver = 3
set bell to D1, Quaver
??chr(7)
??chr(7)
set bell to E, Crotchet
??chr(7)
set bell to D1, Crotchet
??chr(7)
set bell to G, Crotchet
??chr(7)
set bell to F, Minim
??chr(7)
set bell to D1, Quaver
??chr(7)
??chr(7)
set bell to E, Crotchet
??chr(7)
set bell to D1, Crotchet
??chr(7)
set bell to A, Crotchet
??chr(7)
set bell to G, Minim
??chr(7)
set bell to D1, Quaver
??chr(7)
??chr(7)
set bell to D2, Crotchet
??chr(7)
set bell to B, Crotchet
??chr(7)
set bell to G, Crotchet
??chr(7)
set bell to F, Crotchet
??chr(7)
set bell to E, Crotchet
??chr(7)
set bell to C, Quaver
??chr(7)
set bell to C, Quaver
??chr(7)
set bell to B, Crotchet
??chr(7)
set bell to G, Crotchet
??chr(7)
set bell to A, Crotchet
??chr(7)
set bell to G, Minim + Crotchet
??chr(7)
set bell to 512,2
Also download:
|
|
