Звучит в турбо паскале. Как они работают?

Question

Некоторое время я пытался узнать, как работает звук и как я могу реализовать его в паскале. Нет успеха. Я начал использовать 8-битный звук (я считаю, что они 8-битные) и попытался скопировать некоторые песни (например, песню Mario). У меня есть несколько вопросов. 1. Как я могу использовать программы для воспроизведения песни (настоящей песни) 2. Есть ли сайт, который дает 8-битные песни, но в коде (частота и продолжительность) И один не связанный вопрос.... Есть ли способ скопировать код из браузера на бесплатный паскаль....? Я действительно новичок в свободном паскале.

Answer 1

TP не обновлялся в течение 20 лет, я бы предложил использовать Freepascal, который намного лучше и постоянно обновляется.

Кроме этого, в TP вы не сможете воспроизводить песню (mp3, ogg), если не напишите код, чтобы сделать это самостоятельно. Вы можете найти некоторые старые программы для воспроизведения DOS mp3, которые имеют исходный код, но удачи в этом.

Если вы собираетесь проигрывать простые тоны, тогда все, что вам нужно, это sound() и delay(), но я думаю, вы уже сделали это? Просто случай чтения списка тонов и длительностей. Если вы хотите делать другие вещи в своем коде, пока это происходит, вам нужно будет следить за временем, прошедшим с момента запуска тона, и как только он достигнет длины тона или больше, затем переключитесь на следующий тональный сигнал.

псевдокод ниже:

var tlength : integer;
    starttime : integer;

procedure readtone; 
var tone: byte; 
begin   
  if (starttime+nowtime >= tlength) then 
  begin   
    tone:=read from file
    tlength:=read from file
    starttime:=now
    sound(tone)   
  end; 
end;

begin   
  repeat
    readtone;
    do something else   
  until done 
end.

В Freepascal вы можете выбрать легкий путь: http://wiki.freepascal.org/Multimedia_Programming