Visual Basic 2005 (VB.net 2.0) 程式設計 講師 : 戴志華 hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所
第十三章 物件與類別 物件與類別 物件導向程式設計 物件與類別的建立
物件與類別
物件 (object) Ex. 人 屬性 (property) 身高 體重 血型 方法 (method) 走路 跑步 訊息 (message) 交談 事件 (event) 被揍了一拳 物件要能被識別 名字
類別 (class) 類別是一種抽象的資料型態 物件是屬於該種資料型態的實體物件 類別不是物件, 也不能用來執行 透過實體物件透過類別的宣告而產生
物件導向程式設計
物件導向程式設計 物件導向程式設計 (Object-Oriented Programming), 簡稱 OOP 以物件為程式設計的重心, 著重於物件的設計, 處理物件間的溝通 利用類別來描述物件的特性
物件導向程式設計的特性 抽象化 (Abstraction) 封裝 (Encapsulation) 繼承 (Inheritance) 多型 (Polymorphism) 動態繫結 (Dynamic biding)
抽象化 (Abstraction) 只注重物件和外界溝通的行為 與資料內部執行細節沒有關係
封裝 (Encapsulation) 將物件私有的部份封裝在物件的內部, 而使用者只能藉由物件所提供的方法 屬性來操控物件 保持物件的完整性
繼承 (Inheritance) 子類別 A 繼承父類別 B 一個物件 A 得到另一個物件 B 一切特性的過程 A 類別被稱為 : 子類別 (Child Class) 次類別 (Sub Class) 衍生類別(Derived Class) B 類別被稱為 : 父類別 (Parent Class) 超類別 (Super Class) 基礎類別(Base Class)
繼承 (Inheritance) 透過繼承的機制, 可以讓新的類別可以延伸更強的功能 使程式具有再用性和擴充性
多型 (Polymorphism) 又稱 同名異式 使用不同型態的物件, 而使用相同的函數所產生的結果
動態繫結 (Dynamic biding) 呼叫物件的方法 靜態繫結 編譯階段就將物件與方法繫結在一起 動態繫結 程式執行階段才決定繫結
物件與類別的建立
建立類別 (class) Class 類別名 End Class Ex. Class human End Class
命名空間 (Namespace) Namespace 空間名字 Class 類別名 End Class End Namespace Ex. Namespace Hana Class human End Class End Namespace
建立屬性 (property) Private 內屬性名 As 資料型別 Public Property 外屬性名 ( ) As 資料型別 Get Return 內屬姓名 End Get Set (ByVal Value As 資料型別 ) 內屬性名 = Value End Set End Property
建立屬性 (property) Ex. Namespace Hana Class elf Private m_posz As Integer Public Property posz() As Integer Get Return m_posz End Get Set (ByVal Value As Integer) If Value > 1000 Then Value = 1000 Elseif Value < 0 Then Value = 0 End If m_posz = Value End Set End Property End Class End Namespace
建立唯讀 (ReadOnly) 屬性 Private 內屬性名 As 資料型別 Public ReadOnly Property 外屬性名 ( ) As 資料型別 Get Return 內屬姓名 End Get End Property
建立唯寫 (WriteOnly) 屬性 Private 內屬性名 As 資料型別 Public WriteOnly Property 外屬性名 ( ) As 資料型別 Set (ByVal Value As 資料型別 ) 內屬性名 = Value End Set End Property
建立方法 (method) 副程式 Public Sub 方法名 ( 參數 s) End Sub 程序覆載 (Overloading) 建構 (Constructor) 解構 (Destructor)
程序覆載 (Overloading) 多型 Public Overloads Sub 方法名 ( 參數 ) Ex. Public Overloads Sub fly() me.posz = me.posz + 1 End fly Public Overloads Sub fly(byval addz As Integer) me.posz = me.posz + addz End fly
建構 (Constructor) 當程式執行到 New 類別名 時, 會產生實體物件, 並執行物件的建構式 可用來作物件的初始化動作 建構式的名稱一定叫 New Public Sub New( 參數 s) Ex. Public Sub New() me.posz = 0 End fly
解構 (Destructor) 當物件被消滅的時候, 會執行物件的解構式 可用來作物件結束的動作 解構式的名稱一定叫 Finalize Public Sub Finalize( 參數 s) Ex. Public Sub Finalize() Msgbox( Goodbye my friends ) End fly
建立事件 (event) 在類別中只定義事件的名稱與參數 事件程序是在物件使用時才加以定義 事件宣告 Public Event 事件名 ( 參數 s) 事件觸發 RaiseEvent 事件名 ( 參數 s)
建立事件 (event) Ex. Public Event tired() Public Sub fly() If me.posz > 2000 Then RaiseEvent tired() Else me.posz = me.posz + 1 End If End fly
共用成員 類別所產生的物件都可以一起共用的成員 公用成員在類別中只會儲存一份 共用成員不需要經過 new 敘述來建立物件就可以直接透過類別來使用 Shared 變數名稱 As 變數型別
繼承與多型
繼承 (Inheritance) 子類別 A 繼承父類別 B 一個物件 A 得到另一個物件 B 一切特性的過程 A 類別被稱為 : 子類別 (Child Class) 次類別 (Sub Class) 衍生類別(Derived Class) B 類別被稱為 : 父類別 (Parent Class) 超類別 (Super Class) 基礎類別(Base Class)
繼承 (Inheritance) 透過繼承的機制, 可以讓新的類別可以延伸更強的功能 子類別不需要重新撰寫父類別中相同的程式碼, 只需在子類別中呼叫父類別的屬性 方法即可
類別成員的存取限制 Public Private Protect 讓子類別也可以做存取
建立子類別 繼承 (Inheritance) Class 子類別 Inherits 父類別 End Class Ex. Class child Inherits human End Class
子類別存取父類別的方法 屬性 MyBase. 方法 MyBase. 屬性
子類別覆寫父類別的方法 屬性 Overridable: 父類別允許被子類別同名的方法 屬性覆蓋 Protected 內屬性名 As 資料型態 Public Overridable Property 外屬性名 () As 資料型態 Public Overridable Sub 方法名 ( 參數 ) Overrides: 子類別重新定義父類別的方法 Public Overrides Property 外屬性名 () As 資料型態 Public Overrides Sub 方法名 ( 參數 )
多型 (Polymorphism) 又稱 同名異式 使用不同型態的物件, 而使用相同的函數所產生的結果 利用父類別的物件參考來選擇所要執行子類別物件實體的方法
多型 利用父類別的物件參考, 來選擇所要執行子類別物件實體的方法
繼承與多型 Public Class Cal Private m_x As Integer Private m_y As Integer Public Property X() As Integer Get Return m_x End Get Set(ByVal Value As Integer m_x = Value End Set End Property
繼承與多型 Public Property Y() As Integer Get Return m_y End Get Set(ByVal Value As Integer m_y = Value End Set End Property Public Overridable Function Answer() As Integer End Function End Class
繼承與多型 Public Class CalAdd Inherits Cal Public Overrides Function Answer() As Integer Return X+Y End Function End Class
繼承與多型 Public Class CalSub Inherits Cal Public Overrides Function Answer() As Integer Return X-Y End Function End Class
繼承與多型 Public Class Form1 Dim mycal As Cal Dim mycaladd As New CalAdd() Dim mycalsub As New CalSub() Private Sub ButtonAdd_Click( ) Handles mycal = mycaladd End Sub Private Sub ButtonSub_Click( ) Handles mycal = mycalsub End Sub
繼承與多型 Private Sub ButtonCompute_Click( ) Handles mycal.x = Val(textboxX.text) mycal.y = Val(textboxY.text) textboxans.text = mycal.answer End Sub End Class
上機操作 延伸投影片範例, 執行加 減 乘 除
下課! 回家小心 ~