と同じソフトです。
結構行きました。でもまだ、完成ではありません。
現在、120~125行に困ってます。
//--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
[1sec+ボタン押したら、1秒上げろ]とさせようとしてますが、できません。
[1sec-ボタン押したら、1秒下げろ]も同じです。どうすればいいですか?