第3章 順序結(jié)構(gòu)程序設(shè)計

1、機械工業(yè)出版社同名教材配套電子教案2007 2007 年年 7 7月月第第3章章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 3.1 基本語句基本語句3.1.1 賦值語句賦值語句3.1.2 語句的續(xù)行語句的續(xù)行 3.1.3 程序注釋語句程序注釋語句 3.1.4 程序暫停語句程序暫停語句 3.1.5 程序結(jié)束語句程序結(jié)束語句 3.2 輸入與輸出輸入與輸出 3.2.1 使用標(biāo)簽使用標(biāo)簽 3.2.2 使用文本框使用文本框 3.2.3 使用編輯框使用編輯框 3.2.4 使用焦點使用焦點 3.2.5 形狀與容器控件形狀與容器控件 3.2.6 使用對話框使用對話框 3.2.7 使用圖像使用圖像 3.1 基本語句基本

2、語句賦值語句賦值語句賦值語句可以將指定的值賦給內(nèi)存變量或?qū)ο蟮哪硞€屬性，其一般格式為：STORE表達(dá)式表達(dá)式TO名稱列表名稱列表或名稱名稱=表達(dá)式表達(dá)式程序暫停語句程序暫停語句 WAIT語句用來暫停程序的執(zhí)行并顯示提示信息，按任意鍵或單擊鼠標(biāo)后繼續(xù)執(zhí)行程序。其語法格式為：WAIT 提示信息提示信息 TO內(nèi)存變量內(nèi)存變量 WINDOW AT 行行,列列 TIMEOUT n程序結(jié)束語句程序結(jié)束語句 在FoxPro的早期版本中，終止命令程序的執(zhí)行一般使用CANCEL語句。在VFP中，CANCEL語句不能終止表單的運行，要終止表單的運行可以使用RELEASE語句或Release方法。 RELEASE語

3、句的格式為：RELEASETHISFORM Release方法的格式為：THISFORM | THISFORMSETRelease R E L E A S E 語 句 或 R e l e a s e 方 法 都 不 會 激 發(fā)QueryUnload事件，而直接激發(fā)Unload事件從內(nèi)存中釋放表單或表單集。3.2 輸入與輸出輸入與輸出 3.2.1使用標(biāo)簽 3.2.2使用文本框 3.2.3使用編輯框 3.2.4使用焦點 3.2.5形狀與容器控件 3.2.6使用對話框 3.2.7使用圖像3.2.1使用標(biāo)簽【例3-1】使用標(biāo)簽處理單行和多行的信息輸出，運行時通過代碼來改變輸出的內(nèi)容，如圖3-2所示。圖

4、圖3-2 運行時改變標(biāo)簽的運行時改變標(biāo)簽的Caption 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面。 (2) 設(shè)置對象屬性。 (3) 編寫程序代碼。 編寫命令按鈕Command1的Click事件代碼：THISFORM.Label1.Caption=運行時修改的標(biāo)簽內(nèi)容THISFORM.Label2.Caption= 對于一個較長的或在運行時可能變化的標(biāo)題，標(biāo)簽提供了+; 兩種屬性:AutoSize和WordWrap，來改變控件尺寸以適應(yīng)較長或較短的標(biāo)題。THISFORM.Label2.AutoSize=.T.【例3-2】交換兩個變量中的數(shù)據(jù)，如圖3-4所示。圖3-4 交換兩個變量中的數(shù)據(jù)

5、設(shè)計步驟如下：(1) 建立應(yīng)用程序用戶界面。(2) 設(shè)置對象屬性。 (3) 編寫程序代碼。 編寫命令按鈕Command1的Click事件代碼：t = THISFORM.Label2.CaptionTHISFORM.Label2.Caption = THISFORM.Label4.CaptionTHISFORM.Label4.Caption = t【例3-3】設(shè)計立體的標(biāo)簽，如圖3-7所示。圖圖3-7 兩種形式的立體標(biāo)簽兩種形式的立體標(biāo)簽 設(shè)計步驟如下： 選擇“新建”表單，進(jìn)入表單設(shè)計器，增加一個命令按鈕Command1和一個“標(biāo)簽”控件Label1。 選中Label1后，單擊“編輯”菜單中的“

