卐只有兩面的盒子卍

今天是1/19~
我們滿一個月囉^^~
高不高興阿???
寒假要到哩
我們要去屏東玩喔~~~
到時候要拍貼、買東西、吃東西
妳要快樂喔^^

Love your now and forever~

Love

CFC

雖然我快要轉學了
雖然妳在學校不能收到我用隨測寫的信了
雖然我不能中午跟妳一起吃飯了
但是，我心在妳旁
但是，放學我會給妳
但是，星期六是屬於我倆的時刻

我會一直愛妳
我會一直想妳
我會讓妳知道
不能夠沒有妳

Love you now and forever....

Love

CFC

嗯....Ruby真的很好玩^^
剛接觸Ruby時，我就有種很奇妙的感覺~
它，好像比C語言簡單、功能比VB強大、延展性不輸XML
我相信它會是一個受歡迎的程式語言
我想~我知道它的極限
它應該不能脫離系統
它不能像C語言一樣寫出一個System
但是開發Application它絕對拿手~
"Everything are object"，這是Ruby的口號
我相信，這個新的OOP
可以帶來另外一股程式設計風潮
從以前的Basic、Fortran、COBOL、Pascal、C、C++到現在的Visual Basic、JAVA、Delphi、C#、Ruby
可以真正讓一個電腦新手接受的語言有多少個呢？
讓Ruby也列入名單之內吧！
str=<Ruby
也是一個
line1
簡單、方面
跨平台的程式語言
line2

puts str

2005/1/15

2005/01/15
編譯核心依然沿用0.0.2正式版，但是稍微修改了一下
呼，我看從今以後我更會用FileList、List物件了
寫得頭好痛說....
不斷的測試程式，剛寫好時Bug也蠻多的...
該考慮的都沒考慮到，Debug的時間就夠我玩一場Pangya了....
不過說真的，寫程式真的很好玩^^
晚點再繼續吧....(QKing.....)
目前進度：主表單製作進度：98%、編譯環境設定製作進度：100%、批次檔管理中心製作進度：20%、關於對話框製作進度：100%
呼~真是累....

2005/1/14

2005/01/14
今天開始製作0.0.3版的執行檔製作精靈
反正我也要轉學了，所以乾脆在上課時想企劃
BF自己也快完成一個執行檔製作精靈了，我可不能輸他^^
0.0.3測試版新增以下的功能：
1.批次檔管理中心：這是我寫完0.0.2正式版之後才想到的，因為0.0.2是由產生批次檔來進行編譯，所以我想要是沒有好好管理這些Bat，可能會增加以後程式重新編譯的繁雜度。
2.編譯環境設定：這是BF給我的靈感，當然他也完成了這個部分，因此我跟他借了原始碼來抄抄(Open Source咩~)只是我在部分程式碼有點修改，而且還改了登錄檔的機碼資料夾。這個部分是修正0.0.2版每次編譯程式都得選擇Ruby.exe目錄的不便，所以以後只要設定一次即可編譯原始碼，但是原始碼位置還是得請各位使用者自行手動設定。
3.多重批次檔快速重新編譯：在"批次檔管理中心"裡面，也可以一次選取許多批次檔，然後按下[執行]即可快速重新編譯所有選取的批次檔！
4.多重原始碼編譯：新增了FileList，可以選取一堆原始檔，然後按下[編譯]即可在短時間內編譯完許多原始檔！

0.0.3測試版也預定修正以下部分：
1.批次檔內容：因為已經將Ruby.exe的目錄紀錄到REG裡面了，所以在Ruby.exe的部分可以直接用讀取登錄檔的方式來Write-In。
2.將選擇是否為GUI介面的按鈕改成核取式方塊。

這篇是2005/1/4：

2005/01/04
今天是第二天編寫執行檔製作精靈
不知道為什麼...我就是不太會控制Command.exe,所以乾脆將程式改寫成輸出一個[檔名.bat]之後,再呼叫command來執行它,最後再讓使用者自行決定要保留或刪除(保留的話下次重新編譯不必再開啟此程式,直接點兩下bat檔就可以重新編譯)
終於可以推出測試版了....這也是我第一次開發這種工具,想到別人開發出那麼多的好工具,自己也想來試試看....至少貢獻給其他有心學習的朋友吧?
以下是這次修改過的原始碼(沒貼出的為沒有修改)

Private Sub compile_Click()
On Error GoTo err '發生錯誤跳到err標籤
Dim rbfilename$, rubypath$, sourcepath$ '宣告三個字串變數，分別為檔案名稱、Ruby執行檔位置、原始檔存放的資料夾

