Microsoft PowerPoint - OPVB3基本程式設計.ppt

Size: px

Start display at page:

Download "Microsoft PowerPoint - OPVB3基本程式設計.ppt"

钊宣
6 years ago
Views:

1 CH5 繼續寫程式基本程式介紹

2 繼續寫程式! 複習 : 1.VB 程式設計基本步驟? 2. 程式都放在哪些地方? 3. 可變變數 4. 命名好習慣 5. msgbox hello 6. Format(now(), yyyy/mm/dd )

3 基本程式碼包括哪些東西變數宣告 dim x, y 變數指定與運算 y=2*a 副程式與函數 format( ), print x 控制敘述 if, do while 自訂資料型態使用 type 陣列運用 dim A(1 to 10) 其他特定功能指令 ( 檔案存取圖形繪畫屬性方法事件.)

4 基本測試範例做法要測試指令最簡單的方法便是在 form_load 事件中輸入該指令因為 form_load 是一個 form 會最先被執行的指令執行時可能會問你要不要存檔, 你可以選不要, 仍可以執行以後很多指令範例請大家依法炮製

5 變數宣告變數是電腦中可存放變動資料的記憶體位置, 以一個代號表示常用變數種類 1. 可變變數 (variant) 2. 位元組 (byte), 整數 (integer), 常整數 (long) 3. 實數 (Real): a. 單精度實數 (single) b. 倍精度實數 (double) 4. 布林邏輯 (Boolean) 5. 字串 (string) 6. 日期時間 7. 各種物件 (object) 例 : Dim a as integer dim x as integer, y as single 1. 可以逗號分開宣告的變數 2. 沒有 as xxx 一率宣告為 variant

6 事實上, 副程式函數以及各物件名稱命名都可依照此準則變數命名第一個字為英文字母可由英文字母底線 (_) 中文數字組成避免保留字或與屬性物件名稱相同字母大小沒有分別除非必要, 不建議變數使用中文, 以免中英文版本無法互通何變數有誤或不妥? Dim 中文, 1a, a23, a_23, _ss, height

7 Dim examples Dim x, y, z as string X, Y 是 variant, z 是 string 常犯錯誤 Dim a as integer, b as single Dim ss as string, sss as string*20

8 變數範圍 Dim s as string Dim s as string *10

9 變數指定及運算 ( 整數實數與字串 ) 開一個 form 在 form_load 事件內寫左列程式 Dim A as integer A= 3*3+9^2 msgbox A 等式左邊為變數, 右邊為運算 Dim x as single, y as double X=1/3: y=1/3 Msgbox x Msgbox y Dim S as string S= Hello Msgbox s+ How are you? 字串使用雙引號以與數字區別

10 變數指定及運算布林代數 Dim a as boolean, b as boolean A=true B= not ((3>5) or A) Msgbox b Dim a as boolean, I as integer A=true: i=a Msgbox i 布林代數只有 true 和 false 兩種值, 其主要運算有 And or not xor 資料儲存時 boolean 與整數是一樣的 (2 bytes) 只是 true false 保留字對應 : True -1 False 0

11 變數指定及運算日期時間變數 (date) Dim d As Date 與課本不同, 視系統設定 d = #3/11/2003# 所幸 VB 自動辨別 MsgBox Format(d, "yyyy/mm/dd") MsgBox Format(d, "w") MsgBox Weekday(d) MsgBox WeekdayName(Weekday(d)) 其他有用函數 Datediff, dateadd 可運算日期時間的加減 ( 不可隨便加減 )

12 變數指定及運算日期時間變數 (date) 試試看 : 利用 Timer 物件持續顯示離下課還有多少時間 Dim a As Date a = #3/12/ :00:00 PM# Text1 = " 離下課還有 " + CStr(DateDiff("s", Now(), a)) + " 秒 " VB 寫時不能換行若很長想換行寫時, 可用 _( 底線前要留空白 ) Text1 = " 離下課還有 " + _ CStr(DateDiff("s", Now(), a)) + " 秒 "

