經過前面21章的洗禮相信大家都對Tcl/Tk已經有基礎的認識了。接下來的幾個章節將會進入實戰的領域，也就是說我們會寫一些比較像樣的程式，讓你可以用自己寫的程式處理一些日常工作。好了!! 我們的第一個程式實作是「MP3播放器」，由這個程式切入希望會讓你覺得有趣些。

22.1 功能規劃

在開始寫程式之前，讓我們先來做一些簡單的功能規劃，想想看一個堪用的MP3播放器應該有哪些功能?

• 播放控制：播放、暫停、停止、搜尋、上一首、下一首
• 播放資訊：時間、曲名
• 循環播放：單首、全部
• 音量控制：增大、減小
• 播放清單：加入、移除

嗯~~差不多，以一個自用的程式來說，功能上應該暫時夠了。目標就先暫訂這樣好了!! 更多的功能等到有需要時再來寫。 為了方便說明，我們就叫這個播放器iPlayer吧。

確定了功能之後，下一步我們要設計操作介面，下面是一張草稿，我打算讓完成後的程式長成類似這樣，這是大概的規劃，最後的成品還是得以實作的過程來決定。

圖 22-1 操作介面設計

在這張圖中，最上面05:30的位置用來顯示剩餘的播放時間，然後小荳芽之後的文字是目前正在播放的檔案。接下來是一些控制播放還有音量的按鈕，下面最大的方塊是顯示播放清單的位置。最底部的方塊則是播放進度的捲軸及循環控制的按鈕。

22.2 安裝snack套件

在之前的文章裡曾經提到snack是一個外部的套件，它專門用來播放音樂檔、控制音量及錄音。在這裡我打算使用它當作iPlayer的核心，所以請大家先把snack套件裝起來。如果之前你己經安裝過的話可以跳過這個章節。

□ 檢查snack安裝

首先請大家確定snack是否已經裝在系統裡面了，如果已經裝過的話，就不用在安裝。請執行下面的一行程式，它可以幫你列印出snack套件的版本。



如果說你的系統裡已經有安裝snack，這行程式的輸出應該會是「2.x」也就是snack的版本。如果執行這個程式發生錯誤，就表示你還沒有裝snack套件。若是這種情況的話，請依照下面的圖安裝。注意哦!! 你必需安裝ActiveTcl下面的指令才會成功。

Windows下安裝：

圖 22-2 Windows下安裝snack

Linux及Mac下安裝：

圖 22-3 Linux及Mac下安裝snack

執行完安裝步驟後，請再次用上面的程式確定snack有安裝成功。

22.3 跑起來再說

別管太多，讓我們先把程式跑起來。請自行建立一個iPlayer.tcl的程式檔，然後比照開發大型專案的規矩，幫iPlayer建立一個同名的名稱空間，以後所有的程式都要塞在這個名稱空間裡面。



下一步我們要寫一些測試程式，確定snack是可以運作的。注意!! 寫完下面的程式先不要執行它!! 因為還有一些小地方要修改。



上面的程式規劃了兩個名稱空間變數，分別是snd及currentFile。其中snd用來儲存播放物件，而currentFile用來儲存正在播放的檔案路徑，由於它們都是整個程式會用到的資訊，所以要用名稱空間變數儲存它們。

init程序先後載入了snack套件還有建立播放物件。注意哦!! 新建立的播放物件被儲存在snd裡頭，往後整個程式裡都可以使用它。

在play程序中，我們先假設init程序已經執行過了，而且播放物件已經載入MP3檔案。在這樣的情況下用播放物件的play命令就可以播出聲音。

最後請注意到程式裡的這一行：



這是為了方便測試用的，因為init程序裡只有建立播放物件，並沒有指定要載入哪一個檔案，所以現在它的功能是確保執行::iPlayer::play程序之前有載入MP3的檔案。注意哦!! 你要真的在c:磁碟下放一個01.mp3檔案，否則的話這個測試程式會跑不起來。

都沒問題後，請大家用wish去執行這個程式。記得開喇叭，播放程式已經啟動了。

22.4 建立圖形介面

現在讓我們修改一下剛剛的程式，把建立圖形介面的程序加進去。請在::iPlayer的名稱空新裡加入一個專門用來建立圖形介面的程序，程序中用到的小圖示你可以在這篇文章的最後面下載。



這個程序總共建立了播放、暫停及停止等3個按鈕，並且分別指定它們的-command選項為::iPlayer::play、::iPlayer::pause及::iPlayer::stop。其中只有play是已經寫好的程序，而pause及stop則還沒實作，這不要緊就先暫時這樣子!! 它們的程式碼晚一點再來處理。

這個程序寫好了之後，我們還需要在適當的時機執行它，我認為在init程序裡執行是個不錯的選擇，所以改一下init程序在最後一行加入gui_init來執行它。

☆ 先初始化整個程式共用的資料，然後才建立圖形介面，這是一個好的方法。



ok!! 現在我們可以再測試一次程式看看效果如何，它執行起來應該像這樣：

圖 22-4

嗯，外觀還ok，但為什麼還沒按play音樂就自動播起來了，怎麼會這樣呢? 還記得我們在程式的最後一行有執行::iPlayer::play對吧!! 就是它搞得鬼，連同註解一起刪除掉，然後再執行一次。



這樣正常多了，音樂會在按下play時才會開始播放。

都已經走到這一步了，就繼續把pause及stop的程序加進去吧!!



這兩個程序出乎意料的簡單，現在3個按鈕都可以正常運作了，不會很困難吧!!

22.5 重點回顧

目前我們已經寫出程式大概的架構了，雖然現在還有很多問題要處理，不過別擔心會慢慢完成的。現在你只要先熟悉播放MP3的步驟就可以了。

1. 用「::snack::sound」建立播放物件(假設是snd)
2. 用「$snd configure -file filepath」 載入要播放的檔案
3. 用「$snd play」來播放檔案
4. 用「$snd pause」暫停播放
5. 用「$snd stop」停止播放

22.6 程式資源

如果你打的程式跑不出來的話，可以這在邊下載我打的程式iPlayer.tcl。

另外下面是這個程式會用到的圖片，請自己另存新檔。 注意哦!! 這些圖片要和iPlayer.tcl放在同一個資料夾裡面。