個人的寫程式小技巧

tryit244178

想要漂亮的原始碼，除了有意義的變數宣告外
提供一下我個人寫程式的小技巧
讓有興趣的人參考參考

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

模組化你的程式碼！
看看下面的程式碼…

1. Sub TestA()
   
2.         Text1.Text = "TestA"
   
3.         Button1.Enabled = False
   
4.         i = 1
   
5. End Sub
   
6. 
   
7. Sub TestB()
   
8.         Text1.Text = "TestB"
   
9.         Button1.Enabled = True
   
10.         i = 1
    
11. End Sub
    
12.         .
    
13.         .
    
14.         .

複製代碼

仔細一看，內容都是類似的！
寫個副程式，把它們包裝起來吧！

1. Sub Test(ByVal strValue As String, ByVal blnValue As Boolean)
   
2.         Text1.Text = strValue
   
3.         Button1.Enabled = blnValue
   
4.         i = 1
   
5. End Sub

複製代碼

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

用函數來傳回布林值！
臨時想不出例子，總之很好用！！

1. Function CheckState() As Boolean
   
2.         [程序]
   
3.         Return True
   
4. End Fucntion
   
5. 
   
6. If CheckState = True Then
   
7.         [程序]
   
8. End If

複製代碼

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

假設有個整數變數 i ，它會記錄執行後的結果
我們會用它記錄的結果來執行程序

1. If i = 1 Then
   
2.    [程序]
   
3. End If
   
4. 
   
5. If i = 2 Then
   
6.    [程序]
   
7. End If
   
8. 
   
9.         .
   
10.         .
    
11.         .

複製代碼

或是

1. If i = 1 Then
   
2.    [程序]
   
3. ElseIf i = 2 Then
   
4.    [程序]
   
5. ElseIf i = 3 Then
   
6.         .
   
7.         .
   
8.         .
   
9. End If

複製代碼

比起用If一行一行判斷，改用Select Case吧！

1. Select Case i
   
2.         Case 1
   
3.                 [程序]
   
4.         Case 2
   
5.                 [程序]
   
6.         .
   
7.         .
   
8.         .
   
9. End Select

複製代碼

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

寫個從1加到10的程式碼

1. Dim intCount As Integer = 0
   
2. 
   
3. For i As Integer = 1 To 10
   
4.         intCount += i
   
5. Next

複製代碼

有個自已呼叫自已的方法，叫做遞迴！(這個有好有壞，但很華麗XD)

1. Function Count(ByVal intValue As Integer) As Integer
   
2.         If intValue = 0 Then Exit Function
   
3.         Return intValue + Count(intValue - 1)
   
4. End Function
   
5. 
   
6. '傳回55
   
7. Debug.Print(Count(10))

複製代碼

=====================================
其他的還沒想到，歡迎補充




...

瀏覽完整內容，請先 註冊 或 登入會員

qoo460

感謝版大的分享!謝謝~~~~

erick883

長知識了，感謝分享~~~

zaq12345

謝謝大大的分享..大大辛苦了

funinthesun

其實我才剛學VB所以有很多會看但不會寫，這篇文章給了我許多啟發

這東西很好用耶,讓我的程度又成長許多

zxc693491

我認為初學先多看看別人寫的，並去理解會比較好上手
畢竟人類一開始都是靠著模仿成長的，成熟了自然會獨立
舉自己當例子，排列一直是程式設計很重要的一個概念
C=A：A=B：B=C，如此交換A與B值等基礎我花了很多時間在記熟如何寫出這樣的迴圈，像是氣泡排序法之類的，
但用多了發現，實務上死背這些似乎沒有幫助，應該多試試看自己的想法，搞懂了再去用這些編好的模組，像我在排列時會直接寫個簡單的陣列全部存進去，用內建的函數讓他自己排序，雖然在實際上是多此一舉，但編寫的時候自己可以更快去處理，也減少bug的產生，當然對於龐大的程式不適合如此就是了。
...

瀏覽完整內容，請先 註冊 或 登入會員

johnwanz

前面的例子, 可以簡單彙整成幾個條列,
* Duplicated code (重構-壞味道)
* 避免直接存取變量, 如:OO常見get/set
* 狀態機處理模式


網上很多編程原則可以參考, 像是,
* SOLID
* 重構書中所提的壞味道
* 編碼風格
  (各公司組織, 語法, 甚至於各個專案, 都可以定義; 重點在一個專案中應該一致)

每個步驟都不是很特別, 都是很常見的語法, 差別只在於, 願不願意去用; 以及是否會去思考, 用與不用的差別.
...

瀏覽完整內容，請先 註冊 或 登入會員

看起來還不錯用!! 又學到了新用法，感謝分享!

jerick

遞迴是很好用，
不過用的時候要小心一點，
初學者很容易不小心跳不出來。