大學畢業後 認識了很多所謂名校碩士生 博士生 體驗去公司面試過了很多次 接了很多次外包案 去了南科園區實習

卻已經忘記最初微積分的很多定理該怎麼證明 工數該怎麼算的幸福 ....



但回想起來我卻一直都記得cmli 跟我說過 一兩年真的沒什麼 我慢慢可以體會它的深遠 ; 有很多機會 一二十年也拿不到



而且很多事情也都是出人意表的



就像公務員性格的LD居然走向暴肝華碩去這麼難以相信的真實 ...







失落也不見得是失敗

---------------------------



那年自願休學



是我的抉擇 對同年的人 那是很難的 說實在在那當下我也是很煎熬



那年自願退學



是我的決定 卻已經容易淡定



一個月前決定放棄預官役



是我的肯定



該放手的要學放手 死路不要硬著走 上天堂還是住套房 買股要挑要選要能放





爵客亦非天行者 無法字字是箴言 但願輕描淡寫寄佛陀



路 肯定是有的 要學會找出來走



琴酒喝多不用太失落 太陽依然是西落 螃蟹肯定橫著走

參考自
http://www.leapsoul.cn/?p=1124

http://www.leapsoul.cn/?p=695

Win7 下:
使用IIS7 設定FastCGI 使用PHP
使用IIS7 設定mySQL5.1


JK: 特別注意 IIS 下的網站目錄必須要轉換成應用程式 後 PHP功能才會在C:下那個指定目錄下被讀取 不然似乎有不能讀取的權限問題

接近我的夢想的最後一晚 我的臉居然因為拔水平智齒腫一邊



這般講話含滷蛋的聲音 是不是能打動評委的心

含痛咬牙也要練習滷蛋發聲15分鐘的報告

相信我會永遠記得 民國百年發生的種種





期待 1022北上追夢的那一天



-- 競逐中技社之夢 不再是夢境 確確實實 !!

Protected Sub Button_kml_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_kml.Click
Dim gpsdata = sqlAction_CollectGpsdata(User.Identity.Name)

Dim Lng_Lat_Collection As New List(Of String)
Dim Lng_Lat_strALL As New StringBuilder

For i = 0 To gpsdata.flow.Count - 1
Dim Lng = gpsdata.Lng(i).ToString
Dim Lat = gpsdata.Lat(i).ToString
Lng_Lat_Collection.Add(Lng + "," + Lat)
Lng_Lat_strALL.Append(Lng + "," + Lat + vbNewLine)
Next
Dim kml_content_point = Class_GPS.create_kml_points(Lng_Lat_Collection.ToArray)
Dim kml_content_track = Class_GPS.create_kml_track(Lng_Lat_strALL.ToString)

Directory.CreateDirectory("C:\inetpub\wwwroot\carlog\kml_temp")
Dim temp_path = "C:\inetpub\wwwroot\carlog\kml_temp\"


Dim filename_kml_track = User.Identity.Name + "_track.kml"
Dim path_kml_track = temp_path + filename_kml_track

Dim filename_kml_point = User.Identity.Name + "_point.kml"
Dim path_kml_point = temp_path + filename_kml_point

Dim w_kmltrack As New StreamWriter(path_kml_track, False)
Dim w_kmlpoint As New StreamWriter(path_kml_point, False)
w_kmltrack.Write(kml_content_track)
w_kmltrack.Flush()
w_kmltrack.Close()

w_kmlpoint.Write(kml_content_point)
w_kmlpoint.Flush()
w_kmlpoint.Close()

'-----------------------
' Dim rootPath = HttpContext.Current.Request.MapPath("~/") '取得當前目錄PATH
'Dim url_kmlpoint = "http://" + Class_netIP.getServerIP + "/carlog/kml_temp/" + filename_kml_point '欲下載圖的連結URL
'Dim url_kmltrack = "http://" + Class_netIP.getServerIP + "/carlog/kml_temp/" + filename_kml_track '欲下載圖的連結URL