13 物件變數當工具列上的控制元件拉到 form 上時, 事實上便已代表該元件 ( 物件的存在 ), 因此可以直接使用該物件的名稱 (Name) 為變數物件的屬性是一物件可以放入資料的地方, 引用一物件的屬性是用. 來表示例 : Timer1.interval=1 text1.text= hello (or text1= hello ) print form1.caption 物件的方法也是用. 來表示只是方法無法放入資料, 只能執行也可以自己宣告新的物件產生, 以後再說

14 標示位於不同 form 上的控制元件試試看一個程式往往有好幾個 form, 為了區別不同 form 上的控制元件, 因此用! 來標明控制元件是屬於哪一個 form 例 : 開兩個 form form1 and form2 都放入名為 text1 的 textbox 在 form1 的 form_load 輸入 form1!text1.text= hello form2.show 這是 form 的方法 form2!text1.text= Bye! 不同的 form 中的控制元件名稱可以相同, 在本身 form 中引用到該 form 元件可不需要用! 明確標示

15 專案的啟動物件一個程式一開始是先執行哪一個程式, 可由專案屬性的啟動物件控制一般內定是 form1 也可以設定模組中的 Main 副程式為啟動執行點

16 VB 的程式從屬關係圖啟動物件專案方法. 屬性事件. _ form1 form2 Module1 Module2 Label1 方法 text1.!! 屬性 text2. _ 事件 label1 text1 方法可輸入程式碼 text2.. 屬性可輸入程式碼所宣告變數函數與副程式皆為自用 _ 事件可輸入程式碼可輸入程式碼可宣告共用 [public] 或自用 (private) 變數函數與副程式可輸入程式碼可宣告共用 [public] 或自用 (private) 變數函數與副程式

17 物件與變數引用 1. 模組內的變數設為共用 (public) 則任何地方的程式皆可直接引用 ( 以後詳談 ) 2. 同層次可直接引用其物件名稱, 不同層需透過從屬關係標示引用 (! :form,. :property) 3. 自用變數宣告若與屬性同名, 會以自用變數為主, 原屬性要標明其 form 才可用

18 例在 form1_formload 事件中, 輸入 msgbox height 改輸入 dim height msgbox height 改為 dim height msgbox form1.height

19 範例光電應用中, 光波長與能量的轉換公式為 : 波長 (nm)=1240/ 能量 (ev) 寫兩個 form 分別有標籤為波長及能量的 textbox, 各有一標為轉換的按鈕, 當輸入一表單上的資料並按鈕時, 會同時把另一表單的 textbox 正確轉換出來 Demo: converter.prj 試試看

20 新增模組 (module) 專案管理員 => 右鍵 => 新增模組模組與 form 不同在於, 其為專門放公用變數函數或副程式的地方, 沒有圖形介面示範新增模組幫模組命名 ( 只是好看 )

21 副程式與函數副程式 (subroutine): 可以執行特定計算或處理工作的指令組合事實上, 事件本身便是物件內建的副程式函數 (function) 可以執行特定計算或處理工作, 並回傳特定資料的指令組合事實上, 屬性可說是物件的內建函數副程式或函數的命名方式和變數是一樣的

22 副程式宣告 Sub Subname([ 變數宣告 ]) [ 執行指令 ] end Sub [ 變數宣告 ] 為該副程式將引用到的變數方式和 dim 用法一樣例 : sub print_it(s1 as string, times) 執行該副程式時, 引用方式如下 print_it hello, 2 或 dim s1 as string, I as integer s1= hello : i=2 print_it s1, i 副程式及函數的設計後面會專門敘述在此只是希望大家了解副程式及函數的呼叫方式

23 函數的宣告 Function addit(a, b) as variant addit=a+b end function 呼叫時 : msgbox addit( How are, you ) 函數與副程式宣告方式類似, 只是函數直接由函數本身傳回值

24 幾個常用的函數與副程式 Msgbox Inputbox 變數形態轉換函數 CINT, CLNG, CSTR, CBYTE, CBOOL CVAR, CDATE, CDBL 將任意型態的變數做型態轉換 dim a, b a= 20 :b=30 msgbox a+b ( 不明確易有 bug) msgbox cstr(a)+cstr(b)

