HSPTV!掲示板

昨日、mp3プレイヤーの再生についてきいたものですが
こんどはタイトルに今の再生時間をつけたいのです。
今はタイトルに選択した曲の名前を表示できるようにしているのですが
曲＋再生時間じしたいです・・・
ソースややり方など教えてください
お願いします


ソース
screen 0,230,32,8
gsel 0,2
objsize 60,32
pos 0,0:button gosub "再生",*m_play
pos 60,0:button gosub "一時停止",*m_stop
pos 120,0:button gosub "選択",*m_senntaku
pos 180,0:chkbox "ループ",a
repeat
wait 1
loop
*owari
mci "close all"
end
*m_stop
mci "stop music"
return v
*m_play
if a=1:gosub *luap :else:gosub *hutuu
stop
*m_senntaku
mci "close music"
dialog "mp3;*wav",16,"音声ファイル":if stat=0:end
fname=refstr
mci "open \"" + fname + "\" alias music":if stat=-1:end
mci "status music length":m_length=stat
title ""+getpath(fname,9)+""
return
*luap
mci "play music repeat"
return
*hutuu
mci "play music"
return

掲示板の使い方を隅々まで読め
再生時間は前スレで教えた方法で取得できるのでは？

時間を時と分で表示したいってことでしょうか？
またまた適当サンプルです。
もうちょっとスマートにできるかも。

screen 0,230,32,8 
gsel 0,2 
objsize 60,32 
pos 0,0:button gosub "再生",*m_play 
pos 60,0:button gosub "一時停止",*m_stop 
pos 120,0:button gosub "選択",*m_senntaku 
pos 180,0:chkbox "ループ",a
repeat 
wait 1 
loop 
*owari 
mci "close all" 
end 
*m_stop 
mci "stop music" 
return v
*m_play 
if a=1:gosub *luap :else:gosub *hutuu
goto *_repeat
stop
*m_senntaku 
mci "close music"
dialog "mp3;*wav",16,"音声ファイル":if stat=0:end 
fname=refstr 
mci "open \"" + fname + "\" alias music":if stat=-1:end 
mci "status music length":m_length=stat
nagasa=m_length/1000
if nagasa/60>0:n_fun=nagasa/60:n_byo=nagasa\60:else:n_byo=nagasa:n_fun=0
if n_byo<10:n_byoz="0"+n_byo:n_byo=n_byoz
//title ""+getpath(fname,9)+""+
tt=getpath(fname,9)
return
*luap
mci "play music repeat"
return
*hutuu
mci "play music"
return

*_repeat
	mci "status music position"
	imano=stat/1000
	if imano/60>0{
		i_fun=imano/60
		i_byo=imano\60
	}else{
		i_byo=imano:i_fun=0
	}
	if i_byo<10{title tt+" "+i_fun+":0"+i_byo+"/"+n_fun+":"+n_byo
	}else{
		title tt+" "+i_fun+":"+i_byo+"/"+n_fun+":"+n_byo
	}
	wait 12
goto *_repeat

こんな感じですかね

onexit goto *owari

fname = ""

screen 0,230,32,8
gsel 0,2
objsize 60,32
pos 0,0:button gosub "再生",*m_play
pos 60,0:button gosub "一時停止",*m_stop
pos 120,0:button gosub "選択",*m_senntaku
pos 180,0:chkbox "ループ",a

repeat
	wait 1
	mci "status music position" ;現在の再生位置
	m_pos = stat
	title getpath(fname,9)+" "+m_pos+"/"+m_length ;タイトル
loop
*owari
	mci "close all"
end
*m_stop
	mci "stop music"
return
*m_play
	if a=1:gosub *luap :else:gosub *hutuu
return
*m_senntaku
	mci "close music"
	dialog "mp3;*wav",16,"音声ファイル":if stat=0:end
	fname=refstr
	mci "open \"" + fname + "\" alias music":if stat=-1:end
	mci "status music length":m_length=stat
return
*luap
	mci "play music repeat"
return
*hutuu
	mci "play music"
return