HSPTV!掲示板

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

//--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秒下げろ]も同じです。どうすればいいですか？

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

ageます

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

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

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

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

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

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

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

たとえば・・・

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

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

AGEます!

いまいち意味が分かりにくいんですが…
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のレス…
スクリプトミスしたことは見れば察せるので、この程度なら書かなくても大丈夫ですよ。