apocsantos Posted December 28, 2012 Report Share Posted December 28, 2012 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" Link to comment Share on other sites More sharing options...
thoga31 Posted December 28, 2012 Report Share Posted December 28, 2012 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? 😄 Knowledge is free! Link to comment Share on other sites More sharing options...
apocsantos Posted December 28, 2012 Author Report Share Posted December 28, 2012 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" Link to comment Share on other sites More sharing options...
thoga31 Posted December 28, 2012 Report Share Posted December 28, 2012 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 🙂 1 Report Knowledge is free! Link to comment Share on other sites More sharing options...
apocsantos Posted December 30, 2012 Author Report Share Posted December 30, 2012 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" Link to comment Share on other sites More sharing options...
thoga31 Posted December 30, 2012 Report Share Posted December 30, 2012 @thoga31: abre o tópico da conversa, que eu cá estou para participar! Right away, sir 😄 Knowledge is free! Link to comment Share on other sites More sharing options...
nunopicado Posted December 30, 2012 Report Share Posted December 30, 2012 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. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now