procedurei.pb

利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合入门学习使用.还请大家多多提出宝贵意见 Email:[e-mail] QQ:254082

;//////////////////////////////////
; 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 = 12
; Folding = -