Beethoven
Publicado por Thiago 23/03/2006
[ Hits: 9.161 ]
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);
}
gerenciador de historico de comandos
Converte segundos para horas, minutos e segundos
File Browser: Crie sua Nuvem Pessoal Privada
A produção de áudio e vídeo no Linux e as distribuições dedicadas a esse fim
Criptografando sua Home com Gocryptfs para tristeza do meliante
A Involução do Linux e as Lambanças Desnecessárias desde o seu Lançamento
O Journal no Linux para a guarda e consulta de logs do sistema
Gerenciamento de Vídeo Híbrido (Intel/NVIDIA) via nvidia-prime no Ubuntu e derivados
Assistindo IPTV no Linux com Fred TV e Lista Free TV
Impressora Tomate MDK-007 no Ubuntu (ou qualquer distro Linux)
Acelerando a compilação de pacotes no Arch Linux (AUR) usando todos os núcleos do processador
Entendendo o Maven com JavaFX (0)
Tive um problema ao abrir minha partição Btrfs. Como posso resolver is... (1)
Enquete: qual bloco de código C++ é mais legível? (4)
Warsaw não é reconhecido no Google Chrome 147.0.7727.55 [RESOLVIDO] (11)









