Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

apocsantos

Reproduzir som com a PC Speacker

Recommended Posts

apocsantos

Boa tarde,

Andei aqui de volta das "velharias" e encontrei um pedaço de código que pode fazer jeito a alguem. É simples e ainda é do tempo do 386, mas permite tocar um som na PC Speaker. Para quem tiver mais paciência até dá para fazer musicas inteiras.

Program pcspeaker;
Uses Crt;
const SPEAKER_PORT = $61; {porta standard da PC Speaker}
var portval : byte;
begin
portval := Port[sPEAKER_PORT] and $FC;
begin
 Port[sPEAKER_PORT] := portval or 2;
 Delay(5);
 Port[sPEAKER_PORT] := portval;
 Delay(5);
end;
ReadKey;
end.

Cordiais cumprimentos,

Apocsantos


"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Share this post


Link to post
Share on other sites
thoga31

Husten, we have a problem...

Receio que o FPC não consiga compilar isso. Ele não reconhece "Port". Investiguei acerca de métodos que a RTL possua, e são todas para Linux.

Não se arranja nada para Windows? :D


Knowledge is free!

Share this post


Link to post
Share on other sites
apocsantos

Boa tarde,

@thoga31: Boa pergunta! Sei que para existem libs para Windows, para fazer isto, mas não de forma "directa" ao hardware. Este exemplo sei que funciona bem com Turbo Pascal em DOS, agora Windows ou GNU/Linux, não faço ideia!

Penso que exista alterantiva, para se trabalhar directamente com os endereços de hardware em FreePascal, de contrario existe a biblioteca SDL, para se reproduzir som.

Cordiais cumprimentos,

Apocsantos


"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Share this post


Link to post
Share on other sites
thoga31

Ah, os bons e velhos tempos do DOS... nostalgia :D

Hoje em dia é só com modernices, não se pode fazer nada como antes. Nem o método Sound funciona como deve ser, já! Enfim...

Anyway, um snippet muito interessante. Dava mesmo para começar uma conversa sobre a programação dos anos 80, assunto que me fascina :)

  • Vote 1

Knowledge is free!

Share this post


Link to post
Share on other sites
apocsantos

Boa noite,

@thoga31: abre o tópico da conversa, que eu cá estou para participar!

Cordiais cumprimentos,

Apocsantos


"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Share this post


Link to post
Share on other sites
thoga31

@thoga31: abre o tópico da conversa, que eu cá estou para participar!

Right away, sir :D


Knowledge is free!

Share this post


Link to post
Share on other sites
nunopicado

Cheguei a fazer um "virus" nos tempos de escola baseado no PC Speaker...

Ele tocava os parabéns de cada vez que o PC arrancava, e não havia maneira de passar à frente sem ouvir por completo a estridente sinfonia...

Claro, a não ser que alguém fosse tirar o exe do autoexec.bat! ehheeheheh


"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.