播放器基本的寫法順序
 

.程序集 窗口程序集1
.程序集變量 文件號, 整數(shù)型
.程序集變量 mp3, 文本型, , "0"
.程序集變量 選項, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 文件名, 文本型
組合框1.加入項目 (“請選歌曲”, )
按鈕2.標(biāo)題 ＝ “播放”
選項 ＝ “重復(fù)”
文件名 ＝ 尋找文件 (取運(yùn)行目錄 () ＋ “\*.mp3”, )
.循環(huán)判斷首 ()
文件名 ＝ 尋找文件 (, )
.如果真 (文件名 ＝ “”)
跳出循環(huán) ()
.如果真結(jié)束
組合框1.加入項目 (文件名, )
加入成員 (mp3, 文件名)
.循環(huán)判斷尾 (文件名 ≠ “”)
置隨機(jī)數(shù)種子 ()
組合框1.現(xiàn)行選中項 ＝ 0
_按鈕1_被單擊 ()
.子程序 _按鈕1_被單擊
.如果真 (按鈕2.標(biāo)題 ＝ “繼續(xù)”)
按鈕2.標(biāo)題 ＝ “播放”
按鈕1.標(biāo)題 ＝ 選項
停止播放 ()
組合框1.現(xiàn)行選中項 ＝ 0
.如果真結(jié)束
.如果真 (選項 ＝ “重復(fù)”)
按鈕1.標(biāo)題 ＝ “重復(fù)”
選項 ＝ “隨機(jī)”
返回 ()
.如果真結(jié)束
.如果 (選項 ＝ “隨機(jī)”)
按鈕1.標(biāo)題 ＝ “隨機(jī)”
選項 ＝ “順序”
.否則
按鈕1.標(biāo)題 ＝ “順序”
選項 ＝ “重復(fù)”
.如果結(jié)束
返回 ()
.子程序 _按鈕2_被單擊
.如果真 (取MP3播放狀態(tài) () ＝ 1)
暫停播放MP3 ()
按鈕2.標(biāo)題 ＝ “繼續(xù)”
選項 ＝ 按鈕1.標(biāo)題
按鈕1.標(biāo)題 ＝ “停止”
返回 ()
.如果真結(jié)束
.如果 (取MP3播放狀態(tài) () ＝ 0)
.如果真 (組合框1.現(xiàn)行選中項 ＝ 0)
文件號 ＝ 1
.如果真結(jié)束
播放 ()
.否則
繼續(xù)播放MP3 ()
按鈕1.標(biāo)題 ＝ 選項
.如果結(jié)束
按鈕2.標(biāo)題 ＝ “暫停”
返回 ()
.子程序 _組合框1_列表項被選擇
文件號 ＝ 組合框1.現(xiàn)行選中項
按鈕2.標(biāo)題 ＝ “播放”
停止播放 ()
.子程序 播放
組合框1.現(xiàn)行選中項 ＝ 文件號
同步播放MP3 (mp3 [文件號], , 標(biāo)簽1, )
.子程序 _標(biāo)簽1_反饋事件, 整數(shù)型
.參數(shù) 參數(shù)一, 整數(shù)型
.參數(shù) 參數(shù)二, 整數(shù)型
進(jìn)度條1.位置 ＝ 參數(shù)一
.如果真 (參數(shù)一 ＝ 100)
.如果真 (按鈕1.標(biāo)題 ＝ “隨機(jī)”)
文件號 ＝ 取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (mp3))
.如果真結(jié)束
.如果真 (按鈕1.標(biāo)題 ＝ “順序”)
.如果 (文件號 ＜ 取數(shù)組成員數(shù) (mp3))
文件號 ＝ 文件號 ＋ 1
.否則
文件號 ＝ 1
.如果結(jié)束
.如果真結(jié)束
播放 ()
.如果真結(jié)束