Juntar dos codigos y funcionen al mismo tiempo

International Español
1

Hola, quisiera ayuda para poder correr en paralelo dos programas teniendo sus codigos.

Código
Mensaje con Scroll suave e infinito.

 #include <MaxMatrix.h>
//#include <avr/pgmspace.h>
PROGMEM const byte CH[] = {
3, 8, B0000000, B0000000, B0000000, B0000000, B0000000, // space
1, 8, B1011111, B0000000, B0000000, B0000000, B0000000, // !
3, 8, B0000011, B0000000, B0000011, B0000000, B0000000, // "
5, 8, B0010100, B0111110, B0010100, B0111110, B0010100, // #
4, 8, B0100100, B1101010, B0101011, B0010010, B0000000, // $
5, 8, B1100011, B0010011, B0001000, B1100100, B1100011, // %
5, 8, B0110110, B1001001, B1010110, B0100000, B1010000, // &
1, 8, B0000011, B0000000, B0000000, B0000000, B0000000, // '
3, 8, B0011100, B0100010, B1000001, B0000000, B0000000, // (
3, 8, B1000001, B0100010, B0011100, B0000000, B0000000, // )
5, 8, B0101000, B0011000, B0001110, B0011000, B0101000, // *
5, 8, B0001000, B0001000, B0111110, B0001000, B0001000, // +
2, 8, B10110000, B1110000, B0000000, B0000000, B0000000, // ,
4, 8, B0001000, B0001000, B0001000, B0001000, B0000000, // -
2, 8, B1100000, B1100000, B0000000, B0000000, B0000000, // .
4, 8, B1100000, B0011000, B0000110, B0000001, B0000000, // /
4, 8, B0111110, B1000001, B1000001, B0111110, B0000000, // 0
3, 8, B1000010, B1111111, B1000000, B0000000, B0000000, // 1
4, 8, B1100010, B1010001, B1001001, B1000110, B0000000, // 2
4, 8, B0100010, B1000001, B1001001, B0110110, B0000000, // 3
4, 8, B0011000, B0010100, B0010010, B1111111, B0000000, // 4
4, 8, B0100111, B1000101, B1000101, B0111001, B0000000, // 5
4, 8, B0111110, B1001001, B1001001, B0110000, B0000000, // 6
4, 8, B1100001, B0010001, B0001001, B0000111, B0000000, // 7
4, 8, B0110110, B1001001, B1001001, B0110110, B0000000, // 8
4, 8, B0000110, B1001001, B1001001, B0111110, B0000000, // 9
2, 8, B01010000, B0000000, B0000000, B0000000, B0000000, // :
2, 8, B10000000, B01010000, B0000000, B0000000, B0000000, // ;
3, 8, B0010000, B0101000, B1000100, B0000000, B0000000, // <
3, 8, B0010100, B0010100, B0010100, B0000000, B0000000, // =
3, 8, B1000100, B0101000, B0010000, B0000000, B0000000, // >
4, 8, B0000010, B1011001, B0001001, B0000110, B0000000, // ?
5, 8, B0111110, B1001001, B1010101, B1011101, B0001110, // @
4, 8, B1111110, B0010001, B0010001, B1111110, B0000000, // A
4, 8, B1111111, B1001001, B1001001, B0110110, B0000000, // B
4, 8, B0111110, B1000001, B1000001, B0100010, B0000000, // C
4, 8, B1111111, B1000001, B1000001, B0111110, B0000000, // D
4, 8, B1111111, B1001001, B1001001, B1000001, B0000000, // E
4, 8, B1111111, B0001001, B0001001, B0000001, B0000000, // F
4, 8, B0111110, B1000001, B1001001, B1111010, B0000000, // G
4, 8, B1111111, B0001000, B0001000, B1111111, B0000000, // H
3, 8, B1000001, B1111111, B1000001, B0000000, B0000000, // I
4, 8, B0110000, B1000000, B1000001, B0111111, B0000000, // J
4, 8, B1111111, B0001000, B0010100, B1100011, B0000000, // K
4, 8, B1111111, B1000000, B1000000, B1000000, B0000000, // L
5, 8, B1111111, B0000010, B0001100, B0000010, B1111111, // M
5, 8, B1111111, B0000100, B0001000, B0010000, B1111111, // N
4, 8, B0111110, B1000001, B1000001, B0111110, B0000000, // O
4, 8, B1111111, B0001001, B0001001, B0000110, B0000000, // P
4, 8, B0111110, B1000001, B1000001, B10111110, B0000000, // Q
4, 8, B1111111, B0001001, B0001001, B1110110, B0000000, // R
4, 8, B1000110, B1001001, B1001001, B0110010, B0000000, // S
5, 8, B0000001, B0000001, B1111111, B0000001, B0000001, // T
4, 8, B0111111, B1000000, B1000000, B0111111, B0000000, // U
5, 8, B0001111, B0110000, B1000000, B0110000, B0001111, // V
5, 8, B0111111, B1000000, B0111000, B1000000, B0111111, // W
5, 8, B1100011, B0010100, B0001000, B0010100, B1100011, // X
5, 8, B0000111, B0001000, B1110000, B0001000, B0000111, // Y
4, 8, B1100001, B1010001, B1001001, B1000111, B0000000, // Z
2, 8, B1111111, B1000001, B0000000, B0000000, B0000000, // [
4, 8, B0000001, B0000110, B0011000, B1100000, B0000000, // backslash
2, 8, B1000001, B1111111, B0000000, B0000000, B0000000, // ]
3, 8, B0000010, B0000001, B0000010, B0000000, B0000000, // hat
4, 8, B1000000, B1000000, B1000000, B1000000, B0000000, // _
2, 8, B0000001, B0000010, B0000000, B0000000, B0000000, // `
4, 8, B0100000, B1010100, B1010100, B1111000, B0000000, // a
4, 8, B1111111, B1000100, B1000100, B0111000, B0000000, // b
4, 8, B0111000, B1000100, B1000100, B0101000, B0000000, // c
4, 8, B0111000, B1000100, B1000100, B1111111, B0000000, // d
4, 8, B0111000, B1010100, B1010100, B0011000, B0000000, // e
3, 8, B0000100, B1111110, B0000101, B0000000, B0000000, // f
4, 8, B10011000, B10100100, B10100100, B01111000, B0000000, // g
4, 8, B1111111, B0000100, B0000100, B1111000, B0000000, // h
3, 8, B1000100, B1111101, B1000000, B0000000, B0000000, // i
4, 8, B1000000, B10000000, B10000100, B1111101, B0000000, // j
4, 8, B1111111, B0010000, B0101000, B1000100, B0000000, // k
3, 8, B1000001, B1111111, B1000000, B0000000, B0000000, // l
5, 8, B1111100, B0000100, B1111100, B0000100, B1111000, // m
4, 8, B1111100, B0000100, B0000100, B1111000, B0000000, // n
4, 8, B0111000, B1000100, B1000100, B0111000, B0000000, // o
4, 8, B11111100, B0100100, B0100100, B0011000, B0000000, // p
4, 8, B0011000, B0100100, B0100100, B11111100, B0000000, // q
4, 8, B1111100, B0001000, B0000100, B0000100, B0000000, // r
4, 8, B1001000, B1010100, B1010100, B0100100, B0000000, // s
3, 8, B0000100, B0111111, B1000100, B0000000, B0000000, // t
4, 8, B0111100, B1000000, B1000000, B1111100, B0000000, // u
5, 8, B0011100, B0100000, B1000000, B0100000, B0011100, // v
5, 8, B0111100, B1000000, B0111100, B1000000, B0111100, // w
5, 8, B1000100, B0101000, B0010000, B0101000, B1000100, // x
4, 8, B10011100, B10100000, B10100000, B1111100, B0000000, // y
3, 8, B1100100, B1010100, B1001100, B0000000, B0000000, // z
3, 8, B0001000, B0110110, B1000001, B0000000, B0000000, // {
1, 8, B1111111, B0000000, B0000000, B0000000, B0000000, // |
3, 8, B1000001, B0110110, B0001000, B0000000, B0000000, // }
4, 8, B0001000, B0000100, B0001000, B0000100, B0000000, // ~
};