'------使用者下載檔案視窗模式------------
Response.ContentType = "text/plain"
Response.AppendHeader("Content-Disposition", "Attachment; FileName=point_kml.kml")
Response.TransmitFile(path_kml_point) '要給server端的本機實體存檔路徑 (ex: c:/ aaa.txt)
Response.End()
'------/使用者下載檔案視窗模式/------------



End Sub

百年十月十日國慶日 在自身上事實上其實沒什麼特別 只是fb上的一張舊照

勾勒起一層一層的漣漪

無名上 火山還在 天行者停擺 飛曆軍掛了 紅寶石還在 ...





突然想走一趟最初的高師大 還有第一次受到表演震撼感動的高大

回台南原來已經超過半年 ...

那久違的高雄已多久不見 或者超過五年了



時過境遷 高雄的樣貌變了許多 而我也是

最初的感受 舊地重遊的時候 不知道還是不是一樣存在

Server端收到網路封包後 的 ECHO 方法



'===============================

Private Sub ReceiveData(ByVal state As Object)
Dim myObj As New CSState
myObj.ClientSocket = CType(state, CSState).ClientSocket
myObj.myTcpListener = CType(state, CSState).myTcpListener
myObj.mystring = ""
Dim myNetworkStream As New NetworkStream(myObj.ClientSocket)
Dim InBytesCount As Integer = 0
Dim myReceiveBytes(1023) As Byte
Dim i As Integer = 0



While True
Try
InBytesCount = myNetworkStream.Read(myReceiveBytes, 0, myReceiveBytes.Length)
'InBytesCount =接收數據的數量
System.Threading.Thread.Sleep(100)
If InBytesCount = 0 Then '都沒有收到的話 結束掉while
Exit While
Else
' myNetworkStream.Write(myReceiveBytes, 0, InBytesCount) 'JKFIX: echo回去
myObj.mystring = Encoding.GetEncoding(950).GetString(myReceiveBytes).TrimEnd().TrimStart()
'--------------------
MsgBox(myObj.mystring.Length.ToString)
DB_list.rec_content = myObj.mystring.Substring(0, 4).Trim '/很奇怪必須指定字串長度 不然後續產生空白 長度大小會變1024
DB_list.rfid = DB_list.rec_content
' MsgBox(DB_list.rfid)



Try
DB_list.writeDB(DB_list.rec_content) 'jk加入 停車資料庫進出場查詢
'----JK echo now_money-------
Dim aaa As String = DB_list.now_money
Dim echo_bytes = Encoding.ASCII.GetBytes(aaa) 'string要先轉換成bytes
myNetworkStream.Write(echo_bytes, 0, echo_bytes.length) 'JKFIX: echo回去

'-----------
Catch ex As Exception
MsgBox(ex.ToString)

End Try
'---------------

DisplayMsg1(myObj)
End If




Catch ex As Exception
MessageBox.Show(ex.ToString)
Exit Sub
End Try
End While
End Sub

Dim date1 = CDate(isget_array(5))

Dim Time_sec = New TimeSpan(date1.Ticks - 0).TotalSeconds
Dim d_sec = Time_sec - old_Time_sec
If d_sec = 0 Then
d_sec = 1
End If

GPS如何計算兩點座標的距離 c＃
http://www.dotblogs.com.tw/jeff-yeh/archive/2009/02/04/7034.aspx

c＋＋
http://tkjh9001024.pixnet.net/blog/post/24493149-%E7%94%A8c%23%E6%A0%B9%E6%93%9A%E7%B6%93%E7%B7%AF%E5%BA%A6%E6%B1%82%E5%85%A9%E9%BB%9E%E9%96%93%E8%B7%9D%E9%9B%A2%E7%9A%84%E5%87%BD%E6%95%B8%E4%BB%A3%E7%A2%BC

躺在床上整理思緒 才發覺原來今天在敦煌坐了一上午 ：



我坐在童書區一直思索著書上的一段code

旁邊還出現一個貌似四歲小朋友跟一個說螢火蟲故事的媽媽和一個爸爸

後來還出現一個自稱幼稚園老師 很吵的跟小朋友媽媽喇了一大堆

搞的我code想不下去 後來我心裡實在是很幹

很站起來想叫他不要吵

