mmaudio1.hsp

sample\mmaudio\mmaudio1.hsp » Plain Format

#use strict
#use mod_mmaudio

;	mod_mmaudioモジュールサンプル(1)
;	(Windows Vista以降で動作します)
;	オーディオのピーク値を取得してレベルメーターを表示します
;	(Windows上で再生したデバイスの音をもとに取得します)

repeat
	peak = GetPeakValue()				; ピーク値を取得する
	if peak<0 : dialog "Function Failed" : end	; エラーが発生した
	i=int(peak*100)					; ピーク値を0〜100の値に変換する
	redraw 0
	color 255,255,255 : boxf
	color 255,0,0 : boxf 0, 100-i, 20, 100
	color 0,0,0:pos 0,105:mes i
	redraw 1
	await 1000/30
loop