Microsoft Word - AEL0153-序

Size: px

Start display at page:

Download "Microsoft Word - AEL0153-序"

楣项
4 years ago
Views:

1 PREFACE 序希望寫一本講解 Visual Basic 的書 1. 擁有能引起學習者興趣的內容 2. 包含可應用於生活上的實用範例 3. 涵蓋升學考試應考的內容及題型且內容安排上, 能方便學生學習及老師教學, 這是寫這本書的動機及對自己的期許 VB 易學易用的特性, 加上 Express 版本的釋出, 使得 VB 成為一般程式設計學習者的首選但常發現很多的初學者, 雖然很努力的把個別指令都弄清楚了, 卻沒有辦法把多個指令綜合運用也有部份的初學者, 迷失在許多偉大精采的程式裡, 陷入看不懂程式或者程式無法執行, 卻又不知如何改起的窘境中因此, 這本書在內容選擇及次序編排上, 希望使初學者容易上手, 學習的過程中能感受到趣味性及實用性, 學完後能有成就感, 是我們努力的目標本書, 前半段入門篇, 以簡單的範例及詳細的說明, 引導讀者快速建立程式語言的基本概念 ; 而後半段, 利用實例演練篇, 提供許多實用有趣的程式, 希望能引起讀者的興趣, 進而透過模仿及修改範例程式, 引導讀者熟悉程式設計的技巧, 培養出程式設計實力, 進而寫出自己的程式來透過這樣的學習引導模式, 期望能對初學者有所助益, 開啟學習程式語言的方便之門本書的完成, 要感謝很多好朋友碁峰資訊以及學校工作的夥伴們, 從這本書的寫作計劃開始, 一路上給我們很多協助與寶貴意見, 再加上家人們的體諒與支持, 使得這本書得以順利完成, 在此謝謝大家 Idea3 小組 : 江漢榕黃建霖吳進北 2014/6/10 ii

2 CHAPTER 好用的新工具 My My 簡介 My.Resource My.Application My.User My.Computer My 是一個好用的新工具, 提供簡單而直覺的存取方式, 讓 Visual Basic 使用者存取各種.NET Framework 類別, 並與電腦應用程式設定資源等互動, 節省大量的 Coding 時間 9-1 My 簡介學習重點利用一行指令寫入檔案, 簡介好用的新工具 My 了解 My 新工具的架構首先我們用一行指令完成寫入檔案動作, 來介紹這個好用新工具

$EventArgs) Handles MyBase.Load 3 My.Computer.FileSystem.WriteAllText("C:\Test.$ $txt", " 快樂生活 ", True) 4 End Sub 5 End Class 程式其實只有第 3 行一行指令, 把快樂生活字串, 寫入 "C:\Test.$

3 學會寫程式 Visual Basic 1 Public Class Form1 2 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 3 My.Computer.FileSystem.WriteAllText("C:\Test.txt", " 快樂生活 ", True) 4 End Sub 5 End Class 程式其實只有第 3 行一行指令, 把快樂生活字串, 寫入 "C:\Test.txt" 中, 真是方便 My 功能涵蓋大部份的常用功能, 其架構如下 : 9-2 My.Resource 學習重點從 My.Resource 中讀取相關資源顯示 MY.RESOURCE 中的圖片 9-2

好用的新工具 My 9 1 Public Class Form1 2 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 3 PictureBox1.Image = My.Resources.Lighthouse 4 PictureBox2.Image = My.Resources.Tulips 5 End Sub 6 End Class 第三列第四列程式, 利用 My.

4 好用的新工具 My 9 1 Public Class Form1 2 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 3 PictureBox1.Image = My.Resources.Lighthouse 4 PictureBox2.Image = My.Resources.Tulips 5 End Sub 6 End Class 第三列第四列程式, 利用 My.Resources 指令讀取資源中 Lighthouse Tulips 圖片, 放入 PictureBox1.Image 及 PictureBox2.Image 中 9-3 My.Application 學習重點使用 My.Application 存取應用程式, 相關資訊透過 My.Application, 程式設計人員, 可以很容易的存取目前應用程式的相關屬性事件及方法顯示軟體版本及名稱 1 Public Class Form1 2 Dim str1 = "" 3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 4 Me.Hide() 5 6 str1 = " 軟體版本 :" & _ 7 My.Application.Info.Version.ToString & vbnewline 9-3

學會寫程式 Visual Basic 8 str1 = str1 & " 軟體名稱 :" & _ 9 My.Application.Info.Title & vbnewline 10 11 MsgBox(str1) 12 End 13 End Sub 14 End Class 第 7 列 My.Application.Info.Version 顯示軟體版本第 9 列 My.

5 學會寫程式 Visual Basic 8 str1 = str1 & " 軟體名稱 :" & _ 9 My.Application.Info.Title & vbnewline MsgBox(str1) 12 End 13 End Sub 14 End Class 第 7 列 My.Application.Info.Version 顯示軟體版本第 9 列 My.Application.Info.Title 顯示軟體名稱 9-4 My.User 學習重點使用 My.User 讀取使用者相關資訊值測試目前使用者是否為系統管理員 1 Public Class Form1 2 Dim str1 = "" 3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 4 Me.Hide() 5 str1 = " 是否為系統管理員 :" & _ 6 IIf(My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator), " 是 ", " 否 ") & vbnewline 7 MsgBox(str1) 8 End 9 End Sub 10 End Class 9-4

遊戲程式設計 13 13-3 環形賽車計時賽學習重點 Random ListBox

6 遊戲程式設計環形賽車計時賽學習重點 Random ListBox 物件應用圖像在畫面位置的控制技巧繪圖指令活用體育頻道的賽車節目, 相當受歡迎, 我們倒是可利用模擬賽車來練習一下繪圖指令, 及圖像在畫面位置的控制程式起始後, 按下開始按鈕, 車子往第一個彎道前進畫面按開始按鈕後車子經過第一個彎道後的情形 13-13

