cdplay.hsp

sample\basic\cdplay.hsp » Plain Format

	;
	;	簡易CDプレイヤーサンプル
	;	( 現在演奏中のトラックを監視するバージョン)
	;
	mci "capability cdaudio can play"
	if stat!0 : dialog "デバイスは使用中です",1:end

	mci "status cdaudio number of tracks"
	if stat<0 : dialog "CDがセットされていません",1:end
	maxtrack=stat

	onexit *owari			; 終了した時のジャンプ先

	mci "open cdaudio alias myid"	; CDにmyidというエイリアスをつける
	mci "set myid time format tmsf"	; トラック単位でアクセス

	tr=1
	button "PLAY",*cdplay
	button "STOP",*cdstop
	button "<-",*cdback
	button "->",*cdnext

*cdplay
	mci "play myid from "+tr	; CDプレイ
	wait 5
*plloop
	mci "status myid current track"	; 現在のトラックを得る
	tr=stat
	title "CD player (track"+tr+")"
	wait 10
	goto *plloop

*cdstop
	mci "stop myid"			; 演奏ストップ
	stop

*cdback
	if tr=1 : goto *plloop
	tr=tr-1				; 1つ前のトラックへ
	goto *cdplay

*cdnext
	if tr=maxtrack : goto *plloop
	tr=tr+1				; 1つ後のトラックへ
	goto *cdplay

*owari
	mci "stop myid"
	mci "close myid"		; 最後に必ずcloseする
	end