フォルダ内のMIDIファイルを一つずつ順番に再生したいと考えています。
最初にフォルダ内のMIDIファイル全部をロードして、入っている順(名前順でも可)にひとつずつ再生→キー取得→再生という形にしたいです。ファイル名は数字で"1.mid""2.mid"などです。
キー取得や記録は問題ないのですが"1.mid"しか再生できず、フォルダ内の内の順番を入れ替えてもそれしか再生できません。
今はrepeatで同じファイルしか再生できないのですが毎回次のファイルに進むためにはどう書けばよいか教えていただきたいです。
今のところ下記のようにしています。
//ファイル名の取得 dirlist files, "melodies\\*.*",3 N = 5 notesel files repeat N noteget mid(cnt),cnt loop //音源ファイルの読み込み repeat N mmload "melodies\\"+mid(cnt),0,2 loop repeat N cls 4:pos 300,300:color 255,255,255 mes "音楽が流れます" wait 50 mmplay 0 wait 50 color 0,0,0:boxf:pos 300,300:color 255,255,255 mes "評価してください" repeat;キー取得ループ開始 getkey res1,49 getkey res2,50 getkey res3,51 getkey res4,52 getkey res5,53 getkey res6,54 if res1|res2|res3|res4|res5|res6 >0 :break ;キー取得ループ終了 await 0 loop
アドバイスよろしくお願いします。