2007年5月30日 星期三

Hole In One

一桿進洞

有人研究過一桿進洞的機率是1/12000,以我一年上場30次的
頻率來算是100年打不到一次,沒想到打了10年球就遇到一次了.

那是一個不怎麼愉快的經驗, 只是事後回憶還算不錯的奇遇.
八月下旬的第一天, 一大早來到一個不太熟悉的桃園球場
(這球場只打過一二次, 又有27洞), 應該是自己太久沒練球,
連輸了17洞狀況不佳下站上西區第九洞發球台,
拿出了最有把握的8I, 心中暗唸著"永不抬頭" 輕輕一揮,
正在慶幸終於擊中甜蜜點的同時小白球ON上果嶺後,
竟不聽使喚地連滾了10多碼進洞了.

天呀! 這種事為何發生在我身上? 一時之間情緒混亂極了,
比高中考試作弊被抓那時還驚慌, 心中直想, 怎麼辦?
眾目睽睽, 臉色凝重, 神情呆滯......(隱約聽到桿弟交耳說:
沒看過有人一桿進洞是這般模樣的...)

除了未婚生子我想不出有什麼事讓當事者欲蓋彌彰,
而親朋好友則爭相走告傳為美談的事來形容當時的心情了.

湊錢給桿弟紅包後因為事逄農曆7月, 聽前輩之言, 也到當地
土地公廟上香致謝一番, 怕的是自己承受不住這樣的"大喜"
所以要分享.

刷卡請客不是最困難的, 倒是如何跟不打球的老婆解釋,
為何我要一桿就把球打進去, 才來花錢買禮物送球友?

其實現在我已經不那麼擔心再一桿進洞了, 一回生二回熟,
除了機率不高外, 頂多只是花錢消災.只是不懂的是多數國人
以為一桿進洞是"災難"事件, 而在老外眼中卻是求之若渴
的"美事"一樁呢!!



(球場送的)





(球隊送的)

2007年5月24日 星期四

Who is here?

加一些簡單的 JAVA SCRIPT 就能分析到這個結果:


(線上訪客分佈圖)

太神奇了...

2007年5月19日 星期六

Golf Swing Analysis Software

如果你剛好是高爾夫的愛好者,
如果你正好想改進你的揮桿姿勢,
這裡有個不錯的分析軟體

Golf Swing Analysis Software (Free Download)



2009:
請先安裝 Microsoft .NET Framework 2.0 或更新版本: (Traditional Chinese)

2007:

2007年5月17日 星期四

如何利用 MSN messenger 自動傳送訊息 (ASP.NET)?

如何利用 MSN messenger 自動傳送訊息 (ASP.NET)?
如果你覺得用 EMail 通知有點緩不濟急,那 MSN 也是個不錯的選擇.
你要事先準備:

DotMSN.dll (http://msluder.dk/DOTMSN/)
MSN 帳號

作法:

1. 加入參考: DotMSN.dll
2.

Imports DotMSN

...

Dim messenger As DotMSN.Messenger = New Messenger
messenger.Connect("你的msn帳號", "你的msn密碼")
messenger.Owner.Name = "你的msn暱稱"
messenger.SynchronizeList()
Thread.Sleep(2000)
messenger.SetStatus(MSNStatus.Online)
Thread.Sleep(1000)
Dim v_msn As String = "對方之MSN帳號"
Dim tmp_con As Conversation = messenger.RequestConversation(v_msn)
Thread.Sleep(2000)
tmp_con.SendMessage("要通知的訊息內容")
Thread.Sleep(1000)
messenger.CloseConnection()

How to read Excel file in ASP.NET?

How to read Excel file in ASP.NET?

在VB.NET有二種常用方法處理 Excel 檔案. 一種是用 Microsoft Office 元件如:

Dim oExcel As New Excel.Application()
...

但是
(Microsoft recommend not using COM Interop with Microsoft Office
products from an ASP.NET web page)

除了要在 Server 裝 Office 外, 還有權限問題要克服.
另一種是用 Microsoft Jet Engine 如 Microsoft MSDN 範例:


Dim DS As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
Dim MyConnection As System.Data.OleDb.OleDbConnection

MyConnection = New System.Data.OleDb.OleDbConnection(_
"provider=Microsoft.Jet.OLEDB.4.0; " & _
"data source=C:\myData.XLS; " & _
"Extended Properties=Excel 8.0;")

' Select the data from Sheet1 of the workbook.
MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select * from [Sheet1$]", MyConnection)

DS = New System.Data.DataSet()
MyCommand.Fill(DS)
MyConnection.Close()


其中我遇到的小問題是,
當我不知道Excel檔案中Sheet名稱是否叫Sheet1
我必須先找出第一個Sheet Name:


MyConnection.Open()

Dim schemaTable As DataTable
schemaTable = MyConnection.GetOleDbSchemaTable(_
OleDbSchemaGuid.Tables, New Object(_
) {Nothing, Nothing, Nothing, "TABLE"})

MyConnection.Close()
Dim v_sheet1 As String = schemaTable.Rows(0).Item(_
"TABLE_NAME").ToString()

schemaTable.Clear()


之後我就可以把:


MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select * from [Sheet1$]", MyConnection)

改成:

MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select * from [" + v_sheet1 + "$]", MyConnection)

這樣就可以讀取第一個 Sheet 的資料到 DataSet DS 中了.

2007年5月15日 星期二

短句

  • 新手在乎距離、老手在乎準度,只有高手懂得用球技創造打球的樂趣。
  • 最重要的球技不在接近洞口,而是如何去脫離障礙。
  • 策略可以彌補球技的不足,球技卻無法排除策略的錯誤。

------------- Golf -------------

  • 上帝給我們足夠的時間作任何事,卻不夠無所事。
  • 程式設計師應該是最短利的藝術家,因為他不需等死後才值錢。
  • 生活像是成功嶺煮出來的湯,有色卻無味。
  • As long as your house has Windows, it won't be safe.
  • 你要培養你的耐心, 除了釣魚外,還可以用這個系統(Windows)。

-------------- Life -------------

Blog

好方便的 BLOG.

Remove the NavBar:

#navbar-iframe {display: none;}

/* Variable definitions