作者: 小毛

用電話號碼、電腦IP查詢所在地址（另可找出同IP的網站鄰居）

網際網路(08)-利用ip查地址

IP尋找所在國家

選手名單

Mark 馬克杯杯 炭烤鐵人 網站

委託:馬克餐飲店

設計: 孫朝裕(小毛) 在下本人我

設計心得:

抵一次嘗試用Flash做網頁 成效普普 圖檔略大

以後處理圖片 必須特別注意了

設計的不是盡善盡美

不過也相當不錯看嚕^^

下載網址

"編譯中隱藏模組錯誤訊息： Main"

當您嘗試在 Word 中儲存文件時，出現錯誤訊

點我連結

轉載:http://www.dotblogs.com.tw/yc421206/archive/2009/01/07/6668.aspx

VB6與Excel本是同根生，核心架構都差不多，所以要用VB6讀寫Excel是相當方便的；唯一要特別注意，若 是要由VB控制Excel讀寫大量的資料，千萬不要用迴圈的方式一格一格讀寫，如果你那樣做的話，程式跑起來會很慢很慢，我知道兩種方式

1.引用Excwl Application，並用陣列進行資料寫讀；優 點，相當靈活等於是在操作Excel、效能佳(比不上OLEDB)。缺點，需要花時間瞭解Excel的物件模型

開啟Excel→按ALT+F11→按F1→此時會出現說明，若沒有出現表示沒安裝，快去裝吧→按Microsoft Excel 物件模型。就可以查詢Excel模型

2.引用OLEDB進行資料寫入讀出；優點，此法讀 寫資料是最快，效能最佳。缺點，但不靈活，有可能你不單單只是要讀寫資料

下圖為Excel模型

接下來就直接進入主題，

第一步：前期綁定 Excel，更方便的操作Excel，不用背模型語法(會有版本的問題，若擔心版本問題請採用後期綁定)

第二步：引用Excel

  '#一部電腦僅執行一個Excel Application, 就算中突開啟Excel也不會影響程式執行

  '#在工作管理員中只會看見一個EXCEL.exe在執行，不會浪費電腦資源

  '#引用正在執行的Excel Application

  Set xlApp = GetObject(, "Excel.Application")

  '#若發生錯誤表示電腦沒有Excel正在執行，需重新建立一個新的應用程式

  If Err <> 0 Then

    Err.Clear

    '#執行一個新的Excel Application

    Set xlApp = CreateObject("Excel.Application")

    If Err <> 0 Then

      MsgBox "電腦沒有安裝Excel"

      End

    End If

  End If

第三步：讀寫Excel

  '#Excel活頁簿設定

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

  '打開已經存在的EXCEL工件簿文件

  Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & "Sample.xlt")

  '停用警告訊息

  xlApp.DisplayAlerts = False

  '設置EXCEL對象可見

  xlApp.Visible = True

  '設定活頁簿為焦點

  xlBook.Activate

  '顯示第一個子視窗

  xlBook.Parent.Windows(1).Visible = True

  '引用第一個工作表

  Set xlSheet = xlBook.Worksheets(1)

  '設定工作表為焦點

  xlSheet.Activate

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

  '#用Array寫資料至EXCEL

  Dim myRows As Long, myCols As Long

  myRows = UBound(DataArray, 1)

  myCols = UBound(DataArray, 2)

  '選擇儲存格範圍

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Select

  '陣列一次寫入Excel

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Value = xlApp.Transpose(DataArray)

  '呼叫Excel巨集

  xlApp.Run ("Sample.xlt" & "!Caculater")

  '另存新檔

  xlBook.SaveAs App.Path & "\" & "TETS.XLS"

  '關閉EXCEL

  xlApp.Quit

Excel 的功能太多了，無法詳細敘述，請參考之前在網路上整理的EXCEL VBA語法[VBA] Excel VBA 指令。

範例下載：VB6讀 EXCEL.rar

板橋 星據點 KTV

真的是 沒話說 讚.

足以納入 KTV首選了

服務品質棒 餐飲料理更是沒話說

真是愛死這個地方了

可以考慮生日來這邊舉辦了說…不失是個好地方 好選擇呢

一樓大廳 滿滿的料理讓我們選

從 飲料 爆米花 沙拉霸 自助餐
到 港式料理 日式料理
到 油雞 叉燒

整個就是很棒

真的有比好樂迪好很多很多 我個人感覺 不輸錢櫃…

不過比起這個 我…唱歌唱到好想人喔T_T

我的幸福一直不理人 ><..

關閉
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDriveTypeAutoRun"=dword:000000ff

開啟
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDriveTypeAutoRun"=dword:00000099

