星期六, 2月 28, 2009

重金搖滾雙面人 Detroit Metal City

這兩天看完這部電影,真的要大推一下XD
太歡樂了~~
看完這部,一般人大概可以初窺金屬樂的面目._.


松雪泰子跟松山建一真是太讚了...
倒是女主角-加藤羅莎只有她的小雞褲褲搶鏡頭吧XD
松山建一提到他,大部分的人印象應該都停留在L的印象,
很不幸死亡筆記本我的注意力大部分都是放在夜神身上XD
不過他在這部電影裡的反差演出實在是太出色啦~~
不管是正面積極的純情少年或是上妝後的克勞薩,實在是很到位阿
下次電影台重播死亡筆記本,我會好好看他的._.

另外一位想提的就是松雪泰子啦~
剛看完伽利略的電影版,
裡面超顧家的美人媽媽轉瞬間成了老把高潮放嘴邊的暴力社長,
腦袋實在是很衝擊阿 Orz
金屬樂的歌詞常常帶有性暗示的意味,
所以在看這部漫畫的時候並不以為意,還挺能接受的~
不過松雪泰子一身勁裝講出那樣的話,我崩了 Orz

總之這是一部可以放開懷去享受的電影,
處處充滿歡樂的爆點XD

星期五, 2月 27, 2009

臨時找不到無蝦米的話...

剛剛閒逛網路的時候,
發現了這樣的網站....
網.蝦米 Hyper Liu



現在部門的人事比較穩定了,
不過之前流動率較高時,
新來的同仁有些是學無蝦米的會央求要裝一下這個軟體...
畢竟工作時打字很癟腳,怎麼樣都不會順利的
不過 如果不是使用自己的電腦又需要打字,
這個網站可讓你透過網路完成用無蝦米打字的動作,
有需要的人記得加入我的最愛阿~

至於剛好電腦沒網路的話.....
你慢慢敲注音吧._.

星期五, 2月 20, 2009

愉快的夥伴們 20090219

會想寫這個TAG的主題,主要是想幫專題做個紀錄@_@
昨天跟老師的meeting是排在第一組,
由於個人的不成才,這次決定把網頁那邊的先推出去送死XD
結果當然如預料的慘XD
AP這邊,則是推軍師完成的部分給老師XD
阿 還是一樣慘@_@

不過,比起來我們被劈的時間稍微長些
這是好消息嗎@_@

講完後等待的時刻,
網頁那邊除了檢討剛剛有問題的部分,好不熱鬧的三位XD
軍師忙自己的事情,我則是等待牙套男有空時來幫我看一下為啥我不能順利的開啟軍師給的檔案 Orz

牙套男不愧是專業級的,雖然他看得頭也很痛,
不過 最後還是完成我交代給他的任務XD

問題:Sql server 2005 程式要跑的時候會出現以下字眼 sp_configure 'user instances enabled 然後就不能動了= =

要執行以下的字句,

exec sp_configure 'user instances enabled',1
reconfigure

當初在網路上,看到不少的類似問題,解決方法也同上,
不過 看到的都是甚麼ASP.NET執行時出現問題,
因為,我程式用VB.NET在寫....
所以很條直的想不到要在哪處理這兩行程式,
後來牙套男在我的SQL SERVER MANAGEMENT上用開了個SQL檔貼上後執行
問題就解決了一半 Orz...

下一半則是SQL SERVER的設定本來好像就有問題,再加上自作聰明的修改字串,
所以一直有問題,最後終於完美解決了~

唔...接下來的日子好像不能拿連接有問題當藉口偷懶了一 一

星期三, 2月 04, 2009

vb.net 身分證字號檢驗

下午看到的程式
專題裡應該可以拿來用....
順便測試剛剛替blogspot加的code碼有沒有成功....

Private Sub Command1_Click()
Dim S As String

IDChk Text1.Text, S

MsgBox S

End Sub

Function IDChk(ByVal ID As String, Optional ByRef msg As String = "") As Boolean

Dim A As Integer, B As Integer, C As Integer, S As String

ID = UCase(ID): S = Left(ID, 1): IDChk = False

If Len(ID) <> 10 Then msg = "身份證必須是 十碼!": Exit Function

If (S < "A" Or S > "Z") Then msg = "身份證第 一碼 必須是英文字母!": Exit Function

If Mid(ID, 2, 1) <> "1" And Mid(ID, 2, 1) <> "2" Then msg = "身分證第 二碼 只能是數字 1(男) 或 2(女)!": Exit Function

If Not IsNumeric(Mid(ID, 3)) Then msg = "身分證第 三碼 至第 十碼 不是全部為數字!": Exit Function

A = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", S) + 9

ID = CStr(A) & Mid(ID, 2)

B = CInt(Mid(ID, 1, 1)) + CInt(Mid(ID, 11, 1))

For C = 2 To 10

B = B + CInt(Mid(ID, C, 1)) * (11 - C)

Next C

If (B Mod 10 = 0) Then

IDChk = True: msg = "身分證正確!!"

Else

msg = "身分證輸入錯誤,請再檢查!"

End If

End Function