' {$STAMP BS2}
' {$PBASIC 2.5}
' -----[ Title ]-----------------------------------------------------------------------
' Qué es un microcontrolador - YANKEE DOODLE
'---[Variables/constantes/Pins]---
FreqDetectable CON 3000
C6 CON 1047' notas del Piano
D6 CON 1175
E6 CON 1319
F6 CON 1397
G6 CON 1568
A6 CON 1760
Be6 CON 1976
C7 CON 2093
D7 CON 2349
E7 CON 2637
F7 2793
G7 CON 3136
A7 CON 3520
Ae7 CON 3951
C8 CON 4186' final de notas del piano
Piezospeaker pasador 4' altavoz
' -----[ Main Routine ]----------------------------------------------------------------
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, D7
PAUSE 50
FREQOUT Piezospeaker, 500, E7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, E7
PAUSE 50
FREQOUT Piezospeaker, 1000, D7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, D7
PAUSE 50
FREQOUT Piezospeaker, 500, E7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 1000, BE6
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, D7
PAUSE 50
FREQOUT Piezospeaker, 500, E7
PAUSE 50
FREQOUT Piezospeaker, 500, F7
PAUSE 50
FREQOUT Piezospeaker, 500, E7
PAUSE 50
FREQOUT Piezospeaker, 500, D7
PAUSE 50
FREQOUT Piezospeaker, 500, C7
PAUSE 50
FREQOUT Piezospeaker, 500, BE6
PAUSE 50
FREQOUT Piezospeaker, 500, G6
PAUSE 50
FREQOUT Piezospeaker, 500, A6
PAUSE 50
FREQOUT Piezospeaker, 500, BE6
PAUSE 50
FREQOUT Piezospeaker, 1000, C7
PAUSE 50
FREQOUT Piezospeaker, 1000, C7