話說Stative Verb

　　在教中文的時候，覺得SV很難解釋；學英文時，也才發現中文慣用的SV，很多在英文表示裡要換種方式。

　　舉例來說，中文說一個人很沒有邏輯，可是英文就不能說he is not logical. 得說他想法沒有邏輯he fails to think logically.

　　今天在練寫英文時，也遇到同樣的問題，我想說團體學習可以互相幫助，這會避免挫折感 studying together prevents me from frustrating. 想想不對，到底是frustrating還是frustrated呢？嗯，仔細想想之後，應該是prevents me from being frustrated，是我覺得挫折，這常用的SV要加上Be動詞才會對。

　　果然是複雜的SV @@

Flash圖表

　　Flash改變了網路媒體，當然，這股火也燒到了powerpoint來了。如果能把圖表動態呈現，是不是更人性化、更具說服力呢？

　　蟲蟲尋找了一下產生Flash圖表的相關程式，扣除掉是動態製作網路圖表的工具(就是結合程式如ASP、PHP之類的)，只有三個比較合適：Rich Chart Builder、Swiff Chart與Crystal Xcelsius。

　　至於三種哪一個好，蟲蟲也還沒完全實驗完。等有心得再補上吧！

　　這裡有教學：http://oa.digitimes.com.tw/ShowNews.aspx?zCatId=A13&zNotesDocId=0000032193_B4Y12I2FYS8HCYX4ZLE7H

找出Word裡使用的字型

　　蟲蟲當客串小編輯已經有段時間，多人編寫教材時，常遇到的問題是「字型不統一」或是給出版社前，「不知道用了多少字型」。

　　這問題很複雜，有可能真的是每個人使用的字型不一樣，也有可能是電腦幫你預設了字型。當然也有可能是選錯或剪貼時沒注意到。不管這一切，重要的是如何找出有哪些字型。

　　在《Word排版藝術》一書中，侯大師提供了一段程式碼，原貼如下：

Sub findfonts()

Dim efonts As New Collection
Dim cfonts As New Collection
Dim stl As Style
Dim useCount As Integer
Dim i As Integer

useCount = 0
For i = 1 To ActiveDocument.Styles.Count
Set stl = ActiveDocument.Styles.Item(i)
If stl.InUse Then
useCount = useCount + 1
If notinit(stl.Font.Name, efonts) Then
efonts.Add stl.Font.Name
End If
If notinit(stl.Font.NameFarEast, cfonts) Then
cfonts.Add stl.Font.NameFarEast
End If
End If
Next i

Dim msg As String
Dim obj As Variant

msg = "目前:" + CStr(ActiveDocument.Styles.Count) + Chr(10)
msg = msg + "目前style:" + CStr(useCount) + Chr(10) + Chr(10)
msg = msg + "內建字型:" + CStr(efonts.Count) + Chr(10)
For Each obj In efonts
msg = msg + obj + Chr(10)
Next

msg = msg + Chr(10) + "遠東:" + CStr(cfonts.Count) + Chr(10)

For Each obj In cfonts
msg = msg + obj + Chr(10)
Next
MsgBox msg






