砂子專區

[免費下載 MP3 軟體] 針對蕃薯藤(yam)天空部落,含原始程式碼(VB.NET 2005)

2012-01-06T14:53:00.000+08:00

最近因為需要找一些老歌,
發現很多網站都可以透過網址解析下載到檔案,
但好像只有蕃薯藤(yam)天空部落可以載到 MP3 檔案,其它的網站似乎都是 FLV 檔,
所以就好奇的自己寫一個下載MP3的程式,順便練習一下寫 Code 的技巧。
首先說明一下如何解析蕃薯藤(yam)天空部落的下載網址。

只要用 Google 搜尋一下,不難發現很多教學網站
使用 PHP 語法解析(只適用蕃薯藤(yam)天空部落)
由網頁解析(可解多個網站)
使用程式解析(只適用蕃薯藤,不含程式碼)
使用 Perl 語言解析(只適用蕃薯藤)

用以上的方式解析的共同點就是,必須先找到該歌曲的網址,
再輸入要解析的網址,送出解析,然後取得下載網址,
我找不到有人寫一個可以自己搜尋我要的歌名,讓我直接點選下載的軟體,
只好自己寫一個來玩玩囉~

＜解析步驟如下＞
在蕃薯藤(yam)天空部落上找到要聽的歌曲後,會發現網址如下
1. http://mymedia.yam.com/m/歌曲編號
只要再將歌曲編號再串成
2. http://mymedia.yam.com/api/a/?pID=歌曲編號
將這個網址送出
會得到另一串資訊
3. mp3file=http://pool.f12.mymedia.yam.com/~省略~/xxx.mp3&totaltime=1234567
這個字串中就有下載網址,它被包在mp3file= 後面這個由 http:// 開頭 xxx.mp3 結尾的網址列中,
要解析蕃薯藤(yam)天空部落的 MP3 下載路徑就以上這三個步驟這麼簡單。

程式的設計也就照著那三個步驟在打轉,
其中利用了幾個方式去達到這個目的
1. Regular Expressions 規則運算式
2. Delegate
3. EventArgs

主程式畫面如下

要自動下載檔案可以先在蕃薯藤(yam)天空部落上找到要下載的歌曲,
然後將該網址複製下來,貼到程式畫面中的"網址直接下載"欄位中,

並按下 [Download] 按鈕就可以了,預設檔名為該歌曲在蕃薯藤上的歌曲編號。

當然也可以在 "要下載的歌名" 欄位中輸入想聽的歌曲(或是歌手姓名),按下 [Search] 鈕,
程式自動會帶出找到的歌曲。
找到的歌曲就如同你在蕃薯藤上手動輸入歌曲查詢的結果一樣,
目前程式只抓第一頁,若超過一頁請自行找出歌曲,並將網址貼上"網址直接下載"欄位中,再下載。

如果下載的檔名重覆,系統會自動產生 [歌曲檔名(編號).mp3] 的檔名

再次聲明:
本軟體是為了練習寫程式用,
裡面用的技術可以拿來參考,
若下載未經過合法授權的檔案, 有可能會違反著作權法第91條的重製罪。

這個程式碼我刻意不預先寫入一些功能,
因為這只是練習寫程式用,
有興趣的人請下載原始碼自行加入新功能。
1. 可以搜尋超過一個頁數的歌曲,(這個功能可以利用Regular Expressions 規則運算式來達成,只需 2~5 行程式碼)
2. 下載列表的狀態顯示,改成同一歌曲下載,不另外多顯示完成列(再多加一個 Function 及可)
3. 可下載 FLV 檔案
4. 可解析多個網站
5. 其它功能暫時還不想要加,應該用了不爽才會再加入新功能,到時 V2 版會更好用更強大(期望..)

執行檔下載(AutoDownloadYamMP3_V1.zip 13k)
程式碼下載(AutoDownloadYamMP3_V1_SRC.zip 19k)

使用 Delegate 解決 [跨執行緒作業無效] 的問題!

2011-12-19T17:25:00.000+08:00

今天在寫程式時遇到錯誤訊息
System.InvalidOperationException: 跨執行緒作業無效: 存取控制項 'txtLog' 時所使用的執行緒與建立控制項的執行緒不同。

這個問題很明顯是在多執行緒的物件中,要在另一個執行緒物件裡做動作是會有問題的
我寫了一個小程式重現一下這個問題,
程式很簡單,畫面如下

會出現錯誤的程式碼如下:

Public Class Form3
    Dim _testTimer As Timers.Timer
    Dim _timerInterval As Integer = 3
    Dim _timerCount As Integer

    Private Sub btnStopTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopTimer.Click
        ''停止時間
        Me._testTimer.Stop()
    End Sub
    Private Sub btnStartTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartTimer.Click
        ''重新開始時間計數
        Me._testTimer.Start()
    End Sub
    Private Sub txtCmd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInterval.TextChanged
        ''重設時間常數
        Me._timerInterval = CInt(txtInterval.Text)
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtInterval.Text = Me._timerInterval.ToString

        Me._testTimer = New Timers.Timer
        Me._testTimer.Interval = Me._timerInterval * 1000
        AddHandler _testTimer.Elapsed, AddressOf Me.TimerOnElapsed
        Me._testTimer.Start()
        txtLog.Text = "Time is Start"
    End Sub

#Region "Handle Timer Event"
    Private Sub TimerOnElapsed(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs)
        Try
            Me._testTimer.Stop()
            _timerCount = _timerCount + 1
            ''錯誤發生在下面那行
            txtLog.AppendText(Me._timerCount.ToString & vbCrLf) 
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            Me._testTimer.Interval = Me._timerInterval * 1000
            Me._testTimer.Start()
        End Try
    End Sub
#End Region
End Class

因為我要 Handle Timer 的 Elapsed 事件,
所以將事件另外 Handle

    AddHandler _testTimer.Elapsed, AddressOf Me.TimerOnElapsed

但是要把計數值寫入 TextBox 中會出現"跨執行緒作業無效"的錯誤訊息,
所以多加入委派的 Sub 將寫入 Textbox 的事件重新導向

Public Class Form3
    Dim _testTimer As Timers.Timer
    Dim _timerInterval As Integer = 3
    Dim _timerCount As Integer

    ''委派加入 TextBox 字串的動作
    Private Delegate Sub AppendTextBoxCallback(ByVal txtBox As TextBox, ByVal strValue As String)

    Private Sub AppendTextBox(ByVal txtBox As TextBox, ByVal strValue As String)
        If Me.InvokeRequired Then
            Me.Invoke(New AppendTextBoxCallback(AddressOf Me.AppendTextBox), New Object() {txtBox, strValue})
        Else
            txtBox.AppendText(vbCrLf & strValue)
        End If
    End Sub

    Private Sub btnStopTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopTimer.Click
        ''停止時間
        Me._testTimer.Stop()
    End Sub
    Private Sub btnStartTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartTimer.Click
        ''重新開始時間計數
        Me._testTimer.Start()
    End Sub
    Private Sub txtCmd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInterval.TextChanged
        ''重設時間常數
        Me._timerInterval = CInt(txtInterval.Text)
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtInterval.Text = Me._timerInterval.ToString

        Me._testTimer = New Timers.Timer
        Me._testTimer.Interval = Me._timerInterval * 1000
        AddHandler _testTimer.Elapsed, AddressOf Me.TimerOnElapsed
        Me._testTimer.Start()
        txtLog.Text = "Time is Start"
    End Sub

#Region "Handle Timer Event"
    Private Sub TimerOnElapsed(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs)
        Try
            Me._testTimer.Stop()
            _timerCount = _timerCount + 1
            'txtLog.AppendText(Me._timerCount.ToString & vbCrLf)
            '交由委派的 Sub 去工作
            AppendTextBox(txtLog, Me._timerCount.ToString)
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            Me._testTimer.Interval = Me._timerInterval * 1000
            Me._testTimer.Start()
        End Try
    End Sub
#End Region
End Class

講了那麼多,主要就是要加入 Delegate 這行,

    Delegate Sub AppendTextBoxCallback(ByVal txtBox As TextBox, ByVal strValue As String)

並在要做的動作寫在委派的 Sub 中就可以了。

    Private Sub AppendTextBox(ByVal txtBox As TextBox, ByVal strValue As String)
        If Me.InvokeRequired Then
            Me.Invoke(New AppendTextBoxCallback(AddressOf Me.AppendTextBox), New Object() {txtBox, strValue})
        Else
            ''想要做的事情寫在這裡
        End If
    End Sub

給永遠的思懷姐

2011-12-13T00:30:00.000+08:00

去年底,聽到思懷姐得了癌症,
突然覺得腦筋一片空白,
心裡有好多的問號?
為什麼這麼突然,怎麼會這樣...
似乎這個情形都會發生在,初聽聞家人,得到不治之症時的震驚表現吧!

認識思懷姐是在我高中時期,當時她跑來約我和弟弟一起去參加喜樂營,
當時的我正值叛逆期,凡事總以自我為中心,
感覺自己很行,什麼事都能做,
翹課打架是家常便飯,
甚至積滿三大過被退學。
換了間學校後,還是沒有多大長進,崇拜著進出少年看守所的同學或朋友,
好像他們才是大哥一樣!

這時的我對什麼喜樂營跟本完全不感興趣,還有點排斥,
父母也認為我是個沒救的小孩,我總覺得他們想要把我丟給思懷姐,看他能不能帶我?
最後在母親的勸說和弟弟的拜託下,心不干情不願的答應去什麼鳥喜樂營。

當期的喜樂營是到南投縣雙龍村的一個小部落,主要是學習如何帶領小朋友,如何認識基督教信仰。
到當地,看到原汁原味的部落,迎面而來的是天真無邪的布農族小朋友,
看到我們第一句話就問"你們是歪國人嗎?"
當時確實有被這一幕嚇到,想不到在台灣的這個土地上,
竟然有這樣的朋友,沒有見過"一般人"
所以在那裡的兩個星期,我開始學習如何帶領小孩子,如何上台講故事,如何讓基督教信仰更加堅定。
也學會了反省自己的渺小,和人與人的相處之道。
思懷姐在這其中也幫了我不少忙,讓我成長了很多。

在後來的日子裡,大家各奔東西,
思懷姐朝著傳福音的方向走,
我則努力的彌補荒唐的年輕歲月,
這其間,我會打聽思懷姐的情況,
也曾去到嘉義找過她,我總是對她有著幾分的敬意,
她就像我的大姐姐一樣,把我從歪斜的人生拉了回來,改變了我的一生。

恩懷姐在化療的其間,我一直不敢去看她,
我怕外面的病菌會傳染給她,更怕我的眼淚不爭氣的流下來,
在家裡只能一直問著老媽,思懷姐的情形如何....
除了禱告,還是只能不停的禱告。

最後,我提起勇氣去看了她,
還沒開口,我的眼淚就快流出來了,果然被我家大人說中了,
原來我是愛哭鬼?
第一次去看思懷姐,她氣色還不錯,可以講話,聊天,
要我和弟弟講笑話給他聽,
那時都要哭出來了,也想不出什麼笑話可以講....
思懷姐那天說了一句話,
我很努力的活著,為什麼有人這麼輕易就去跳樓呢?
是呀,有勇氣跳樓,卻沒有勇氣活著?
偏偏就是有這種人.....

第二次去看思懷姐時,
因為鼻子過敏,不停的流鼻涕,我想又要被誤會是愛哭鬼了吧!
其實第二次去看思懷姐時,因為化療的關係,她把頭髮剪掉了,
看著思懷姐消瘦的臉頰,和腫脹的雙腿,真的十分不捨。
這時的她無法講太多話,我也不敢留太久,只想要思懷姐好好休息。

2011/11/19
思懷姐突然說想要去見耶穌了,
聽到這個消息心裡真是難過又覺得高興,
不捨思懷姐離開我們,但又欣慰思懷姐不用再受苦了

2011/11/20
思懷姐的家人準備好一些事情,等著思懷姐到主的懷抱裡,
晚上我和弟弟也趕到醫院要陪思懷姐在人間的最後一程,
醫護人員說,人在臨終時,心跳會到160左右,
聽說這時人算是靈魂與肉體接近分離的時候
然後心跳會到 110 左右,起起伏伏...直到停止
當天思懷姐就這樣靈魂離開又回來,然後離開了又回來......
看到了耶穌,見到了天堂
感覺思懷姐這樣跑來跑去應該很累吧~~~
我們在醫院裡,一一的和思懷姐道別,
我握著思懷姐的手,發現他的手變得好細小,想不到一個人可以瘦成這個樣子,
腦筋裡有好多的話想對思懷姐說,可是我又說不出來,
總是卡在喉嚨裡,強忍著眼淚,勉強擠出幾個字,要思懷姐安心的走...
後來思懷姐的爸爸(盧牧師)來到醫院,看著思懷姐,摸著她的頭,
輕聲說著:[哇A寶貝查某子,你看起來金水,你就安心的去吧!]

我的腦海裡突然閃過一個畫面,
王永在先生,看到王永慶的遺體時,喊了一聲[阿兄!]
這是一個手足之間,深厚的感情,全都濃縮在這兩個字裡。
那是痛徹心扉,發自內心的哭喊。

盧牧師的這幾句話,道出了一個父親對女兒的不捨,
他完全的順服,放手讓自己的女兒到天父身邊。
此時完全無法用任何的言語去安慰和表達,
因為我們都能感受到那份愛是多麼的強烈。

大家在那裡也一起唱詩歌,希望能讓思懷姐平靜的走...
就在我們道別完後不久,思懷姐突然醒了,精神很好,
可以和我們聊天講話,還會笑,
我們還和思懷姐合照,講笑話,
盧牧師和牧師娘在旁邊刮痧,
慈敏幫思懷姐抹油,
整個場面完全感受不到這是一個臨終的人該出現的情景。
後來因為時間不早了,和思懷姐道別,實在搞不懂神的旨意。

2011/11/22
思懷姐明白神的心意了(以下內容摘自 Espenanza Lu 的 FB )
-----------------------------------------------------------
早上醒來不再問為什麼還在醫院，懷說:我明白父神的心意了。
她走過天堂，看見聖城、耶路撒冷，漂亮景物，說耶穌很高很帥。

原來，神在破碎她，也藉著與眾人的合好，釋放靈裡的自由，神也藉此修復我們家人的關係，道歉、道謝是多麼的重要。
----------------------------------------------------------
哦~真是太奇妙了,思懷姐竟然這樣活過來了!
還可以用台語傳福音,
大家聽到這個消息真的覺得很不可思異,也很高興,
原來父神是要思懷姐再次傳福音給其他人。

自從思懷姐出院後因為一個多月沒有進食,都只靠著打針,
胃多有受影響,出院後只吃一點點食物,
不過腳的腫脹開始消腫了,
腹部的積水也消了,
連止痛貼片(嗎啡)都沒使用了...
感覺好像思懷姐可以再次我們一同飲食,一同歡笑。

2011/12/12
今天突然收到亞男傳來的簡訊,
思懷姐於10:15分安息了,走的很平靜。
前一天晚上才和爸媽聊到思懷姐的情況,
老媽還想說等思懷姐好一點再一起去看她,
怎麼會這麼突然?
或許天父要思懷姐做的工已經完成了,
所以在睡夢中將思懷姐接回天家,
那美好的仗,他已經打過了。

這是思懷姐去年聖誕節(2010)住院~晚上跟醫院請假出來主持聖誕晚會

以此文獻給我最敬愛的思懷姐!
願思懷姐在天堂得著快樂與平安,總有一天我們會在天家相見的。

使用巨集(Macro)加入圖片,並調整大小(長寬)及建立表格

2011-11-29T18:28:00.002+08:00

為了要快速建立圖片在 Word 的表格中,並調整大小,
寫了一個巨集(Macro) 大陸用語叫"宏",
目前這個巨集只是寫暫時能執行,算是堪用,
有需要的朋友可以自行修改成更適合自己的程式。

＜＜本範例使用 Microsoft Office Word 2003＞＞
首先,只要將新建的 Word 檔和要加入的圖檔放在同一個目錄下,

開啟 Word,選到巨集的 VB 編輯器

然後把以下的程式碼貼上編輯器

Public Sub LoadPicture()
    Dim myRow As Integer
    Dim myCol As Integer
    
    myRow = InputBox("請輸入列數 (Rows)", "Row Size", 2)
    myCol = InputBox("請輸入欄位數 (Cols)", "Col Size", 3)

    With Application.FileSearch
        .FileName = "*.jpg"
        .LookIn = ActiveDocument.Path
        .Execute
        For I = 1 To .FoundFiles.Count
            ''插入圖片
            Selection.InlineShapes.AddPicture FileName:= _
            .FoundFiles(I), LinkToFile:=False, SaveWithDocument:=True
            ''在圖片右邊輸入逗號
            Selection.MoveRight Unit:=wdCharacter, Count:=1
            Selection.TypeText Text:=","
        Next I
    End With

    Selection.WholeStory    '全選
    ''轉換文字形態成表格
    Selection.ConvertToTable Separator:=wdSeparateByCommas, NumColumns:=myCol, _
        NumRows:=myRow, AutoFitBehavior:=wdAutoFitFixed
    ''最到第一頁,最前頭
    Selection.HomeKey Unit:=wdLine
    Selection.HomeKey Unit:=wdStory
    ''呼叫副程式調整所有圖片大小
    AllPictSize
    
End Sub

