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


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
1027
Mituki (Googleから)1sec+ >> 1秒上げる11解決


Mituki (Googleから)

リンク

2015/10/27(Tue) 21:11:14|NO.72565

再生位置・・・
と同じソフトです。
結構行きました。でもまだ、完成ではありません。

//--File読込--// fell=1900 #include "winmm.as" #module #deffunc mci_cleanup onexit mci "close all" return #global //---準備---_I// onexit goto *endoption buffer 2 syscolor 12:boxf color 0,0,0 mes "*Play" buffer 3 syscolor 12:boxf color 0,0,0 mes "*ProgramEnd" //---準備---_O// //ラベル設定_I// *startmenu //ラベル設定_O// //---開始---_I// gsel 0,1 title "Mediaplayer Ver126" syscolor 15:boxf pos 50,50 color 100,100,100 font "",30 mes "Media Player Ver 1.2.6" objimage 2 objsize 100,20 button "",*select_on objimage 3 objsize 100,20 button "",*endoption stop *select_on goto *plays stop *endoption dialog "終了しますか?",3,"MediaPlayer" if stat=6 :end if stat=7 :stop stop *plays dialog "",16 music="\""+refstr+"\"" if stat = 0 : stop mci "open "+music+" alias music" //全体の長さを取得 mci "status music length" endtimea=stat/1000/60 //分 endtimeb=stat/1000\60 //秒 //再生 mci "play music" clrobj //リピート開始 objimage -1 button gosub"Stop",*bt1 button gosub"Play",*bt2 button gosub"SpeedUp",*spdup button gosub"SpeedDown",*spddn button gosub"1Sec+",*se1p button gosub"1Sec-",*se1d objenable 1, 0 objenable 2, 0 objenable 3, 0 repeat super=stat redraw 0 mci "set music speed "+fell mci "status music speed" syscolor 15:boxf color 100,100,100 pos 0,0 mes "Media Player Ver 1.2.6" font "",15 mes music //現在の長さを取得 mci "status music position" nowtimea=stat/1000/60 //分 nowtimeb=stat/1000\60 //秒 //描画 color 0,0,0 : pos 100,50 timeopt= strf("%02d:",nowtimea) + strf("%02d/",nowtimeb) + strf("%02d:",endtimea) + strf("%02d",endtimeb) mes ""+timeopt+"" mes "Stat:"+super+"" mes "現在の速さ:"+fell+"." redraw 1 wait 1 loop *bt1 mci "stop music" objenable 1, 1 objenable 2, 1 objenable 3, 1 objenable 0, 0 return *bt2 mci "play music" objenable 1, 0 objenable 2, 0 objenable 3, 0 objenable 0, 1 return *spdup playspeed+1 fell+100 return *spddn playspeed-1 fell-100 return *se1p super+1000 return *se1d super-1000 return
現在、120~125行に困ってます。
[1sec+ボタン押したら、1秒上げろ]とさせようとしてますが、できません。
[1sec-ボタン押したら、1秒下げろ]も同じです。どうすればいいですか?



この記事に返信する


Mituki (Googleから)

リンク

2015/10/27(Tue) 21:11:44|NO.72566

再生位置・・・のうある
http://hsp.tv/play/pforum.php?mode=all&num=72553



Mituki

リンク

2015/10/28(Wed) 16:43:14|NO.72587

ageます



葡萄色(ノートPC)

リンク

2015/10/28(Wed) 23:42:28|NO.72593

status music positionで取得した値に一秒分加算してseekコマンドで再生位置変えればいいんじゃない?



Mituki

リンク

2015/10/29(Thu) 16:49:01|NO.72606

ソースコードを見ないとよくわからない・・・



pumpkin

リンク

2015/10/29(Thu) 19:10:02|NO.72610

mci "seek (ファイル名) to (時間)"

これがシークコマンドです。好きなように再生位置を動かせます。



スペース

リンク

2015/10/29(Thu) 19:16:07|NO.72612

>>pumpkinさん
細かいけど、ファイル名じゃなくてエイリアス名じゃないかな?
mci初めての人だと混乱するかもしれないので。



Mituki

リンク

2015/10/30(Fri) 21:45:45|NO.72634

ありがとうございます! (Rabbitブラウザより)



Mituki

リンク

2015/10/31(Sat) 14:51:56|NO.72652

(まだ未解決)
あの・・・時間とか、どうすればいいですか?
変数式変更したいんです。
(変数式変更とは・・・inputとかで、変数を入力して、[TIMEREFRASH]を押して時間変更する

たとえば・・・

mci "seek "+riku+" to "+time
)




Mituki

リンク

2015/10/31(Sat) 14:53:07|NO.72653

あ・・・
<=#
>=$
$pre#
mci "seek "+riku+" to "+time
$pre#
)
ってしてしまいました・・・



Mituki

リンク

2015/11/1(Sun) 15:06:32|NO.72675

AGEます!



pumpkin

リンク

2015/11/2(Mon) 19:31:05|NO.72707

いまいち意味が分かりにくいんですが…
inputなどで直接「何分何秒」と入れて再生位置を動かしたいということですかね?
計算式が分からないというなら
//現在の長さを取得
mci "status music position" nowtimea=stat/1000/60 //分 nowtimeb=stat/1000\60 //秒
再生位置…のスレ(http://hsp.tv/play/pforum.php?mode=all&num=72553)にある、現在の長さを取得するサンプルの式
この計算を見て利用すればいいです。

それと、No.72653のレス…
スクリプトミスしたことは見れば察せるので、この程度なら書かなくても大丈夫ですよ。



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