7 學會寫程式 Visual Basic 車子經過第二個彎道, 往第三個彎道前進情形車子經過第三個彎道, 往起跑點前進情形跑完三回合後, 成績排名如圖所示 13-14

遊戲程式設計 13 物件說明 ListBox1 Label1 Label2 記錄各回合歷史成績用顯示目前進行中賽程的跑完圈數顯示目前進行中賽程的累計秒數 1

Integer = 352 5 Dim directflag As Char = "R" 6 Dim bimage As Image 7 Dim accturn As

11 12 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.

8 遊戲程式設計 13 物件說明 ListBox1 Label1 Label2 記錄各回合歷史成績用顯示目前進行中賽程的跑完圈數顯示目前進行中賽程的累計秒數 1 Public Class Form1 2 Dim bx, by As Integer 3 Dim startx As Integer = 40 4 Dim starty As Integer = Dim directflag As Char = "R" 6 Dim bimage As Image 7 Dim accturn As Integer 8 Dim accsec As Single 9 Dim firstflag As Boolean = True 10 Dim w1 As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 13 Randomize() 14 Timer1.Interval = accturn = 0 17 accsec =

9 學會寫程式 Visual Basic 18 Label1.Text = " 跑完 " & accturn & " 圈 " 19 Label2.Text = " 累計秒數 :" & accsec ListBox1.Sorted = True 22 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System. EventArgs) Handles Timer1.Tick Me.Refresh() If bx > 490 And by > 330 Then 29 directflag = "U" 30 End If 31 If bx > 490 And by < 30 Then 32 directflag = "L" 33 End If 34 If bx < 30 And by < 30 Then 35 directflag = "D" 36 End If 37 If bx < 30 And by > 330 Then 38 directflag = "R" 39 accturn = accturn Label1.Text = " 跑完 " & accturn & " 圈 " 41 bx = If accturn >= 2 Then 43 Button1.Visible = True 44 ListBox1.Items.Add(accSec.ToString) 45 Timer1.Enabled = False 46 End If 47 End If go1(directflag) accsec = accsec + Timer1.Interval / Label2.Text = " 累計秒數 :" & accsec 53 End Sub 54 Sub go1(byval directflag) 55 Dim generator As New Random 56 Dim brv As Integer 57 brv = generator.next(1, 30) 58 If directflag = "R" Then 59 bx = bx + brv 13-16

10 遊戲程式設計 w1 = End If 62 If directflag = "U" Then 63 by = by - brv 64 w1 = End If 66 If directflag = "L" Then 67 bx = bx - brv 68 w1 = End If 70 If directflag = "D" Then 71 by = by + brv 72 w1 = End If 74 Dim temstr As String = "..\..\Car" & directflag & ".gif" 75 bimage = Image.FromFile(temStr) 76 Dim g As Graphics = Me.CreateGraphics g.drawimage(bimage, bx, by, w1, 72) 79 End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms. PaintEventArgs) Handles Me.Paint 82 Me.Size = New Size(700, 500) 83 Dim g As Graphics = e.graphics 84 g.drawrectangle(new Pen(Color.Blue, 2), , , , ) 85 If firstflag = True Then 86 bimage = Image.FromFile("..\..\carR.gif") 87 bx = startx 88 by = starty 89 g.drawimage(bimage, bx, by, 236, 65) 90 firstflag = False 91 End If 92 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 95 Timer1.Enabled = True 96 Button1.Visible = False 97 Me.Form1_Load(sender, e) 98 End Sub 99 End Class 第 2 行定義的車子的 x, y 位置 13-17

11 學會寫程式 Visual Basic 第 3-4 行定義車子開始的 x,y 位置第 5 行定義 directflag, 用來記錄車子的前進方向第 6 行定義 bimage 用來擺放車子圖形第 7-8 行的 accturn accsec 用來記錄目前已跑完圈數及目前已耗費的時間第 9 行的 firstflag 用來判斷是否第一次執行 Form1_Paint 副程式第 10 行的 w1 用來設定車子圖形的寬度, 因為往右往左與往上及往下, 採用不同寬度圖形表示第 13 行利用 Randomize() 指令, 強制以作業系統現在時間來當做新的亂數種子, 達成每次不同的亂數出現值第 14 行設定 Interval = 50 讓車子每 100/1000 即 1/10 秒動作一次第 21 行的 ListBox1.Sorted = True 讓成績記錄, 會依時間由短而長做排序第 26 行運用 Me.Refresh() 達成清除上一次位置車子的目的第行處理轉彎動作第處理經過原始起點動作第行處理跑完二圈即一回合的停止賽事進行及記錄成績動作第 49 行呼叫 go1() 副程式, 處理前進動作第行處理實際前進動作第行決定前進距離第行依照方向, 決定實際移動方向的移動值第 74 行決定繪出的是往那個方向前進的車子圖形第 78 行實際畫出行進中車子圖形第 84 行指令, 繪出環形賽道第行處理一開始時, 車子就定位動作第 96 行讓車子在繞圈行進中, 開始按鈕看不見, 無法按下開始按鈕

12 遊戲程式設計請將賽事改為二部車子同場競爭模式 2. 請將賽事改為三部車子同場競爭模式 13-4 簡易模擬飛行學習重點鍵盤控制練習 ImageList 應用熟悉模擬概念的引進模擬飛行是熱門的電腦遊戲之一, 簡易的模擬程式, 沒有想像中難這個章節裡, 我們就利用它, 來練習一下鍵盤控制及畫面處理的幾個小技巧程式起始畫面 13-19

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1