'''''
'Dim fonts As New Collection
'Dim i As Integer
'For i = 1 To 10
' fonts.Add ActiveDocument.Styles.Item(i).Font.Name
' fonts.Add ActiveDocument.Styles.Item(i).Font.NameFarEast
'Next i
'Dim msg As String
'Dim obj As Variant
'For Each obj In fonts
' msg = msg + obj + Chr(10)
'Next
'MsgBox msg
End Sub

Function notinit(str As String, ByRef coll As Collection) As Boolean

Dim notin As Boolean
notin = True

Dim obj As Variant
For Each obj In coll
If obj = str Then
notin = False
Exit For
End If
Next

If notin Then
notinit = True

Else
notinit = False
End If


End Function



Public Sub findcha()
Dim fonts As New Collection
Dim rgn As Range

For Each rgn In ActiveDocument.Characters
If notinit(rgn.Font.Name, fonts) Then
fonts.Add rgn.Font.Name
End If

If notinit(rgn.Font.NameFarEast, fonts) Then
fonts.Add rgn.Font.NameFarEast
End If
Next

Dim msg As String
Dim obj As Variant
msg = "all" + CStr(ActiveDocument.Characters.Count) + Chr(10)
msg = msg + "all used fonts:" + CStr(fonts.Count) + Chr(10) + Chr(10)
For Each obj In fonts
msg = msg + obj + Chr(10)
Next
MsgBox msg


End Sub

Delphi連結SQL2005

　　MSSqlServer出了2005後，為資料庫市場帶來不少衝擊。原本只有MySQL、P-SQL以及一些蟲蟲記不得的免費資料庫軟體，SQL2005也出了express版，給程式設計師帶來不少便利。

　　Delphi用得這麼順手，可是以前不知怎的，怎麼連就是連不到SQLServer 2005。後來看了一篇文章，原來連接沒有那麼困難。

　　Provider選Microsoft OLE DB Provider for SQL Server，連線ip要打對，而且要加上伺服器的名稱，比如說140.140.140.140\我是主機。記得那個奇怪的斜線。

　　密碼設定完之後，就可以連到資料表了。不過擔心unicode的感覺真好！

幾個Delphi常用函數的引用

　　showmessage是引用dialogs
　　application是引用forms

　　剩下的慢慢再補

Fast Report簡易使用筆記

　　畫報表幾乎是寫資料庫者必備的功課。在Delphi裡，蟲蟲個人是偏愛Fast Report，原因無他，因為其它報表軟體都學不會 @@

　　每次玩Fast Report，總是會犯錯，想想還是把使用筆記寫下來好了。

1. 拉個fastreport
2. 拉個frxDBDataset，不是userdataset
3. 畫報表
4. 設個啟動點，載入報表loadfromfile
5. showreport

　　report的dataset不能跟報表裡的欄一樣。如果要用rechedit，要記得在程式加上richobject，不然會報錯。

心得：千萬別學英語

　　千萬別學英語(Don't ever study English)書名聽起來聳動，其實正直指一般人學習英語使用錯誤的方法。在博客來的網站可以找到此書的簡介，確實滿吸引人的。現在蟲蟲初級的正在練習第二階段，中級的還在磨第一階段，有些詞還是不大清楚。確實，聽寫對英文滿有用的，而且聽清楚每個音真的很重要，大聲朗讀時就會發現其益處了。

通過聲像學習英語的反傳統模式 英語學習方式大轉變的絕佳指南一場英語學習的革命開始了……
你甘願自己遇見外國人時就變成張不開嘴的啞巴嗎？
你甘願自己被形式的枷鎖禁錮而陷入教條主義的泥潭嗎？
你甘願自己10年苦讀一無所成最終前功盡棄嗎？
你甘願自己因英語水平不過關而無法在外國學習嗎？
你甘願自己被充斥著問題的輔導班和書籍埋沒嗎？
你甘願自己對TOEIC成績止步不前的狀況麻木不仁嗎？
你甘願自己的美好前程毀於英語之手嗎？——那麼，向以往所有傳統的英語學習方法說BYE-BYE吧！

　

　　簡單地說，全書分為五個階段的練習。

　　第一階段是打開耳朵，透過不斷地聽，只聽一卷，聽到能聽清楚每個聲音為止。每天至少聽一個小時，但六天之後要有一天與英語隔絕。反覆聽，記得不要立刻聽不懂就倒回去。

　　第二階段就是聽讀併舉，掌握語法。先將已聽楚的聲音檔拿出來，練習聽寫。聽寫完不確定的以英英字典確認。聽寫完之後，大聲朗讀，覺得不滿意的，再聽一次。

　　第三階段是躍躍欲試，出口成章。將以前不懂的詞再查清楚。如果不懂的繼續查。查一個小時之後，停止查詢，大聲朗讀一小時結束。同樣也是六天休息一天。

　　第四階段是自我領悟，無典自通。即使再準備一卷錄音帶，重複一至三的步驟。

　　第五階段是文化融通，漸入佳境。準備英文原版報紙，挑一篇一、二分鐘即能讀完的短文章。大聲朗讀，直到懂了為止。到了不看文章也能記清楚內容時，把它像一個故事一樣說下來。完成之後選下一篇。完成一個報紙的版面後，開始查找生詞。

　　大家一起來學英文吧！

達摩克利斯之劍the sword of Democles

　　蟲蟲愛看小說，看小說不只可以馳想於奇幻世界，更可稍解現實生活的壓力。此外，小說裡面所用的典故，也是增廣見聞的好方法。在小說裡，讀了數次「達摩克利斯之劍」，總是不得其解。在小敏的幫助之下，總算知道了。

古希臘歷史記載，敘拉古王迪奧尼修斯(Dionysius)有一位廷臣名叫達摩克利斯（Damocles），此君是一個善于溜須拍馬的人，經常不著邊際的吹捧國王迪奧尼修斯。有一天，國王迪奧尼修斯邀請達摩克利斯赴宴，國王特意讓這位廷臣穿上王袍，讓他坐在國王的寶座上，寶座上方懸著一把鋒利的寶劍，而這把寶劍僅僅用一根馬鬃系著，隨時有掉下來的危險。國王迪奧尼修斯借這個機會告訴達摩克利斯︰當國王所面臨的風險，就像頭上高懸著利劍一樣，下面有野心的臣子隨時可能斬斷縴細的馬鬃，國王所擁有的權利伴隨著的是每時每刻潛在的危險。達摩克利斯听了這番話後，就打消了妄圖篡位的不臣之心。于是後人用達摩克利斯之劍來表示隨時可能發生的潛在危機。

Word列印頁數

　　Word如果文件龐大，使用分節與多種格式的頁碼，要列印特定頁數總是比較麻煩。

　　相關資料請看微軟說明：http://www.microsoft.com/taiwan/msclub/4P/QA_0601-1.aspx

英語連音

　　英語連音似乎是蟲蟲學習的一個瓶頸。聽力之所以不好，其實是因為太多字連在一起了，美國人說的並不像字面上一樣。前幾年教書時，曾經有個學生送我一本書，現在翻出來看，真是相見恨晚。


《英語連音說得溜》這本書，就是為了解決這樣的困擾，所寫的書。第一個Study Point就有讓蟲蟲豁然開朗的感覺。must have been雖是這樣寫，但是在口語中常常唸為mustabin，天啊，托福聽力聽不懂不是沒原因的，說話說慢也不是沒原因的。因為人家是一個字，我是三個字還加上不自然的pause...

　另外，t變d也是常見的發音變化。t後面加a的話，會變成ta與da之間的音，如wait a 變成waida。


　先分享到此，如果有心得，再上來報告＾＾

Google AdSense個人識別號碼

　　加入Google AdSense已經好一陣子了，集滿50元的廣告收益後，Google就會寄一封東西到家裡，確認PIN。

　　寄送的時間還挺快的，不到二星期就收到了(美國人的標準這樣是快的了@@)。附給大家看一下，Google設計的小信。


　　簡單大方，最重要的是：它是中文的！這讓蟲蟲收到的時候，覺得滿高興的。感覺Google滿重視中文客戶的。



　　Google用這種簡單的策略，相信今年在廣告市場上，還會大有斬獲的！

錄音惡夢

　　為了讓組內工作平均，每個人都得負責一份專案，蟲蟲莫名其妙地踏入平面教材編輯。好在許多地方都已上軌道，我這個不負責任的coordinator只要定期催進度即可。沒想到，在快結案前，惡夢悄然來臨...

　　要出一本華語教材，當然要搭配相關的多媒體產品。當沒人要負責＆沒時間處理監聽這項無聊且責任重大的工作，這項苦差事就落到了蟲蟲頭上了 @@

　　起初幾次，還有點新鮮感。但每次從十點錄到下午五點，中間只放風半小時吃飯，這種工作的疲勞程度，就慢慢滲透到我生活的其它方面了。==

　　例證一：某天晚上我睡覺時，有蚊子來吵我。一開始嗡了半天，依照蟲蟲無比會睡的性格，自然是沒反應。蚊子又嗡了很久，我開始做惡夢了。

　　　嗡嗡嗡~~~~~~「這個聲音不是課文！」
　　　嗡嗡嗡~~~~~~「現在還沒要錄生詞！」
　　　嗡嗡嗡~~~~~~「這哪國話，聽不懂啦！要我說幾次，翻譯不要錄！！！」
　　　嗡嗡嗡~~~~~~嗡嗡嗡~~~~~~~

　　　　原來是蚊子 @@

　　例證二：有天晚上，又再度作夢。夢裡出現無數的符號與聲音，出現最多的就是「ㄥ」、「ㄣ」。滿佈在我的夢裡，似乎還伴隨著隆隆的雷聲(沒錯，雷的聲音就是ㄣㄥ)。