If filedir.Text = "" Then MsgBox "請輸入檔案名稱。", , "Ruby執行檔精靈": GoTo err '如果檔案名稱為空白的話，那就跳出警訊方塊
rbfilename = Trim(filedir.Text) '將文字框內的檔案名稱去掉頭尾的空白之後轉成字串型態再存入rbfilename變數
rubypath = dirs.Path & "uby" '將Ruby安裝位置存入rubypath變數
sourcepath = sourcedir.Path '將原始碼位置存入sourcepath變數
Open sourcepath & "" & rbfilename & ".bat" For Output As #1 '用Open陳述式輸出[檔名.bat]批次檔，以便待會執行編譯
Print #1, "cd " & sourcepath '寫入進行切換原始碼所在目錄指令
Print #1, sourcedisk.Drive '寫入跳到原始碼所在目錄指令
Print #1, rubypath & " -r exerbmkexr " & rbfilename & ".rb" '寫入開始進行編譯步驟1：製造exr檔案跟mak檔案指令
If gui(0).Value Then '判斷是否為GUI介面程式
Print #1, rubypath & " " & disk.Drive & "mingwusrlocalinexerb -c gui" & " " & rbfilename & ".exr" '如果是，加入GUI程式編譯參數，以防程式未來執行時跳出命令列視窗
Else
Print #1, rubypath & " " & disk.Drive & "mingwusrlocalinexerb" & " " & rbfilename & ".exr" '如果不是GUI程式，就直接編譯
End If
Close #1 '關閉輸出批次檔
Shell "cmd.exe /c " & sourcepath & "" & rbfilename & ".bat" & vbCrLf '開啟命令列視窗，執行剛剛產生的批次檔進行編譯為執行檔的工作

err:
End Sub

各位喜歡Ruby的朋友們....大家加油^^
也希望大家喜歡此程式....

這是2005/1/3：
2005/01/03
編寫Ruby執行檔製作精靈這個計畫已經很久了
自從我第一眼見到Ruby這個語言,我就很喜歡它
當我看到這程式要編譯成執行檔,步驟複雜又難懂
而且還很容易錯誤
因此,我打算用Visual Basic 6.0 Professional版來編寫一個執行檔製作精靈(因為本身對Ruby這個語言還不熟,用C語言光是介面就很難搞,不過未來可能推出C語言版)

今天是第一次進行編寫工作,因為在這之前並沒有做好完善的規劃,所以只好一邊寫一邊修....

介面大致上完成,原始碼部分完成度有將近85%,但是Debug的時候還是發現許多Bug,所以在0.0.1這個測試版功能正常之前應該不會推出0.0.2正式版

下面是第一次編寫的原始碼

Private Sub compile_Click()
On Error GoTo err '發生錯誤跳到err標籤
Dim rbfilename$, rubypath$, sourcepath$ '宣告三個字串變數，分別為檔案名稱、Ruby執行檔位置、原始檔存放的資料夾

If filedir.Text = "" Then MsgBox "請輸入檔案名稱。", , "Ruby執行檔精靈" '如果檔案名稱為空白的話，那就跳出警訊方塊
rbfilename = Trim(Str(filedir.Text)) '將文字框內的檔案名稱去掉頭尾的空白之後轉成字串型態再存入rbfilename變數
rubypath = dirs.Path '將Ruby安裝位置存入rubypath變數
sourcepath = sourcedir.Path '將原始碼位置存入sourcepath變數
Shell "cmd.exe /c echo cd" & sourcepath '使用命令列進行切換原始碼所在目錄
Shell "cmd.exe /c echo " & sourcedisk.Drive '跳到原始碼所在目錄
Shell "cmd.exe /c echo " & rubypath & "uby -r exerb mkexr " & rbfilename & ".rb" '開始進行編譯步驟1：製造exr檔案跟mak檔案
If gui(0).Value Then '判斷是否為GUI介面程式
Shell "cmd.exe /c echo " & rubypath & " " & disk.Drive & "mingwusrlocalinexerb -c gui" & " " & rbfilename & ".exr" '如果是，加入GUI程式編譯參數，以防程式未來執行時跳出命令列視窗
Else
Shell "cmd.exe /c echo " & rubypath & " " & disk.Drive & "mingwusrlocalinexerb" & " " & rbfilename & ".exr" '如果不是GUI程式，就直接編譯
End If
err:
End Sub

Private Sub disk_Change()
dirs.Path = disk.Drive

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "本程式為CFC@Zuso Security編譯製作。", , "Ruby執行檔精靈"
End Sub

Private Sub quit_Click()
MsgBox "本程式為CFC@Zuso Security編譯製作。", , "Ruby執行檔精靈"
End
End Sub

Private Sub sourcedisk_Change()
sourcedir.Path = sourcedisk.Drive
End Sub


使用的物件有DriverListBox, DirsListBox, Text, Label, Command Button, Option Button, Frame