程式語言

Download Report

Transcript 程式語言

程式語言
教學投影片
程式基本概念
程式簡介
 VB簡介
 第一個程式
 表單
 基本設計
 流程控制
 內建函數

程式簡介


程式語言是用來命令電腦執行各種作業的工具,
是溝通的橋樑
程式的類別

低階語言: 不須翻譯, 機器便能執行, 可讀性較低


高階語言: 人類較能接受的文字或符號


機器語言, 組合語言
FORTRAN, COBOL, BASIC, LISP, PASCAL, C, JAVA
發展趨勢

第四代,第五代語言: 使人類更易與電腦溝通
程式基本概念
VB簡介

啟動VB


開始/程式集/ Microsoft Visual Basic 6.0/ Microsoft
主視窗
Visual Basic 6.0
VB的開發環境
專案視窗
工具箱
表單視
窗
即時運算
視窗
屬性視窗
表單配置
視窗
程式基本概念
第一個程式

如何撰寫程式

分析問題



流程設計


選擇程式語言,依演算法撰寫程式,程式註解
測試程序


問題解決的步驟
撰寫程式


依輸出格式來決定輸入的來源與資料
程式的目標,輸入,處理,輸出記錄下來
除錯(語法錯誤,邏輯錯誤)
說明文件

便於日後程式之維護
程式基本概念
第一個程式(續)

撰寫原則

利用工具


物件屬性


利用VB提供的元件,如:按鈕,捲軸…
所有控制項皆有屬性可設定, 如:顏色
程式碼
在控制項之事件程序中撰寫程式
 如: Command1_Click()

程式基本概念
第一個程式(續)

程式設計

執行專案
按下主視窗
鈕
 執行/開始,或 F5


結束專案
按下主視窗
 執行/停止


鈕
儲存專案

檔案/儲存檔案
程式基本概念
表單


表單屬性
設定表單的標題,預設的標題是Form1。
Font
設定表單內字體、字型名稱、字型大小。
表單方法



Caption
Hide and Show
Refresh
表單事件
Form_Activate
Form_Deactivate
當表單為被開啟為使用中視窗時,會觸發此事件。
當表單非使用中表單時,會觸發此事件。
Form_Click
Form_DblClick
使用者以滑鼠點選表單一下時,會觸發此事件。
使用者以滑鼠連按表單兩下時,會觸發此事件。
程式基本概念
基本設計

變數



常數


常用變數型態:數值,字串,日期變數
Dim變數名稱As資料型態, Dim Name as String
程式執行前先給變數一個預設值,在執行過程中其內
容均不改變
VB運算



算術運算符號: + - * / () MOD….
比較運算符號: >, < , =, >=, <=, <> ….
邏輯運算符號: AND, NOT, OR
程式基本概念
流程控制
IF….Then….EndIf
 IF….Then….Else….EndIf
 IF….Then….ElseIf….EndIf
 Select Case
 For 迴圈
 巢狀迴圈

程式基本概念
內建函數

數值函數


字串處理函數


ABS(X),INT(X),FIX(X),SGN(X),EXP(X),LOG(X)….
UCASE(X$),LEN(X$),INSTR(N,X$,Y$),TRIM(X$)L
EFT(X$,N)....
日期時間函數

DATE,TIME,NOW….
程式基本概念
Visual Basic實作-文件中設定字型
加入表籤與文字方塊
 加入框架
 核取方塊
 選項按鈕
 撰寫程式碼

加入表籤與文字方塊
加入框架
核取方塊
選項按鈕
撰寫程式碼
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
Visual Basic實作-通訊錄的製作
加入表籤與文字方塊
 加入下拉式清單方塊
 撰寫程式碼

加入表籤與文字方塊
標籤1
標籤2
文字方塊1
文字方塊2
加入下拉式清單方塊
下拉式清單方塊
撰寫程式碼
Private Sub Combo1_Click()
Tel.Text = Tels(Combo1.ListIndex)
Add.Text = Adds(Combo1.ListIndex)
End Sub