1 / 58

第五章

第五章. 流程控制 ( 二 ) - 重複結構. 本投影片僅供採用本書上課使用，非經同意，請勿散播或轉載。. 5.1 前言. 結構化程式 是程式設計的基本精神。 循序結構 、 選擇結構 和 重複結構 是程式設計三個 基本邏輯架構。 循序結構 是程式最基本結構，是由上到下依序執行。 重複結構 是指敘述區段可 反覆執行多次 的程式結構。 重複結構又稱為 迴圈 （ Loop ） 常用重複結構有： For…Next 和 Do…Loop 兩種。. 5.2 For…Next 迴圈.

chancellor-hendrix
Download Presentation

第五章

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 第五章 流程控制(二) -重複結構 本投影片僅供採用本書上課使用，非經同意，請勿散播或轉載。

  2. 5.1 前言 • 結構化程式 是程式設計的基本精神。 • 循序結構、選擇結構 和 重複結構 是程式設計三個基本邏輯架構。 • 循序結構 是程式最基本結構，是由上到下依序執行。 • 重複結構是指敘述區段可 反覆執行多次 的程式結構。 • 重複結構又稱為 迴圈（Loop） • 常用重複結構有：For…Next 和 Do…Loop 兩種。

  3. 5.2 For…Next 迴圈 • 若程式中某個敘述區段需反覆執行指定的次數時，可用 For…Next 迴圈來完成。 • For 迴圈由 計數變數、初值、終值 及 增值 構成：

  4. [說明] • 計數變數 必須是 數值資料型別的變數。 • 初值、終值和增值則可為數值變數或數值常值。 • 增值若省略不寫，預設增值為1。 • 若初值小於終值，增值需為正值，表由小而大計數。 • 若初值大於終值，增值需為負值，表由大而小計數。 • 當增值為正值時，計數變數大於終值時離開迴圈。 • 當增值為負值時，則計數變數在小於終值時離開迴圈。 • 如想提早離開迴圈，可用 Exit For 敘述配合 If 條件式來判斷是否提前離開 For 迴圈。

  5. Filename : ForNext.sln 01 Private Sub Form1_Load(ByVal sender …) Handles MyBase.Load 02 Dim start_num, end_num, step_num, sum As Integer 03 start_num = Val(InputBox("請輸入初值:(整數)")) 04 end_num = Val(InputBox("請輸入終值:(整數)")) 05 step_num = Val(InputBox("請輸入增值:(整數)")) 06 sum = 0 ‘預設總和為0 07 For i = start_num To end_num Step step_num 08 sum += i 09 Next 10 MsgBox(start_num & "到" & end_num & "增值為" & _ step_num & "時，總和等於" & sum) 11 End 12 End Sub

  6. 5.3 巢狀 For...Next迴圈 • 迴圈內還有迴圈就構成 巢狀迴圈。 • 執行時由最內迴圈先執行，後才執行外部迴圈。 • 使用巢狀迴圈時，每個 For 都需有對應的 Next 。 • 迴圈彼此間是不允許相互交錯。 • 巢狀迴圈中每個 For迴圈，都需有自己的計數變數，不可重複使用。 • 需製作一個二維有規則性表格如：九九乘法表，重複性圖案等都可用巢狀迴圈。

  7. 每列行顯示五個 ”*” 共五列，將 I 設為外部迴圈，k 為內部迴圈 ，演算法如下：

  8. 輸出方式 使用 MsgBox 輸出對話方塊函式 表單上用標籤或文字方塊控制項顯示

  9. 將上面實作修改為顯示出初值到終值間的所有數值。將上面實作修改為顯示出初值到終值間的所有數值。

  10. Filename : 99Product.sln 01 Private Sub Form1_Load(ByVal sender …) Handles MyBase.Load 02 Dim show As String 03 show = Space(60) & "九九乘法表" & vbNewLine & vbNewLine 04 For i = 1 To 9 05 For j = 1 To 9 06 show &= i & "x" & j & "=" & i * j & vbTab 07 Next 08 show &= vbNewLine ‘ 換行 09 Next 10 MsgBox(show) 11 End 12 End Sub

  11. 5.4 Do ….. Loop迴圈 • For…Next 迴圈是某個「敘述區段」需要反覆執行指定次數時使用。 • 如迴圈執行次數無法事先預估時，需用 Do…Loop 條件式迴圈敘述。因此種迴圈沒計數變數，是靠條件式來判斷是否離開迴圈。 • Do…Loop 條件式迴圈敘述：若條件式置於迴圈的開頭，稱為 前測式迴圈；若條件式置在迴圈的最後，稱為後測式迴圈。

  12. 前測式迴圈 因先判斷條件式是否成立，迴圈內敘述不一定會被執行 • 後測式迴圈 是先執行迴圈內的敘述才判斷條件式，敘述最少會被執行一次。 • 注意無論哪種迴圈，迴圈中需有一個敘述能將條件式變為False，才有機會離開迴圈，使得程式往下繼續執行，否則將會形成 無窮迴圈 而無法離開迴圈。

  13. 5.4.1 Do While迴圈 • Do While …Loop 迴圈，將 <條件式> 放置在迴圈的最開頭，是屬於 前測式迴圈。 • 當 While 後面 <條件式> 為True 時，將迴圈內敘述區段執行一次，再回到迴圈起點，重新判斷 <條件式>一次，一直到 <條件式> 為 False 時，才離開迴圈。

  14. Do … Loop While 迴圈將 <條件式> 置迴圈最後面，屬後測式迴圈。 • 重複結構適合在迴圈內敘述區段至少執行一次，才判斷 <條件式> 是否成立用。 • 若 <條件式> 為True，再執行迴圈內敘述區段一次，直到 <條件式> 為 False 才離開迴圈。 • Do … Loop While 屬後測式迴圈，敘述區段至少執行一次

  15. 5.4.2 Do Until 迴圈 • Do While 迴圈是 <條件式> 成立時，才執行迴圈內的敘述區段 • Do Until 迴圈是 <條件式> 不成立時，才執行迴圈內的敘述區段。 • Do Until …Loop 和 Do…Loop Until 迴圈是以否定式來判斷，當<條件式>不成立時，才執行迴圈內的敘述區段；若<條件式>成立，才離開迴圈。 • Do Until…Loop 迴圈是屬於「前測式迴圈」Do…Loop Until 迴圈是屬於「後測式迴圈」

  16. 5.4.2 Do Until 迴圈

  17. 計算sum = 1+2+3…+10，四種不同條件式迴圈寫法

  18. 5.4.3 Exit Do敘述 • 中途離開 Do 迴圈，執行接在迴圈後的程式碼時，可用Exit Do 敘述。 • 在迴圈內使用 If 選擇結構來做判斷，若滿足條件就執行 Exit Do 敘述離開迴圈，否則就繼續迴圈的執行 • 語法： Do … If <條件式> Then Exit Do … Loop • 寫程式時若不小心導致因條件式邏輯不對，造成無窮迴圈可按 <ctrl> + <Break> 鍵停止程式執行。

  19. 5.4.4 While…End While 迴圈 • While…End While 迴圈 和 Do While…Loop 迴圈類似都屬前測式迴圈。

  20. 迴圈執行到按否鈕為止 迴圈執行到答對為止

  21. 5.5 PictureBox 圖片控制項 • 要加入圖片，可用 PictureBox 圖片控制項載入指定圖片檔。 • 圖片控制項允許使用的圖形檔格式有：點陣圖(.bmp)、GIF格式圖檔(包括Gif動畫及背景透空的靜態圖)、jpeg圖形檔、中繼檔(.wmf) 、可攜式網路圖檔(.png)或圖示格式(.ico)的圖形。 • PictureBox 圖片控制項中的圖片可在設計階段先載入或在程式執行時才讀取檔案。

  22. 5.5.1 圖片控制項的常用屬性 1. Image屬性Image屬性是圖片控制項最重要屬性，用來設定要顯示的圖檔。 2. SizeMode屬性 (預設值Normal)設定圖片在圖片控制項中顯示方式，有五個屬性值： Normal－圖片以正常大小顯示在圖片方塊的左上角。 StretchImage－圖片自動調整成和圖片控制項一樣大小。 AutoSize－圖片控制項自動調整成和圖片一樣大小。 CenterImage－圖片以正常大小顯示在圖片控制項的中央。 Zoom -圖片維持等比例依圖片控制項大小自動調整。 • 在程式執行階段設定SizeMode屬性值的語法如下： PictureBox1.SizeMode = PictureBoxSizeMode.Normal

  23. 5.5.1 圖片控制項的常用屬性 3. BorderStyle屬性設定圖片控制項的外框樣式，屬性值： None - 沒有框線（預設值）、 FixedSingle - 單線固定、 Fixed3D- 立體固定。 4. Location.X、Location.Y屬性設定圖片控制項左上角相對於容器(通常為表單)的位置。Location.X和 Location.Y兩屬性，分別設定圖片控制項的水平距離 和 垂直距離。

  24. 5.5.1 圖片控制項的常用屬性 5. Left、Top屬性Left屬性相當於Location.X屬性Top屬性相當於Location.Y屬性Left和 Top屬性只能在程式執行階段使用。 6. Size.Width、Size.Height屬性設定圖片控制項的大小。Size.Width和 Size.Height兩個屬性，分別設定圖片控制項寬度(可縮寫為Width) 和高度(可縮寫為Height)。

  25. 5.5.2 圖片的載入及清除 1. 設計階段載入圖片

  26. 2. 設計階段清除圖片 選取 Image 屬性欄後按 鍵，或直接在屬性視窗的Image 屬性值上按右鍵，選取 即可。

  27. 3. 在執行階段載入圖片 • 使用 Image 類別的 FromFile 方法設定 Image 屬性。 語法： PictureBox1.Image = Image.FromFile(包含路徑的圖檔名稱) • 將 D :\ch05\飛碟.gif 圖形檔載入 pic1 圖片控制項中：pic1.Image = Image.FromFile("d:\ch05\飛碟.gif") • 也可用 New 建立 Bitmap 物件來載入圖檔： pic1.Image = New Bitmap("d:\ch05\飛碟.gif") 4. 執行階段清除圖片 PictureBox.Image = Nothing

  28. 5.5.3 圖片位置和尺寸的調整 • 程式執行階段調整圖片控制項位置和尺寸，可產生動畫效果。 1. Point 物件 改變圖片控制項的 Location 屬性可用 Point 物件，語法： Object.Location = New Point(X,Y) 例 將 pic1 圖片控制項移動到 X 座標 66、Y 座標 88 位置。 pic1.Location = New Point(66,88) 不用 Point 物件，也可直接改變 Left（=Location.X）和Top（= Location.Y）屬性，寫法： pic1.Left = 66 pic1.Top = 88

  29. 2. Size物件 • 程式執行階段，可用 Size 物件來設定圖片大小。 • SizeMode屬性設為 StretchImage 或 Zoom（等比例）圖片自動調整成和圖片控制項一樣大小。 • 使用 Size 物件語法： PictureBox.Size = New Size(Width,Height) 例 將 pic1 圖片控制項的寬度和高度各縮小一半。 pic1.Size = New Size(pic1.Width/2,pic1.Height/2) • 如不用 Size 物件，也可直接改變 Size 的 Width 和 Height 屬性值，寫法： pic1.Width = pic1.Width / 2 pic1.Height = pic1.Height / 2

  30. Step1建立輸出入介面

  31. FileName: poker.sln 01 Dim num1, num2 As Integer 02 Private Sub Form1_Load(ByVal sender …) Handles MyBase.Load 03 pic1.Enabled = False 04 pic2.Enabled = False 05 pic1.SizeMode = PictureBoxSizeMode.AutoSize 06 pic2.SizeMode = PictureBoxSizeMode.AutoSize 07 pic1.Image = New Bitmap("c:/vb2008/ch05/image/Pokerbk.jpg") 08 pic2.Image = New Bitmap("c:/vb2008/ch05/image/Pokerbk.jpg") 09 lblMsg.Text = "按洗牌鈕遊戲開始.." 10 End Sub

  32. 01 Private Sub btnShuffle_Click(ByVal sender …) Handles btnShuffle.Click 02 pic1.Enabled = True 03 pic2.Enabled = True 04 btnShuffle.Enabled = False 05 pic1.Image = New Bitmap("c:/vb2008/ch05/image/Pokerbk.jpg") 06 pic2.Image = New Bitmap("c:/vb2008/ch05/image/Pokerbk.jpg") 07 Randomize() 08 num1 = Int(Rnd() * 13) + 1 09 num2 = Int(Rnd() * 13) + 1 10 lblMsg.Text = "請在撲克牌上按一下選取 .." 11 End Sub

  33. 01 Private Sub pic1_Click(ByVal sender …) Handles pic1.Click 02pic1.Image = New Bitmap("c:/vb2008/ch05/image/Poker" & num1 & ".jpg") 03pic2.Image = New Bitmap("c:/vb2008/ch05/image/Poker" & num2 & ".jpg") 04 If num1 > num2 Then 05 lblMsg.Text = " 你贏了 ! 按洗牌鈕 重玩 ...." 06 Else 07 If num1 = num2 Then 08 lblMsg.Text = " 平 手 ! 按洗牌鈕 重玩 ...." 09 Else 10 lblMsg.Text = " 你輸了 ! 按洗牌鈕 重玩 ...." 11 End If 12 End If 13 pic1.Enabled = False 14 pic2.Enabled = False 15 btnShuffle.Enabled = True 16 End Sub

  34. 01 Private Sub pic2_Click(ByVal sender …) Handles pic2.Click 02pic1.Image = New Bitmap("c:/vb2008/ch05/image/Poker" & num1 & ".jpg") 03pic2.Image = New Bitmap("c:/vb2008/ch05/image/Poker" & num2 & ".jpg") 04 If num2 > num1 Then 05 lblMsg.Text = " 你贏了 ! 按洗牌鈕 重玩 ...." 06 Else 07 If num2 = num1 Then 08 lblMsg.Text = " 平 手 ! 按洗牌鈕 重玩 ...." 09 Else 10 lblMsg.Text = " 你輸了 ! 按洗牌鈕 重玩 ...." 11 End If 12 End If 13 pic1.Enabled = False 14 pic2.Enabled = False 15 btnShuffle.Enabled = True 16 End Sub 17 18Private Sub btnQuit_Click(ByVal sender …) Handles btnQuit.Click 19 End 20 End Sub

  35. 5.6 Image List影像列示控制項 • ImageList 影像列示控制項屬幕後執行控制項，程式執行時表單上看不到，編輯階段顯示在表單正下方。 • 無法直接在表單上顯示圖形，可同時載入多張圖片，以方便在表單使用影像列示清單控制項來共用圖片。 • 如按鈕、選項鈕、核取方塊、標籤等控制項，都具 ImageList 屬性，只要將該屬性值設定為影像列示控制項，就可顯示圖片。 • 圖片控制項物件的 Image 屬性值，也可指定等於影像列示控制項的 Images 屬性值。只要傳圖片的索引值（索引值由0開始）就改變圖片，可將不同圖片檔名置入影像列示控制項，存取時透過索引值，程式碼可更簡化。

  36. PictureBox1 圖片控制項的 Image 屬性由影像列示控制項圖片的 Index 索引值取得圖片的語法如下： PictureBox1.Image = ImageList1.Images(Index) • 如 Button1 按鈕控制項上面要顯示影像列示控制項ImageList1 的第 2 張圖片，寫法： Button1.ImageList = ImageList1 Button1.ImageIndex = 1

  37. 5.6.2 影像列示控制項的常用屬性 1. Images屬性物件中圖示或圖片的集合。 2. ColorDepth屬性 （預設值 Depth8Bit）影像色彩的位元數，屬性值：Depth4Bit、Depth8Bit、 Depth16Bit、Depth32Bit。 3. ImageSize屬性- 影像集合中影像的大小，最大值為（256,256）。- 影像列示控制項物件適用圖形格式和圖片控制項相同。- 因圖片載入到影像列示控制項後，大小會調整成一樣 的大小（同ImageSize屬性值）- 圖片最好大小一致，比例要相似以免秀圖時變形。

  38. 5.7 Timer 計時器控制項 • Timer 計時器控制項是 VB 所提供一個計時器，可在指定時間間隔時執行特定的動作。 • Tick 事件是 Timer 控制項預設事件，只要設定的間隔時間一到，就會觸動Tick事件，只要將執行的程式碼寫在該事件中即可。 • Tick 事件就像是一個隱形 Do…Loop 迴圈，當間隔時間一到就執行事件一次，若要離開迴圈只要設定 Enabled 屬性為 False 。 • 事件導向程式設計，迴圈可用 Timer 控制項來取代。一般用來做計時、動畫製作等。 • Timer 控制項和 ImageList 控制項一樣，都屬幕後執行控制項，執行時在表單上沒有實體物件。

  39. 5.7.1 Timer常用屬性和事件 1. Enabled屬性(預設值 False)用來設定是否開始啟動Timer控制項計時器。若設為True 表計時器開始計時，以 Interval 屬性值當作週期每週期一到便觸動(執行) Tick 事件一次。若設為 False就停止計時。 2. Interval屬性(預設值 100)用來設定計時器時間間隔(即週期)，以毫秒(千分之一秒)為單位，100 即 0.1秒。若設定Interval = 1000，即代表1000毫秒 = 1秒。Interval 屬性值最大值到64,767，即64.7秒。 3. Tick事件（預設事件）當 Enabled 屬性值為True時，Timer 控制項的計時器啟動，每隔一週期(即Interval屬性值)就會觸動 Tick 事件一次。

  40. Step1 建立輸出入介面

  41. FileName: dogRun.sln 03 Dim start_time As Double 04 Dim flag As Boolean 05 06 Private Sub Form1_Load(ByVal sender ….) Handles MyBase.Load 07 picDog.SizeMode = PictureBoxSizeMode.StretchImage 08 picDog.Image = imgDog.Images(0) 09 Timer1.Interval = 200 10 flag = True 11 End Sub 12 13 Private Sub btnStart_Click(ByVal sender …) Handles btnStart.Click 14 Timer1.Enabled = True 15 start_time = Microsoft.VisualBasic.Timer 16 End Sub 17

  42. 18 Private Sub Timer1_Tick(ByVal sender … ) Handles Timer1.Tick 19 If flag = True Then 20 picDog.Image = imgDog.Images(0) 21 flag = False 22 Else 23 picDog.Image = imgDog.Images(1) 24 flag = True 25 End If 26 End Sub 27 28 Private Sub btnStop_Click(ByVal sender _ ) Handles btnStop.Click 29 Timer1.Enabled = False 30 MsgBox("總共花費" & Microsoft.VisualBasic.Timer - start_time & "秒") 31 End Sub 32 33 End Class

  43. 按對答 看答案 按出題 開始

More Related