貼到記事本 命名為 XX.reg 執行即可

末日大逃殺 製作合成 資料庫
點我連結

製作期間 也學會了一些新方法

像是Excel結合MySQL的應用

做的算是不錯^^
PHP又有點進步嚕~

該留意自己的脾氣

雖然老師是很過分 是根本不想聽我在說什麼

我也是不能動怒…(雖然真的很火)

學生的本分…差點都給他忘記

雖然暑假應該是屬於我們的時間

老師有點管太多

我們還是該做要做…學生…學生…

雖然不知道這篇老師會不會看到

不過你當著努力在做的人面前拍桌子

知道你很火 但是我也很火= =

我是不至於去再你火大的時候在去頂撞

但是最起碼給個簡易的道歉…

知道你個性急 耐性也許不好 不過我們也一樣的阿= =

能做好一定做到最好 誰不願意這樣…?

也許看的到也許看不到 光靠那簡易的收入 我會餓死.

也許餓死也不怎樣吼… 就學貸款 也不過 將近50~60萬大觀 (高職20+大學5*8)

你有你的壓力 我有我的壓力

我要替你想 誰替我想呢?

要活的快樂一點…

生活 不快樂.

愛情 很失敗.

事業 一事無成.

金錢 負債累累.

家庭 父母離婚搞分裂 我連畢業後要住哪都不知道

畢業後?…還有兵役 出來後?…失業

這種未來 誰能開心的起來 你說呢?

大家的壓力很大

我的夢很遠.

我只是盡了我的心力 在這個殘酷的世界攀爬著

生活 可以簡單

愛情 可以挑戰

事業 可以打拼

金錢 可以在賺

家庭 . . . 錯不在我

人生的挑戰 還瞞多的 是吧..

以下不針對單一人 針對全部人!

專題 你囂張 你做了什麼 做了多少?

專題架構 不知道 整個說給你聽 嫌我囉唆.

RS232是什麼 老師說了 也不聽.

資料庫架設 有要你幫到什麼忙?

程式設計 你有寫過一行程式碼?

收集資料 半剪半貼的報告 是寫過幾句話?

報告內容 連機器人配備都不看清楚就開始亂貼.

做一張圖要你幾個小時?

報告存檔一直 沒存好 沒帶 蓋檔 我到底該說你有做還沒有做?

對

人都會有犯錯 會想偷懶.

但是當錯誤 瘋狂的指向你 眾人都說你做的少

你就不會檢討一下自己?

繼續你的GGC 魔獸 FB

然後在罵我 我囂張什麼?

想做事情的是你.

不想做事情的也是你.

做事做一半的也是你.

做的又慢又濫的也是你.

如果全包了工作 這叫做分組?

如果一個人要包80%以上的工作 這叫做分工合作?

你他媽的給我記住 程式碼要你打100行 跟 要你做報告100頁 報告還比較簡單

報告錯一兩個字沒關係

程式錯一兩個字? 全毀!!!

娘的勒 給你輕鬆工作你還靠腰 要不要來交換看看.

以上不針對單一人 針對全部人!

SQL排序不就是order by 怎麼還會有數字排序?

當然就是有問題，還真是怪呢！廢話不多說，看個範例

假設有一database 有一欄數字的欄位number(型態:varchar)，1,-2,2,10然後對這欄的數字作排序

SQL語法：

select mumber from table order by mumber

結果：

1

10

-2

2

怎麼變成這樣，不是我要的答案啦！所以就要用cast啦！

SQL語法：

select mumber from table order by cast(mumber as unsigned)

結果：

1

-2

2

10

呃～還是不一樣！因為unsigned是不包含負號下去排序，所以改成signed

SQL語法：

select mumber from table order by cast(mumber as signed)

結果：

-2

1

2

10

固定 星期二 9:30 要上課 系辦簽到

5/12 中午12:00前 交面談紀錄表 交到系辦 給邱邱

5/18 交 口試同意書 2:30 ~ 3:00 交到系辦 給邱邱

6/3 前 完成口試 (5月21日~6月3日)

口試:

 請自行約時間,地點 請提前到準備場地 和 相關 慰勞(賄洛)老師的食品

 自行影印相關文件 需要老師簽名的地方記得要簽

6/17 交期中報告(四) 下午3:00 ~ 下午4:00 交到系辦 給邱邱

 其中報告:

  裝訂.膠裝

  注意格式

  西元年

  九十八學年

  書面時間為6月17日

//==================================================================================

//專題相關檔案資料

//機器人組裝說明文件

J5T-KT / J 5C -KT Information

 1 Assembly Guide for the Tracks

 2 Assembly Guide for the Johnny 5 Chassis

 3 Assembly Guide for the RH-01 Hands

 4 Assembly Guide for the Johnny 5 Torso