還好小朋友爸爸先出手 帶小朋友脫離了魔爪...

我的心緒才穩定 也才能順利解破code的秘密



電腦硬體裝修乙級術科 led數位邏輯閃燈控制碼 破

SQL Server 2008 R2 Express簡易安裝紀錄

http://jdev.tw/blog/2519/sql-server-2008-r2-express-installation

下載 Microsoft SQL Server 2008 R2 RTM - Express with Management Tools - 中文（繁體）

http://sharedderrick.blogspot.com/2010/05/sql-server-2008-r2-express.html

Express 版本的硬體限制

CPU：最多支援 1 顆實體 CPU。
記憶體：最多支援到 1 GB。
每個資料庫的最大大小為：10 GB。先前版本(SQL Server 2005 與 2008 的 Express 版本)是支援到 4 GB。
http://sharedderrick.blogspot.com/2011/09/sql-server-2008-policy-based.html

http://coolshell.cn/articles/582.html
http://www.metamuse.net/2007/12/google-chart-api.html google 統計圖表API


畫統計圖表google介面網站
http://imagecharteditor.appspot.com/

產生3D餅圖 url
http://chart.apis.google.com/chart?chxs=0,676767,14&chxt=x&chs=500x300&cht=p3&chco=4D89F9&chds=0,160&chd=t:10,50,44,6&chdl=%E6%9D%B1|%E8%A5%BF|%E5%8D%97|%E5%8C%97&chdlp=b&chl=%E6%9D%B1+10%25|%E8%A5%BF+50%25|%E5%8D%97+44%25|%E5%8C%97+6%25&chma=0,0,10&chtt=Horizontal+bar+chart&chts=676767,12.5

台灣簡訊
http://ui.twsms.com/index.php?page=dl_doc.htm

發送url
http://api.twsms.com/send_sms.php?username=0912754176&password=12121221&type=now&encoding=big5&mobile=0912754176&message=傳送內容 Test Sms 123&vldtme=3600

============================

Imports System.IO
Imports System.Net

Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
' =============主程式=利用WWW連線方式(GET)傳送簡訊=======================
'Dim strURL As String = ""
'Dim userID As String = "*帳號*"
'Dim password As String = "*密碼*"
'Dim m_num As String = "*手機號嗎*"
'Dim message As String = "*傳送內容*"
Dim strURL As String = ""
Dim userID As String = "0912754176"
Dim password As String = "12121221"
Dim m_num As String = "0912754176"
Dim message As String = "傳送內容 Test Sms 123"

strURL = "http://api.twsms.com/send_sms.php?username=" & userID _
& "&password=" & password & "&type=now&encoding=big5&mobile=" & m_num _
& "&message=" & message & "&vldtme=3600"


Dim myHttpWebRequest As HttpWebRequest
Dim myHttpWebResponse As HttpWebResponse

Try
myHttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)

myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

GetResponseData(myHttpWebResponse.GetResponseStream())


myHttpWebResponse.Close()
Catch ex As Exception


End Try
End Sub


'======================副程式=====接收對方的回應，儲存在文字檔內=========
Private Sub GetResponseData(ByVal myStream As Stream)

Dim mypath = "D:\mytest.txt" '儲存位置
Dim sw2 As StreamWriter = New StreamWriter(mypath, True, System.Text.Encoding.Default)
Dim myStreamReader As StreamReader = New StreamReader(myStream, System.Text.Encoding.Default)
Dim strOut As String = myStreamReader.ReadToEnd()
Try
sw2.WriteLine(strOut)
sw2.Close()
myStreamReader.Close()
Catch
myStreamReader.Close()
sw2.Close()
End Try

End Sub
End Class

孤躅一擲的灑脫背後 是陰影

對不起 我不能簽博士...







那邊有一條路 這邊有一條河

一腳踩在路上 一腳踏在河裡

拉扯心裡的感覺



肩上還有太多的無奈 負債

卡曼濾波介紹
http://www.cnblogs.com/MobileBo/archive/2010/09/10/1823642.html


c＃ kalman
http://www.cnblogs.com/MobileBo/archive/2010/09/07/1820831.html