。支持庫外殼
。裝配窗裝配1
。程序集變量文件號,整數類型
。程序集變量mp3,文本類型,“0”
。匯編變量文件目錄,文本類型
。裝配變量選項,文本類型
。子程序_ _開始窗口_已創建
。局部變量文件名,文本類型
組合框1。添加項目(“請選擇壹首歌曲”,)
按鈕2。Title = "播放"
Option = "重復"
文件目錄=瀏覽文件夾("請選擇MP3目錄:",false)
。如果為真(文件目錄= " ")
文件目錄=獲取運行目錄()
如果真的結束了。
文件目錄=文件目錄+"\ "
文件名=查找文件(文件目錄+"* .mp3 ",)
。循環判斷優先()
組合框1。添加壹項(取文本左側(文件名,取文本長度(文件名)-4),)
加入成員(mp3,文件名)
文件名=查找文件(,)
。循環判斷尾(文件名≡號)
設置隨機數種子()
組合框1。當前選擇的項目= 0
_ button 1_已被單擊()
。subroutine _ button 1_被點擊。
如果為真(按鈕2。Title = "繼續")
按鈕2。Title = "播放"
按鈕1。標題=選項
停止播放()
組合框1。當前選擇的項目= 0
如果真的結束了。
。如果為真(選項=“重復”)
按鈕1。Title = "重復"
Option = "隨機"
Return()
如果真的結束了。
。If (option = "Random ")
按鈕1。Title = "隨機"
Option = "訂單"
否則。
按鈕1。Title = "序列"
Option = "重復"
如果結束了
Return()
。子程序_按鈕2_被點擊
。如果為真(取MP3播放狀態()= 1)
暫停MP3()
按鈕2。Title = "繼續"
選項=按鈕1。標題
按鈕1。Title = "停止"
Return()
如果真的結束了。
。If (MP3播放狀態()= 0)
如果為真(組合框1。當前選擇的項目= 0)
文件編號= 1
如果真的結束了。
播放()
否則。
繼續播放MP3()
按鈕1。標題=選項
如果結束了
按鈕2。Title = "暫停"
Return()
。子程序_組合框1_列表項被選中。
菲力諾。=組合框1。當前選擇的項目
按鈕2。Title = "暫停"
播放()
。子程序回放
組合框1。當前選擇的項目=文件編號
同步播放MP3(文件目錄+MP3[文件號],標簽1,)
。Subroutine _ Label 1_反饋事件,整型
參數參數1,整數類型
參數參數2,整數類型
進度條1。位置=參數1
。如果為真(參數1 = 100)
如果為真(按鈕1。Title = "隨機")
文件號=隨機數(1,數組成員數(mp3))
如果真的結束了。
如果為真(按鈕1。Title = "序列")
。If(文件號<數組成員數(mp3))
文件編號=文件編號+1
否則。
文件編號= 1
如果結束了
如果真的結束了。
播放()
如果真的結束了。