CA Clipper Tutorial & Source Code
* Author : Team of Pelagian Softwares * Date : 01/04/2007 * Source : hbirth.prg * Description : Function to Play 'Happy Birthday'
birthday()
proc BirthDay()
local D1 := 293.7 local E := 329.6 local F := 370.0 local G := 392 local A := 440.0 local B := 493.9 local C := 523.3 local D2 := 567 local Minim := 12 local Crotchet := 6 local Quaver := 3
tone( D1, Quaver ) tone( D1, Quaver ) tone( E, Crotchet ) tone( D1, Crotchet ) tone( G, Crotchet ) tone( F, Minim ) tone( D1, Quaver ) tone( D1, Quaver ) tone( E, Crotchet ) tone( D1, Crotchet ) tone( A, Crotchet ) tone( G, Minim ) tone( D1, Quaver ) tone( D1, Quaver ) tone( D2, Crotchet ) tone( B, Crotchet ) tone( G, Crotchet ) tone( F, Crotchet ) tone( E, Crotchet ) tone( C, Quaver ) tone( C, Quaver ) tone( B, Crotchet ) tone( G, Crotchet ) tone( A, Crotchet ) tone( G, Minim + Crotchet )
return
Also download:
|
|
Category for
CA Clipper
|
Sound
|
|
|
|