Reproduzir som com a PC Speacker

[apocsantos 220]

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

[thoga31 609]

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?

[apocsantos 220]

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

[thoga31 609]

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

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

[apocsantos 220]

Boa noite,

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

Cordiais cumprimentos,

Apocsantos

[thoga31 609]

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

Right away, sir

[nunopicado 1136]

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