HAPPY BIRTHDAY ANTONIO

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29686

#include "FiveWin.ch"
 
REQUEST HB_GT_GUI_DEFAULT
 
Function ForAntonio()  // HAPPY BIRTHDAY ANTONIO
 
   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

[Euclidao]

Kapi, este parabens-a-você está desafinado...

experimente este...

Function 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 nil

... em todo caso, FELIZ ANIVERSÁRIO ANTONIO!!

T+

Euclides

[kapiaba]

Obg. Euclides. Abraços.