kapiaba Posted November 25, 2014 Report Share Posted November 25, 2014 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 Quote Link to comment Share on other sites More sharing options...
Euclidao Posted November 25, 2014 Report Share Posted November 25, 2014 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 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 25, 2014 Author Report Share Posted November 25, 2014 Obg. Euclides. Abraços. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.