HSPTV!掲示板

失敗した音楽再生スクリプト

	　　　　 sdim a,32000
		sdim tmem,32000
		tmem=""
		fname=""
		;
		dirlist a,"*.*"
		sel=100
		objsize 160,24
		listbox sel,150,a	
		button "SELECT",*sentaku	
		pos 180,0
		stop
*sentaku
	         notesel a
		noteget fname,sel
		chdir fname
		sdim tmems,32000
		tmems=""
		fnames=""
		dirlist b,"*.*"
		sel=0
		objsize 160,24
		listbox sel,150,b
	        button goto "再生",*label1
	        button goto "くり返し",*label2	    
	        button goto "停止",*owari
	        pos 180,0
		
*label1
	mmload fnames,1,0
	mmplay 1
	stop
*label2
	mmload fnames,1,1
	mmplay 1
	stop
*owari
	mmstop
	stop
	end

ここまで到達するのに
まるまる１年掛ったのに〜

なんで音が鳴ってくれないんだ〜

ファイル選択にリストボックス
２つ使うのが無理な話だったのか･･･

昔はダイアログ命令なんてのが
在ったんだ〜今使えるのかなぁ

しかし、ディレクトリ移動命令前後の
スクリプト表記がぜんぜん解からないぞっっ

どんだけ〜鈍なだけ〜

ダイアログは今も使えますよ^^；
ファイル選択ダイアログは
dialog "",16
で出来ます。

結果はstatに代入されます。

statが1ならば、正常に選択されたことを意味します
statが0ならば、キャンセルされたかエラーが発生したことを意味しています

refstrにはファイル選択が正常に完了していればファイル名を含めてパスが代入されます。

ちなみにダイアログを使ったサンプルを置いておきます。

dialog "",16
fnames=refstr
if stat=1:goto *label1
if stat=0:stop
		
*label1
	mmload fnames,1,0
	mmplay 1
	stop

これで音は再生されると思います。