int data = 12;
int load = 10;
int clock = 11;
int maxInUse = 4; //change this variable to set how many MAX7219's you'll use
MaxMatrix m(data, load, clock, maxInUse);
byte buffer[10];
char myStr[] = "Juan Antonio - KIO4.COM ";
int i;

void setup()
{
m.init();
m.setIntensity(8);
Serial.begin(9600);
}

void loop()
{
/* while (Serial.available() > 0)
{
byte c = Serial.read();
Serial.println(c, DEC);
printCharWithShift(c, 100);
}
*/

for (i = 0; i < sizeof(myStr) - 1; i++){
Serial.print(i, DEC);
Serial.print(" = ");
Serial.write(myStr[i]);
printCharWithShift(myStr[i], 100);
Serial.println();
}
delay(100);
m.shiftLeft(false, true);

}

void printCharWithShift(char c, int shift_speed)
{
if (c < 32) return;
c -= 32;
memcpy_P(buffer, CH + 7*c, 7);
m.writeSprite(32, 0, buffer);
m.setColumn(32 + buffer[0], 0);

for (int i=0; i<buffer[0]+1; i++) 
{
delay(shift_speed);
m.shiftLeft(false, false);
}
}

void printStringWithShift(char* s, int shift_speed)
{
while (*s != 0)
{
printCharWithShift(*s, shift_speed);
s++;
}
}

y el otro sobre musica en 9 bit

int tonePin = 9;
int MUSIC_BUTTON = 8 ;


void setup() {
  
pinMode(MUSIC_BUTTON, INPUT_PULLUP);
  pinMode(tonePin, OUTPUT);


}

