【音声を扱うプログラム】

　あらかじめサウンドレコーダーを使って松尾芭蕉を紹介するｗａｖｅファイルを作成しておき、ＶｉｓｕａｌＢａｓｉｃのプログラムでスピーカーから音声を流す。

　ポイントは　Ｗｉｎｄｏｗｓ　ＡＰＩ　である

　　Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA " (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
　　Const SND_SYNC = &H0
　　Const SND_ASYNC = &H1
　　Const SND_NODEFAULT = &H2
　　Const SND_MEMORY = &H4
　　Const SND_LOOP = &H8
　　Const SND_NOSTOP = &H10

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal udeviceid As Long, ByVal dwVolume As Long) As Long

　の部分と、使用するときの

　　throw& = waveOutSetVolume(0, &HF000& + &HF0000000)
　　throw& = sndPlaySound(fname, SND_SYNC)
　　throw& = sndPlaySound("Exit", SND_SYNC)

　の部分である。

１．素材の作成

　　次のような朗読音声をｗａｖｅ形式で作成しておく。

　　ｂａｓｈｏ．ｗａｖ

　　なお、"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\"

　　の中にサンプルがあるので、今回はそれを使用する。

２．インターフェイスの作成

（１）コマンドボタンを２つ配置する。

（２）タイマーを１つ配置する。

３．プロパティの設定

４．コードの記述

［プログラム全文］

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA " (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_MEMORY = &H4
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal udeviceid As Long, ByVal dwVolume As Long) As Long

Dim fname As String

Private Sub command1_click()
　　Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
　　End
End Sub

Private Sub Form_Load()
　　fname = "f:\石山研究室(hyosiから開く)\basho.wav"
　　'↑は実習では、
　　'"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\basho.wav"
　　'と記載する。
　　Timer1.Interval = 100
　　Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
　　throw& = waveOutSetVolume(0, &HF000& + &HF0000000)
　　throw& = sndPlaySound(fname, SND_SYNC)
　　throw& = sndPlaySound("Exit", SND_SYNC)
End Sub

５．実行

６．保存

　　フォーム、プロジェクトともに　ｒｅａｄｉｎｇ　という名前で保存する。