音も出るBASIC 哲 2004/04/17 17:53:44 └ありがとうございました。 koba 2004/04/18 07:09:52 └少し問題ありで追記 哲 2004/04/18 10:46:28
音も出るBASIC 哲 2004/04/17 17:53:44 ツリーへ
| 音も出るBASIC |
返事を書く |
| 哲 2004/04/17 17:53:44 | |
|
以前kobaさんより「NHKの時報のような音を作りたいです。」 と言う希望がありましたが９○系でDLLを利用して作成して見ました。 DECLARE EXTERNAL FUNCTION PlaySound LET S$="C:\WINDOWS\MEDIA\Chord.wav" LET n=PlaySound(S$, "", 128) LET S$="C:\WINDOWS\MEDIA\Ding.wav" LET n=PlaySound(S$, "", 128) END EXTERNAL FUNCTION PlaySound(pszSound$, hmod$, fdwSound) ASSIGN "winmm.dll","PlaySoundA" END FUNCTION .wavのところに希望するwavファイルを作成して記述すればどんなサウンドでも発生できます。 wavファイルはフリーソフトのOSCILLATER（低周波発振機）などを利用して作ってください。 |
|
└ありがとうございました。 koba 2004/04/18 07:09:52 ツリーへ
| Re: 音も出るBASIC |
返事を書く |
| koba 2004/04/18 07:09:52 | |
|
ありがとうございました。 昔、ＰＣ−９８の時代に 確か ＰＬＡＹ ＳＯＵＮＤの ような コマンドを使用した記憶があり、 書き込みをしたような訳です。 感謝します。 |
|
└少し問題ありで追記 哲 2004/04/18 10:46:28 ツリーへ
| Re: ありがとうございました。 |
返事を書く |
| 哲 2004/04/18 10:46:28 | |
|
少し問題ありで追記 フリーソフトのOSCILLATERのWAVファイルは8Bitですし問題があります。 サウンドレコーダーを使って16Bitに変換したり、音の大きさ、長さを編集してください。 |
|