宜蘭瘋狂魔術師

Google 真的已經占了我生活的一大半份，每天除了上Google查資料、收Mail外最常用的應該還有翻譯的功能了，可是每次都要在開瀏覽器起來真的有點麻煩，所以我就想說是不是可以用VB來寫一個利用google的翻譯功能的翻譯軟體，我覺得我已經中了Google的毒很深了，每天都一定要Google一下…XD
首先當然是在 visualstudio上拉好以下的畫面。
  
在來就是最重要的寫程式啦！

最近看到網路上有人說在VB.net寫Rs232的連線程式好像沒有VB6那麼的人性化，剛好最近有一個案子
也須要用到這個功能，我之前也寫過VB6的確實很方便，只要把參數設一設基本上就沒什麼問題了，只須
寫少許的程式碼，後來換到vb.net的平台一開始好像也像其他人說的怎麼那麼不人性化，其實VB.net寫
Rs232的連結程式才方便，所以我就將教學放上來，其實是怕自已以後忘了，不過真的很方便，我也有上

以前在VB6的時代要寫一個條碼產生器，有一個方便的外掛元件可以使用，而在.NET時這個元件好像就沒看到了
那要如何寫一個條碼產生器呢？原來有一個更方便的做法，而這個方便的做法其實就是靠字型，接下來我們就來
看看怎麼在VB.net上寫一個條碼產生器吧。
在開始寫程式之前我們先須要下戴BarCode字型，請連結到下面的位置下戴該字型
http://www.squaregear.net/fonts/free3of9.shtml 

前幾天因為到桃園開會，想說離外婆家很近就順道繞過去看看，外公跟外婆在前幾年相續過世後我也很少去外婆家，外婆在世是身體不好須要常跑醫院，
媽媽就將外婆接到家中方便就近照顧，外公本來身體一向硬郎，但終就是敵不過歲月。
算一算大約有兩、參年沒去外婆家了，小時後只要放暑假媽媽就會帶我跟弟弟去外婆家住，跟附近的小孩子一起去山上抓蟬、一起到田裏抓泥鰍，
外公總是會在下班時騎著他的老爺車戴我跟弟弟到附近的虎頭山公園玩，當然這些都已經成為回憶了，
現在只剩下一間老房子在也許屋子也感傷，感傷兩位老人家已經不在了，屋前的平台也長滿了青苔，多了那一份的感傷，屋旁的走道早已是荒煙蔓草，
外婆在屋前平台打掃的身影及午后外公老爺車的聲音都只能成為回憶的一部份，快樂的暑假早已離我很遠很遠了，也許以後在去外婆家的機會就更少了，
夏夜裏的晚風輕輕的吹過，屋前的平台上外公、外婆的身影，我和弟弟在平台上跑來跑去的場景隨著時間慢慢的成為了回憶。

最近我的文章好像都是關於程式的部份，好久沒有寫關於魔術的文章了，當然今天要寫的還是跟程式設計有關
這好像跟宜蘭瘋狂魔術師沒啥太大的關連，怎麼整個網站都沒有跟魔術有關的文章或影片，都是程式設計的相
關。今天要寫的是一個有關於VB.net執行外部程式的方法。
這是執行cmd.exe的一個範例程式

最近看到網路上有人說在VB.net寫Rs232的連線程式好像沒有VB6那麼的人性化，剛好最近有一個案子
也須要用到這個功能，我之前也寫過VB6的確實很方便，只要把參數設一設基本上就沒什麼問題了，只須
寫少許的程式碼，後來換到vb.net的平台一開始好像也像其他人說的怎麼那麼不人性化，其實VB.net寫
Rs232的連結程式才方便，所以我就將教學放上來，其實是怕自已以後忘了，不過真的很方便，我也有上

CKEditor 之前的名稱為 FCKEditor，CKEditor是一款 Open Source的所見即所得編輯，透過此編輯器就可輕鬆撰寫文章，並且還可以加粗體、變換字體顏色、超連結....與圖片上傳等功能，
即便完全不懂任何的HTML語法，也可編輯出一個漂亮的文章頁面出來，並且邊製作還會邊顯示結果，這是個相當方便的功能。

如何將字串String轉換成整數int？
1). int i = Integer.parseInt([String]); 或
i = Integer.parseInt([String],[int radix]);
2). int i = Integer.valueOf(my_str).intValue();
注：字串轉成Double, Float, Long的方法也差不多。

其實這個只是怕我自已忘了而寫的，並不是什麼特別的東西
第一個 上傳檔案限制及改變檔名
If (FileUpload1.HasFile) Then '如果Fileupload1有檔案時
            Dim filtype As String = System.IO.Path.GetExtension(FileUpload1.FileName).ToLower '將副檔名取出來
            If (filtype = ".jpg") Then '比對一下副檔名，如果有多個的時後就自已寫回圈跑一下就可以了啦！
                Dim filename As String = FileUpload1.FileName '取得檔案名稱
                filename = System.IO.Path.GetFileName(filename) 
                Dim index As Integer = filename.LastIndexOf(".")
                Dim lastname As String = filename.Substring(index, filename.Length - index)
                Dim newfilename As String = "Big5" & lastname '這裏我是將新的檔名改成Big5啦
                FileUpload1.SaveAs(MapPath("../new/") + newfilename) ' 上傳的地方
            Else
                Response.Write("file type is not jpg")
            End If

 在 1995 年曾經紅極一時的瀏覽器 Netscape Navigator 即將走入歷史.
目前擁有 Netscape Navigator 開發主導權的 AOL 公司宣佈: 2008 年 2 月 1 日之後,
將不再支援它.
只要在網路上流浪徘徊的年紀夠大，一定知道當年有個瀏覽器叫做「Netscape(網景)」。當年第一次開始上網就是用這個瀏覽器，
不過當之後微軟開始展開「IE擴散計畫」，而且日後還進一步把IE跟Windows綁在一起，
搞得許多人以為︰上網就是打開「那個大E」就可以了。
Netcape Navigator 的作者原任職於 NCSA, 開發過著名的瀏覽器 Mosaic,
後來開發團隊自行出來創業, 組成 Netcape 網景公司. 1995 年該公司股票上市, 取得空前的成功.
該公司最大的願景是希望使用者只要透過瀏覽器, 就能取用各種網路服務,
而不必考慮使用的作業系統是哪一種平台.
這樣的想法, 讓微軟十分震驚, 因為 Netscape 此舉無異對 Windows 構成嚴重威脅.
微軟後來快速推出各種免費的 IE 版本, 和 Netscape 收費的瀏覽器對打,
雙方不斷地增強瀏覽器的諸多功能, 以確保及提升自家瀏覽器的市場佔有率.
這, 就是當時有名的瀏覽器大戰.
"不要錢的贈品最大", 微軟挾 Windows 普及的優勢, 最終 Netscape 不敵敗陣下來.
1998 年, Netscape 迫於情勢, 推出 Mozilla 開放原始碼計劃, 不過由於
Netscape Navigator 的程式碼寫的亂糟糟, 實在很難在它的基礎上繼續開發,
最後, 這張開放原始碼的牌, 並沒有對 Netscape 有任何救命的作用,
1998 年 11 月 Netscape 賣給了 AOL (美國線上).