Beethoven
Publicado por Thiago 23/03/2006
[ Hits: 9.084 ]
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);
}
Rotacionamento de um Retângulo utilizando herança
Bhaskara - Cálculo de raízes de equações do segundo grau
Função para escrita de um número em notação binária através de recursão
Trabalhando Nativamente com Logs no Linux
Jogando Daikatana (Steam) com Patch 1.3 via Luxtorpeda no Linux
LazyDocker – Interface de Usuário em Tempo Real para o Docker
O widget do Plasma 6 Área de Notificação
[Resolvido] Algo deu errado ao abrir seu perfil
[Resolvido] Conselho distribuiçao brasileira (9)
Quero instalar, configurar, setar tamanho do rsyslog. (3)









