iT邦幫忙

DAY 11
9

專案誰管理系列 第 11

專案誰管理(10)來段音樂吧

專案日期:10/05

坐下來後,我們四個人沉默了半天,說真的,這感覺像是要談判,但不知道要談什麼。但希望別桌的人,不要認為我們是來談感情,這樣就好了。我還是先開口好了,『我說...我跟各位並沒有什麼深仇大恨,如果我有什麼不是,請各位直接說,我有不對的地方,我就道歉。』

「你這樣很不給我面子。」Blade先回了我話。

『其實...我很尊敬你啊,只是我在等那個適當的機會,而且我是等到你親告訴對方,你是工程師,我才表明身份的。』好吧,我又說錯話了。不過Blade到沒什麼反應,Blaster偷偷笑了一下,「有人出來幫你擋事情,還不好哦?」 Block說了一句很實際的話,說真的關我什麼事? 又不是我答應別人要幹嘛幹嘛,只是這些都是不能說的秘密。

氣氛稍微緩和後,Block又說「現在什麼時間了,我們再這樣吵下去,這案子真的不用結了,那我還不如先去找工作。」

這句話,是在團隊中,很有感染力和殺傷力的一句話,就像之前玩魔獸世界時,每次打到副本卡很久時,就有很多人會先離開,嚴重一點就散團了。但現在我不確定的,他們到底擔心什麼。

『既然沒事了,各位大哥能讓我知道,各位在擔心什麼嗎?』

Blaster 大吸了一口氣「我們的備份軟體,叫做TSM,這個東西的設定,多如牛毛啊,我們這邊的環境,總共80台主機,每台主機最少會有3個相關的設定檔案。」

240個檔案? 還好啊! 『那請問一下,設定一個檔案,要多少時間?』

「最快也要3分鐘吧。」最快3分鐘,那大概就要5分鐘了,240 X 5,這答案很可怕耶,那可能還有別的設定吧,難怪他們會擔心。但他們並不是擔心會做不完,而是擔心沒有時間喝下午茶,真的是夠了。但如果結案後,喝杯下午茶到是應該的。但這該怎麼辦呢? 我拿出了筆電,隨手打開了一個Excel 檔案。

Block好奇我要做什麼,整個人擠了過來「Blue 你的這個Excel檔,是幹嘛的?怎麼...這是Excel檔?」

我笑了一下,『我想聽一下音樂啦!』

「你要聽就聽啊,開Excel幹嘛?」Blaster不耐煩的說。

Block提高了他的音量,「不是吧! 你用Excel 聽音樂哦? 會不會太扯...」

這樣說,我也不知怎麼回答。我們到了客戶那,不是待在機房就是在某個角落,每天面對螢幕的時間,最少十小時,在角落做事還好,在機房待超過10個小時,那才可怕。當然是要聽點音樂,緩和一下心情啊。如果用播放程式,被客戶看到了,感觀會不好,所以如果開個Excel檔,聽聽音樂,也很好啊,不然每天聽機房裡的噪音,誰都會受不了。

『你們說的那些檔案,有規則嗎? 就是有相同和不相同的地方嗎?』

他們點了點頭,我繼續問『那有樣本檔案嗎?』

「你想幹嘛?」Blade不屑的問了我。

『看我有沒有能幫上忙的地方,如果有規則,那就讓那些檔案自動生成,然後再套一個規則,自動複製到所有主機就好了。』

他們三位楞了一下,「這你做的到?」

『如有規則的話,應該是可以,我要先看一下檔案的內容。如果可以,我就做啊。』

「為什麼你會想要這樣做?」Block繼續問我。

『有些事情,如果在開始之前,多做一些準備,那真的在做那些事情時,就能用多出來的時間,去做別的事。如果等到事情來等我們,那我們會很慘,而且壞事都常不會只有一件,要來一定是全來。』

他們三位稍微認同了我的說法。好吧,今天晚上就先別睡了,我也應該要趕工了。

(待)


附件五:Excel Music Player

這一套是前幾年唸淡江時,某一門課的期末報告,老師希望我們用Excel做些開發,像是計帳、股票、期貨跟數字有關的專題。但我數字概念不好,同組同學又說可以做些不一樣的,所以在和同學的討論下,做了一個Excel的影音播放檔案。

這可以用一張工作表就完成,不過VBA部份則有比較多段。

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) _
As Long

Public mp3file As String
Public t As Long
Public ret As String * 128

Sub playclick()
On Error Resume Next
mp3file = ActiveCell.Value  <--將Excel欄位資料,塞到mp3file

'下面是對mp3檔案的控制
t = mciSendString("stop " & mp3file, 0&, 0, 0)
t = mciSendString("close " & mp3file, 0&, 0, 0)
t = mciSendString("open " & mp3file, 0&, 0, 0)
t = mciSendString("play " & mp3file, 0&, 0, 0)

End Sub

Sub pauseclick()
mp3file = ActiveCell.Value
t = mciSendString("pause " & mp3file, 0&, 0, 0)
t = mciSendString("seek" & mp3file, 0&, 0, 0)
End Sub
Sub stopclick()
mp3file = ActiveCell.Value
t = mciSendString("stop " & mp3file, 0&, 0, 0)
t = mciSendString("close " & mp3file, 0&, 0, 0)

End Sub
Sub status()
t = mciSendString("status " + mp3file + " length", ret, 128, 0)
ret = Left(ret, 8)

End Sub