''調整圖形大小
Sub AllPictSize()
    Dim picWidth As Integer
    Dim picHeight As Integer
    Dim oIshp As InlineShape
    
    picHeight = InputBox("請輸入照片高度", "Resize Picture", 128)
    picWidth = InputBox("請輸入照片寬度", "Resize Picture", 120)

    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .Height = picHeight
            .Width = picWidth
        End With
    Next oIshp

End Sub

執行巨集(Macro)

執行時會要求輸入一些設定值

載入的圖片會以圖檔的檔名順序依序插入,並建立表格。

當然,若是只要調整圖片大小,
執行巨集時就選擇 [AllPictSize]
這樣就不會重覆載入圖檔,只會調整大小囉~~

參考資料
調整圖片大小
批次插入圖片

今天是 20111102

2011-11-02T13:26:00.000+08:00

20111102 這個數字不管是左邊看來還是右邊看都一樣,
2011/11/02 今天果然是個特別的日子。

環島公里數

2011-09-29T15:26:00.000+08:00

昨天去把車牽回來了,趕緊補照一下里程數,

由台南出發時的公里數(27760.0)

高雄出發里程數(27814.4)

回程結束里程數(28601.8)

總共騎乘里程數 = 27760.0 - 28601.8 = 841.8 公里

少了桃園到台南的路段,不然就破千了!

兩天一夜四極點環島夢 (後記)

2011-09-27T23:18:00.001+08:00

這次的旅行會安排兩天一夜,主要是在網路上看到有人花24小時就跑了四個極點,
想想,把時間拆成一半,應該會輕鬆一點!
誰知實際跑過後發現,
人家不會告訴你一路上是要飆多快,
每個點根本不能停留超過半小時,
到那個地點要注意什麼...
事前的規劃固然重要,
但臨場的反應也是重點。

幾個在趕路的路段,也不知道有沒有被測速照相照到...
若被照到,就為這次的環島更增添難忘的回憶了。

先統計一下本次費用

首先是車子的整理費用 5500

加油(小計):826

台南永康:90
高雄三多:65
屏東墾丁:105
台東太麻里:125
花蓮豐濱:130
花蓮新城:76
宜蘭頭城:90
基隆北寧:60
台北新莊:85

寄車(桃園到台南):730
高鐵(桃園到台南):1190

食(小計):418

第一天早上,7-11:55
第一天中午,7-11:90
第一天晚上,家樂福鐵板燒:150
第二天早上,7-11:18
第二天中午,麥當勞:105

住宿,花蓮:450
鵝鑾鼻停車費:10
鵝鑾鼻門票:40

總計:5500+826+730+1190+418+450+40+10 = 9164元

果然,夢想是昂貴的。
好幾個月的零用錢要被分期扣款了...

兩天一夜四極點環島夢 Part 2

2011-09-27T16:41:00.002+08:00

第二天一大早,凌晨三點,準備出發,
經過昨天的經驗,發現根本不能每個景點都停,所以講好今天要趕行程。
於是趕緊出發跑蘇花公路。
第一次跑蘇花公路

雖然一樣天黑,不過是早上,所以越騎天色越亮,至少心情會好一點。

騎到蘇澳終於天漸亮...

再努力趕路吧~~~到宜蘭囉~~

就快到三貂角時突然下了大雨,趕快找個地方躲雨,
等頭上的雲散去再出發,也可以順便休息一下。

哈~~第二站到達,
極東點,三貂角燈塔,完成!

此時雨勢一陣一陣的...

拍了幾張照趕往下一個地點,

三貂角燈塔地勢較高,由上往下看風景不錯,只可惜不能久留,

從極東點到極北點,距離84公里,
一路上都不敢停下來拍照,只能一直趕路...
穿過基隆...

經過核二廠...

好不容易到了極北點了,

從告示牌要走到燈塔還有很長的一段路要走,
背著全身的家當走那一段路真的是"內牛滿面"呀,
看小光的表情就可以知道路有多長了。

終於走到燈塔門口了,
第三個極點,極北點,富貴角燈塔,完成!

快點來個合照吧!

在這裡走到鞋子都壞了...

當然,走在台灣最北端,當天做了全台最"靠北"的男人!!

準備開始往南趕回家了,
這時是早上 11 點半左右,時間嚴重 Delay,
預計騎回去時間會是晚上十二點過後了,
先衝再說。

到了台北市區,一整個大迷路

問了表姐夫大方向該怎麼走,
又看了導航路線,結果還是迷路,
不是單行道,就是機車不能上的路橋....
還問了警察杯杯,結果就是在台北城迷路兩個多小時繞不出去...
好不容易看到指標,真是高興,終於走出台北城了!

到附近的麥當勞吃個午餐吧,下午三點多都還沒吃咧,餓屎了....
在麥當勞打個卡,一看不得了,怎麼不是桃園的麥當勞,是台北市新莊的麥當勞,
靠~這是怎樣呀,還沒繞出台北的魔爪嗎?

在麥當勞和小光討論這下子回到高雄時間太晚,都半夜了,
決定在最後時刻放大絕,以時速300公里飆回去,
所以騎到桃園先把車拖運回台南,再請小光的表哥載我們去高鐵站....

揮別了桃園....
再見了第四個極點....
我的"落漆"環島行....
要就此結束了嗎?
累到兩腿發軟,上了年紀真的和年輕人沒得比,
先回家吧!平安是回家唯一的路,不要硬撐了。

坐上了高鐵,以時速300公里飆回台南,
心想,第四個極點一定要跑完,下次再和小光約好一起到台南的國聖燈塔吧!

兩天一夜四極點環島夢 Part 1

2011-09-27T15:07:00.000+08:00

有些事做了,後悔一輩子,
有些事不做,一輩子後悔。

既然決定要環島,為何還要再等呢?
就在生日前去完成它吧!

以前在做事前,我總會規劃一堆,然後才敢去做,
這次故意只看大概,不想去規劃,
只知道相機,手機帶著,其它隨機應變!

決定當天就先去車行整理車子,
換下來的零件

修車明細表,最後老闆良心發現,算整數,共花了我 5500 元

出發里程數

2011/09/23(五)
一下班就騎著機車先回到高雄家裡整理行李,準備第二天一早出發。

2011/09/24(六) 早上五點出發,
先來張里程數

一車的機私頭

早上簡單的吃了早餐,就和小光出發了。
一路延著台一線走到林邊,小光的地盤,在當地再吃個小光推薦的早餐,
只是那時胃痛,沒法吃完全部,只好麻煩小光全數解決了。
吃完早餐就開始一路往南衝,騎到接近恆春時,落山風大到連車都騎不穩,
先停一下喘口氣,這時肚子又開始痛了,差點就地解放。

趕緊衝到附近的加油站狂洩,呼~總算"蘇湖"多了。
繼續往第一站出發,到了船帆石停下來拍張照休息一下。

終於到了第一站,台灣最南端,鵝鑾鼻燈塔,
進去機車要收停車費 10元,
停好車要進去再收一次門票,40元。

背了所有家當一路走去....

到達第一站,台灣極南點,鵝鑾鼻燈塔

兩個傻瓜還高興得到處拍照,都不知道寶貴的時間正一點一滴的流失....

還拍....

在鵝鑾鼻浪費了不少時間,
終於肯繼續旅程了,
到了核三廠留念一下

到南灣打個卡
騎到楓港準備進入南迴了

順便照一下里程數,因為後來的里程都忘了照!! >_<

騎到南迴一半的路程又玩起自拍了,再次無知的浪費時間...

好不容易騎到台東,看到漂亮的海岸線,再次停下腳步....

到台東吃個 7-11 中餐,

再出發...
經過一間特別的廁所,竟然要脫鞋才能上...
看了一下裡面,還真的很乾淨呢!

經過了小野柳,這可是今年第二次來耶!

再騎了好長一段路才看到三仙台,
以前都沒機會來看過,這次總算....失望了!
進去要門票,只為了看三塊大石頭加上一座橋,算了,
這不是本次目的,不花錢了!

沒進去也要在門口拍個照,表示到此一遊!

一路往花蓮騎,中途看到北迴歸線地標,
想要停下來拍個照,然後順便問一下當地加油站,
誰知道當地加油站只營業到五點,他x的,我的油又剩不多了....
看一看手表,pm 4:40...真的很趕...
來不及拍照先衝去加油再說,否則要再騎很長一段路才有加油站了。
一路狂飆直衝加油站,只看站長開始關門,我趕緊滑行進去,有驚無險的加完油!
呼~真的嚇屎我了。
繼續往前吧~~終於騎到花蓮海洋樂園了

再來就是花蓮的迷路之行,
花蓮的路幾乎沒有路標,問當地人也很難說明清楚,
感覺好像他們報路是這樣的....

[先生你要去蘇花呀,天黑了不要騎比較好,
你只要往前走到前面的路口,先左轉,看到藍色的房子就是阿財他家,再右轉,
你會看到一戶人家有圍牆,旁邊種很多紅色的花,
順那條路直走,會看到xxxx............]

反正就是不會出現路名,因為你看不到路牌,
不得以用導航試試,結果導到一條沒路燈,沒住戶,路又小的山路...
最後安全起見,只好回花蓮市區先住一晚,第二天早點出發把時間補回來了。

晚上和小光找了一間汽車旅館住,順便討論第二天的行程,
最後決定第二天一早,三點就要起床出發,七點半到三貂燈塔,否則時間會拖太晚,
所以早早就上床就寢,這時我真的累到不想動了,兩眼一直是充滿血絲的狀態....

白色聖誕樹

2011-08-22T11:18:00.000+08:00

小時候就很喜歡吃釋迦,
除了那甜滋滋,又帶點特有香氣的口味外,
另一個原因,我想就是吃到一半,
可以從裡面拉出一顆白色聖誕樹的驚奇吧!

人生的2/3

2011-08-12T12:12:00.000+08:00

前幾天看到一篇文章,是描寫在花旗銀行擔任主管的黃毅人生觀,
可以在網路上以關鍵字搜尋,會發現很多轉貼的文章寫到,[十三年不加班的花旗副總裁...]
裡面有寫到一些黃毅人生觀,正好和我的想法不謀而合,
讓我感觸很深。

其中談到,人生有1/3的時間在工作,
要善用2/3的人生。
對我來說,1/3是工作,1/3是睡眠,能利用的才是剩下的1/3
自從進了所謂的資訊產業,每天早上天亮時上班,下班時都是月亮高掛,
每天的工作時數都超過12小時,我的人生有1/2被工作占領,
最近工作量又爆增,肝也開始變硬了!
一想到我的人生有 1/2 給了公司,1/4留給睡眠,1/4留給家庭
沒有東西留給自已,真是悲哀呀!

看完了那篇文章,我陷入了沈思....
人生就是這樣呀,只是我要活得更加精彩。

時間先拉回我國中時期,
在國中求學時,曾有個想法,
想要以搭火車的方式,遊遍全台,並在每個站牌前拍照做記錄,
後來發現這麼做要花好幾千元,以一個國中生來說還真是不小的負擔。
所以最後的決定是別傻了,等有錢再做吧!
但是有了錢卻沒時間....

在當時還沒有聽過什麼環島呀之類的背包客,
可是在內心裡對環島這個想法還是揮之不去。

時間回到了 2011 年,前幾天在網上衝浪時無意間看到一篇文章,
小女子單人四極點24耐
連新聞都有報,這對我來說可是一記當頭棒喝,
四極點和24耐對我來說是個新名詞,
四極點是指台灣本島四個東西南北的極點,
24耐是指24小時不間斷的耐力自我挑戰。

這時我心中那把火被點燃了,
火車環島的錢太貴,改成機車吧,自由度也高,
24耐有安全性的考量,我還是不要太衝動,
因為公司請假的問題,環島時間不能太久,
最後決定以兩天一夜,四極點的方式去完成我的環島夢。

假設我的人生有七個十年
前面第一和第二個十年被我浪費掉了,
第三個十年至少我做了人生的重大決定,
第四個十年我不想空白,誰知道還有沒有下一個十年?
只要起步都不嫌晚,
所以,兩天一夜,四極點,我來囉~~~

寶寶長牙了

2011-08-09T14:13:00.004+08:00

嬰兒長牙的時間都不太一樣,
我家小公主四個月大就開始長牙了
長牙後才發現真的變得比較愛哭,
喜歡咬東西,流口水.....

最近被吵到有點受不了,所以上網找看看有什麼好用的東西,
可以讓小寶寶長牙時不要太難受,可以讓父母輕鬆一點。

後來看到有一種東西叫做"長牙舒緩劑"
而且長牙舒緩劑的品牌眾多,
功能上大致相同,都是含了類似麻醉藥的成份,
可以舒緩寶寶長牙的不適感。

但是看到麻醉藥就有點怕
順便查了一下副作用,什麼是 Orajel
找到國外的一些案列
其中有提到 "difficulty breathing and grey/blueish face."
會有呼吸困難及臉色鐵青的症狀,
看來像是對裡面的成份產生嚴重過敏反應所造成的。

不過看到網路上還是有人在推薦 Baby Orajel
所以副作用的案例應該是不多才對。

雖然新生兒時有做過"過敏指數"的檢查,
可是應該不含麻醉藥過敏吧!
我也不太清楚。

現在還在猶豫不決,到底該不該買長牙舒緩劑呢?
還是要忍一忍?或是拿固齒器?
可是又怕固齒器會造成牙齒長歪了....
唉~真難為。

字串置換(取代)應用 (RegularExpressions 的 Replace)

2011-08-05T18:19:00.000+08:00

今天看到同事寫的一個字串置換功能程式,
發現真是太好用啦,趕緊記下來以免日後忘了。

首先要講個事件原由,
因為有個由使用者輸入的字串,
但字串中不能寫入特殊字元 "[" "]" "*" "%"
一般的寫法如下

    If keyWord.Contains("[") Then
        keyWord = keyWord.Replace("[", "要取代的字串")
    End If
    If keyWord.Contains("]") Then
        keyWord = keyWord.Replace("]", "要取代的字串")
    End If
 '...略

萬一要取代的字串和特殊字元重疊,會造成前面置換成功的特殊字元再次被取代,
例如每個特殊字元的前後都要用 "[" "]" 包起來時
一般寫法如下:

 If keyWord.Contains("[") Then
        keyWord = keyWord.Replace("[", "[[]")
    End If
    If keyWord.Contains("]") Then
        keyWord = keyWord.Replace("]", "[]]")
    End If
 '...略

 '假設第一次的 Keyword 為 "select [abc] "
 '會被取代成 "select [[]abc] "
 '到第二個判斷式時,
 '要取代 "]" 時就會變成 "select [[[]]abc[]] "
 '這樣一來就全亂了。

這時有個解法,就是使用 Regular Expressions 的 Replace
前提是需引用 System.Text.RegularExpressions

講解一下參數的用法,
判斷式的寫法 (?<自定參數名稱>\跳脫字元)
這裡的 matchReplace 是參數名稱,也可以自己命名為 abc 或 def ...隨你高興
要置換的字元就是斜線後接的跳脫字元,

例如我想把字串中所有 "[" 符號的字全都替換成 "==[=="
可以寫成

若是連 "]" 也要換成 "==]==",
可以寫成

中間加入的 "|" 表示 or,也就是說我不管是 "[" 或是 "]" 我都要換成 "==[==" 或 "==]=="

當然要替換的字也不一定要包括原有符號
假設要將 "[" 換成 "^_^"
那就寫成

使用方式可參考線上 MSDN

同樣的 RegularExpressions 在 N++ 或是其它文書軟體都有類似的功能,
在大量替換(取代)特定資料時非常有用
例如 N++ 的說明中有一段範例,假設要把德國的年月日組合方式改成常用格式,做法如下

有木有呀,這裡的 Search 和 Replace 就有用到 Regular 的方式了。

善用 RegularExpressions 不但快速,還可以省下很多程式開發時間呢!!

2011-07-22T15:08:00.001+08:00

最近為了整理文件,需要將某資料夾裡所有檔案各別列出說明,
雖然使用 DIR /s/o >> FileName.txt 的指令可以直接存成檔案,但輸出格式無法很方便使用,
所以昨天花了點時間,用 VB6 寫了個程式,可以列出指定目錄下的所有檔案為我自己要的格式。
主要是呼叫 Windows API 並用遞回的寫法,把檔名全都列出來

Call API 的寫法如下

'=================================
'=== Call API 的設定
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260

Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long

Private Type BrowseInfo
   hWndOwner As Long
   pIDLRoot As Long
   pszDisplayName As Long
   lpszTitle As Long
   ulFlags As Long
   lpfnCallback As Long
   lParam As Long
   iImage As Long
End Type
'=================================

Function OpenFolderPath() As String
    '=======================================
    '用 VB 呼叫出在【尋找：所有檔案】中的【瀏覽資料夾】問話框
    Dim lpIDList As Long
    Dim sBuffer As String
    Dim szTitle As String
    Dim tBrowseInfo As BrowseInfo
    szTitle = "請選擇要開始搜尋的資料夾...."    '<-- 此標題可根據需要自行更改
    
    With tBrowseInfo
        .hWndOwner = Me.hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
    End With
    
    lpIDList = SHBrowseForFolder(tBrowseInfo)
    
    If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        OpenFolderPath = sBuffer    '傳回路徑字串
    End If
End Function

遞回的寫法如下:

''=== 取該目錄下所有檔名
Private Function GetFileName(ByVal strFilePath As String, ByVal strInsertString As String) As String
    Dim retString As String
    Dim F1, fc
    Dim objF As Object  '定義開檔物件
    Dim objFs2 As Scripting.FileSystemObject

    strInsertString = gstrFileInsertString & strInsertString
    
    Set objFs2 = CreateObject("Scripting.FileSystemObject")
    Set objF = objFs2.GetFolder(strFilePath)
    Set fc = objF.Files
    '抓取要讀入的檔名資料
    For Each F1 In fc
        retString = retString & strInsertString & F1.Name & vbCrLf
    Next

    Set objFs2 = Nothing '釋放FileSystemObject 物件
    Set objF = Nothing
    
    GetFileName = retString
End Function

''=== 用遞回方式取出子目錄下所有檔名
Private Function GetSubFolder(ByVal strFolderPath As String, ByVal strFolderInsertString As String, ByVal strFileInsertString As String) As String
    '==================================按下儲存資料夾名稱時
    Dim F1, fc
    Dim objF As Object  '定義開檔物件
    Dim strFoldersName As String    '定義資料夾名稱為字串型態
    Dim objFs2 As Scripting.FileSystemObject
    Dim strInsertString As String
    Dim strLogString As String
    
    strFolderInsertString = gstrFolderInsertString & strFolderInsertString
    strInsertString = gstrFileInsertString & strFileInsertString


    Set objFs2 = CreateObject("Scripting.FileSystemObject")
    Set objF = objFs2.GetFolder(strFolderPath)
    Set fc = objF.SubFolders
    '抓取要讀入的資料夾名稱資料
    For Each F1 In fc
        strLogString = strLogString & vbCrLf & strFolderInsertString & "[" & F1.Name & "]" & vbCrLf
        strLogString = strLogString & GetFileName(strFolderPath & "\" & F1.Name, strInsertString)

        strLogString = strLogString & GetSubFolder(strFolderPath & "\" & F1.Name, strFolderInsertString, strInsertString)
        
        DoEvents
    Next
    
    Set objF = Nothing
    Set objFs2 = Nothing '釋放FileSystemObject 物件
    
    GetSubFolder = strLogString
End Function

由於這個程式只是臨時要用花個半天時間寫的,
很多細節沒有去 Handle,能用就好,
有需要的人自行下載程式碼回去修改。
執行檔下載(7.9K)
原始程式碼下載(3.3K)
程式畫面如下

Becky Mail 無法加入附件

2011-07-22T00:38:00.000+08:00

昨天要寄 Mail 時突然無法加入附件,
一開始以為電腦出問題,所以重開機,
但重開完後還是不行。

後來發現是檔名或路徑帶有特殊字元造成的
這次是遇到 "®" 這個字,
上網查詢一下,發現還有 "羿" 這個字
我猜想應該不只,應該是該字元的組合包含了 "\" 這個符號造成的
只是猜測,我還沒有時間去證實,
反正改個路徑及檔名就可以了,
就先醬吧!!

如何使用 VB6 下載網路檔案

2011-07-15T13:16:00.001+08:00

今天一個朋友打電話,說需要用 VB6 寫一個可以下載網路檔案的功能
相關功能很久以前寫過,翻了一下記錄發現很簡單,幾行就解決了。

建立一個 Module

'由網路下載檔案
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal Caller As Long, ByVal URL As String, ByVal FileName As String, ByVal Reserved As Long, ByVal fnCB As Long) As Long
'由網路下載檔案
Public Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long

在主程式中直接呼叫

'不會跳出下載框
    URLDownloadToFile 0, "http://xxx.xxx.xxx.xxx/test.txt", "c:\test.txt", 0, 0

    '會跳出下載框
    Dim sFileUrl As String
    sFileUrl = StrConv("http://xxx.xxx.xxx.xxx/test.txt", vbUnicode)
    DoFileDownload sFileUrl

就這麼簡單。

開發 Android 程式(環境準備)

2011-07-13T14:07:00.000+08:00

最近因為需要一個手機功能,
但是在 Android 市場上都找不到,
所以打算自己寫一個。

一開始當然是開發環境的準備囉~
參考環境安裝說明
好不容易裝好,不過卻也花了半天的時間了,
然後就是開始始撰寫軟體,最後就是看看如何發佈軟體,
先看了一下如何發佈,才發現,
註冊開發人員帳戶需要美金 25元,
蝦會~~還以為不用錢咧~~
再考慮看看吧,先寫個好用的程式再說!

謠言止於智者!!

2011-07-12T00:05:00.000+08:00

今天同事請假,聽說住院了,
於是大家議論紛紛...

A: ㄟ...聽說同事S請假
B: 哦~~剛才J主管好像有去看他
C: 咦,S他老婆生了嗎?
D: 喔~他老婆生了住院,所以S請假嗎?
B: 不是,是S住院,請假
C: 怎了,要不要緊
B: 聽說是肚子痛檢查是盲腸炎,結果開刀
D: 蝦會~他老婆怎麼會割包皮!!

從頭到尾都沒人說割包皮,不知道怎麼聽的,
唉~~ 謠言止於智者!!

終於搞定了,在 Blog 中秀程式碼範例框prettifier(高亮顏色字體)

2011-07-06T00:10:00.003+08:00

以前就看過有人在網頁上秀出程式碼的範例框,
一直不以為意,直到前天在寫 Blog 時發現,要貼的程式碼一多,
會造成困擾,因為要不停的調色及排版.....
後來才想到可以試試看用 Java Script的方式整理出 Code
找了幾篇文章,終於搞懂就是那麼簡單。

參考資料
google-code-prettify
Javascript code prettifier
介紹九種實用的秀程式碼方式(9 Useful Javascript Syntax Highlighting Scripts)
這是我選用的 SyntaxHighlighter 官網
針對 Blog 該如何使用的說明(Adding a Syntax Highlighter to your Blogger blog)

基本上照著使用說明操作一次就完成了,非常簡單
首先在 Blog 中進入設計－＞修改 HTML

找到＜head＞　＜/head＞
這兩段的區間,
把針對 Blog 該如何使用的說明中的程式碼貼到＜/head＞的前面

＜!--SYNTAX HIGHLIGHTER BEGINS--＞
＜link href=　略...
．．．
＜!--SYNTAX HIGHLIGHTER ENDS--＞

接下來在網頁中加入
＜pre class="brush:vb; toolbar: false;"＞
程式碼放在這裡面
＜/pre＞

或是使用以下的方式
＜script type="syntaxhighlighter" class="brush:html"＞＜![CDATA[
程式碼放在這裡面
]]＞＜/script＞

效果就會像這樣

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '我是註解
        Dim intI As Integer
        Dim strSum As String = ""

        For intI = 0 To 9
            strSum = strSum & intI.ToString
        Next
        MsgBox(strSum)
    End Sub

當然不只 VB 的 Code
還有很多,請參考官網支援高亮語言項目
還可以有多種風格自行選用,
更多用法也請自行參考官網。

將非 COM 元件的外部 DLL ,包入 .NET 開發的執行檔中 (PART 2)

2011-07-04T14:22:00.002+08:00

接續上一篇文章的程式碼實作部份

假設某一個 DLL (AddNumber.dll)
提供一個功能叫做 Add2Number(Num1,Num2) as Integer
首先將這個 AddNumber.dll 加入資源檔中

然後新增一個 Class (clsTest.vb)內容如下,新增三個會用到的 API

    Declare Function LoadLibrary Lib "kernel32" (ByVal LibFilePath As String) As Integer
    Declare Function GetProcAddress Lib "kernel32" (ByVal ModuleHandle As Integer, ByVal ProcName As String) As Integer
    Declare Function FreeLibrary Lib "kernel32" (ByVal ModuleHandle As Integer) As Integer

先前提到要載入的 DLL 有個 Function 叫 Add2Number 所以也要加進來讓主程式呼叫用
Delegate Function TestAdd2Number(ByVal Num1As Integer,ByVal Num1As Integer) As Integer
這裡使用委派 (Delegate) 的 Function Name 為了區別，我特地加了 Test 字樣

再來是主程式的部份
主程式裡要引用 System.Runtime.InteropServices ，以及剛才建立的 clsTest 檔案
Imports System.Runtime.InteropServices
Imports clsTest

在主程式的 Class下,順便把要用的變數設定好
Private _dllFuctionHandle As IntPtr
Private _loadDLLPath As String = "C:\TestAdd.DLL"   '解出的DLL要存放的路徑

程式執行時要先由資源檔中解出 DLL
My.Computer.FileSystem.WriteAllBytes(Me._loadDLLPath, My.Resources.AddNumberDll, False)
請注意上面的 AddNumberDll 是指在資源檔中的名稱

好了，DLL 檔解出來了再來是動態載入
Me._dllFuctionHandle = LoadLibrary(Me._loadDLLPath)

呼叫 API 載入 DLL 後，會傳回一個 Handle 碼，我們會利用這個 Handle 碼把 DLL 內的 Function 找出來。

Dim openMethodPointer As IntPtr '利用 GetProcAddress 的 API 取得 DLL 的 Function Handle
Dim dllMethod As TestAdd2Number '指向委派的 Function Name

'利用 API 取得 DLL 的 Function
openMethodPointer = GetProcAddress(Me._dllFuctionHandle, "Add2Number") '這裡的 Add2Number 是 DLL 中實際可使用的 Function Name

取得了 Function Handle 後就要把它轉換成可用的 Type

dllMethod = CType(Marshal.GetDelegateForFunctionPointer(openMethodPointer, GetType(TestAdd2Number)), TestAdd2Number)

大功告成了。
最後就可以開始使用 AddNumber.dll的 Add2Number這個 Function 囉~

Dim returnNumber As Integer
returnNumber = dllMethod(123,456)
回傳的結果就是兩數相加
returnNumber 的值就會等於 579

以上，看起來很煩瑣，其實一個一個操作下來並不難，
當然也可以把 Declare 及 Delegate 都寫在同一個程式碼中，
就看程式怎麼應用了。

最後有個很重要的一點，
就是使用完後請記得回收 DLL
   ''釋放 DLL
   ret = FreeLibrary(Me._dllFuctionHandle)
   ''刪除 DLL
   System.IO.File.Delete(Me._loadDLLPath)

將非 COM 元件的外部 DLL ,包入 .NET 開發的執行檔中 (PART 1)

2011-07-04T13:20:00.001+08:00

最近開發程式時發現一個問題，
就是要整合第三方程式時，希望把第三方軟體包進去自己的程式中，
用意是不想要讓 User 直接取用第三方軟體。

問題是第三方軟體不是用 .NET 開發，
而且也不是一般的 COM 元件，
所以無法用一般方法包進去程式中。

我試了幾個方式都不行
1. 註冊成 GAC (失敗)
2. 註冊 DLL (失敗)
3. 使用 ILMerge (失敗)
4. 在程式中引用 (失敗)
5. 以專案方式打包 (失敗)
6. 使用 Load Assembly (失敗)
7. 放入資源檔再解出 (可以,需搭配 API)
8. 使用 API 載入 (可以)
會失敗的原因我猜想是因為非 COM 元件所致，
只是沒試過很不干心，不過試了之後就死心了。

其實載入 DLL 的方法有很多種，
Declare Function就是其中一個可以載入非 COM 元件的方法，
不過這個方式沒法達到我想要包進程式中的目的。

解法就是使用資源檔包入 DLL，然後在程式執行時將 DLL 解出來放到某個地方，
再以 API 去動態載入 DLL。

會使用到的 API 有以下三個
    Declare Function LoadLibrary Lib "kernel32" (ByVal LibFilePath As String) As Integer
    Declare Function GetProcAddress Lib "kernel32" (ByVal ModuleHandle As Integer, ByVal ProcName As String) As Integer
    Declare Function FreeLibrary Lib "kernel32" (ByVal ModuleHandle As Integer) As Integer

使用方式請參考
將非 COM 元件的外部 DLL ,包入 .NET 開發的執行檔中 (PART 2)

護士服務不佳的高雄正薪醫院

2011-06-15T23:11:00.001+08:00

今天又要來抱怨了,
先前老婆的產檢都在高雄正薪醫院，
醫院說可以買光碟片做超音波的紀錄,
每次檢產時的超音波都可以錄影,
但是要在最後封片時才能看得到影片。
於是我們就買了光碟,每次也都有記錄,
可是最後,送去封片時院方卻把光碟片弄丟了。

請院方再找找,看是不是放錯地方或是其他媽媽拿錯了
但院方每次都只說會找,不過都沒有回消息,
每次都要我們自己去摧討才說有在找,然後又說沒找到,
我也不知道他們是否真的有在找?

本來還想說請院方退費就好了,但院方不聞不問的態度真的很火大,
最後決定尋求法律途徑解決,

所以找了六法全書及相關案例,
發現可以引用民法第227條「債務不履行損害賠償請求權」條文的"給付不能"這一類
另可與公平交易法第五章　損害賠償第31條（損害賠償責任）來請求賠償

雖然原則上引用以上兩條文就夠了,
但因為當時的光碟片是花了60元買的
也就是請求賠償的結果,最後也是院方判賠60元。

為什麼呢?
因為當時購買光碟片時,並沒有和院方簽訂任何契約,
有載明若無法履行將賠償多少錢之類的條款,
加上現實生活中,當事人無法舉證因為院方將光碟片遺失,
導致當事人有金錢上、人格上、身體上、心理上...等等的損失,
若說因為光碟片是很有紀念價值的,是無價的,要求償多少錢等等的,
拍謝,這種抽象的價值無法量化,所以院方還是只需賠60元。

另外,若是院方退費了,表示這個債務將失去效力,
所以院方也就沒有責任再保證履行什麼了。
日後萬一光碟片找到了,院方若不告知,
當事人也無可奈何~~

這時就有個念頭,那就不讓院方退費呀,讓這個債務持續有效力,
嗯~是呀,可以這麼做,逼著院方一定得處理,
但又有個問題了,
想要引用民法227條的效力是,事件發生兩年內,
所以不讓院方退費的做法只能撐兩年,
時間一超過,連錢都拿不回來了,光碟片也沒了,還要常常去"盧"醫院....
院方只要擺爛不鳥你,你也無法度。

只是有個方式,院方要提出給付不能的證明並退費,才能取消這個債務,
所以可以請院方提出有認真的找過任何可能遺失的地方的證明,
以及有打電話給那段時間有領光碟片的媽媽們的通聯證明,
及回應消息,這也表明院方有認真在找並看重這件事,
最後真的沒找到也沒辦法了。

只是以上方式我有請院方做,但正薪卻完全的不聞不問,真的非常的不爽,
所以最後打算以採用"盧"的方式,請正薪提出相關證明,否則就真的上法院了。

比遜手沖濃縮咖啡

2011-06-08T10:31:00.000+08:00

比遜手沖濃縮咖啡
只能電話預定 0932631415
沒有廣告,只有口耳相傳,
一瓶90元,要加鮮奶稀釋,或是加冰塊,
直接喝真的很濃,我還是習慣淡一點,
比外面買超商的好喝又划算,
加上是手工做,不添加任何添加物,真的是安心不少。
(都是塑化劑害我市售的咖啡都不敢喝了,血特!!)

比遜的咖啡喝完後再喝白開水,會發現白開水是甜的,
嘴裡會有源源不絕的炭焙味道不斷湧出,
一段時間後,炭焙味淡去,接著是咖啡豆的特殊香氣竄上來。
真的好奇妙!

因為選用的是阿拉比卡低咖啡因品種咖啡豆,
所以想靠咖啡因提神的人記得電話預定時要跟老闆說清楚
不要低咖啡因的,(不過咖啡因吃多了不知道身體受不受得了?)

比遜除了咖啡外,
還有超札實的手工養生饅頭,
裡面有一些綜合的瓜子類食材,還有其它,
吃起來口感不錯,很有味道,
饅頭在口腔中和口水混合後,
會在嘴裡浮現出淡淡的天然甜味和香氣,
因為太好吃,一下子就吃完了,連照片都忘了拍。

由於所有東西及食材都是天然有機且養生的,
製作又費時,所以預定完後要等一段時間才能拿到,
我想為了美食,這是值得的。

在 Windows 下讀寫 USB 上指定的位址

2011-05-31T00:02:00.000+08:00

最近為了如何在 Windows 下讀寫 USB 定址的資料,實在是一個頭兩個大,
要在短時間內完成實在不太可能,
找了 VB.NET , MASM , C++
發現用組合語言 MASM 寫,或是搭配 C++ 寫都可以,(只是太久沒碰,早就忘了如何寫了)
問題是 VB.NET 都找不到相關資料
最後,終於讓我找到可以在短時間內完成的做法了,
方法如下,

首先,列出所要讀寫的需求
例如 Function 中要代的參數有那些?
寫入的資料為何...等等的

將該例舉功能整理好

然後上網找 SOHO 工作室,請別人寫,
這樣最快......

好吧,我承認這個主意很爛,
因為目前還沒想出有什麼方式達成。

我還是繼續想破頭好了!

我家公主的提籃

2011-05-23T15:41:00.000+08:00

安全座椅其實一出生就該買了,
只是小朋友一出生就開始一推事情,
跟本沒辦法好好去找相關物品。

最近忙到一個段落,終於可以開始找相關物品了,
去實體店面看了推車,
又看了汽車座椅,
比了九家的推車和安全座椅

Capella(韓國)
ZOOPER(義大利)
Quinny(荷蘭)
Maxi-Cosi(荷蘭)
Combi(日本)
Aprica(日本)
Maclaren(英國)
Bugaboo(義大利)
奇哥(台灣)

汽座考量主要有安全性,方便性
推車主要是,安全性,穩定度,收納空間,
最後才是價格.....

綜合以上的要點,評估選擇的廠商,發現能選的真的不多
1. Capella的穩定度比 Combi 好,功能性也差不多,只是推車材質用的算一般,耐用度不高
重點是韓國貨,所以不考慮
2. ZOOPER 的推車又穩又重,收起後體積也大,加上太貴,所以不考慮
3. Quinny 推車穩,收納起來體積看來是所有推車中最小的,
加上又能和提籃結合,且造型又不錯,所以決定就是它了
4. Maxi-Cosi 的推車收納太大,價錢也高,但是提藍可以和 Quinny 推車整合,很方便,也決定買了。
5. Combi 推車收納方便,功能性夠,可是推車座椅較小,又很搖晃,所以不考慮
6. Aprica 也是推起來有點 2266 的感覺,不考慮
7. Maclaren 的推車就屬於粗勇的造型,收納起來也很小,屬於傘形的推車,只是功能性較差,不怎麼喜歡
8. Bugaboo 就不用說了,超貴,超漂亮,又穩,收納後體積又大....還是算了
9. 奇哥是台灣貨,推車很一般,推起來的感覺和Aprica 差不多,也不考慮。

以上比較,加上查了一下檢驗局的報告,發現2009年驗的座椅,台灣製全數不合格....
所以乾脆就買歐規檢驗合格的推車和座椅好了,省得提心吊膽的。

參考資料
91~99年兒童保護裝置學童用座椅W4 22~36kg合格廠商及型號統計資料
取得認證車輛產品查詢

各廠商都有各別的型號,
我參考的是可雙向,可平躺,載重量大的車種。
最後決定的是 Quinny Zapp Xtra 推車加上 Maxi-Cosi 提籃,
網站上也有很多人買這樣的組合,看來很不錯。

座椅後方還有一個小空間可以放奶瓶和尿布,只是空間不太就是了。

只是推車由國外運回台灣要一段時間,所以先買提籃用手提囉~
提籃真的很方便,小朋友在車上睡著了不用吵醒他,
提著下車就好,安裝上也很簡單,快速,
缺點大概就是內襯太溫暖了,夏天放在裡面小朋友會熱到哭,
但在車上吹冷氣又剛剛好....應該要做個竹蓆墊在裡面才對,
改天再來 DIY 一個好了。

等推車到貨後再補上結合的照片及使用心得囉~~
聽說六月中會到貨....真期待~

台南大橋夜市重新開幕

2011-03-15T22:57:00.000+08:00

聽說上星期就開幕了,今天同事約我要不要一起去,
想說今天沒什麼事,就一起去囉~

這裡就是以前的東橋夜市,曾休息一段時間(倒過一次??),重新開張。

第一次去,先逛個一圈,看有什麼好吃的,
我發現這和台南的成功夜市格局真的很像,連部份攤位也一樣。
最後選定人較多的這間 [天王牛排] 還有網址咧!

和同事各點了個雞腿排 $110,雞腿滿嫩的,麵條是扁麵,口感還可接受,
以夜市口味來說算不錯了,只是人多,稍微等了點時間....

在夜市中間有個三太子在發摸彩卷,
因為三太子發了就跑,來不及照相,只好回家照存根聯做紀念,
聽說 3/25 開獎,只是那天沒法去,就看同事會不會去,再把彩卷拿給他對獎囉~

失望的 HTC

2011-03-09T10:40:00.003+08:00

今年初因為手機壞了,要換手機,心想,都什麼時代了,要換就換智慧型手機,
所以在 Apple 愛瘋4 和 HTC DHD 之間選擇,最後決定進入 HTC 的奇幻世界,
會買 DHD 的主因有幾個,
   1. 大螢幕,上網看網頁比較不那麼累
   2. 照像畫素 800 萬,可以照些可看照片
   3. 安桌椅系統(Android 2.2),這是當時最新的版本
   4. 可以和 Google 週邊產品整合,
   5. 有 HTC Sense,就是衝著這點官網的 Demo 才下定決心買這台 HTC DHD

2011年初入手 DHD,實際使用上多少有些問題
   1. 大螢幕相對的耗電量大,外出最好隨身攜帶外接電源
   2. 畫素高不代表照片一定能看,內建相機在低光源下照出來的品質比 500萬畫素的愛瘋4差,
(但在光源充足的情況下,照像品質確實不錯)
   3. HTC Sense在年初入手就一直無法正常使用,跟 HTC 客服反應了幾次,
   <<第一次回應>>
   說應該是我的設定問題,請照以下步驟重做一次
   ==== 我是天上掉下來的分隔線 ====
   1、於話機操作，話機煩請保持在可上網狀態。
   2、於話機操作，主畫面>Menu>設定>帳號與同步處理>新增帳號>登入HTS SENSE
   3、於話機操作，主畫面>Menu>設定>位置>勾選手機尋找器
   4、於話機操作，主畫面>Menu>所有程式>Locations>在地圖上顯示（此介面須讓話機定位到目前所在位置）
   5、於話機操作，主畫面>Menu>設定>帳號與同步處理>HTC SENSE>立即同步
   6、於電腦操作，www.htcsense.com/tw，主控台中重新整理，直到網頁上的地圖顯示出來（如顯示後的話機位置不正確，煩請再繼續以下步驟）
   7、於電腦操作，www.htcsense.com/tw，主控台中的地圖上方點選更新話機位置
   8、於話機操作，經上述第7步，話機的GPS功能會被自動開啟>煩請至室外完成GPS定位直到定位完成
   9、於話機操作，主畫面>Menu>設定>帳號與同步處理>HTC SENSE>立即同步
   10、於電腦操作，www.htcsense.com/tw，主控台中重新整理
   ==== 我是天上掉下來的分隔線 ====
我照著步驟做了一徧,結果一樣無法使用
於是我再和客服反應
   <<第二次回應>>
   先生,不好意思,由於我們公司的網站維修,有做資料轉移,所以這段時間內無法使用是正常的,
   我們預計二月底時會完工,到時再請你試試看。
(心想,那也沒辦法,只能等囉~~)

   二月底一下子就過了,三月初因為老弟不聽勸,也買了一樣的手機.....
   他上網登入了 htcsense 然後就可以用了..............
   就這樣,動作都一樣,他的可以用,我的不行....
   ~~甘霖涼!!去你的HTC,~~(突然發火的語助詞)
   再次反應客服
   <<第三次回應>>
   內容和第一次一樣,請以自行參考,想當然爾一樣不行。

看來會是無窮回圈了,
我覺得 HTC 不錯的地方是每次反應,都會填問卷,
然後會有客服人員再打電話問你問卷反應的內容並解釋。
所以幾次交手下來,客服應該也快受不了吧,
昨天 HTC 客服打來說明....
   <<第四次回應>>
目前 HTC Sense使用量超乎預期,
造成系統不堪負荷,需要再次轉移到多個伺服器,
至於時間何時不能保證。

~~你們消費者自認倒楣吧,不能用不關HTC的事,反正你都買了~~(這句是我自己的碎碎唸)

唉~~有人可以用,有人不能用, HTC 客服也坦承這問題遇到的人不少,
他們也是盡力在解決了(廢話,股價那麼高,不解決就要崩盤了)

總知,我的 HTC Sense 不能使用,看來要再等下去了
對於 HTC 的服務個人覺得真的很不錯
至於我會不會被客服建立"稻草人"資料庫,還是例入"針扎"系統就不得而知了。

若有人問說 HTC 的產品好用嗎?個人覺得是不錯,
服務也很好,可能是新的創意,新的科技,確實有很大的進步和改善空間

若再問我會不會購買 HTC 的產品....我會很猶豫
HTC 的品質沒有 Apple 來得好,也沒有 Apple 來的精緻
但是 HTC 的價格和創意點子倒很吸引人(當然 Apple 也不差)。

可能我還會再選 HTC 吧?     Who knows ?

Toyota Altis 1.8E 定速暴衝,嚇屎我了....

2011-03-08T12:07:00.000+08:00

今天無意間看到 Toyota Camry 暴衝的舊聞,
http://www.wretch.cc/blog/peiyu0808/10323867&tpage=1
看了還真有感觸呀...
我的車是 Toyota Altis 1.8E 2011 年出廠
開不到一千公里,剛牽車沒多久,跑了台東,
第一次使用定速功能,發現真是人性化的設計,
可以減少駕駛人不少負擔。

事隔一星期回台南的路上,在高速公路上使用定速,
保持時速110開了一段時間,發現前方車速較慢,於是打方向燈準備變換車道,
就在車輪剛要轉出車道的同時,突然轉速表急拉到超過3000轉,
我嚇了一跳,趕緊踩煞車,並將車頭轉正,此時心跳加速到120....

心想到底怎麼一回事,一般定速的轉速不會突然急拉,
所以決定再試一次,所以解除定速...重新開啟...時速拉到110...定速...
再開了一段路一直在110,沒事,一切正常,看前方沒車,
試打方向燈,漸漸變換車道,這時又來了,轉速又急速拉超過3000轉,
趕快煞車解除定速,靠~~真的嚇到了

打電話問業代,他說如果該路段是上坡,就會有這種情形,這是正常的。
問題是該路段沒有上坡呀....後來業代要我回原廠檢查。

於是預約原廠高都豐田三多店,回去檢查順便滿月檢查
技師說是踏墊卡住的關係,聽了真是莫名其妙,
這也是業代給的原廠合作的海馬單層踏墊,
而且全新平貼腳踏底盤,又有魔鬼氈黏著,怎麼會卡到,是卡到陰吧?
最後技師要我再安排時間去試,但還是建議換回原廠踏墊。

不過要再安排和技師一起試車,變成我要請假才行,
所以現在暫時不用定速,改天找時間再約原廠技師一同測試。

唉~~要不是妥協於頭又大阿踢屎的空間跟油耗,
我也不會和它賭命呀~~ 槓!!

GPU/CPU 效能測試

2011-03-08T12:02:00.000+08:00

今天心血來潮,下載了 CINEBENCH R11.5 (官方免安裝 142MB) 來測試,
發現我的效能好差呀....

官網

賓果開獎軟體

2011-01-14T16:28:00.001+08:00

因為朋友需要,好像年終尾牙時要用的吧!
需要一個賓果開獎程式,方便用在投影機上開獎。
所以就幫忙寫一個小程式囉~~

開發環境 VS 2005 VB.NET
下載執行檔
下載程式碼

程式畫面

新增功能,在左邊數字跳動的地方,點兩下,就可以進入設定畫面
可以設定開獎速度,以及開獎號碼的字體大小。

大腹便便

2011-01-12T11:53:00.000+08:00

老婆大人的肚子非常會藏,
直到最近才比較明顯看得出來像個孕婦,
不然坐火車或捷運都難有坐位。

不過,話雖如此,
最近發現很多長得像人的物種,在公共運輸系統上,
遇到老弱婦孺都會自行啟動休眠裝置,進入無我境界,
但是車子一到站,驚醒裝置會自動觸發,
感覺就是一整個神奇。

批次檔輸入參數(Batch File Command-Line Parameter)

2010-12-28T23:15:00.000+08:00

因為工作需要,寫了批次檔案,
但為了判斷傳入參數的判斷,一直無法正確使用,
找了一些文章終於發現問題所在。
參考文章

判斷 User 是否有加入參數
IF NOT (%1)==() (echo 若有輸入,在這裡加入動作...)
重點就是在判斷式中加入 "()" ,否則沒有輸入參數時會有錯誤
不能寫成這樣 ==> IF %1== "" echo會發生錯誤

另外,因為我要確認是否 User 輸入的是 /step 所以寫法如下
IF NOT (%1)==() if (%1) == (/step) (echo 確定輸入的參數為/step) else (echo 輸入參數不是/step)

另外,為了取出日期時間並建立資料夾,所以要另外格式化日期時間變數,
寫法如下:
@For /f "tokens=1-3 delims=/ " %%a in ('date /t') do (set myDate=%%a-%%b-%%c)
@For /f "tokens=2-3 delims=: " %%a in ('time /t') do (set myTime=%%a-%%b)
@echo 目前日期 : %myDate% 目前時間 : %myTime%
@echo:

這裡的 "@echo:" 表示換行,這也是花了點時間才找到的換行寫法。

最後,因為 XP 本身預設沒有 CHOICE 指令,
所以無法用它等待使用者輸入資料
最後只好用 /p 的方式達成目的

set /p UserInput=請輸入資料 :

這行程式會秀出請輸入資料 : 並且等待使用者輸入並按下 [Enter]
然後會把輸入的值放入 UserInput 的變數中。

汽車油耗比較

2010-12-13T16:57:00.000+08:00

最近在看新車,比較了幾款,發現很多想買的車不是價錢過高,不然就是油耗太大
所以做了一個油耗試算表,可以一目了然找出合適價位的車子

下載油耗比較
油耗資料是從網路上查詢有買的車主,實際上的油耗,
若下載回去只要改深黃色的地方數值就可以了。

目前比較的項目有
1.空間,2.油耗,3.安全,4.價錢,5.配備
雖然很不想買頭又大的車
可是試算下來,就頭又大的阿踢屎比較合乎目前的需求。
不然就會買Focus(柴油),唉~誰叫我的腳太長咧....

產檢

2010-12-11T11:12:00.000+08:00

今天去醫院產檢,
看了上回抽血檢查的報告,雖然唐氏兒的機率不高,但還是有可能,
照醫生的說法,羊膜穿刺才可以100%,
這點先前就和老婆大人商量過了,本想要嘛,直接穿刺
不然就連抽血都免了
反正都是機率,不是100%,何必又要多費時間和金錢咧?

這回護士有提到,可以買光碟片,
每次產檢的超音波或 4D 影像都可以錄下來
一張光碟只要 60元
想想也行,所以這次就買啦,
本來還以為回到家就可以看了,結果不行,
因為要做封片的動作才能看,所以只好再等幾個月後檢產再封片囉!

山刺番荔枝(Annona montana)

2010-12-06T11:26:00.000+08:00

公司旅遊去埔里遊玩,
到了紙教堂發現一種植物好熟悉,
那就是好久不見的山刺番荔枝(羅李亮),
以前總是傻傻分不清,都把它叫做牛心梨
其實兩個是不同品種的植物,不過都可以食用,
做成冰淇淋很好吃,有個特殊的香氣。
果肉就像釋迦一樣,有很多仔,其實釋迦又叫做番荔枝,
可以想像他們的血緣有點相像了吧!

伽利略 USB/ESATA/CARDREADER/2 PORT HUB 多介面硬碟座

2010-11-15T13:55:00.000+08:00

昨天去買了一個硬碟外接盒 "伽利略多介面硬碟座" ,在 [順X] 買了 1100元
一拿回去試機感覺還算順手
只是訊號線和電源線短了點,有點不方便
讀卡機的速度還不錯,只差還沒用軟體測試。

今天到公司應同事要求上網查了一下,
台南 [原X屋] 報價含稅應是少了 220元,只要 880就可以買到
看到快吐血,想不到高雄的 [順X] 東西還是比較貴,
不死心,查了一下 PcHome 只要 950元
靠~~
順X 是在貴三小的,越看越不爽
害我今天上班的心情都變差了........

不過說實在的,這款外接盒使用上方便,又有讀卡機功能,真的不錯用啦!!

第一次產檢

2010-09-04T23:27:00.000+08:00

自從上次的兩條線後,就開始安排產檢了
安排了這星期六去醫院檢查
第一次進去醫院產檢,也說不上興奮,
只是對很多事情不熟悉,想要從醫生那裡多聽點資訊
可是今天去佳欣產檢,
一進去,也沒看到什麼人,
一開始護士口氣不太好,
醫生的態度很一般,照超音波時聽了小朋友的心跳聲,
感覺很不真實,心跳每分鐘145下,好快.....
然後量了小朋友的身高 1.18公分,接下來就交由護士開始衛教時間,
時間不長,講解著接下來會做的檢查,及費用
並沒有講解到檢查的機率及相關問題,
最後老婆大人抽個血就回家了

一整個的感覺就不怎樣,有點不被尊重的感覺,
看來要多問個幾間好一點的婦產科,
不然心情很快就被打壞了。

兩條線

2010-09-04T11:06:00.002+08:00

老婆大人拿給我看時,
第一次看到這兩條線,
我只能不停的傻笑,
要說有什麼感覺?
也說不上來,
是高興?是興奮?是開心?是緊張?是擔心?
真的不知道,
只能開玩笑的問老婆,第二條線是不是畫上去的?

很多朋友告訴我,三個月內不要講,
對我來說,應該要先講,
至少大家出門會對孕婦較為小心,也會比較注意,
懷孕初期,有些食物或動作要較小心,
若不講出來大家注意,
如果有了什麼萬一,不就傷心欲絕.....

vb.net 2005 取得檔案總行數

2010-05-18T10:23:00.002+08:00

因為找不到vb.net 2005 如何取得檔案總行數
所以只好自己寫一個小 Function 直接轉換,
利用一次讀入文字檔,再以跳行符號做分割,
取得分割後的陣列大小,就是檔案總行數啦!

''' <summary>
''' 取得文字檔內容的總行數
''' </summary>
''' <param name="strFilePath">要取得總行數的檔案路徑和檔名</param>
''' <returns>傳回總行數(Integer)</returns>
''' <remarks></remarks>
Private Function GetFileLine(ByVal strFilePath As String) As Integer
   Dim strSplit() As String
   Dim sr As StreamReader = New StreamReader(strFilePath)
   Dim fileCnt As String = sr.ReadToEnd()
   sr.Close()
   strSplit = Split(fileCnt , vbCrLf)
   Return strSplit.GetUpperBound(0)
End Function

ARC-Flash 光觸媒全新到貨

2010-04-30T15:23:00.000+08:00

前幾天找了好久的光觸媒，發現有一款 ARC-Flash 的產品,
似乎有點效果,所以就上網訂了一組,
濃度為 10% 和 3% 合計 1099元
今天終於到貨了,
接下來就要開始實驗噴在捕蚊燈上和玻璃上的效果如何?
期待中...

還有多送一個噴頭耶,看來是常會堵住吧!

我的 Server 復活了

2010-04-05T16:21:00.001+08:00

前陣子因為舊的serer都會熱當,直到兩個月前完全不能開機了,
本來拿了一個壞掉的 P4 775 主機板,自己修理,好不容易可以開機了,
不過系統裝到一半又當了,乾脆不要再花時間修主機,
直接花錢買server。
比較過小桌機(AIO),一般桌機,及NAS
經過考量決定買NAS 當Server
省下的電費第二年就很可觀了。

再來是選要買那一款 NAS 才合用,
最後選定 Synology 群暉的 DS210j
考慮點為
1.省電,
2.可自行加入Linux套件
3.外接硬碟可自動進入省電模式
4.電力故障排除後自動重新開機

趁著這次假期一次買到位,
硬碟:Hitachi 1T ,2600元
NAS DS210j , 6900元
一次買齊還真是痛呀.....

開箱:

前面,

後面,

拆解,
這個拆解都沒說明書,害我開了老半天,一直壓....
結果是要前後錯開用推的....無言...

解體

硬碟

拆封

合體

缺點:
1.說明書跟本沒有附上,只有電子檔,
2.USB硬碟備份時無法得知是否檔案有問題,
(只好用 SSH 登入下指令[ cp -r 來源路徑目的路徑],
否則用網路芳鄰太慢了)
3.網路設定太過簡單,沒有進階設定
(不過對一般使用者到是很方便啦!)
4.FTP設定並不完整,沒有一體化設計,
(FTP 資料夾權限和網路設定分開,一開始跟本不知道如何設定)
5.WEB設定無法進階,

以上遇到的問題是我在安裝時發現的,
或許官網有其它方法去設定吧,還沒仔細去看文件,
整理上這台的功能算是很滿意,只希望能撐過三年,
不然我就真的虧大了。

2008-12-09_13 北海道蜜月

2010-03-04T21:57:00.000+08:00

本來打算去泰國蜜月,可是當地暴動,實在不適合觀光,
害我泰簽都簽好了,真是可惜。
後來改成北海道,由於是冬天,怕冷的我實在有點擔心,
到了日本,真的感覺特別涼,幸好巴士及飯店都有暖氣,
加上日本是乾冷,感覺也沒台灣冬天的不舒服。

ps.
把欠了很久的作業先補上,不然又要被唸了。

大沼國家公園

大沼國家公園,很像一幅潑墨山水

大沼國家公園,背景是接龍腳踏車,老闆甚至還準備了台灣的國旗呢!

洞爺湖

找導遊和司機一起拍照,看來很有聖誕節的Fu

下大雪,連拍照都有點困難

下了很大的雪,只好先躲一躲,雨傘上的雪,是下不到一分鐘的結果

水族館,下了場大雪,看來很像童話故事裡的城堡

小樽郵局

小樽有名的銀之鐘咖啡,喝完還可以把杯子帶回家做紀念

在小樽運河逛時找導遊一起拍照

函館山上面風特別大,才吹一下子就頭痛了

函館百萬夜景,山上人很多,風又大,沒法久站,真的是太冷了.....

大地震~~~~

2010-03-04T13:33:00.002+08:00

今天早上被突如其來的搖晃給吵醒,
晃了一會才驚覺是地震,
趕緊起床準備逃難,可是真的晃太大力,
無法站穩,到了門邊先把門打開,以免到時變形打不開,
這是大樓外已經人聲鼎沸,因為大家都逃難去啦,
幸好地震一下子就結束了,這時兩支電話全都沒訊號,
電話不能打,突然間電話響,是小歐打來問安的,就干心~~
不過電話一掛斷我又打不出去了。
先不管,上班時間到了,回到房間準備上班去。

一到公司就看到慘況了,
兩公尺高的置物櫃倒下來,
壓到置報架,整個金屬架柱子斷裂。
置物櫃也無法使用了,
裡面的東西全都灑了出來,
幾個大男人合力把置物櫃倒放,收拾一地的殘局,
幸好地震時我還沒到公司,不然我的座位就在櫃子邊,
不然倒下時就糟了。

早上看新聞才知道這個地震是高雄百年來最大的,
想不到台南也是晃得很,經歷了早上的震撼,
一早的精神特別好,不過還是別來太多,
不然心臟會受不了。

朋友開大卡出車禍

2010-03-03T20:15:00.002+08:00

朋友開大卡出車禍,
看了影片後發現是那台小轎車強行切入,
可能是要下交流道吧,問題是太晚切入,又緊急剎車,
被強行插入的貨車也跟著緊急剎車,
可是大卡車無法急時停住,就撞上去啦!
那台小轎車後來跑掉了,
被撞的貨車最後停了下來,聽說車體有損傷比較慘!

http://www.youtube.com/watch?v=5kAjTmiJI6c

我想肇事原因很明顯,是由小轎車引起的,
不過我國的警察是不會幫市井小民查清楚的,
除非是官員,所以只好自己掏腰包,賠錢了事了。

如果是我一定很幹吧!!
乾脆當場連小轎車都一起撞,實在很受不了這種白目車主。

2010-02-14 東山露營

2010-02-25T23:32:00.001+08:00

今年的過年到舅舅的朋友家小木屋洗溫泉,
那裡的小木屋蓋的各有特色,雖然是第二次去玩,不過有些小木屋改得更加漂亮了。
趁著這次的旅遊,找來兩位 Model讓我習拍,
現成又不用錢的 model 當然就表妹啦!
第一次拍人像外拍,有點不知所措,很多姿勢也不知道如何指導,

先來張小小 model

再來就是人物習拍了

第二位model

最後來個合照

當然不會忘記我最喜歡的植物啦!
[三色堇]

再來是調冷色調的桃花
[桃花]

以上,放了幾張照片,有幾張還是拍不出要的感覺,
下次再找機會練習了。

微軟好用工具_多重桌面

2010-02-25T11:08:00.001+08:00

一個好用的小程式,由知名的 Mark Russinovich 所開發,他和 Bryce Cogswell 在 1996 年時成立 Sysinternals 網站,
放了很多的好用小工具較知名的或許是 ERD Commander 可以修改(講破解就不好聽弓) Windows 的 Admin 使用者密碼,
並且在 2006 年 7 月被 Microsoft 收購,收購後 ERD Commander就從此消聲匿跡,我想這是微軟的陰謀吧!
不過微軟到是讓 Mark 持續開發好用的小工具,可以上官網查詢。

http://technet.microsoft.com/en-au/sysinternals/default.aspx

今天要介紹的是我用了很久的小工具,多重桌面(Desktops v1.02),
它不用安裝,又不占資源,習慣開啟多個程式的人到是一大福音。

程式執行後要先設定快速鍵,若是設定的快速鍵有衝突,就會秀出警告訊息,
這時請重新設定吧!

設定完成後可以用快速鍵開啟桌面,或是點選右下角的圖示開啟要的桌面,使用上相當方便,值得大力推薦。

官網說明及下載
http://technet.microsoft.com/en-au/sysinternals/cc817881.aspx

直接下載
http://download.sysinternals.com/Files/Desktops.zip

新購置羅技新M555b 藍牙滑鼠

2010-01-27T13:44:00.001+08:00

因為新電腦的 USB Port 才三個,若插入隨身硬碟加上散熱座,
就沒地方可以插滑鼠了,

所以上網買了一個羅技新M555b 藍牙雷射滑鼠
這樣就可以省一個 USB Port

實際使用上還算順手,
距離其實到三公尺左右就訊號不良了,
反正也不會離那麼遠,沒差,
本來想說上面的滾輪可以設定成陽春型的軌跡球,
在簡報時會更方便,看來我想太多了,
就當成一般滑鼠來用就囉~

ps.
良興確實便宜,和一般賣家就差了 320 元
星期五晚上訂貨,星期一就送到了,還以為真的要等七天咧!

喝奶茶會變笨？--KingNet國家網路醫院 | Second Opinion WebHospital

2010-01-22T12:58:00.000+08:00

喝奶茶會變笨？--KingNet國家網路醫院 | Second Opinion WebHospital

2009-12-11_隨拍

2009-12-23T22:32:00.008+08:00

幫朋友拍婚紗時,抽空拍了一些照片,
還是喜歡爽爽拍自己的風景照。

旗津燈塔

鼓山眷村九重葛

新光碼頭

新光碼頭遠看85大樓

請參考我的 Flickr

婚紗側拍

2009-12-14T15:44:00.004+08:00

朋友的婚紗選擇高雄的蘇菲瑪索,
因為朋友們對攝影有興趣,想要一起側拍,
而蘇菲也答應可以側拍,
所以上星期一群人很高興的出發一起拍照,
到了現場,攝影師和助理百般的卡位,
怎樣就是不給拍,當場氣氛就僵掉了,
想不到蘇菲的攝影師竟然如此糟糕,
攝影師對新人講話也是非常的酸,不會體諒新人的辛苦,
講出來的話會造成新人無法拍出美美的照片,
就如那位攝影師說的,"大便臉"
從沒遇過那麼沒水準的攝影師,
另一個朋友也是選擇蘇菲拍婚紗,
聽說另一個攝影師更是糟糕!
這是怎了,花錢受氣是吧!!

想當初,我是在高雄的聖X雅拍婚紗,
裡面的陳 Sir 就相當的 Nice
我也是和他溝通要側拍,他也很仔細的規劃行程,
也熱心的帶路,讓我的朋友們都可以順利到現場拍照
大家拍得很愉快,我的照片想要呈現的感覺都有出來,
真的是值得大力推薦。

有了比較才知道好壞,(雖然事隔一年了)
若有朋友問要拍婚紗要選那一間時,
我一定會以新身經驗推薦高雄聖X雅 (怕有廣告嫌疑,打馬賽克)
不然一定會白受氣,氣到吐血也只能自認倒楣。

2009-12-12 台中新社花海

2009-12-14T15:28:00.005+08:00

老早就拍好的照片,好不容易整理好,
再找個時間UPLOAD到網路上,
欠很大的作業現在終於可以先交一件了,

新社花海

影子傳說

難得自拍

台中高美濕地

請參考我的Flickr

2009 橋頭花田喜事

2009-12-14T15:27:00.007+08:00

2009年的橋頭花卉又開始了,
今年主題叫花田喜事,
波斯菊種植面積好像和去年差不多,
不過向日葵到是多了幾畝田,
感覺一年比一年好,辦得有聲有色的,真是不錯。

參考來源我的 Flickr

華碩品質.....

2009-12-01T14:12:00.006+08:00

回想兩年前,為了愛用國貨,選擇買華碩的A8Jr系列筆電,
開啟了我華碩惡夢的開始,
話說第一次送修,是因為網路有問題,會突然斷線,
本來懷疑是自己的網路問題,後來經過測試,是電腦的網路接孔 RJ-45有問題
所以送到華碩的皇家集中營,
但ASUS的工程師說都沒問題,我說時好時壞,有問題時我會先簡單的故障排除,
希望他們將接頭換掉,他們就是不換,盧了好久,客服也跟你沒辦法,
第一次的感覺差掉了....

第二次送修是因為螢幕裂開的問題,
ASUS A8 系列的螢幕因為設計不良,所以都會有這個問題
同時我也告知網路一樣會有問題,會突然斷線,希望一並解決,
想當然,網路孔一樣沒解決,不過螢幕外穀到是有換了,
同時記憶體也少一條....(只怪我當時取回時沒檢查,事隔幾個月才發現)

第三次因為讀卡機有問題送修,加上光碟機讀片會挑片,
這時網路孔的問題我已經自己修好了,頭痛的是讀卡機不能讀,
這讓我很困擾,但是華碩的工程師一樣回了一句,電腦沒問題,
害我真想罵人,讀卡機在讀取資料時會發生資料遺失的問題,
我換了幾家的新卡都有一樣的問題,所以才會判定讀卡機有問題,
只是我沒有內建讀卡機可以測試,所以才送修的,這回又說沒問題
簡直是無言到極點,只好拿回來自己修光碟機,讀卡機沒辦法自己修.

第四次送修是因為硬碟有問題,這回到是很順利換了一顆,
不過內建讀卡機到後來連讀都沒辦法,完全掛點,
時間正好滿二年,過保....

昨天測試電腦,發現CPU風扇不轉,
拆開電腦檢查,同時清了一下內部,
風扇可以轉了,
不過早上開機卻發生無法持續開機,
或是完全不能開機,自動斷電......
看來要再送一次皇家集中營了。

經過兩年多的ASUS洗禮,
我成長了不少,學會如何NB檢修,也知道ASUS的品質,
從此華碩的產品在我的字典中消失了。
ASUS 拒絕往來

使用Becky Mail 收發 Hotmail 信件

2009-11-12T10:56:00.004+08:00

雖然 Hotmail 已經開放 POP3 和 SMTP一段時間了
但是我對 Hotmail 的使用率其實不高,所以沒去刻意設定,
最近為了公事上聯絡用,只好將它加入我的 Becky Mail中

再來只要設定 10 分鐘就自動去收信,一有新信件就跳出訊息視窗,這樣就不用一直去看Mail了

2009/07/25-26_悠閒清境二日遊

2009-07-27T20:20:00.026+08:00

好久沒有外出旅行,因為大姊前年買了旅遊展的優惠卷,
還剩下兩張,所以打算這次把它用完,於是安排了這次的清境二日遊
第一天早上出發時就遇到大塞車,到了南投埔里都快中午了,
不免俗的要去有名的酒廠品酒一番

參觀完酒廠就是去填飽肚皮啦!
到附近有名的李仔哥爌肉飯吃中餐
到那裡真是人擠人,停車場客滿,餐廳內也是要排隊等坐位
好不容易搶到坐位,再派代表去點餐,
點了幾樣菜,看到菜色和價錢覺得有點小貴

不過有名的爌肉確實是好吃,煮得軟嫩入味,其它的就不能說太多了,否則會被告

吃完飯就一路殺到清境民宿,
老姐的優惠卷是位在清境的竣悅空中花園渡假山莊
當時買是一張 3000元的套餐組合,但是假日雙人房要再加 1800元
當時電話中,竣悅的服務人員說優惠卷超過一年,所以每張要再加 950元
怎麼想都不合理,當天去再找櫃台確認,
因為票券上並沒有註用使用期限,而服務人員看過也說那是無期限的優惠券
所以不用再加 950元,全程服務人員的態度都很好,也都笑容滿面,
本來我還以為會因為我們確認優惠券是否有無期限,他們會給我們一副臭臉咧
看來多心了,下午先在民宿享受了下午茶

休息一下,到了晚上六點再吃小火鍋,
份量十足,湯和飲料無限量供應,外加白飯也是,
其實飯都沒吃到就飽了
我們了養生鍋

和牛奶鍋

晚上再去國民賓館逛逛
看一下曾經是全台最高的 7-11 ,怎麼會是曾經咧?
因為同一條路上,在更高的地方也有 7-11,

全台灣快被那頭上有彩虹的動物占領了。

第二天一早,還是先在民宿用完早餐再出門,
一大早終於天氣放情了

趕快到青青草原看羊毛秀,
不過大家很早就去卡位了
停車場全滿,人山人海,我們也趕緊去卡位

等到剪毛秀開始我們也差不多被曬傷了

最後還可以和綿羊一起拍照或餵食
不過說真的,綿羊身上的味道真的很......

揮別了青青草原,一路下山到台一休閒農場參觀
農場面積很大,種植的植物也很多,
但真的很可惜,園區的植物標示太少,植物和設備明顯管理疏忽,
有些植物種植的雜亂無章,少部份設備也損壞沒有修理,還放在那裡生鏽,
不只有礙觀瞻還可能讓小朋友受傷。
中午在園區內用餐,點了義大利麵,一份 150,
別問我好不好吃,我怕說了又被告!

我只能說台一休閒農場真的很可惜,只要多用一點心可以更好,
若是他們改善後我會很期待再去一趟,
但在這段期間我只能說謝謝再聯絡。

快到傍晚,我們又驅車前往埔里有名的紙教堂,
可能因為當天下雨,去的遊客不多,
怎麼會說不多咧,因為有三個停車場,其中一個都沒停滿,
但是走到教堂發現,其實人還是很多的

紙教堂的柱子,椅子,講桌,都是用紙做的
本來我以為天花板也是,但我錯了,
不然下雨就糟啦~

每個角度的教堂都有不同的感動

紙教堂其實是社區營造的其中一環
當地居民從921地震後重新振作,重新出發,
打造出與大自然結合的環保新社區,
參觀費用一人 50元,可扺消費,
是個拍照休閒的好地方,旁邊還有一個荷花池,開滿了荷花,
只可惜去的時間太晚,不方便拍攝
不然真的很美!

兩天一夜的行程,一下子就結束了,
放慢自己的步調,慢慢的玩南投,不趕行程,
好好放鬆自己,真的好久沒這麼做。

怎麼辦?又開始期待下一次的旅遊了....

新相機 F200拍照測試

2009-07-13T22:03:00.023+08:00

因為被我家女王唸了很久,我拍照時都不理她
所以他也要自己有一台,自己拍。
於是前一個禮拜買了一台小DC,(不然就要買D90)
這星期有空終於可以試試看效果如何了,
先試拍我的"南瓜田"

夜間拍攝

白天的空氣鳳梨

晚上的空氣鳳梨

近拍

望遠

一般場景全自動拍攝

暗處拍攝

夜拍

F200 拍攝品質真的沒話說,可以用很傻瓜的想法,
傻傻的拍照,享受那凝結一瞬間的快感
全程拍照幾乎可以不用閃光燈
高 ISO 的表現可以直逼數位單眼相機(和我的 D80 比起來好多了)
不過錄影的表現真的不太好,對完焦後攝影,中途不會自動對焦
所以錄影會模糊,應該要拿遠一點的距離再錄影會好一點。

我的遙控直昇機

2009-03-24T23:56:00.007+08:00

今天在公司有玩具廠商來展示,
其實它是第二次來擺攤位了,
和同事看了好久,真的越看越想買。
最後還是忍不住下手了.....

約捷企業有限公司
黃敬隆
0939-999001
0939-918526
02-82189671

外觀

直昇機充電是接到機腹下方的接頭

對於操控可能要再多玩一些時間才能熟練了

室內機就是只能在室內玩,
就連電風扇的風都會讓它偏離航道或是墜機。
不過真的很有趣,這也是我第一次玩到遙控玩具,感覺還滿新鮮的。

XP雙核心修正檔 KB896256 V4

2009-03-20T20:07:00.005+08:00

撐了快兩年,我的NB還是受不了,
到了要重灌的地步,
當一般軟體裝完後發現速度變慢了,
無意間找到微軟的修正程式,聽說可以提升效能
所以就下載回來試試
KB896256 V4 這是2006/12/19的版本,雖然有點古老,但我好像沒裝到,因為它不是必要安裝。
詳情可以到官網自己看
不過說實在的,感覺不太出來快多少.....
到是裝了eBoostr 3.0後速度有明顯的改善。

又買了一個 3.5 吋外接盒

2009-03-16T09:02:00.003+08:00

有人說攝影是個不歸路,漸漸的能體會怎麼有人這麼說了,
一開始是永遠嫌不夠的鏡頭,再來就是永遠不夠的硬碟空間,
幸好我對鏡頭的需求不大,偶爾幻想著自己擁有神鏡,
拍出充滿驚嘆號的照片,反正幻想不用花錢,
但現實生活中,拍了照片就是要存檔,
久了檔案就多到無法用一顆硬碟解決了。
自從上次買了 640G 的外接盒後,
沒多久就爆倉,考慮要不要買RAID外接盒或是 NAS 來因應,
但價錢一直是下不了手的原因,
只好再買一個640G 的外接盒,也是目前CP值較高的選擇。

經過博仔一再推薦,買了銳銨科技的 i302-1S-SB2 硬碟外接盒,
再加買一顆 WD 640G 的硬碟,共花了 3800 大洋,
為了照片,只能選擇這種方式繼續心痛下去了。

新竹好市多辦卡

2009-03-08T22:28:00.002+08:00

聽說新竹要開好市多,和老姊衝著辦卡優惠就去辦啦!
首先老姊的同事先去辦一張金卡和一張家庭卡(附卡),
然後填寫一張介紹的單子,就讓老姊填主卡,我填家庭卡
這樣四個人只要年費 1200元
也就是一人只要300元,
是便宜很多啦,不過一年後就回到主卡要 1200元,附卡不用錢。
反正主卡是老姊付錢,我就勉為其難去辦卡囉~

其實好市多的門市還在施工,
主體結構已經可以看得出來,
雖然還沒完工,
不過臨時辦卡中心的人到是絡繹不絕,
想不到我也是其中的一份子.....真不知我辦卡要到何時才會去消費。

小光VS熊貓之諜對諜

2009-03-03T23:11:00.004+08:00

早在一個月前,熊貓就計劃著要幫小光慶生,
想要給小光一個驚喜,
小光在一個月前,則緊張的計劃如何實施求婚片段
我們這群朋友則計劃如何兩個人都整到......

大家在這一個月裡,說了不少的謊言,
就是不想讓事跡敗露,
為了圓謊,只好又編更大的謊言,
一個月的時間裡,朋友之間的誠信蕩然無存,
小光和熊貓之間更是爾虞我詐,
就像是電影情節中的諜對諜,天天過著緊張刺激的生活
不過,該來的還是要來,策劃這麼久,一次搞定,
真是辛苦大家了。

還是要祝福小光和熊貓,一定要幸福哦~~

小番茄收成....一顆

2009-02-25T22:25:00.006+08:00

之前刻意種的小番茄全掛了,索性全都埋在土裡當肥料,誰知道又長一株番茄,
這次就沒有刻意照顧它,反而活得特別好,
前天發現有一顆番茄紅了,於是把它摘下來,長得還不錯

用手機拍還真是不容易

解析度不夠高,只好多拍幾張了,目前大約還有六顆未熟,也還在陸續開花中,應該可以全吃到吧!

硬碟空間不足

2009-02-19T21:53:00.006+08:00

這個問題困擾我好久一段時間,
一開始拿了老姐的 2.5吋30G 的外接硬碟,不夠,
再跟朋友拿一個 2.5"30G 還是不夠,自己衝去買一個120G 2.5",也滿了,
全都放拍過的照片和DV拍的影片,這下子我也體會到人家說的不歸路是什麼意思。

作品是一定要保留的,但是2.5"的硬碟真的很貴,所以再去買一個 3.5吋 640G 外接式,
現在它也面臨滿水位的危機,好死不死,我的120G 2.5" 竟然現在給老子出怪音,
檔案無法刪除,有時出現找不到磁碟機的錯誤訊號,
快要抓狂了,下載 CrystalDiskInfo 2.1.0 來檢查硬碟,
看了中文翻譯還真是快吐血,有部份真的看不懂

來看看原文的寫法吧!

唉~~我輸了!!
不過當務之急還是快點買個備份裝置吧
暫時鎖定銳銨 STARDOM 2層外接式磁碟陣列子系統(SR3620-2S-SB2)
開始省吃簡用存錢囉~

我當大伯了

2009-02-16T16:37:00.004+08:00

2009-02-16
今天早上十點多,弟媳生了一個胖寶寶
3900克,剖腹生,
或許是太大隻了吧!

當上了大伯,感覺好奇妙呀,只覺得又老囉~

不過白白胖胖的粉口愛呢~

2008-08-08 拍婚紗

2009-02-09T15:14:00.008+08:00

人生幾乎每個人都會經歷過的階段,
本來想要找朋友幫忙拍就好,不想透過婚紗公司拍攝,
但是卡在租禮服和化妝及訂結婚相關事宜實在煩瑣,
不如請婚紗公司處理,自己花點小錢"消災"了。

2008年八月八日父親節,找了威哥和博仔一起來幫忙側拍,
基本上幾乎所有的婚紗公司都不願讓人側拍的,
可以現在人幾乎人手一台相機,甚至是單眼,若是婚紗公司還不讓人側拍,那真是有點脫節,

我們拍照的地點選擇高美館和鼓山一帶,當天天氣不會很好,
本來打算擇日再拍,但是最後決定出門碰運氣,
幸好出門就出現短暫的陽光和藍天讓我們拍照。

棚拍的部份就不受天氣影響,所以怎麼拍都好看

拍完婚紗只有累~~可以形容,反正一整天下來就只想坐下來好好休息,
我真佩服攝影師可以撐全場。

積欠的作業開始補交囉~

2009-02-09T15:08:00.002+08:00

去年為了忙結婚的事,都沒時間更新部落格,
現在漸漸有了一些時間出來,開始整理照片,和一些"往事"
希望還記得並記錄下來,
不然每次見面就會被 "ㄉ一ㄤ" 一次。

只是一堆的東西要整理,硬碟空間又不夠,
要讓那些"陳年往事"浮上台面可要費點心思了,
難道我又要再一次的頭痛了嗎?

限制 Text Box 只能輸入正數含小數 (VB 2005)

2009-02-09T14:24:00.006+08:00

一直以為 VB 2005 的 Text Box 可以設定成只輸入數值,可是上網找了半天沒看到,
只好自己寫一段 Code 來達到目的,

在 VB2005 的 Form(frmNumericTxtBox.vb) 中加入四個 Text Box (TextBox1~4 )及一個按鈕 (Button1) 和 Lable (Label1)

在 Text Box 中只能輸入正數,其它的字元都會被過濾掉
===================================================

Public Class frmNumericTxtBox

    Private gstrTmpAs String = ""   '記錄暫存的數值

        ''將TextBox1~4 KeyDown事件都納入Handle 的範圍
    Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, _
                                                                                                            TextBox2.KeyDown, _
                                                                                                            TextBox3.KeyDown, _
                                                                                                            TextBox4.KeyDown()
            ''按下任一鍵時,取出目前的內容值
            Dim myTxtBox As TextBox = Nothing
            myTxtBox = sender
            gstrTmp = myTxtBox.Text
        End Sub


        ''將TextBox1~4 TextChanged事件都納入Handle 的範圍
    Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, _
                                                                                                        TextBox2.TextChanged, _
                                                                                                        TextBox3.TextChanged, _
                                                                                                        TextBox4.TextChanged()
            ''判斷是否為數字,若不是則把暫存內容值填入
            Dim myTxtBox As TextBox = Nothing
            myTxtBox = sender
            If myTxtBox.Text.Trim.Length > 0 Then
                ''限制只能輸入正數,包含小數,但不能有","
                ''因為IsNumeric 對於"," 會視為數字的一種
                ''若要有正負號則把InStr(myTxtBox.Text, "-") > 0 這個條件刪除
                If IsNumeric(myTxtBox.Text) = False Then
                            Or InStr(myTxtBox.Text, " ") > 0 _
                            Or InStr(myTxtBox.Text, ",") > 0 _
                            Or InStr(myTxtBox.Text, "-") > 0 Then
                    myTxtBox.Text = gstrTmp '若其中一個條件不合,就把暫存的值填回TextBox中
                    myTxtBox.SelectionStart = myTxtBox.Text.Length
                Else
                    gstrTmp = myTxtBox.Text.Trim
                End If
            Else
                gstrTmp = ""
            End If
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            ''按下加總時
            Dim myTxtBox As TextBox = Nothing
            Dim myControl As Control = Nothing
            Dim mySum As Double = 0
            ''找出所有的Text Box 然後加總起來
            For Each myControl In Me.Controls
                If TypeOf myControl Is TextBox Then
                    myTxtBox = myControl
                    If myTxtBox.Text.Trim.Length > 0 And IsNumeric(myTxtBox.Text.Trim) = True Then
                        mySum = mySum + CType(myTxtBox.Text.Trim, Double)
                    End If
                End If
            Next
            Label1.Text = "總和: " & vbCrLf & mySum.ToString
        End Sub
End Class

=================================================

==== 2012/01/19 新增以下寫法 ====
另一個寫法是將以下的語法加入 KeyPress 的事件中

Private Sub txtBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress,TextBox2.KeyPress _
                                                                                                                    TextBox3.KeyPress,TextBox4.KeyPress
        '只允許輸入數字
        ' Chr(8) : BackSpace
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> Chr(8) AndAlso e.KeyChar <> "." Then e.Handled = True
    End Sub

=================================================

芎林新美珍蛋糕

2008-09-06T15:56:00.009+08:00

前幾天突然想到要吃新竹有名的芎林蛋糕,
所以問了一下同事,今天早上又上網查了一下地圖,
其實網路上大家都口耳相傳,算是很有名氣的名產了。

由於地圖上顯示,我住的地方要走光復路往竹東方向,
然後接155縣道就可以到芎林了,
感覺這麼走比較快,所以就一路騎呀騎,很顯然的,
我又迷路了,一路上就當作欣賞風景,再往回騎,
半路到竹東派出所問個路,於是繼續帶著輕鬆的心情上路,
果然警察報的路清楚很多,一下子就到新埔了。

驚!! 什麼..... 到新埔.....

我...我....又騎過頭了!

趕緊調頭,一路上看著指標,[芎林]
嗯,沒錯,就是這裡,一路找著文昌路,半路看到一條小巷子,好有味道

因為網友說文昌路是單行道,由新竹方向往竹東才可以進去,
好不容易找到文昌路,彎進去文昌路騎了一段路就看到目的地了

仔細一看,旁邊的小巷子就是剛才照的那條巷子咧....
就在隔壁條路而已,進去店裡其實已經有人在裡面排隊購買了,
由於大多數是網購,現場的人較少,所以一下就排到了,
看大家人手一串的走出店,看來真的名氣不小,
心理先算好要買幾盒,老姊加上兩位同事,還有我的,
嗯~就四個人,

老闆,我要原味五盒!

怎樣,我一人吃兩盒不行嗎?好歹我也騎了一小時多的路(迷路)耶,
(心理這樣安慰自己)

一盒80元,所以總共 400 元,
雖然有點小貴,但是曾經吃過一次(今年五月同事送的,請參考芎林古早味蛋糕),知道箇中滋味,
久久一次,滿足自己一下吧!

回到家就迫不及待的拆開來吃,雖然外表長得不好看,不過卻透著一股清香,
有著蛋香和奶香,真的快受不了啦!

忍不住扒了一塊往嘴裡塞,
哇~鬆軟又綿密的蛋糕瞬間在嘴裡化開,
緊接著一陣香氣由鼻孔竄出,直達腦門,
兩眼含淚直說 "值得"

星期一若是看到同事兩眼通紅,就知道他也是感動莫名,
真是絕品!!

PS.新美珍地址: 新竹縣芎林鄉文昌街40號 TEL:03-5923404
星期日公休

晚餐

2008-09-02T23:00:00.004+08:00

昨天晚上煮了豬腳麵線,
多補充一點膠質,也可以彌補前幾天生病所耗損的元氣

滿滿的一碗,還真懷疑我能不能吃得完,
其實慢慢品嚐,三兩下還真被我嗑完了。

真是滿足呀~~

十穀健康粥

2008-08-31T23:25:00.002+08:00

有鑒於這次的瀕死經驗,
又開始想到以前的一篇養生十穀健康粥,
可以給有用的人參考看看,希望大家都健康。

十穀健康粥

材料：糙米、黑糯米、小米、小麥、蕎麥、芡實、燕麥、蓮子、麥片和紅薏仁等分量混合而成。以上十種，可同時煮熟。

作法１：晚上時，將十穀米一杯用水洗淨，加水七杯，放入悶燒鍋內鍋中燒開再煮十五分鐘，放入外鍋中加蓋，翌日早晨上班前即可食用。可多煮一點，供三四天食用。

作法２：晚上時，將十穀米三杯泡水４小時，放入電鍋中，再加水５杯煮成乾飯，待冷卻後，放入冰箱。翌日早晨上班前，取酌量加水四杯煮成稀飯。

備註：小孩子若因口感不喜歡吃時，可加入幾粒龍眼乾或葡萄乾。若不加糖進食時，可加茶葉蛋一個，風味絕佳，記憶超強，功課一級棒。
成份：十穀健康米，據科學分析其成份有一百多種有益人體健康的物質，如維生素Ｂ群（Ｂ１，Ｂ２，Ｂ６，Ｂ９，Ｂ１２）、Ｃ、Ａ、Ｅ、Ｋ、Ｄ，礦物質（鈣、鐵、鎂、鉀），微量元素（鋅、鉬、錳、鍺），酵素，抗氧化物、鮮維素、氨基、生物素，具有降血壓，降膽固醇，清除血栓，舒緩神經之功用，對便秘、高血壓、皮膚病、闌尾炎、失眠、口角炎效果不亞於醫藥，最重要的是沒有副作用。

：白米因除去糖麩及胚芽，僅剩碳水化合物，只提供熱量，營養價值遠低於十穀米。要健康長壽，每天要吃多種類食物，以補充每日新陳代謝所需之酵素。

多吃十穀米，可預防血管硬化、腦中風、痛風、心肌梗塞、癌症等現代文明病。

急性腸胃炎

2008-08-29T21:41:00.003+08:00

星期四中午吃完飯,就發現肚子不太舒服,
下午一點開始就狂拉,
一直到下班六點就拉了六次,
拉到腿軟,手腳發抖...
好不容易下班了,先去藥房買胃藥，花了150元，
回到家也吃不下任何東西,
不過強迫自己泡了一杯即溶的麵糊類食品,這樣才可以吃胃藥，
想說先小睡一下應該會好一些,
於是早早就躺在床上,只不過翻來覆去就是睡不著,
因為開始發燒,頭痛到不行,
只好先起床喝一杯水,打溼身體降溫,
然後繼續躺平。

昏睡的時候,還夢到了一位往生的朋友,
記不太清楚內容,只記得頭痛發燒難過的要命,
我還想說萬一就此葛屁,我的屍體會在何時被發現?
到時應該全身腫起來且發臭了吧!

一下子就被自己嚇醒了,
醒來發現手抖,頭痛欲裂,想吐,全身燒到不行,呼吸困難.....
天呀!難到我真的快不行了嗎?
我的人生在眼前像跑馬燈般的閃過一遍.......

完全無法自行爬起床,於是滾到床下,
先深呼吸,確定自己還活著,
喝了涼水,休息一下,本想自己坐計程車去醫院,不過老姊還沒睡,
所以請老姊開車載我去醫院掛急診,
十二點多到國泰醫院急診,其實那時已經好多了,燒也漸漸退去,
頭也不會那麼痛,只剩下全身無力,和肌肉酸痛而已。

醫生看了看,說是急性腸胃炎,看要打點滴還是一般的針筒注射?
心想,打點滴若沒超過六小時又不能請領保險,還要遮騰到半夜，
算了，還是針打一打早點回去休息吧！
結果打了一支肌肉的針，一支血管的針，掛號費花了450元。

結束回到家約一點半左右,
沒多久我又昏睡過去了,
早上起床吃了藥,上班去,
本來以為藥吃了會有一點效果,
但是仍然想吐,肚子有一點痛,但又不會很難過,
心想乾脆請半天假回家休息好了。

好久沒有這樣大病一場,
難得可以拉得這麼痛快,
也體會到用屁眼小便的感覺,
不過"急性"就是來得快去得也快,
萬一沒注意,當然"走"得也很快,
這下子真的要多注意自己的身體健康囉~

就是要洗衣服

2008-08-20T22:05:00.003+08:00

昨天下班到老姊家吃飯,吃完順便教老姊用電腦,
一直到十點半才結束,本來想洗衣服的,
結果時間太晚不能洗,因為這裡的洗衣機限定十點半過後就不可以洗,
以免吵到鄰居,反正晚一天洗應該還可以,
誰知,今天上班時同事約去釣蝦,
結果差點時間又超過不能洗衣服。

今天釣蝦成績不太好,
我只釣了五尾,就因為要洗衣服所以提早回家,
新竹的釣蝦場不便宜,一小時要200元
我們買了兩小時,釣沒幾隻,
可能是放的蝦子少,一小時才放一次,
還是高雄的比較人性一點,有的半小時就放一次,
而且一小時也才100元。南北實在差很多咧~

苗栗二日遊記

2008-08-17T22:21:00.005+08:00

這星期和忠霖相約一起去苗栗找阿坤,
星期六下午到豐原,幫阿坤修電腦,又申辦台哥大 3.5G 的無線專案,
台哥大附贈的 3.5G 數據機一直橋不定,
因為阿坤的NB是P3早期的電腦,只有一個USB插槽,
3.5G 數據機則需要兩個,因為他的供電不太夠,
只好又去買外加電源的USB HUB 弄了半天終於可以上網了,不過卻短短不到一分鐘又斷線,
再來就無法上網,整台電腦就是怪....
重灌系統再來一次,只上不到三秒的網又掛了,
用我的電腦就是沒問題,也一直查不到原因。

就這樣搞到晚上,不弄了,休息一下,
於是和阿坤的朋友等人,一行六人去溪邊抓蝦,從十點半抓到兩點,
蝦量實在不多,每回天災大水沖刷過後,蝦子就少了很多,
總共四小時才抓大約半個六公升冰箱的量,
回家炒了一半的溪蝦,不過卻也是一大盤,每個人只吃蝦就吃飽了。

第二天起床又繼續前晚的奮戰,要把阿坤的電腦弄成 3.5G 上網,
結果還是不行,總共只成功上網兩次,只好去退掉啦,
聽說3.5G的網卡只能用在USB 2.0上,不能用在 1.0,
我之所以能成功,是因為插在 USB 2.0 的 HUB 上,
所以可以抓到裝置,也可以設定,就是取不到 IP ,
怪事,難到現在農曆七月份....??

反正不知道怎麼一回事,我也要回新竹了,
只好放棄囉~

到車站坐火車時,和忠霖隔著月台相望,因為我們的車次只差四分鐘,不過卻是一南一北,
結果我的車次準點,他的慢一些,看到車來後,就和忠霖揮手Say Good bye,
因為沒買到坐票,所以到車箱中找空間,看那裡有我的容身之處,

這時月台又來一輛火車停靠,一樣是北上,過一會兒廣播說本列車要在此會車......
突然想到,我是買自強號的票,怎麼會等別台車會車?
心想會不會坐錯班次了
我開始緊張的往門口擠出去,希望看到對面的車次,
只可惜人太多,(我不該站在中間的....)
好不容易有個窗戶可以讓我看到對方的車次,

跑馬燈~~~~ "自....強....1...0...3...2...班....次"

暗!! 放我出去(心中吶喊著) >_<

對不起,借過...
...對不起,借過...
.....對不起,借過.....
.......對不起,借過.......
對不....
.......
...........

有一種吃壞肚子時,屎噴射出來後的解脫和無力感.....
我在擁擠的人群中,
看著我要搭的班次從眼前慢慢滑過, 全身無力....

趕快看這班車停靠那裡,出了車箱,找到站長,問是否該列車有到新竹,
站長說[有,快上車,門要關了。]
於是跳上車,心理真是有夠嘔,
提早了半小時到車站就是為了坐那班自強號,
只有那班比較快,不用站太久,
誰知,一個傻瓜竟然搭錯車。唉 ~"~

結婚真忙

2008-07-28T20:41:00.003+08:00

要結婚了,一大堆的事情要忙,
每個禮拜都要跑回高雄,一回去就是忙結婚的事,
星期日又趕回新竹,每次只能一點一點的做,
大多數時間浪費在座車上,實在很累,
不好好規劃時間表不行了。

上回去參加阿達的婚禮,幫忙拍了一些照片,
忙到現在,相片也才整理一半,
功課又遲交了,看各位同學的作品實在很有味道,
不知不覺就偷偷的把自己的作品封印起來......

想到自己的婚紗該如何拍,又是一陣的頭痛,
在有限的時間裡把事情做到最好....
真的考驗到我了。

就努力以對吧!
自己給自己加油打氣囉~

換單位

2008-07-01T23:35:00.002+08:00

今天是換單位的第一天,
因為在台積原單位的合約到期,公司又把我調到另一個單位,
只不過換了位置,辦公室還是沒變,
第一天,就因為出入證沒續約被擋在門外,
好不容易到了辦公室,我的電腦權限也到期無法使用,
真是麻煩,加上原單位又要我幫忙把之前的程式趕完,
只是拖了很久的 SQL 都沒給我,要我怎麼趕,
經過協調,明天我暫時回原單位,幫忙完成最後階段,
他們也答應明天就可以給我 SQL ,
不過這句話我好像似曾相識,不知道聽了幾次了,
反正也只答應回去兩天完成,東西沒給我,也沒辦法啦,
只好請他們自己想辦法了。

就念在今天他們請我和另一位同事吃飯的份上,
好人做到底了。

彌月蛋糕

2008-06-30T22:25:00.010+08:00

今天同事拿了他女兒的彌月蛋糕給我,

回到家趕緊打開來看

看起來和一般的蜂蜜蛋糕一樣,

來個特寫阿默

裡頭還有一張名片和說明紙,

利用變焦鏡玩點花樣,

趕快切一個來吃吃看,
下刀的感覺好軟,
咬到嘴裡好綿...

很香的起司味,還有香甜的奶油味,
入口即化....

第一次吃到(AMO阿默)的蛋糕,
真是好吃!

真的很好吃,值得大力推薦,
可惜的是只有台北台中有,
高雄沒有......

將字串型態的運算式,轉成真正的數學運算式

2008-06-24T23:52:00.002+08:00

有時程式會用到外部傳入的運算式,
可是傳入的卻是字串型態,
這時可以用.NET 的 COM 元件來計算

Private Function CalculateEquation(ByVal strEquation As String) As Double
'要先引用 [Microsoft Script Control 1.0] 的 COM 元件
Dim MsScrCtl As New MSScriptControl.ScriptControl
MsScrCtl.Language = "VBSCript"
'傳回結果
Return sc.Eval(strNewEquation)
End Function

不過通常結果沒那麼簡單,大多數都是運算式中有很多值要替換,
因此可以將字串和值放入陣列中,

Public Class Form1

Private Structure typCalculateValue
Dim Name As String
Dim Value As Double
End Structure

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strValue(2) As typCalculateValue
strValue(0).Name = "TestA"
strValue(0).Value = 0.0894216
strValue(1).Name = "TestB"
strValue(1).Value = 0.0436392
strValue(1).Name = "TestC"
strValue(1).Value = 0.42
Dim strEquation As String
strEquation = "((TestA/2+(TestB*TestC)-123.456)/77)*(1e2)"
MsgBox(CalculateEquation(strValue, strEquation))
End Sub

Private Function CalculateEquation(ByVal aryTmpValue() As typCalculateValue, ByVal strEquation As String) As Double
'要先引用 [Microsoft Script Control 1.0] 的 COM 元件
Dim MsScrCtl As New MSScriptControl.ScriptControl
MsScrCtl.Language = "VBSCript"
Dim i As Integer
Dim strNewEquation As String
strNewEquation = strEquation
For i = 0 To UBound(aryTmpValue)
strNewEquation = Replace(strNewEquation, aryTmpValue(i).Name, aryTmpValue(i).Value)
Next
Return MsScrCtl.Eval(strNewEquation)
End Function
End Class

風力發電機

2008-06-22T23:50:00.011+08:00

昨天(星期六)在家趕程式,寫到不知道如何寫,
所以自己一個人騎著車,從新竹出發到後龍走走,
想要看看那裡的風力發電機,
一路上豔陽高照,天氣又熱,
幸好新竹什麼沒有,就是風大,所以不會覺得太悶,
延著濱海公路往南騎,過了香山就可以看到一排的風力發電機在海岸邊轉動,
一路上走走停停,好像只有我一人在拍照,

其它的車輛都是呼嘯而過,

為了要拍風車轉動的樣子,拉長了曝光時間,光圈縮到最小,
還是過曝,完全失敗,當場好想衝去買減光鏡。

一個人走在田間小路上,很怕草叢裡有生物突然出現,

找到好位置就開始拍照了,

火狐(Firefox) 3好用套件_輕鬆升級

2008-06-22T13:42:00.002+08:00

前幾天網路上的盛事Firefox 出 3.0版了,
同時挑戰「單日最多人下載軟體」的金氏世界紀錄
對於新軟體總是抱著不要衝第一的心態,
畢竟總是會有很多的問題,我也沒時間去幫忙測試,
還是交給專業的玩家去測吧,
不過今天心血來潮把我的Firefox 2.0.0.1.4一次升級到 3.0
可以想像我幾乎沒在升級軟體的。

升上去後首先面臨的是以前的套件幾乎不能用,
我常用的是

Tab Mix Plus
新同文堂
FlashGot
IE Tab
Super Drag and Go
Web Developer
.....等等的套件

最不能忍受的當然是Tab Mix Plus和Super Drag and Go
所以找到一個非官網的版本
安裝 Tab Mix Plus Dev-Build 0.3.6.1.080416

替代 Super Drag and Go 的 QuickDrag 1.0.5
官網說明
官網下載

其它的套件
可在Firefox上使用IE的瀏覽器IE Tab 1.5.20080310

新同文堂3.9.1(這個版本沒有自動更新功能)

其它如 FlashGot , Web Developer 都可以自動更新到新版本

其它可參考
火狐套件官網
以前版本常用套件Top 15
http://quitt.net/mozilla/extensions/

不過新的火狐部份功能有Bug,但是整理上來說還是很好用。
相關消息可以參閱官網論壇

桂花茶

2008-06-17T19:59:00.002+08:00

今天心血來潮,拿公司送的水壺來沖泡桂花茶,
先把桂花釀放到瓶底的過濾網中,
然後由瓶口加水,
當我把水壺倒置時發現有糖蜜慢慢的向下流出,
感覺很好看,於是就把它拍下來做紀念啦,

拿這個行動拍擋 PC-701-740cc 來泡桂花茶還真是方便,
難怪人家申請那麼多專利,
當我搖晃水壺後打開瓶蓋,發現竟然瓶口不會殘留水珠,
而且輕輕一鎖,完全不漏,
甚至濾網內部會鎖住水份,

可以看到與空氣接觸的上半部,裡面的水並沒有留出,
還有桂花在裡頭飄浮著,
實在想不透是什麼原理??

LR快速編輯圖片

2008-06-15T15:09:00.001+08:00

為了編輯大量的RAW檔,可以用LR來完成批次轉檔
否則用NX可是要編輯到天荒地老咧
下載 http://www.mediafire.com/?tjgnl0mwxmm

相關文件可以上Google 查詢。

提親

2008-06-15T12:36:00.003+08:00

這星期下了幾天的大雨,
回到高雄還在擔心會不會下到淹水,
到時要提親可就很不方便了,
幸好今天早上的雨沒有下太大,
十點出門,去載阿姨(便媒人),
一車四個人就往女友家出發。

本來打算中秋節再過去提,可是Way的妹妹要趕在今年結,
就怕明年29不宜嫁娶,所以我的計劃也只能提前了。

出發前我才開始緊張,不知道如何開口,
之前我都不曾緊張過,真是奇怪,
幸好大至上有和伯母先討論過大概的情形,
所以今天算是談得順利,
再來就是看時間安排在什麼時候,
到時再跟親朋好友公佈好日子囉~

又被鎖在門外了

2008-06-15T00:08:00.003+08:00

每次回到家裡總會忘了帶家裡的鑰匙就出門,
這次也是一樣,
話說今天早上去剪頭髮,想說很快,
於是拿著錢和雨傘就走路出門啦,連手機都沒帶....
而爸媽以為我人在樓上,出門時順便把門給鎖上,
等我回到家才發現又被鎖在門外了,
這不是第一次,每次被鎖才會想到自己的粗心,
既然被鎖在門外,不如就欣賞著天空和過路人,
好久沒有這麼仔細的看看家裡周圍的環境,
今天的天氣不太好,天空特別的黑,雲層特別的厚,
大雨下下停停的,其實在涼亭裡看著外面的大雨,還別有一番滋味,
以前被鎖在門外總會很不高興,現在換個角度想,很難得被鎖在門外,
不如放鬆心情好好欣賞風景,一下子就過了一個半小時,
也終於等到爸媽回家了。

旅社再度開張

2008-06-11T23:47:00.003+08:00

昨天,以前的台積同事來我這裡借住一晚,
因為他上來新竹面試,第二天還要上台北,
所以就先暫住一宿。
昨天晚上找了另外兩個同事一起去吃鐵板燒,
位在食品路上的肥仔龍鐵板燒,學生餐一客99元,
就是兩樣菜,外加魚排和牛.豬.羊三選一,
飲料和湯無限量供應,不過白飯一碗就要十元,
整體來說是還ok啦,
不過現場的排煙設備設計不太好,所以在風尾的人只能猛吸油煙。

吃完後再去附近的 7-11 坐著聊天,
可以說是方便又省錢了,缺點是上廁所要跟四週的店家借。

晚上聊到九點就各自回家,
回到家,同事再教我.NET程式設計觀念,
一下子講太多還真有點消化不良咧。

今年的第一口玉荷包

2008-06-08T23:27:00.003+08:00

今天老姐他們去日月潭回來,
帶了些東西給我,其中一個就是玉荷包,
今年的產量減少,加上肥料有錢也買不到,還有氣候的變化,
造就了今年的高價位,

吃起來偏酸,幸好我很會吃酸,所以感覺還好,
雖然我很喜歡吃荔枝,不過怕吃多上火,又會像前陣子那樣,
天天流鼻血.....反正也沒多少啦,因為一斤要價120元,真的太貴了。

真不巧,下雨了,無法照相

2008-06-07T16:22:00.010+08:00

本來今天要去苗栗,結果阿坤生病,
想說那就去照相,順便爬山,
結果才出門就下雨,只好回來照我的小花圃了。

先看看好久沒拍照的小精靈(Tillandsia ionantha),
長大了不少,可以比較先前照的照片

再來是我的 Tillandsia tricolor 開完花後也長了一株側芽

無意間還發現我的 Tillandsia tricolor (三色花)還有結夾果,
還以為它那球拍狀的花序會爛掉,結果沒有,還結果咧!

只不過我的 Tillandsia juncifolia 還是沒有開花,一點動靜都沒有

到是去年無意間丟到土裡的紅龍果種子發芽了,
等了好久才長成這般大小,本來還不想讓它活的,不太去照顧它,
結果是還長大了。

再加上隨意丟棄的小蕃茄,也長了好多出來,

快變成小森林了,可以看到小黃花,那可是茼蒿的花哦,
不知道它的種子長什麼樣子

一個無法拍照的星期六,只好拍拍小花圃,
結果意外發現我的植物變了不少,算是意外收穫吧!!

參考 Tillandsia tricolor開花了
微觀新世界

阿坤保重了

2008-06-06T22:30:00.003+08:00

本來計劃明天要去苗栗找阿坤,
因為太久沒去找他了,
結果這兩天聽說病得不輕,
一直跑醫院,今天大嫂不得以打電話給我,
說不好意思,只能取消行程了,
唉呀~真是口年的阿坤,
好好休息吧,等你康復後我再找時間去煩你,
這回就放過你,讓你好好休息。

所以明天的行程就另外安排囉~

歌手蘇明淵(蘇兒真) 的部落格

2008-06-06T22:12:00.002+08:00

前幾天無意間看到的一則新聞,
裡面可以試聽到蘇兒真的歌,個人感覺是滿輕柔的,
蘇明淵的部落格名為「律師歌手蘇兒真的部落格」,
網址為http://www.wretch.cc/blog/ninthchords

中華民國不存在?

2008-06-06T22:05:00.000+08:00

奇摩新聞[正在中國訪問的國民黨主席吳伯雄以「馬先生」稱馬英九總統,題字落款時連中華民國幾年都不敢用,....]
看了這篇報導,原來中華民國不存在是真的,
不知道現在是"台灣國"還是"台灣台北"?
相隔60年的國共會談,談的竟是如此的矮化國格,
這又有何必要談呢?
嗚呼哀哉!中華民國!

輕盈的資料庫 SQLite

2008-06-06T20:27:00.002+08:00

在某些情況下,會用到資料庫,但又不想要安裝一個龐大的系統在電腦中,
這時可以選擇輕如羽毛的資料庫 SQLite ,
它是免費軟體,重點是他的輕量化讓人感覺不到他的存在,
而且功能具備,實在是一個好用的資料庫。
除了 PHP 會用到,還支援很多語言,可以上官方網站查詢,
我也寫了一篇 TCL 和 SQLite 的應用,這是參考官網的 Documentation 範例所改編,
非常的簡單易學,今天第一次接觸,就發現它的輕便之處,
Command-Line程式也才幾百K,下載回來的DLL也一樣的小,
單一的檔案,直接使用,不用安裝,簡單明瞭,驚嚇到嘴巴合不攏。
有需要的可以下載回來玩玩看。

TCL 和 SQLite 的應用

2008-06-06T20:21:00.002+08:00

###=== 載入下載回來的tclsqlite.DLL
load "C:/Tcl/lib/tclsqlite3.dll" sqlite
###=== 建立新的資料庫
sqlite db1 F:/Andre_kao/testdb.db
db1 eval {CREATE TABLE t1(a int, b text)}
###=== 寫入資料
db1 eval {INSERT INTO t1 VALUES(1,'hello')}
db1 eval {INSERT INTO t1 VALUES(2,'goodbye')}
db1 eval {INSERT INTO t1 VALUES(3,'howdy!')}
set x [db1 eval
{SELECT * FROM t1 ORDER BY a}]
###--- 傳回 1 hello 2 goodbye 3 howdy!

###=== 將資料庫中的資料排序後印出來
db1 eval {SELECT * FROM t1 ORDER BY a} values {
parray values
puts ""
}
###=== 輸出結果
###=== values(*) = a b
###=== values(a) = 1
###=== values(b) = hello

###=== values(*) = a b
###=== values(a) = 2
###=== values(b) = goodbye

###=== values(*) = a b
###=== values(a) = 3
###=== values(b) = howdy!
###=== 請參考 http://www.sqlite.org/tclsqlite.html

Metlab DLL 和 TCL 的應用

2008-06-06T20:17:00.000+08:00

###### Metlab Code ######
###=== 建立一個 matlab 的檔案,命名為test2
###=== 程式碼如下

function [result] =test3(a,b,c,d)
result = a+b*c-d;
save('D:\MATLAB6p5\work');
return

###=== 在 Matlab 主程式中,選擇..
###=== Start --> Matlab --> Matlab COM Builder --> Matlab COM Builder
###=== 建立 New Project 取名為 test1
###=== Component Name 設為 testAAA
###=== 將 Build debug version 的選項打勾
###=== 執行Build產生 DLL 檔案
###=== 將DLL檔COPY到 C:\Windows\System32 裡面
################################

########### tcl 載入 DLL ###############
package require tcom
::tcom::import test1_1_0.dll
set comUtil [::test1::testAAA]
### 這裡的[::test1::testAAA]
### test1是Matlab 的COM Builder檔名
### testAAA是Matlab 的Component Name,也就是 Class Name

###===--- 執行 DLL
### a 矩陣內容為
### { 1.0 2.0 }
### { 3.0 4.0 }
set a [list [list [expr double(1)] [expr double(2)]] [list [expr double(3)] [expr double(4)]] ]
### b 矩陣內容為
### { 3.0 2.0 }
### { 4.0 5.0 }
set b [list [list [expr double(3)] [expr double(2)]] [list [expr double(4)] [expr double(5)]] ]
### c 矩陣內容為
### { 1.0 2.0 }
### { 3.0 4.0 }
set c [list [list [expr double(1)] [expr double(2)]] [list [expr double(3)] [expr double(4)]] ]
### d 矩陣內容為
### { 4.0 5.0 }
### { 6.0 7.0 }
set d [list [list [expr double(4)] [expr double(5)]] [list [expr double(6)] [expr double(7)]] ]
set retx $comUtil test2 1 retx $a $b $c $d
### 這裡的 $comUtil test2 ....
### test2 是Matlab的M File Name,也就是存放程式碼的檔名
puts $retx

### 上面的$comUtil test2 1 retx.. "1" 表示傳回一個值由 retx 變數接
### 傳回 {6.0 11.0} {16.0 25.0}

工程師節的禮物

2008-06-05T21:36:00.009+08:00

想不到6/6日的工程師節，在台積還會送禮物，
真是太高興了，這次是送有多國專利的水壺,
行動拍擋 PC-701-740cc
在網路上看的價格還有點貴咧,
嚇死人,應該是專利的關係吧,
聽說大陸早就開始出現仿冒仿冒品了。

整組就長這樣

把上下蓋子都打開就是這樣

水壺的"腸子"還在肚子裡時

把腸子拉出來特寫,旁邊是水壺的上蓋,裡面還有洩壓閥的裝置

金鋼合體......這才是能帶出門的樣子!

感覺上泡茶很方便,也可以泡咖啡和果茶,
不過若是茶葉泡在裡面太久要拿出來也是挺麻煩的,
應該比較適合冷泡茶吧!因為冰水泡茶可以泡久一點。

Yahoo! 奇摩輸入法

2008-06-05T20:58:00.004+08:00

想不到 Yahoo 竟然也出了輸入法,
其實這造福了不少打注音的朋友們,
感覺上我的倉頡輸入好像用不太到,
畢竟打了這麼久的倉頡,一時間要換也不太容易,
不過還是拿來比較一下好了，

一般倉頡

Yahoo! 奇摩輸入法

兩者比較起來，一般倉頡可以選的字較少，
不過聯想詞提示來說，Yahoo! 奇摩輸入法比較能夠選到對的字，
只不過我習慣用舊的提示字，所以常會不自覺的按錯，
應該只是習慣與否的問題而已，到是建議使用注音的朋友可以考慮看看 Yahoo! 奇摩輸入法

觀看 Yahoo! 奇摩輸入法動畫教學

教你如何用 Backy 收 Yahoo 的 pop3 信箱

2008-06-05T20:17:00.006+08:00

今天在網路上無意間看到一篇利用Gmail的過濾機制收Yahoo的Mail,
請參考如何用Gmail收發Yahoo!奇摩信箱的Email郵件？（用Gmail過濾Yahoo垃圾信）
在那裡面就有講到如何破解Yahoo信箱要付費才能收POP3的限制,
原來登入在國外的Yahoo是不用收費,可是到了台灣就變成要錢了,
照著他的方法做一次,果然沒錯,可以收POP3的MAIL,
於是將我的 Backy Mail 也設定一下好了,
這樣我也可以在自己的電腦收Yahoo的信啦,真是好用。

首先新增一個帳戶
然後在內容的設定改為

在同一個視窗,不同分頁中,[雜項]裡有關SSL的設定如下

簡單設定就ok了
不過Yahoo的 Mail過濾功能真的太差了,
看得很頭痛,經過實際使用狀況來看,
先經由Gmail過濾完再收會比較好,
因為我原先的Yahoo 信箱有一千多封信,大多是廣告或病毒信,
經過Gmail過濾完剩下一百多封,省去了我很多時間。

真是強烈建議如此比照辦理的啦!!

我口年的蚊帳

2008-06-04T22:40:00.003+08:00

上星期讓勾勾來我這裡住個幾天,
第二天就發現蚊帳破了幾個洞,

第二天晚上我才發現,是貓利用蚊帳,
爬到上面為了抓我晾在房裡的褲子,
所以可以看出一個一個的洞,
早上起床一時找不到東西可以補洞,
於是拿了膠帶來貼,

雖然看起來醜醜的,不過可以一眼看出破洞在那裡,
以後在整理時就可以小心一點了。

小小找主人

2008-06-04T21:54:00.002+08:00

昨天開車帶著小小去動物醫院,
除了再一次檢查外,同時也有個領養人要看小小,
小小因為主人騎機車載它,在竹科車禍往生了,
所以小小見到機車就不肯上車,只好開車載它啦。
有關小小的故事可以到新竹保護動物協會觀看,

其實小小很聰明,星期天我才教它三次坐下的指令,它一下就學會了,
而且又乖又安靜,也不會亂大小便,
這麼乖的狗連我都想養,
不過我住的地方實在不方便,
只能期待有心人士可以將它領養回去,好好照顧它了。

使用 TCL 解高斯函數(矩陣 Matrix)

2008-06-04T21:37:00.007+08:00

### 設定矩陣大小
### 矩陣內容如下
### MatrixA :
### | 1 1 2 |
### | 10 11 12 |
### MatrixB :
### | 5 |
### | 7 |
set X 3
set Y 2
### 引用 TCL 的數學函式 Library Package
package require
math::linearalgebra
### 建立矩陣
set MatrixA [::math::linearalgebra::mkMatrix $Y $X 0]
set MatrixB [::math::linearalgebra::mkMatrix $Y 1 1]
### 填入矩陣 MatrixA 內容
::math::linearalgebra::setelem MatrixA 0 0 1
::math::linearalgebra::setelem MatrixA 0 1 1
::math::linearalgebra::setelem MatrixA 0 2 2
::math::linearalgebra::setelem MatrixA 1 0 10
::math::linearalgebra::setelem MatrixA 1 1 11
::math::linearalgebra::setelem MatrixA 1 2 12
### 填入矩陣 MatrixB 內容
::math::linearalgebra::setelem MatrixB 0 0 5
::math::linearalgebra::setelem MatrixB 1 0 7
### 使用 TCL 的 Library 計算 解高斯函數
set Z [::math::linearalgebra::solveGauss$MatrixA $MatrixB]
### 傳回答案 48.0 -43.0

TCL中,將陣列(Array) 轉成不含Index 的 List 字串

2008-06-04T20:48:00.004+08:00

### 取得陣列大小,如 Array1 的大小為 (3,5)
### 傳入 GetArraySize Array1 取得的值為 { 3 5 } 的 List
### 可由 [lindex [GetArraySize Array1] 0] 的方式取出 Row
### [lindex [GetArraySize Array1] 1] 的方式取出 Col
proc GetArraySize {arryName} {
    set listName ""
    upvar $arryName arryNameII
    set arrRowMax 0
    set arrColMax 0
    foreach {value} [array get arryNameII] {lappend arrElment $value}
    for {set i 1} {$i = [llength $arrElment]} {set i [expr $i+2]} {
        set arrIdx [lindex $arrElment [expr $i-1]]
        set arrRow [string range $arrIdx 0 [expr [string first "," $arrIdx 0] - 1] ]
        set arrCol [string range $arrIdx [expr [string first "," $arrIdx 0] + 1] [string length $arrIdx]
]
        if {$arrRow>$arrRowMax} {set arrRowMax $arrRow}
        if {$arrCol>$arrColMax} {set arrColMax $arrCol}
    }
    return "$arrRowMax $arrColMax"
}

### 將陣列轉成List
### 因為用TCL的 array get 會連同 Array Index 同時轉成 List
### 所以另外寫一個 procedure ,將陣列內容轉成不含 Index 的 List
### 這一段才是主要的程轉換 Function
proc Array2List {srcArrName} {
    upvar $srcArrName srcArrNameII
   ### 呼叫副程式取出陣列的 Row 及 Col 大小
    set srcArrNameII_r [lindex [GetArraySize srcArrNameII] 0]
    set srcArrNameII_c [lindex [GetArraySize srcArrNameII] 1]
    set destListName ""
    for {set i 1} {$i <= $srcArrNameII_r} {incr i } {
        set temp ""
        for {set j 1} {$j <= $srcArrNameII_c} {incr j } {
            lappend temp 0
        }
        lappend destListName $temp
    }
    for {set i 1} {$i <= $srcArrNameII_r} {incr i } {
        for {set j 1} {$j <= $srcArrNameII_c} {incr j } {
            lset destListName [expr $i-1] [expr $j-1] [expr double ($srcArrNameII($i,$j))]
        }
    }
    return $destListName
}

VB DLL 和 TCL 的應用

2008-06-02T22:40:00.004+08:00

'################# VB DLL Class 設定 ###########
'### 開啟 VB 的 DLL 專案,並且命名為 ReCallDLL
'### 新增一個 Class 檔案 ,命名為 clsReCallDLL
'###---------- 加入以下程式碼 -----------------
Public Function testAB(a() As Variant, b()As Variant) As String
    '組合第一個陣列內容
   testAB = "aryStr = " & a(0) & b(0)
End Function

Public Function mathadd(a As Double, b As Double) As Double
    '兩數相加
   mathadd = a + b
End Function

Public Function mathadd2(a As Variant) As String
    '傳回傳入字串
   mathadd2 = "The Value is = " & a
End Function
'###----------------------------------------

################# TCL 的執行 Scrip ###########
### TCL 載入 DLL
package require tcom
::tcom::import ReCallDLL.dll     ;#採用動態(未安裝 DLL)載入
### 若是靜態(事先安裝DLL)載入則用下面的方法
#set comUtil [::ReCallDLL::clsReCallDLL]
### 建立連接端
set comUtil [::tcom::ref createobject "ReCallDLL.clsReCallDLL"]

### TCL 執行 DLL
set b "1 2"    ;#將 b 設為 List ,因為設成陣列Array 傳遞時會出現錯誤
set c "3 4"    ;#將 c 設為 List ,因為設成陣列Array 傳遞時會出現錯誤
set a [$comUtil testAB b c]    ;#呼叫 DLL 並執行其中的一個 testAB Function
### 傳回 aryStr = 13
set b 12    ;#將 b 設為單一數字
set c 23    ;#將 c 設為單一數字
set a [$comUtil mathadd bl cl] ;#呼叫 DLL 並執行 mathadd 將兩數相加並傳回
## 傳回 35

砂子專區

[免費下載 MP3 軟體] 針對蕃薯藤(yam)天空部落,含原始程式碼(VB.NET 2005)

使用 Delegate 解決 [跨執行緒作業無效] 的問題!

給永遠的思懷姐

使用巨集(Macro)加入圖片,並調整大小(長寬)及建立表格

今天是 20111102

環島公里數

兩天一夜四極點環島夢 (後記)

兩天一夜四極點環島夢 Part 2

兩天一夜四極點環島夢 Part 1

白色聖誕樹

人生的2/3

寶寶長牙了

字串置換(取代)應用 (RegularExpressions 的 Replace)

取出目錄下所有子目錄的檔名,使用 VB6

Becky Mail 無法加入附件

如何使用 VB6 下載網路檔案

開發 Android 程式(環境準備)

謠言止於智者!!

終於搞定了,在 Blog 中秀程式碼範例框prettifier(高亮顏色字體)

將非 COM 元件的外部 DLL ,包入 .NET 開發的執行檔中 (PART 2)

將非 COM 元件的外部 DLL ,包入 .NET 開發的執行檔中 (PART 1)

護士服務不佳的高雄正薪醫院

比遜 手沖濃縮咖啡

在 Windows 下讀寫 USB 上指定的位址

我家公主的提籃

台南大橋夜市重新開幕

失望的 HTC

Toyota Altis 1.8E 定速暴衝,嚇屎我了....

GPU/CPU 效能測試

賓果開獎軟體

大腹便便

批次檔輸入參數(Batch File Command-Line Parameter)

汽車油耗比較

產檢

山刺番荔枝(Annona montana)

伽利略 USB/ESATA/CARDREADER/2 PORT HUB 多介面硬碟座

第一次產檢

兩條線

vb.net 2005 取得檔案總行數

ARC-Flash 光觸媒 全新到貨

我的 Server 復活了

2008-12-09_13 北海道蜜月

大地震~~~~

朋友開大卡出車禍

2010-02-14 東山露營

微軟好用工具_多重桌面

新購置 羅技新M555b 藍牙滑鼠

喝奶茶會變笨？--KingNet國家網路醫院 | Second Opinion WebHospital

2009-12-11_隨拍

婚紗側拍

2009-12-12 台中新社花海

2009 橋頭花田喜事

華碩品質.....

使用Becky Mail 收發 Hotmail 信件

2009/07/25-26_悠閒清境二日遊

新相機 F200拍照測試

我的遙控直昇機

XP雙核心修正檔 KB896256 V4

又買了一個 3.5 吋外接盒

新竹好市多辦卡

小光VS熊貓之諜對諜

小番茄收成....一顆

硬碟空間不足

我當大伯了

2008-08-08 拍婚紗

積欠的作業開始補交囉~

限制 Text Box 只能輸入正數含小數 (VB 2005)

芎林新美珍蛋糕

晚餐

十穀健康粥

急性腸胃炎

就是要洗衣服

苗栗二日遊記

結婚真忙

換單位

彌月蛋糕

將字串型態的運算式,轉成真正的數學運算式

風力發電機

火狐(Firefox) 3好用套件_輕鬆升級

比遜手沖濃縮咖啡

ARC-Flash 光觸媒全新到貨

新購置羅技新M555b 藍牙滑鼠

歌手蘇明淵(蘇兒真) 的部落格