2008年9月6日 星期六

芎林新美珍蛋糕

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

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

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

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

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


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


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

老闆,我要原味五盒!

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

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

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


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


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

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

2008年9月2日 星期二

晚餐

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


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


真是滿足呀~~

2008年8月31日 星期日

十穀健康粥

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


十穀健康粥

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

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

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

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

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

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

2008年8月29日 星期五

急性腸胃炎

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

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

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

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

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

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

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

2008年8月20日 星期三

就是要洗衣服

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

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

2008年8月17日 星期日

苗栗二日遊記

這星期和忠霖相約一起去苗栗找阿坤,
星期六下午到豐原,幫阿坤修電腦,又申辦台哥大 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年7月28日 星期一

結婚真忙

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

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

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

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

2008年7月1日 星期二

換單位

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

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

2008年6月30日 星期一

彌月蛋糕

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


回到家趕緊打開來看


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


來個特寫阿默



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


利用變焦鏡玩點花樣,



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




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


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


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

2008年6月24日 星期二

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

有時程式會用到外部傳入的運算式,
可是傳入的卻是字串型態,
這時可以用.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年6月22日 星期日

風力發電機

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




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


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


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


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






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

前幾天網路上的盛事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年6月17日 星期二

桂花茶

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


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


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

2008年6月15日 星期日

LR快速編輯圖片

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

相關文件可以上Google 查詢。

提親

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

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

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

又被鎖在門外了

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

2008年6月11日 星期三

旅社再度開張

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

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

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

2008年6月8日 星期日

今年的第一口玉荷包

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


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

2008年6月7日 星期六

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

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

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


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


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


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


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


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


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


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


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

2008年6月6日 星期五

阿坤保重了

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

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

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

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

中華民國不存在?

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

輕盈的資料庫 SQLite

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

TCL 和 SQLite 的應用

###=== 載入 下載回來的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 的應用

###### 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年6月5日 星期四

工程師節的禮物

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

整組就長這樣


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


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


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


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


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

Yahoo! 奇摩輸入法

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

一般倉頡




Yahoo! 奇摩輸入法




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

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

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

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

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


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


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

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

2008年6月4日 星期三

我口年的蚊帳

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


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


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

小小找主人

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

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

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

### 設定矩陣大小
### 矩陣內容如下
### 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 字串

### 取得陣列大小,如 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
}

2008年6月2日 星期一

VB DLL 和 TCL 的應用

'################# 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

2008年6月1日 星期日

nUtella 能多益榛子果仁可可醬

自從上回老弟去義大利帶回來
La buona prima colazione con nUtella
一吃到真是驚為天人,於是到處找看台灣有沒有在賣,
後來在網路上查到好市多和大潤發都有在賣,
所以昨天就去大潤發買了一瓶,
大潤發賣的是200克包裝,一瓶要72元
進口商是:香港商亞洲費列羅有限公司台灣分公司

今天就拿來比較看看,


外觀是有差別,因為義大利的是400克包裝(歐元2.56),台灣是200克包裝(台幣72元),
背面看來也有所不同,


以口感來說,台灣的味道比較淡,而且濃稠度也沒有義大利的濃,
台灣賣的榛果味也沒有義大利的香,
台灣進口的可可醬一開封還帶點淡淡的藥味,必須將蓋子打開幾分鐘才行,
那股藥味不知道是包裝的關係還是內容物的關係?

也因為台灣進口的能多益榛子果仁可可醬濃度比較稀,
在抹麵包或餅干時可以很容易的抹上,只是要抹很厚一層
而義大利的較濃,在抹時要稍微出點力否則不容易抹上去,
不過卻只要薄薄一層就有濃濃的金沙味了。