;//////////////////////////////////
; Amlinger
;                   by 2008 02 07
;描述:過程 函數
;目標:自定義函數 過程 將程序分解成模塊
;//////////////////////////////////

;函數定義
;Procedure[.返回類型] <過程名>(參數表...)
;ProcedureReturn <結果>
;EndProcedure ;結束函數
;Procedure 與 EndProcedure 是成比出現的
;例如:
;一個求兩個數里最在數的函數
Procedure.w Max(wInt1.w,wInt2.w)
;比如兩個數那個大
    If wInt1.w> wInt2.w
    ;如果第一個比第二個大,則返回第一個數,并退出該函數
        ProcedureReturn wInt1.w
    EndIf
    ;否則返回第二個數
    ProcedureReturn  wInt2.w
EndProcedure ;結束函數
;測試函數結果
Debug Max(3,3)

;下面看過程

;過程定義 一
;Procedure <過程名>(參數表...)

;EndProcedure ;結束函數

;定義一個兩個數大的Debug顯示
Procedure DispMax(wInt1.w,wInt2.w)
;比如兩個數那個大
    If wInt1.w> wInt2.w
    ;如果第一個比第二個大,則顯示第一個
        Debug  wInt1.w
    EndIf
    ;否則顯示第二個
    Debug  wInt2.w
EndProcedure ;結束函數
;調用過程
DispMax(1,2)

;過程定義 二
;<過程名><:>

;SubProcedure:
;       Return 
;過程調用
;Gosub <過程名>
;Gosub SubProcedure

;如:
wInt1.w=1
wInt2.w=3
Debug "開始GoSub"
    Gosub DispMax2
Debug "結束GoSub"

;結束程序 End 在這里是必須有的,不然PureBasic還會繼續往下執行
;這種過程的方法要求,必須是在程序End標簽后的尾部

End
DispMax2:
    ;比如兩個數那個大
    If wInt1.w> wInt2.w
    ;如果第一個比第二個大,則顯示第一個
        Debug  wInt1.w
    Else
    ;否則顯示第二個    
        Debug  wInt2.w       
    EndIf
;返回調用者后一條執行    
    Return

;函數和過程的區別
;函數和過程定義有相同之處

;不同之處是:
;   函數是有返回值的 
;   過程沒有返回值
;   函數和過程傳入參數的方式不同
;上面不同的過程及函數調用以簡單的例子演示了
;其中秒妙的區別自己慢慢體會. 你會發現,原來很有趣
; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 2
; Folding = -