程式語言 教學投影片.

Presentation on theme: "程式語言 教學投影片."— Presentation transcript:

1 程式語言 教學投影片

2 程式基本概念 程式簡介 VB簡介 第一個程式 表單 基本設計 流程控制 內建函數

3 程式簡介 程式語言是用來命令電腦執行各種作業的工具,是溝通的橋樑 程式的類別 發展趨勢 低階語言: 不須翻譯, 機器便能執行, 可讀性較低
機器語言, 組合語言 高階語言: 人類較能接受的文字或符號 FORTRAN, COBOL, BASIC, LISP, PASCAL, C, JAVA 發展趨勢 第四代,第五代語言: 使人類更易與電腦溝通 程式基本概念

4 VB簡介 啟動VB 開始/程式集/ Microsoft Visual Basic 6.0/ Microsoft Visual Basic 6.0 VB的開發環境 即時運算視窗 工具箱 表單配置視窗 屬性視窗 專案視窗 表單視窗 主視窗 程式基本概念

5 第一個程式 如何撰寫程式 分析問題 流程設計 撰寫程式 測試程序 說明文件 依輸出格式來決定輸入的來源與資料
程式的目標,輸入,處理,輸出記錄下來 流程設計 問題解決的步驟 撰寫程式 選擇程式語言,依演算法撰寫程式,程式註解 測試程序 除錯(語法錯誤,邏輯錯誤) 說明文件 便於日後程式之維護 程式基本概念

6 第一個程式(續) 撰寫原則 利用工具 物件屬性 程式碼 利用VB提供的元件,如:按鈕,捲軸… 所有控制項皆有屬性可設定, 如:顏色
在控制項之事件程序中撰寫程式 如: Command1_Click() 程式基本概念

7 第一個程式(續) 程式設計 執行專案 按下主視窗 鈕 執行/開始,或 F5 結束專案 執行/停止 儲存專案 檔案/儲存檔案 程式基本概念

8 表單 表單屬性 表單方法 表單事件 Hide and Show Refresh 程式基本概念 Caption
設定表單的標題，預設的標題是Form1。 Font 設定表單內字體、字型名稱、字型大小。 Form_Activate  Form_Deactivate 當表單為被開啟為使用中視窗時，會觸發此事件。 當表單非使用中表單時，會觸發此事件。 Form_Click  Form_DblClick 使用者以滑鼠點選表單一下時，會觸發此事件。 使用者以滑鼠連按表單兩下時，會觸發此事件。 程式基本概念

9 基本設計 變數 常數 VB運算 常用變數型態:數值,字串,日期變數 Dim變數名稱As資料型態, Dim Name as String
程式執行前先給變數一個預設值，在執行過程中其內容均不改變 VB運算 算術運算符號: + - * / () MOD…. 比較運算符號: >, < , =, >=, <=, <> …. 邏輯運算符號: AND, NOT, OR 程式基本概念

10 流程控制 IF….Then….EndIf IF….Then….Else….EndIf IF….Then….ElseIf….EndIf
Select Case For 迴圈 巢狀迴圈 程式基本概念

11 內建函數 數值函數 字串處理函數 日期時間函數 DATE,TIME,NOW….
ABS(X),INT(X),FIX(X),SGN(X),EXP(X),LOG(X)…. 字串處理函數 UCASE(X$),LEN(X$),INSTR(N,X$,Y$),TRIM(X$)LEFT(X$,N).... 日期時間函數 DATE,TIME,NOW…. 程式基本概念

12 Visual Basic實作-文件中設定字型
加入表籤與文字方塊 加入框架 核取方塊 選項按鈕 撰寫程式碼

13 加入表籤與文字方塊

14 加入框架

15 核取方塊

16 選項按鈕

17 撰寫程式碼 Private Sub OpSize_Click(Index As Integer)
If OpSize(0).Value = True Then Input1.FontSize = 10 ElseIf OpSize(1).Value = True Then Input1.FontSize = 12 ElseIf OpSize(2).Value = True Then Input1.FontSize = 14 ElseIf OpSize(3).Value = True Then Input1.FontSize = 16 End If End Sub

18 Visual Basic實作-通訊錄的製作
加入表籤與文字方塊 加入下拉式清單方塊 撰寫程式碼

19 加入表籤與文字方塊 標籤1 文字方塊1 標籤2 文字方塊2

20 加入下拉式清單方塊 下拉式清單方塊

21 撰寫程式碼 Private Sub Combo1_Click() Tel.Text = Tels(Combo1.ListIndex)
Add.Text = Adds(Combo1.ListIndex) End Sub