-1

私はしばらくの間、サウンドがどのように機能するのか、そしてどのようにパスカルに実装できるのかを学ぼうとしてきました。成功しません。私は 8 ビット サウンドを使い始め (8 ビットだと思います)、いくつかの曲 (マリオの曲など) をコピーしようとしました。いくつか質問があります。1. プログラムを使用して曲 (実際の曲) を再生する方法ブラウザからパスカルを解放するコード....? 私は本当にフリーパスカルが初めてです。

4

1 に答える 1

4

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

于 2014-12-31T12:07:27.327 に答える