Beethoven
Publicado por Thiago 23/03/2006
[ Hits: 9.001 ]
Este programa toca o hino da alegria de Beethoven.
Não está com a rítmica perfeita mas o que vale é a intenção.
Este programa só funciona no Windows mas irei postar uma versão para Linux.
/* Programa: beethoven.c Autor: thiagoamm Data: 23/03/06 */ /* Bibliotecas internas */ #include <stdio.h> #include <stdlib.h> #include <windows.h> /* Pausas */ #define breve 8000 #define semibreve 4000 #define minima 2000 #define seminima 1000 #define colcheia 500 #define semicolcheia 250 #define fusa 125 #define semifusa 62.5 /* Frequencia das notas */ #define DO 261 #define RE 294 #define MI 326 #define FA 348 #define SOL 391 #define LA 435 #define SI 489 #define Do 522 /* Funcao principal */ int main(void) { int i; for (i = 0; i <= 1000; i++) { /* Primeira parte */ Beep(MI,colcheia);Beep(MI,colcheia);Beep(FA,colcheia); Beep(SOL,colcheia);Beep(SOL,colcheia);Beep(FA,colcheia); Beep(MI,colcheia);Beep(RE,colcheia);Beep(DO,colcheia); Beep(DO,colcheia);Beep(RE,colcheia);Beep(MI,colcheia); Beep(MI,700);Beep(RE,semicolcheia);Beep(RE,seminima); /* Pausa */ Beep(0,semibreve); /* Segunda parte */ Beep(MI,colcheia);Beep(MI,colcheia);Beep(FA,colcheia); Beep(SOL,colcheia);Beep(SOL,colcheia);Beep(FA,colcheia); Beep(MI,colcheia);Beep(RE,colcheia);Beep(DO,colcheia); Beep(DO,colcheia);Beep(RE,colcheia);Beep(MI,colcheia); Beep(RE,600);Beep(RE,300);Beep(DO,350);Beep(DO,600); /* Pausa */ Beep(0,semibreve); /* Terceira parte */ Beep(RE,colcheia);Beep(RE,colcheia);Beep(MI,colcheia);Beep(DO,colcheia); Beep(RE,colcheia);Beep(FA,colcheia);Beep(MI,colcheia);Beep(DO,colcheia); Beep(RE,colcheia);Beep(FA,colcheia);Beep(MI,colcheia);Beep(DO,colcheia); Beep(RE,colcheia);Beep(SOL,500);Beep(SOL,900); /* Pausa */ Beep(0,semibreve); /* BIS --> Seguna parte */ Beep(MI,colcheia);Beep(MI,colcheia);Beep(FA,colcheia); Beep(SOL,colcheia);Beep(SOL,colcheia);Beep(FA,colcheia); Beep(MI,colcheia);Beep(RE,colcheia);Beep(DO,colcheia); Beep(DO,colcheia);Beep(RE,colcheia);Beep(MI,colcheia); Beep(RE,600);Beep(RE,300);Beep(DO,350);Beep(DO,600); /* Pausa */ Beep(0,breve); } return(0); }
Ordenar vetor - ordenação bolha
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Desktop Linux ganha novos apps enquanto IA invade o noticiário
Blender 5.0 Beta, Firefox 144 e avanço da IA dominam o dia no mundo Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Baixar jogos Independentes para Ubuntu [RESOLVIDO] (4)
PIP3 - erro ao instalar módulo do mariadb para o Python (1)
Linux x Plataformas de Trading - um problema (in-)solúvel? (4)