HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0326
sesamimp3プレーヤーの再生時間3未解決


sesami

リンク

2009/3/26(Thu) 14:22:28|NO.24174

昨日、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



この記事に返信する


check

リンク

2009/3/26(Thu) 14:25:20|NO.24175

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



inovia

リンク

2009/3/26(Thu) 14:39:05|NO.24178

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


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



tsuka

リンク

2009/3/26(Thu) 15:50:21|NO.24180

こんな感じですかね

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



ONION software Copyright 1997-2023(c) All rights reserved.