6、復(fù)制”，再選擇“編輯”菜單中的“粘貼”，將Label1復(fù)制一個副本Label2。將Label2的前景色（ForeColor）屬性改為：256,256,256（白色）。如圖3-8左。 圖圖3-8 設(shè)計立體標(biāo)簽設(shè)計立體標(biāo)簽 再選中Label2，另外復(fù)制三個副本Label4（白色）、Label5（灰色）和Label6（紅色），如圖3-8右，適當(dāng)調(diào)整三個標(biāo)簽的相對位置，即可完成第二種形式立體標(biāo)簽的設(shè)計。 最后編寫命令按鈕Command1的Click事件代碼，以便關(guān)閉表單退出程序：THISFORM.Release 3.2.2使用文本框使用文本框【例3-4】利用文本框輸入圓的半徑，計算出圓的面積，如圖3-

7、9所示。 圖3-9 計算圓的面積 圖3-10 用文本框輸入和輸出數(shù)據(jù)的表單 3.2.3使用編輯框使用編輯框 【例3-5】設(shè)計一個文本文件的編輯器，可以新建或打開文件，并能在編輯后保存該文件（如圖3-13、圖3-14）。 圖3-13 打開文件 圖3-14 修改文件 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面。 (2) 設(shè)置對象屬性。 (3) 編寫程序代碼。 編寫表單的編寫表單的Activate事件事件代碼：代碼：WITH THIS.Edit1 .Top = 0 .Left = 0 .Width = THIS.WidthENDWITHSET EXACT ONTHIS.Caption = 未命名未

8、命名THIS.Edit1.SetFocus 編寫編寫Command1的的Click事件代事件代碼：碼：THISFORM.Edit1.Value = THISFORM.RefreshTHISFORM.Caption = 未命名未命名THISFORM.Edit1.SetFocusTHISFORM.Command2.Enabled = .T.THISFORM.Command3.Enabled = .F.THISFORM.Command4.Enabled = .T. 編寫編寫Command2的的Click事件代碼：事件代碼：cfile = GETFILE()nhandle = FOPEN(cfile)

9、nend = FSEEK(nhandle,0,2)= FSEEK(nhandle,0,0)THISFORM.Edit1.Value = FREAD(nhandle,nend)THISFORM.Caption = cfile= FCLOSE(nhandle) THISFORM.Edit1.SetFocusTHISFORM.Refresh THISFORM.Command3.Enabled = .T. 編寫編寫Command3的的Click事件代碼：事件代碼：cFile = THISFORM.Captionnhandle = FOPEN(cfile,1)= FWRITE(nhandle,THISF

10、ORM.Edit1.Value)= FCLOSE(nhandle)THISFORM.Refresh THISFORM.Edit1.SetFocus 編寫編寫Command4的的Click事件代碼：事件代碼：cfile = PUTFILE()nhandle = FCREATE(cfile,0)cc =FWRITE(nhandle,THISFORM.Edit1.Value)= FCLOSE(nhandle)THISFORM.Edit1.SetFocusTHISFORM.RefreshTHISFORM.Command3.Enabled = .T. 3.2.4使用焦點使用焦點(SetFocus)THI

11、SFORM.Text1.SetFocusFocus(光標(biāo))GotFocusLostFocus在程序運行的時候，用戶可以按下列方法改變焦點：l 用鼠標(biāo)單擊對象。l 按Tab鍵或Shift+Tab在當(dāng)前表單的各對象 之間巡回移動焦點。l 按熱鍵選擇對象。3.2.5 形狀與容器控件形狀與容器控件 1. 使用形狀 形狀（Shape）控件可以在表單中產(chǎn)生圓、橢圓以及圓角或方角的矩形。在本章中，只利用“形狀”對程序的界面作一定的修飾?！纠?-7】pp61.4.6在例3-5的基礎(chǔ)上進(jìn)行設(shè)計，步驟如下：步驟如下： 在例3-5的表單中畫上一個“形狀”控件Shape1。圖圖3-19 增加一個增加一個“形狀形狀”

