使用 Harbour/函式程式設計進行應用程式開發

harbour 函式類似如下所示。

FUNCTION calculateSum(a,b)
LOCAL sum := a + b
RETURN sum

如果要使用以上函式 calculateSum()，則簡單操作如下
sumTwoNumbers := calculateSum(2,4) //值 6 已儲存到 sumTwoNumbers
? sumTwoNumbers //列印 sumTwoNumbers 的值

分步說明以生成上述結果
-在 C:\hb30\tests 目錄中建立一個名為 SumTwoNumbers.prg 的檔案並開啟此檔案。
-將以下程式碼放入此檔案中

******************SumTwoNumbers.prg
PROCEDURE Main()
Local sumTwoNumbers := calculateSum(2,4)
? sumTwoNumbers
RETURN

FUNCTION calculateSum(a,b)
LOCAL sum := a + b
RETURN sum
*****************

-C:\hb30\bin\hbmk2.exe SumTwoNumbers.prg
-SumTwoNumbers.exe //如果正確，將看到數字 “6”