play文、sound文

　　play文、sound文 たかし 2005/09/03 10:25:32 
　　└音楽を流すのが目的であれば，たとえば， 白石　和夫 2005/09/03 18:28:30 
　　　├どうもありがとうございました。 たかし 2005/09/04 22:18:08 
　　　└考えてみたのですが、 たかし 2005/09/06 19:32:43 
　　　　└play文は， 白石　和夫 2005/09/06 20:24:52 
　　　　　├WindowsAPIには，MIDI音源を鳴らすというも... 白石　和夫 2005/09/06 20:30:41 
　　　　　└MIDIを演奏したければ，たとえば， 白石　和夫 2005/09/06 20:54:04

　　play文、sound文 たかし 2005/09/03 10:25:32  ツリーへ

play文、sound文 返事を書く

たかし 2005/09/03 10:25:32

basicヘルプのTrue BASICとの相違のページに

「音楽機能
PLAY文，SOUND文
　　　　対応なし（本BASICのPLAY文とは機能が異なる）」
とあるのですが、プログラムの中に「play文、sound文」を取り入れて実行中に音楽が流れるようにすることはできますか。
　　　　　

　　└音楽を流すのが目的であれば，たとえば， 白石　和夫 2005/09/03 18:28:30  ツリーへ

Re: play文、sound文 返事を書く

白石　和夫 2005/09/03 18:28:30

音楽を流すのが目的であれば，たとえば，
（１）PLAY文でサウンドが記録されたファイルを指定する
（２）BEEPで音階と長さを指定する（Windows 2000/XPのとき）
（３）音楽関係のWindows APIを利用する
といった方法が考えられます。

　　　├どうもありがとうございました。 たかし 2005/09/04 22:18:08  ツリーへ

Re: 音楽を流すのが目的であれば，たとえば， 返事を書く

たかし 2005/09/04 22:18:08

どうもありがとうございました。
考えてみます。

　　　└考えてみたのですが、 たかし 2005/09/06 19:32:43  ツリーへ

Re: 音楽を流すのが目的であれば，たとえば， 返事を書く

たかし 2005/09/06 19:32:43

考えてみたのですが、
「PLAY文でサウンドが記録されたファイルを指定する」方法
「音楽関係のWindows APIを利用する」方法
の２つが分かりません。教えてもらえますか。
　

　　　　└play文は， 白石　和夫 2005/09/06 20:24:52  ツリーへ

Re: 考えてみたのですが、 返事を書く

白石　和夫 2005/09/06 20:24:52

play文は，
play "c:\windows\media\tada.wav"
のように使います。wavファイルにメディアプレーヤが関連付けられている場合は，メディアプレーヤが起動して，c:\windows\media\tada.wav を演奏します。
この方法の場合，関連付けられたプログラムが普通に起動するので，視覚的に邪魔です。

WIN32APIを使って

DECLARE EXTERNAL FUNCTION PlaySound
LET S$="C:\WINDOWS\MEDIA\TADA.WAV"
LET n=PlaySound(S$, "", 128)
END
EXTERNAL FUNCTION PlaySound(pszSound$, hmod$, fdwSound)
ASSIGN "winmm.dll","PlaySoundA"
END FUNCTION

とすれば，邪魔なプログラムが起動しません。

なお，WAVファイルそのものをBASICで合成することは可能なようですが，初心者向きの仕事ではありません。どうしてもやってみたいというのであれば，
http://hp.vector.co.jp/authors/VA008683/ExtProg.htm
からのリンクをたどって調べてください。

　　　　　├WindowsAPIには，MIDI音源を鳴らすというも... 白石　和夫 2005/09/06 20:30:41  ツリーへ

Re: play文は， 返事を書く

白石　和夫 2005/09/06 20:30:41

Windows　APIには，MIDI音源を鳴らすというものもあります。
たとえば，
http://homepage1.nifty.com/MADIA/vb/API/MidiOutShortMsg.htm

ただし，こちらも初心者向きではありませんし，質問されても答えられません。

　　　　　└MIDIを演奏したければ，たとえば， 白石　和夫 2005/09/06 20:54:04  ツリーへ

Re: play文は， 返事を書く

白石　和夫 2005/09/06 20:54:04

MIDIを演奏したければ，たとえば，
PLAY "C:\WINDOWS\MEDIA\town.mid"
のようにしてください。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

play文、sound文	返事を書く
たかし 2005/09/03 10:25:32
basicヘルプのTrue BASICとの相違のページに「音楽機能 PLAY文，SOUND文　　　　対応なし（本BASICのPLAY文とは機能が異なる）」とあるのですが、プログラムの中に「play文、sound文」を取り入れて実行中に音楽が流れるようにすることはできますか。

Re: play文、sound文	返事を書く
白石　和夫 2005/09/03 18:28:30
音楽を流すのが目的であれば，たとえば，（１）PLAY文でサウンドが記録されたファイルを指定する（２）BEEPで音階と長さを指定する（Windows 2000/XPのとき）（３）音楽関係のWindows APIを利用するといった方法が考えられます。

Re: 音楽を流すのが目的であれば，たとえば，	返事を書く
たかし 2005/09/04 22:18:08
どうもありがとうございました。考えてみます。

Re: 音楽を流すのが目的であれば，たとえば，	返事を書く
たかし 2005/09/06 19:32:43
考えてみたのですが、「PLAY文でサウンドが記録されたファイルを指定する」方法「音楽関係のWindows APIを利用する」方法の２つが分かりません。教えてもらえますか。

Re: 考えてみたのですが、	返事を書く
白石　和夫 2005/09/06 20:24:52
play文は， play "c:\windows\media\tada.wav" のように使います。wavファイルにメディアプレーヤが関連付けられている場合は，メディアプレーヤが起動して，c:\windows\media\tada.wav を演奏します。この方法の場合，関連付けられたプログラムが普通に起動するので，視覚的に邪魔です。 WIN32APIを使って DECLARE EXTERNAL FUNCTION PlaySound LET S$="C:\WINDOWS\MEDIA\TADA.WAV" LET n=PlaySound(S$, "", 128) END EXTERNAL FUNCTION PlaySound(pszSound$, hmod$, fdwSound) ASSIGN "winmm.dll","PlaySoundA" END FUNCTION とすれば，邪魔なプログラムが起動しません。なお，WAVファイルそのものをBASICで合成することは可能なようですが，初心者向きの仕事ではありません。どうしてもやってみたいというのであれば， http://hp.vector.co.jp/authors/VA008683/ExtProg.htm からのリンクをたどって調べてください。

Re: play文は，	返事を書く
白石　和夫 2005/09/06 20:30:41
Windows　APIには，MIDI音源を鳴らすというものもあります。たとえば， http://homepage1.nifty.com/MADIA/vb/API/MidiOutShortMsg.htm ただし，こちらも初心者向きではありませんし，質問されても答えられません。

Re: play文は，	返事を書く
白石　和夫 2005/09/06 20:54:04
MIDIを演奏したければ，たとえば， PLAY "C:\WINDOWS\MEDIA\town.mid" のようにしてください。