Additional Information

 Schematic Johnny 5 Schematic for SEQ

 Schematic Johnny 5 Schematic for Bot Board

Note: The following tutorials were written for the Biped BRAT. However, the information included can be applied to a larger project like the Johnny 5.

 Tutorial for SSC-32 and SEQ-01

 Tutorial for BlueSMiRF & SSC-32 for Vista & XP (WIDCOMM software)

 Tutorial for BlueSMiRF & SSC-32 with BlueSoleil

 Tutorial for WiPort and SSC-32

新隨身碟病毒

以下作用

包含子資料夾全部

資料夾 被改 系統 隱藏 保存 且建立 資料夾.exe 檔案 (有時不會全部)

系統管理員 關閉

命令提示字員 關閉

具有傳染能力

以中毒電腦 必須到安全模式解決

極強效的隨身碟病毒 後續有什麼副作用 不清楚

//======================================================

非常感謝知識+ 的 W.J.S. 提供的部分程式碼

可惜的事情是 我完全看不懂= =…只會應用 (慚愧..)

//======================================================

解除方式:

舊式 熊貓病毒解除方法

安全模式 防毒掃描

使用此檔案 把要恢復的資料夾救回

檔案下載

ˍˍ今天早上一邊紀收支簿一邊想著，原來我以前的日記是收支簿的一種，想想我的生活，太忙了！是應該靜下來好好的練練字了，況且有了一些收入，費用也漸漸變大了，該省錢嚕。

ˍˍ心中有許多的不安，有了第一份收入後，我看到了我的落後，我的同學們不少人在社會中打轉了吧！我想追回這個差距。

ˍˍ而我最重視的愛情呢？和以前一樣，找不到我想要的幸福，追不到喜歡的女生，也許是一種不努力，而她不喜歡我更是一場不幸，什麼浪漫的故事也看過了不少，而我寧可不浪漫一點也不願看到她受傷讓我緊張。

ˍˍ而朋友，有些人我只想叫同學，外出不管我去不去，問一下又不會怎樣，一定要我去問這些「朋友」嗎？很多的OS呀！

首先感謝Fish的帶路啦~ 願意把我這個愛哭愛跟路的帶去XD

三味食堂
價位稍高 不過 在台北 又是 日式料理 價位算低了

那個大的不像話的生魚片 手握壽司(大份200) 真的很棒!

不過雖然他們主打大口吃 我還是建議小口吃…要不然 會有點噁心感

他的 味憎湯 真的還不錯喔!

午餐來說我不太建議點飯食…有點飽到撐…(鰻魚飯+手握壽司半盤)

餐後 想解膩一下 也不是說吃膩 是有點小小的噁心感

我們來到了 誠品的 綠概茶餐廳

他的綠概茶(60) 還不錯

環境蠻不錯的 看書來說 還不錯 好像有 提供 免費無線網路

也謝謝 Fish 給我的 造型意見

我對這方面不太在行 Fish 邀請你當我的設計師啦 哈哈~
(不過我的死觀念也要改變改變…)

開心的度過一個下午 我就趕回去 上三點的課啦~

我喜歡靜靜的休憩的地方 有人相伴 聊天 這就是一種心靈上的休憩 對吧^^
別把時間緊緊的抓 這樣 好累喔…

範例位址:點我連結

修改出處:http://big5.webasp.net/article/7/6036.htm

增加的功能是 破千的數長度下降

<? $b = array(9,1500,500,1250,300,200,775,1230,550); ?>

<!–規則: (組數,數值1,數值2…) –>

<html>

<head>

<title>直 條圖製作</title>

<style>

<!–

td{ font-size:9pt }

–>

</style>

</head>

<body>

<?

$t=1;

$tt=1;

for($i=1;$i<$b[0];$i++) {

 for($j=1;$j<10;$j++) {

  if(($b[$i]/$tt)/10>100 and $tt*10>$t and $b[$i]!=0){

   $t=$t*10;

   $tt=$tt*10;

  }

 }

}

?>

<table border=0>

 <tr><td colspan="<?echo $b[0];?>"><p align="center">(1)直條圖</p></td></tr>

 <tr valign="bottom">

    <?for($i=1;$i<$b[0];$i++) { ?><td align="center">

      <table height="<?echo $b[$i]/$t;?>" border=0>(2)<?echo $b[$i];?>

        <tr>

          <td bgcolor="#3F7F9F" width="40"></td>(3)點

        </tr>

      </table><br>

<font color="#3F7F9F"><?echo $b[$i];?></font>(4)

    </td><? } ?>

  </tr>

</table>

</body>

</html>