Sub searchfavormp3(searchstring)
'搜尋欄位用的程式碼
Dim FilePackage() As String
Dim DirPackage() As String
'Dim SearchString As String
Dim DirString As String
Dim I As Long, J As Long, K As Long
Dim mystring As String
Dim AA As Long
    
   Worksheets(8).Cells().ClearContents
   Sheets(8).Activate '自動切到編號8的工作表
    Erase FilePackage
    ReDim DirPackage(0)
    '要搜尋的路徑
    DirPackage(0) = ActiveWorkbook.Path & "\favor\"
    '要搜尋的字串
    'SearchString = "*" & searchtextbar.Value & "*" & ".mp3"
     'searchstring = mp3string
     '控制顯示位置的參數
    AA = 10
    Do While I <= J
       DirString = Dir(DirPackage(I), vbDirectory)
             Do While DirString <> ""         
            If DirString <> "." And DirString <> ".." Then             
                If (GetAttr(DirPackage(I) & DirString) And vbDirectory) = vbDirectory Then                
                J = J + 1
                ReDim Preserve DirPackage(J)
                DirPackage(J) = DirPackage(I) + DirString + "\"             
                Else         
                    If DirString Like searchstring Then                     
                        ReDim Preserve FilePackage(K)                       
                    FilePackage(K) = DirPackage(I) + DirString                        
                        K = K + 1
                    End If
                End If
            End If
       
           DirString = Dir
            DoEvents
        Loop
        I = I + 1
    Loop
    If K = 0 Then
        MsgBox "沒有 " & searchstring & " 的檔案"
    Else
       For I = 0 To UBound(FilePackage)
            Worksheets(8).Cells(AA, 3).Value = FilePackage(I)  '將搜尋出的檔案,放在excel 欄位裡,顯示出來
            AA = AA + 1
            DoEvents
        Next  
    End If
End Sub

2011/10/08 太陽哲齡

文章導覽
上一篇
下一篇
全系列連結

更多文章都在行雲流水IT人


上一篇
專案誰管理(9)Excel,讚!
下一篇
專案誰管理(11)十幾萬行的log
系列文
專案誰管理31
0
leekenji2002
iT邦新手 4 級 ‧ 2011-10-08 03:15:09

睡覺等到睡著了還是值得開心

SunAllen iT邦高手 1 級 ‧ 2011-10-08 10:47:24 檢舉

謝謝leekenji2002大大的捧場謝謝

後面20天,我也會寫到睡著的...最近已經到半夜三點才睡了...Orz

0
kradark
iT邦好手 1 級 ‧ 2011-10-08 10:00:41

sunallen提到:
師希望我們用Excel做些開發,像是計帳、股票、期貨跟數字有關的專題。但我數字概念不好,同組同學又說可以做些不一樣的,所以在和同學的討論下,做了一個Excel的影音播放檔案。

這可以用一張工作表就完成,不過VBA部份則有比較多段。

真是誇張的多媒體播放器,強阿
Excel用到神級的階段

0
海綿寶寶
iT邦大神 1 級 ‧ 2011-10-08 10:29:43

sunallen提到:
老師希望我們用Excel做些開發,像是計帳、股票、期貨跟數字有關的專題。但我數字概念不好,同組同學又說可以做些不一樣的

沒聽老師的卻聽同學的
結果那門課有pass嗎
疑惑

SunAllen iT邦高手 1 級 ‧ 2011-10-08 10:45:03 檢舉

有啊~~有PASS,我大學時被當掉的是統計哭

kradark iT邦好手 1 級 ‧ 2011-10-08 13:27:57 檢舉

我沒修過統計,修課的觀念是數學課能閃則閃。

很快忘記=會計汗、通通忘記=統計暈、經常忘記=經濟倒
以上是我不讀商逃跑的原因偷笑

0
kimiyung
iT邦新手 5 級 ‧ 2011-10-09 12:38:31

這個厲害, 用excel播放mp3

0
liurambo0911
iT邦高手 1 級 ‧ 2011-10-11 10:11:29

想當年在學校時
老師在白板上教BASIC的九宮格時
我跟我的死黨兩個在研究另一種解法
而且解出來之後 直接下一個參數後可以擴張成11、13宮格至無限
解出來的時候還跟老師嗆聲
直接把剛剛寫在白板上的全給擦了 改寫自己的(老師寫的其實課本上就有了)
當時還真是小驕傲了一下開心

看更多先前的回應...收起先前的回應...
SunAllen iT邦高手 1 級 ‧ 2011-10-11 10:23:57 檢舉

讚讚讚

kradark iT邦好手 1 級 ‧ 2011-10-11 12:03:55 檢舉

我們可不敢在教授面前做這種事,
因為教授都是柏克萊、UCLA、史丹弗、卡內基美農、伊利諾等CS/EE名校博士。

kradark提到:
我們可不敢在教授面前做這種事,

什麼U什麼C什麼L什麼A
只要老師看到liurambo0911大大那張臉
就敢怒不敢言
否則
毆飛

鐵殼心 iT邦高手 1 級 ‧ 2011-10-11 12:47:34 檢舉

antijava提到:
就敢怒不敢言
否則

你再來我拿鐵棍打斷你的兩條腿....

kradark iT邦好手 1 級 ‧ 2011-10-11 12:53:26 檢舉

你再來我拿鐵棍打斷你的兩條腿....

我懂了,原來葉子爹是藍波大大....

0
guareian
iT邦新手 3 級 ‧ 2011-10-31 16:25:17

我怕電腦內放mp3給抓XD
sun大可以在放入vba放入
連結到kissradio線上廣播電台嗎?
下面附上連結哈哈
http://kissradio.kiss.com.tw/index.php

0
pqr0007
iT邦研究生 1 級 ‧ 2012-04-19 20:18:42

我也想學學 music "燒錄"...

我要留言

立即登入留言