初めまして。1500と申します。どうぞよろしくお願いします。
さて、簡単なmpgのプレイヤーを作りたいと考えています。
ムービーを再生中に上に再生を停止するボタンと、終了させるためのボタンを設置し、
ムービーがすべて再生し終わったら終了するという形にしたいと考えています。
再生し終わったら終了については、mciでmpgの再生時間を取得し、waitによって一時停
止させようと考えましたが、これだとムービーは再生されるものの、ボタンが表示されません。
以下の構文で間違っている箇所などがありましたらご指摘いただければ幸いと思います。
よろしくお願いします。
mci "open sample.mpg alias wmovie"
mci "set wmovie time format milliseconds"
mci "status bgm length" : bgml=stat
filename="sample.mpg"
screen 0,640,500,0
cls 4
objsize 160,20
pos 0,0
button "STOP",*stopping
pos 160,0
button "END",*fend
pos 0,20
mmload filename,1,0
mmplay 1
wait stat
goto *fend
*stopping
mmstop 1
*fend
end