void loop() {
  
  if(digitalRead(MUSIC_BUTTON) == LOW)
  {
    PlayMusic();   
  }
  noTone(tonePin);
}

void PlayMusic() {

    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1479, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 1244, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1318, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1479, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 1244, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1318, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1479, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 1244, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1318, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1479, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 162.321645);
    delay(180.357383333);
    delay(10.1190611111);
    tone(tonePin, 1479, 162.321645);
    delay(180.357383333);
    delay(10.1190611111);
    tone(tonePin, 1479, 162.321645);
    delay(180.357383333);
    delay(10.1190611111);
    tone(tonePin, 1479, 162.321645);
    delay(180.357383333);
    delay(10.1190611111);
    tone(tonePin, 1479, 162.321645);
    delay(180.357383333);
    delay(10.1190611111);
    tone(tonePin, 1479, 162.321645);
    delay(180.357383333);
    delay(10.1190611111);
    tone(tonePin, 311, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 311, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 311, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    delay(142.857333333);
    tone(tonePin, 369, 725.893825);
    delay(806.548694444);
    tone(tonePin, 739, 6.42858);
    delay(7.14286666667);
    delay(43.4524388889);
    tone(tonePin, 739, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 854.465425);
    delay(949.406027778);
    delay(50.5953055556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1318, 182.678815);
    delay(202.976461111);
    delay(11.3095388889);
    tone(tonePin, 1244, 182.678815);
    delay(202.976461111);
    delay(11.3095388889);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 830, 976.608445);
    delay(1085.12049444);
    delay(629.167505556);
    tone(tonePin, 987, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1318, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1318, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 1098.751465);
    delay(1220.83496111);
    delay(922.025038889);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 488.036365);
    delay(542.262627778);
    delay(457.738705556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 182.678815);
    delay(202.976461111);
    delay(11.3095388889);
    tone(tonePin, 622, 182.678815);
    delay(202.976461111);
    delay(11.3095388889);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 365.893345);
    delay(406.548161111);
    delay(1307.73983889);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 554, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 610.179385);
    delay(677.977094444);
    delay(1179.16823889);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 554, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 610.179385);
    delay(677.977094444);
    delay(1750.59757222);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1479, 488.036365);
    delay(542.262627778);
    delay(314.881372222);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 932, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 243.750325);
    delay(270.833694444);
    delay(157.738305556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 854.465425);
    delay(949.406027778);
    delay(50.5953055556);
    tone(tonePin, 466, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 488.036365);
    delay(542.262627778);
    delay(29.1667055556);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 365.893345);
    delay(406.548161111);
    delay(22.0238388889);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 466, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 466, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 466, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 659, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(150.595438889);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 466, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 349, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 349, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 329, 488.036365);
    delay(542.262627778);
    delay(29.1667055556);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 488.036365);
    delay(542.262627778);
    delay(29.1667055556);
    tone(tonePin, 369, 732.322405);
    delay(813.691561111);
    delay(43.4524388889);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 854.465425);
    delay(949.406027778);
    delay(50.5953055556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 854.465425);
    delay(949.406027778);
    delay(50.5953055556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 610.179385);
    delay(677.977094444);
    delay(179.166905556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(150.595438889);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 488.036365);
    delay(542.262627778);
    delay(29.1667055556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 610.179385);
    delay(677.977094444);
    delay(179.166905556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 493, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(150.595438889);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 493, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 488.036365);
    delay(542.262627778);
    delay(29.1667055556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 415, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 554, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 622, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 369, 121.607305);
    delay(135.119227778);
    delay(1150.59677222);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 739, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1244, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 1108, 243.750325);
    delay(270.833694444);
    delay(14.8809722222);
    tone(tonePin, 987, 121.607305);
    delay(135.119227778);
    delay(7.73810555556);
    tone(tonePin, 987, 1343.037505);
    delay(1492.26389444);
}
2

If you prefer to write in spanish,

use the spanish subforum.

Othewise use google-translate

best regards Stefan

3

Todo lo que tiene delay() es un bloqueo al programa.
No uses delay() o tendras siempre estos problemas.

Entonces qué uso?
Ve a Documentación y aprende sobre millis() y máquina de estados.

4

Agrego a lo que te dice @Surbyte que la función delay() solo admite como parámetro un unsigned long (entero largo) por lo tanto

terminan convertidos en

delay(135);
delay(7);

ya que los decimales se eliminan.

No se de donde bajaste ese código pero es evidente que el programador no sabía demasiado ya que conocer el tipo de datos a pasar a una función es algo básico.
Yo desconfiaría de ese código.

Saludos

Agrego: El mismo error cometido con la función tone(). El tercer parámetro (duración) también debe ser unsigned log por lo tanto también será truncado.

5

Internet, plagado de gente que pone lo que le parece y abusa del delay().
Una cosa es hacer una melodia secuencial con delay() y podemos hacer las que gustes estilo PSP pero otra es hacer algo que responda a comandos.
El delay solo te traerá problemas siempre.