procedureii.pb

来自「利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合」· PB 代码 · 共 36 行

;//////////////////////////////////
; Amlinger
;                   by 2008 02 07
;描述:过程 函数
;目标:全范围函数调用
;//////////////////////////////////

;如果直接在这里调用的Max函数的话,编译器会有错误提示
;想要全范围调用函数还需要加一个声明 就是用 Declare
;Debug Max(3,3)

Declare.w  Max(wInt1.w,wInt2.w)
;Declare 格式
;Declare[.<返回类型>] 过程名(<参数表...>)


Debug Max(3,3)

;例如:
;一个求两个数里最在数的函数
Procedure.w Max(wInt1.w,wInt2.w)
;比如两个数那个大
    If wInt1.w> wInt2.w
    ;如果第一个比第二个大,则返回第一个数,并退出该函数
        ProcedureReturn wInt1.w
    EndIf
    ;否则返回第二个数
    ProcedureReturn  wInt2.w
EndProcedure ;结束函数
;测试函数结果
Debug Max(3,3)


; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 10
; Folding = -