結(jié)構(gòu)化程序設(shè)計(jì)ppt課件-資料下載頁(yè)
2025-04-29 03:35本頁(yè)面
【正文】 nly FOR nCnt=1 TO LEN(cMixedVal) cCharacter=SUBSTR(cMixedVal,nCnt,1) IF ISDIGIT(cCharacter) cNumOnly=cNumOnly+cCharacter ENDIF ENDFORENDPROC 和子程序不同，過(guò)程和調(diào)用程序放在一起。65《 Visual FoxPro程序設(shè)計(jì) 》n 過(guò)程文件：多個(gè)過(guò)程或自定義函數(shù)可以放在一起，組成過(guò)程文件，擴(kuò)展名為 .PRG，其基本形式如下： PROCEDURE 過(guò)程名 1命令序列 [ENDPROC]PROCEDURE 過(guò)程名 2命令序列 [ENDPROC]…66《 Visual FoxPro程序設(shè)計(jì) 》n 過(guò)程文件的打開(kāi)命令：SET PROCEDURE TO 過(guò)程文件名 n 過(guò)程的調(diào)用： DO 過(guò)程名 [IN 過(guò)程文件名 ]n 過(guò)程文件的關(guān)閉：SET PROCEDURE TO [例 815]主程序可用來(lái)計(jì)算圓的面積和周長(zhǎng)，其中求圓面積和周長(zhǎng)由過(guò)程 proc1和 proc2實(shí)現(xiàn)，過(guò)程定義在過(guò)程文件。67《 Visual FoxPro程序設(shè)計(jì) 》過(guò)程文件示例主程序：SET PROCEDURE TO proc*打開(kāi)過(guò)程文件nSelect=0DO WHILE .T. CLEAR ?“請(qǐng)選擇： ” ?“1－計(jì)算圓面積 ” ?“2－計(jì)算圓周長(zhǎng) ” ?“0－退出 ” Input “請(qǐng)您選擇的功能： ” to nSelect DO CASE CASE nSelect=1 DO proc1 *調(diào)用計(jì)算圓面積過(guò)程 CASE nSelect=2 DO proc2 *調(diào)用計(jì)算圓周長(zhǎng)過(guò)程 CASE nSelect=0 EXIT ENDCASEENDDOSET PROCEDURE TO *關(guān)閉過(guò)程文件68《 Visual FoxPro程序設(shè)計(jì) 》過(guò)程文件源代碼過(guò)程文件 ：* 計(jì)算圓面積過(guò)程 proc1PROCEDURE proc1CLEAR? “請(qǐng)輸入圓的半徑： ” to bj s = *bj**2? “圓的面積為： ” + STR(s,10,2)WAIT WINDOW RETURN* 計(jì)算圓周長(zhǎng)過(guò)程 proc2PROCEDURE proc2CLEAR?“請(qǐng)輸入圓的半徑： ” to bjs = 2*3. 14*bj? “圓的周長(zhǎng)為： ” + STR(s,10,2)WAIT WINDOW RETURN69《 Visual FoxPro程序設(shè)計(jì) 》n 格式： FUNCTION 函數(shù)名 [PARAMETERS 參數(shù)表 ] 語(yǔ)句序列 RETURN [表達(dá)式 ]n 功能：定義一個(gè)用戶自定義函數(shù)。n 說(shuō)明：q 如果使用接收參數(shù)語(yǔ)句 PARAMETERS ，必須放在 FUNCTION后第一個(gè)語(yǔ)句。q RETURN用來(lái)返回函數(shù)值，若缺省，返回 .T.。 自定義函數(shù)70《 Visual FoxPro程序設(shè)計(jì) 》自定義函數(shù)示例調(diào)用函數(shù)的主程序：CLEARcTest= (123)456789 0 amp。amp。 原始字符串? 轉(zhuǎn)換前的串： ， ctest? 轉(zhuǎn)換前的串： , NumbersOnly(cTest) amp。amp。調(diào)用函數(shù)[例 816]編制函數(shù)，去除原始字符串中的非數(shù)字字符，返回只含數(shù)字的新串。71《 Visual FoxPro程序設(shè)計(jì) 》自定義函數(shù)源代碼FUNCTION NumbersOnly(cMixedVal)cNumOnly= amp。amp。 初始化新字符串FOR nCnt=1 TO LEN(cMixedVal) amp。amp。 掃描整個(gè)字符串 cCharacter=SUBSTR(cMixedVal,nCnt,1) amp。amp。 獲取測(cè)試字符 IF ISDIGIT(cCharacter) amp。amp。 判斷字符是否為數(shù)字 cNumOnly=cNumOnly+cCharacter amp。amp。 復(fù)制數(shù)字字符 ENDIFENDFORRETURN cNumOnly amp。amp。 返回只含數(shù)字的新串 ENDFUNC 72《 Visual FoxPro程序設(shè)計(jì) 》 變量作用域n 格式： PUBLIC 內(nèi)存變量表 n 功能：將 內(nèi)存變量表 指定的變量設(shè)置為公共變量，并將這些變量的初值賦以 .F.。n 說(shuō)明：程序終止執(zhí)行時(shí)公共變量不會(huì)自動(dòng)清除，只能用 RELEASE 命令來(lái)清除。變 量的作用域指的是 變 量在什么范 圍 內(nèi)是有效或能被 訪問(wèn) 的。 在任何模塊中都可使用的變量稱為全程變量，全程變量必須先定義后使用。73《 Visual FoxPro程序設(shè)計(jì) 》n 格式： LOCAL 內(nèi)存變量表 n 功能：將 內(nèi)存變量表 指定的變量設(shè)置為局部變量。n 說(shuō)明： LOCAL 與 LOCATE 前 4個(gè)字符字母相同，故不可使用縮寫。 局部變量只在當(dāng)前定義的程序中有效，一旦該程序執(zhí)行完成將自動(dòng)釋放局部變量。 在程序中未加任何說(shuō)明而直接定義使用的內(nèi)存變量。它的作用范圍在本程序及下屬的子程序內(nèi)有效。74《 Visual FoxPro程序設(shè)計(jì) 》n 格式： PRIVATE 內(nèi)存變量表 [ALL[LIKE|EXCEPT 通配符 ]]n 功能：定義一個(gè)過(guò)程。n 說(shuō)明：聲明私有變量并隱藏上級(jí)程序的同名變量，直到聲明它的程序、過(guò)程或自定義函數(shù)執(zhí)行結(jié)束后，才恢復(fù)使用先前隱藏的變量。 當(dāng)私有變量和上層模塊的變量同名時(shí)，為區(qū)分二者是不同的變量，需要采用暫時(shí)屏蔽上級(jí)模塊變量的方法，使得子程序中的變量與上層程序中的變量同名而不同值。75《 Visual FoxPro程序設(shè)計(jì) 》變量作用域示例[例 817]變量狀態(tài)舉例。CLEAR MEMORY amp。amp。 清除內(nèi)存變量CLEARPUBLIC Pn1,Pn3 amp。amp。 全局變量DISPLAY MEMORY LIKE Pn?DO Proc1* 過(guò)程 1PROCEDURE Proc1 Pn2=Visual FoxPro amp。amp。 私有變量 DISPLAY MEMORY LIKE Pn? 76《 Visual FoxPro程序設(shè)計(jì) 》變量作用域示例 DO Proc2 DISPLAY MEMORY LIKE Pn?ENDPROC* 過(guò)程 2PROCEDURE Proc2 PRIVATE Pn1 amp。amp。 隱蔽說(shuō)明 LOCAL Pn4 amp。amp。 局部變量 Pn3=is ten years Pn2=snnay Pn4=abc DISPLAY MEMORY LIKE Pn?ENDPROC77《 Visual FoxPro程序設(shè)計(jì) 》作業(yè)n 實(shí)驗(yàn)六n 課后習(xí)題
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1