25 Msgbox 是一個函數! Msgbox hello 的用法只是函數的另一種用法, 這是因為 VB 可以把函數用副程式方法呼叫 ( 不傳回值 ) A= MsgBox( Are you a fool?", vbyesno, studpid question") 其實是一種指標

26 內定常數事實上是整數不同組功能可相加其他對話窗特性

27 modal: 規定執行方式的

28 示範顯示一個 SystemModal 的 OK cancel 按鈕對話框, 並秀出驚嘆號圖示 Private Sub Form_Load() Dim a a = MsgBox("Are you a fool?", vbexclamation + vbsystemmodal + vbyesno, "Stupid Question") MsgBox a End Sub 在 a 放有返回值顯示按了哪個鈕可以利用程式控制指令來指引按不同鍵後執行不同程式例 : If then ( 先預告一下 )

29 If a=vbyes then msgbox you are a fool. Else msgbox You are not a fool. End if IF 比較 then [ 比較為真時執行敘述 ] Else [ 比較為假時執行敘述 ] End if 若不需要時可略

30 區塊式 IF 兩種 IF 用法 IF 比較 then [ 比較為真時執行敘述 ] Else 可以有很多指令 [ 比較為假時執行敘述 ] End if 條列式 IF IF 比較 then [ 真時執行敘述 ] Else [ 假時執行敘述 ] 只能有一個指令

31 Msgbox 顯示多行訊息若是要顯示的資料需要換行 MsgBox "Hello!" +chr(13) + "My name is mickey!" CR:Carriage return LF: Line feed 對螢幕而言是一樣的但對印表機便不一樣可插入特殊字元 chr(13) 可用 vbcr 取代 CHR(n) 是傳回 ASCII Table 的第 n 個字元的函數, 其他還有常用的內建常數有 : vblf=chr(10) 復位 vbcrlf=chr(13)+chr(10) 換行復位 Vbtab=chr(9) 跳格

32 試試看專業的程式, 在程式被關掉時, 都會問確定要關掉程式嗎? 可選 OK or Cancel 來確認利用程式被關掉時, 會驅動 Form_unload 事件, 該事件的 Cancel 參數若設為 True 則程式會停止被 unload 請利用 msgbox 寫一段這樣的詢問

33 InputBox 函數注意返回的值是字串! 預設值

34 例 Dim a, b a=inputbox( a=? ) b=inputbox( b=? ) msgbox a+b Msgbox val(a)+val(b) 或 Msgbox Csng(a)+csng(b) Val(a) 函數是內建的將數字字串轉換為數值的函數注意 :val( 3+2 )?

35 例子 ( 在 form_load 測試 ) Dim a A=inputbox( What s your _ name?,, Jack ) Msgbox your name is +a Dim a a=inputbox( 請輸入你的身高 (cm): ) msgbox 你的標準體重為 +Cstr(a-110)+ kg

36 很有用的函數 Function EVAL(s as string) as variant Eval.bas 可將數值字串 ( 含運算 ) 轉成數值 Msgbox eval( 2^3+3 ) 11 示範加入模組該程式會放在 vbopdemo2 中

38 HW Read CH 6 7 計算機利用 eval 做一個可執行運算式的計算機運用 mousemove 設計一個類似電流集集棒程式, 並運用 DATEDIFF 計算使用時間為了確認滑鼠有照路線進行, 設置幾個點 (picture box) 是必須通過後變色的全部變色完畢才可計算時間請在一個表單完成

untitled

untitled 說參例邏邏 1. 說 2. 數數 3. 8 4. 理念李龍老立 1. 理料 2. 理料 3. 數料 4. 流邏念 5. 良 6. 讀行行 7. 行例來邏 1. 說說識量 2. 說理類 3. 數數念 4. 令 5. 良 6. 流邏念 7. 說邏理力 1. 2. 3. 4. 5. 列念 1 參 1. ( Visual Basic 例 ) (1)