12、修改Shape1的SpesialEffect屬性為：0 3維，然后用鼠標(biāo)單擊“格式”菜單中的“置后”，將其置于原有控件的后邊，如圖3-19右所示。適當(dāng)調(diào)整各控件的位置，即完成對原有表單的修飾。2. 使用容器控件使用容器控件【例3-7】設(shè)計一個華氏溫度和攝氏溫度互相轉(zhuǎn)換的程序，如圖3-20所示。輸入一個華氏溫度可以得到相應(yīng)的攝氏溫度，而輸入一個攝氏溫度則可以得到其相應(yīng)的華氏溫度。圖3-20 使用“容器”控件 設(shè)計步驟如下：設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面與設(shè)置對象屬性。 (2) 編寫程序代碼。 編寫表單的Activate事件代碼：THIS.Container1.Text1.SetFo

13、cus 編寫Command1的Click事件代碼：c = val(THISFORM.Container1.Text1.Value)THISFORM.Container2.Text1.Value = c * ( 9 / 5 ) + 32 編寫Command2的Click事件代碼：f = THISFORM.Container2.Text1.ValueTHISFORM.Container1.Text1.Value = (f 32) * (5 / 9) 編寫文本框Text1的事件代碼： GotFocus事件代碼：THIS.SelStart = 0THIS.SelLength = LEN(THIS.Te

14、xt) InteractiveChange事件代碼：THISFORM.Container2.Text1.Value = 編寫文本框Text2的事件代碼： GotFocus事件代碼：THIS.SelStart = 0THIS.SelLength = LEN(THIS.Text) InteractiveChange事件代碼：THISFORM.Container1.Text1.Value = 3.2.5使用對話框使用對話框MESSAGEBOX函數(shù)在對話框中顯示信息，等待用戶單擊按鈕，并返回一個整數(shù)以標(biāo)明用戶單擊了哪個按鈕。其語法格式為：變量名變量名 = MESSAGEBOX（信息內(nèi)容（信息內(nèi)容,對話

15、對話框類型框類型,對話框標(biāo)題對話框標(biāo)題） 【例3-8】pp65:4-8在例3-5中使用信息對話框來顯示計算結(jié)果，如圖3-23所示。 使用圖像使用圖像 【例3-10】在例3-9中使用圖像來修飾表單。圖像 Picture 瀏覽 習(xí)題習(xí)題3 以下各章習(xí)題均要求先寫出流程圖，然后根據(jù)流程圖寫出程序。3.1 順序結(jié)構(gòu)的特點是什么？請舉一個生活中符合順序結(jié)構(gòu)的例子，并用流程圖描述之。3.2 下列哪組語句可以將變量A、B的值互換？(1) A = B(2) A = (A + B) / 2 B = A B = (A B ) / 2(3) A = A + B(4) A = C B = A B C = B A =

16、A B B = A3.3 向一個RC串聯(lián)電路充電，電容上的電壓為： U0為直流電源的電壓。求在t = 1秒時（R = 500K，C = 10f ）U / U0的值。3.4 理解大小寫轉(zhuǎn)換函數(shù)。 在文本框中輸入文本串，按“轉(zhuǎn)大寫”按鈕，文本中的英文字母變?yōu)榇髮懀础稗D(zhuǎn)小寫”按鈕，文本中的英文字母變?yōu)樾懀ㄈ鐖D3-25所示）。3.5 班上集體購買課外讀物，在文本框中輸入三種書的單價、購買數(shù)量，計算并輸出所用的總金額。3.6 在文本框中輸入小時、分、秒，化成共有多少秒，然后輸出之。3.7 在文本框中輸入弧度值，將弧度換算為角度值（度、分、秒）的形式，然后輸出。 （如弧度值為1.474919573，化

17、為角度的方法為：(1) 先將弧度值變成十進(jìn)制角度值， 1.474919573(180/) = 84.50666665(2) 去掉整數(shù)部分84，余0.50666665。(3) 用0.5066666560 = 30.399999。(4) 去掉30，余0.399999。(5) 用0.39999960 = 23.99994 24(6) 最后將84、30、24拼接成8430 24。） 圖3-25 大小寫轉(zhuǎn)換 3.8 在文本框中輸入角度值（度、分、秒），將角度換算為弧度值的形式，然后輸出。 （如角度值為8430 24，1.474919573，化為弧度的方法為：(1) 先將角度值變成十進(jìn)制： 24 / 3600 = 0.006667 30 / 60 = 0.5 十進(jìn)制角度值 = 84 + 0.5 + 0.006667 = 84.50667(2) 然后將十