.版本 2

.支援庫 shell

.程式集 視窗程式集1

.程式集變數 檔案號, 整數型

.程式集變數 mp3, 文字型, , "0"

.程式集變數 檔案目錄, 文字型

.程式集變數 選項, 文字型

.子程式 __啟動視窗_建立完畢

.區域性變數 檔名, 文字型

組合框1.加入專案 (“請選歌曲”, )

選項 ＝ “重複”

檔案目錄 ＝ 瀏覽資料夾 (“請選擇MP3目錄:”, 假)

.如果真 (檔案目錄 ＝ “”)

檔案目錄 ＝ 取執行目錄 ()

.如果真結束

檔案目錄 ＝ 檔案目錄 ＋ “\”

檔名 ＝ 尋找檔案 (檔案目錄 ＋ “*.mp3”, )

.迴圈判斷首 ()

組合框1.加入專案 (取文字左邊 (檔名, 取文字長度 (檔名) － 4), )

加入成員 (mp3, 檔名)

檔名 ＝ 尋找檔案 (, )

.迴圈判斷尾 (檔名 ≠ “”)

置隨機數種子 ()

組合框1.現行選中項 ＝ 0

停止播放 ()

組合框1.現行選中項 ＝ 0

.如果真結束

.如果真 (選項 ＝ “重複”)

選項 ＝ “隨機”

返回 ()

.如果真結束

.如果 (選項 ＝ “隨機”)

選項 ＝ “順序”

.否則

選項 ＝ “重複”

.如果結束

返回 ()

.如果真 (取MP3播放狀態 () ＝ 1)

暫停播放MP3 ()

返回 ()

.如果真結束

.如果 (取MP3播放狀態 () ＝ 0)

.如果真 (組合框1.現行選中項 ＝ 0)

檔案號 ＝ 1

.如果真結束

播放 ()

.否則

繼續播放MP3 ()

.如果結束

返回 ()

.子程式 _組合框1_列表項被選擇

檔案號 ＝ 組合框1.現行選中項

播放 ()

.子程式 播放

組合框1.現行選中項 ＝ 檔案號

同步播放MP3 (檔案目錄 ＋ mp3 [檔案號], , 標籤1, )

.子程式 _標籤1_反饋事件, 整數型

.引數 引數一, 整數型

.引數 引數二, 整數型

進度條1.位置 ＝ 引數一

.如果真 (引數一 ＝ 100)

檔案號 ＝ 取隨機數 (1, 取陣列成員數 (mp3))

.如果真結束

.如果 (檔案號 ＜ 取陣列成員數 (mp3))

檔案號 ＝ 檔案號 ＋ 1

.否則

檔案號 ＝ 1

.如果結束

.如果真結束

播放 ()

.如果真結束