初學者實用編程開發工具

初學者實用編程開發工具

                     預想善其事，必先利其器

 

1、編程開發者，必思考其問題，代碼哪裏寫、如何編譯執行（或則不需編譯），如何調試

如何測試……

一系列的問題，每一個步驟幾乎都離不開相應的工具，其中，每一個步驟幾乎也有相對應的工具，咱們本次聊聊，在C++的學習開發過程當中，所須要用到的一些工具。

 

2、工具

1、鍵盤快速啓動工具（Launchy）

2、比較工具（Beyond Compare）

3、代碼編輯器（NotePad++）

4、編譯器（vc vs gcc）

5、VC助手

六、  項目開發程序編輯器和代碼瀏覽器（Source Insight）

七、  內存泄露檢測工具（VLD）

八、  動態連接庫查看工具（Depends）

九、  版本控制器（SVN，Github）

10、在編譯器中製做 （宏工具）

       (1) 函數頭說明

       (2) 多行註釋工具

       (3) 頭文件預處理命令

11、給代碼工程改頭換面

 

12、Installshield

 

3、重點講解

1、比較工具使用

2、內存泄露檢測工具的安裝與使用

3、動態連接庫產看工具

4、製做宏工具

5、vc助手

4、附錄

1、函數頭描述腳本

Sub FunctionDesc() 

Dim doc 

set doc = ActiveDocument 

' Be sure activedocument is a text document 

if doc Is Nothing Then 

Exit Sub 

elseif doc.Type <>"Text" Then 

Exit Sub 

End If 

doc.Selection ="/** " 

doc.Selection.NewLine 

doc.Selection = " *函數名 : " 

doc.Selection.LineDown 

doc.Selection.copy 

doc.Selection.LineUp 

doc.Selection.EndOfLinedsLastText 

doc.Selection =doc.Selection + " " 

doc.Selection.paste 

doc.Selection = " *功能描述:" 

doc.Selection.NewLine 

doc.Selection = "* 輸入參數:" 

doc.Selection.NewLine 

doc.Selection = "* 輸出參數:" 

doc.Selection.NewLine 

doc.Selection = "* 返回值 :" 

doc.Selection.LineDown 

doc.Selection.StartOfLinedsFirstText 

'doc.Selection.CharRight dsExtend, 4 

doc.Selection.WordRightdsExtend, 1 

doc.Selection.copy 

doc.Selection.LineUp 

doc.Selection.EndOfLinedsLastText 

doc.Selection =doc.Selection + " " 

doc.Selection.paste 

doc.Selection.NewLine 

doc.Selection = "* 做者 : Bss " 

doc.Selection.NewLine 

doc.Selection = "* 建立日期: " + CStr(Now()) 

doc.Selection.NewLine 

doc.Selection = "*/" 

End Sub 

 

2、文件頭註釋宏

Sub FileDesc() 

Dim doc 

set doc = ActiveDocument 

' Be sure activedocument is a text document 

if doc Is Nothing Then 

Exit Sub 

elseif doc.Type <>"Text" Then 

Exit Sub 

End If 

 

doc.Selection.MoveTo 1,1 

doc.Selection.NewLine 

doc.Selection.MoveTo 1,1 

doc.Selection ="/** " 

doc.Selection.NewLine 

doc.Selection = " *版權說明 Contectcopyright (c)" 

doc.Selection.NewLine 

doc.Selection = "* 文件名 : " +ActiveDocument.Name 

doc.Selection.NewLine 

doc.Selection ="* 文件描述：" 

doc.Selection.NewLine 

doc.Selection = "* 建立日期: " + CStr(Now()) 

doc.Selection.NewLine 

doc.Selection = "* 做者 : lhy" 

doc.Selection.NewLine 

doc.Selection = "*/" 

End Sub 

    

3、多行註釋宏

 Sub CustomCommentOut()  

'DESCRIPTION: 註釋/取消註釋宏，可處理VB和C++、Java註釋  

    Dim win  

    set win = ActiveWindow  

    If win.type <> "Text" Then 

      MsgBox "This macro can only berun when a text editor window is active."  

    Else  

        TypeOfFile = 3  

        If TypeOfFile > 0 AndTypeOfFile < 6 Then  

            If TypeOfFile> 3 Then  

               CommentType = "'"   ' VB註釋  

               CommentWidth = 1  

            Else  

               CommentType = "//"  ' C++、java 註釋  

               CommentWidth = 2  

            End If  

           

            StartLine =ActiveDocument.Selection.TopLine  

            EndLine =ActiveDocument.Selection.BottomLine  

            If EndLine <StartLine Then  

               Temp = StartLine  

               StartLine = EndLine  

               EndLine = Temp  

            End If  

            ' 單行  

            If EndLine = StartLineThen  

               ActiveDocument.Selection.StartOfLine dsFirstColumn  

               ActiveDocument.Selection.CharRight dsExtend, CommentWidth  

               If ActiveDocument.Selection = CommentType Then  

                   ActiveDocument.Selection.Delete  

               Else  

                   ActiveDocument.Selection.StartOfLine dsFirstText  

                   ActiveDocument.Selection.CharRight dsExtend, CommentWidth  

                   If ActiveDocument.Selection = CommentType Then  

                       ActiveDocument.Selection.CharRight dsExtend  

                       ActiveDocument.Selection.Delete  

                   Else  

                       ActiveDocument.Selection.StartOfLine dsFirstText 

                       ActiveDocument.Selection = CommentType + vbTab + _ 

                                      ActiveDocument.Selection  

                   End If  

               End If  

            ' 多行  

            Else  

               For i = StartLine To EndLine  

                   ActiveDocument.Selection.GoToLine i  

                   CommentLoc = dsFirstColumn  

                   ActiveDocument.Selection.StartOfLine CommentLoc  

                   ActiveDocument.Selection.CharRight dsExtend, CommentWidth  

                   If ActiveDocument.Selection = CommentType Then  

                       ActiveDocument.Selection.Delete  

                   Else  

                       ActiveDocument.Selection.StartOfLine CommentLoc 

                       ActiveDocument.Selection = CommentType + _  

                                                ActiveDocument.Selection  

                   End If  

               Next  

            End If  

        Else  

           MsgBox("Unable to comment out the highlighted text" + vbLf + _  

               "because the file type was unrecognized." + vbLf + _  

               "If the file has not yet been saved, " + vbLf + _  

               "please save it and try again.")  

        End If  

    End If  

End Sub  

 

5、具體講解請訪問

    http://edu.51cto.com/course/course_id-5014.html