by Silvio.Falconi » Tue Nov 25, 2014 12:26 pm
Antonio, it for you
compile it please and up the volume of your pc
#include "FiveWin.ch"
REQUEST HB_GT_GUI_DEFAULT
Function ForAntonio()
local i
local a := { { 392, 3 }, { 392, 1 }, { 440, 4 }, { 392, 4 }, ;
{ 523.3, 4 }, { 493.9, 8 }, { 392, 3 }, { 392, 1 }, ;
{ 440, 4 }, { 392, 4 }, { 523.3, 4 }, { 493.9, 8 }, ;
{ 393, 3 }, { 392, 1 }, { 784, 4 }, { 659.2, 4 }, ;
{ 523.3, 4 }, { 493, 4 }, { 440, 4 }, { 698.4, 3 }, ;
{ 698.4, 1 }, { 659.2, 4 }, { 523.3, 4 }, { 587.4, 4 }, ;
{ 523.4, 8 } }
for i := 1 to len( a )
tone( a[ i, 1 ], a[ i, 2 ] * 2 )
next
return
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com