VB.NET_委派的語法(Delegate優點使用時機)研究_Low coupling_高內聚_低耦合

-
委派在VB.NET  和  C#中語法的使用示例


委派就是  Methods 或  Function 的 Pointer

 delegate小範本


VB.NET  視窗應用程式


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
    Public Delegate Function PointertoAddFunction(a As Integer, b As Integer) As Integer
    Public Sub New()

        ' 設計工具需要此呼叫。
        InitializeComponent()

        ' 在 InitializeComponent() 呼叫之後加入所有初始設定。

    End Sub
    Public Function Add(x As Integer, y As Integer) As Integer
        Return x + y
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim addPtr As PointertoAddFunction = Nothing
        addPtr = AddressOf Me.Add
        MessageBox.Show(addPtr.Invoke(30, 25).ToString())
    End Sub
End Class

這裡如果是熟悉  C#的朋友ˋ也可以透過
線上的  Code Converter : http://converter.telerik.com/
去做C# 和VB之間的語法轉換

C#版


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace PointerOfMethods_App_CS
{
    public partial class Form1 : Form
    {
        public delegate int PointertoAddFunction(int a, int b);

        public Form1()
        {
            InitializeComponent();
        }

        public int Add(int x, int y)
        {
            return x + y;
        }

        private void button1_Click(object sender, EventArgs e)
        {
            PointertoAddFunction addPtr = null;
            addPtr = this.Add;
            MessageBox.Show(addPtr.Invoke(30, 25).ToString());
        }
    }
}


OK那這裡跟大家詳述當中歷經的幾個細部運作流程


Step1. Declare  delegate
Step2. Create delegate reference
Step3. Point the reference to Add Method
Step4. Invoke the method through delegate object







假設我今天創建一個Class去實踐一個整數四則運算的物件

好降低寫重複Code的問題

原程式碼



================================================================

第一階段. 改寫為Class


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Public Class CalculateHelper
    Public Function Add(a As Integer, b As Integer) As Integer
        Return a + b
    End Function
    Public Function Subtract(a As Integer, b As Integer) As Integer
        Return a - b
    End Function
    Public Function Mul(a As Integer, b As Integer) As Integer
        Return a * b
    End Function
    Public Function Div(a As Integer, b As Integer) As Integer
        Return a / b
    End Function
End Class










這裡你會發現會造成  Heavy coupling (高耦合度)的現象
(物件中的方法和你Client端程式碼有密切的連動性)


每當你的Class中又定義了新方法
你想調用時就必須在主程式外部去跟著牽動配合其設計
每當你去寫針對四則運算這方面的程式時
就必須一直不停重複寫 clc.XXX  .....  去掉用當中所定義的方法
 clc.Add  .....
 clc.Subtract  .....
 clc.Multi .....
 clc.Add  .....
 clc.Div  .....
 clc.Div  .....
 clc.Subtract  .....

是不是很煩....~~~~~~~~
而且當此Class定義的方法有愈來愈多時就會不容易去記
各自方法名稱叫捨麼而沿用
而且每當你Class又擴充了額外新的  Public 方法要到
外部去調用時則可能要更著去照寫


這樣實際上還是沒有提升程式碼的重用性
也不易維護


理想的物件導向程式設計我們希望能實踐
高內聚，低耦合
high cohesion、low coupling

用分子結構來圖樣表示就是如下的概念



物件的程式碼
應該要有很高的比率只和物件內其他有關的程式碼有關聯，
而對外部的程式碼(物件或元件等)的關聯度要愈低愈好
 (最佳的狀態是零耦合)。


目的是讓物件可以獨立發展
而無須依賴外部的任何程式碼
(可以防範  牽一髮動全身)

物件本身可以在不影響其他程式的情況下自由的修改與變化
而外部程式的任何修改也不會影響到物件本身的功能與運作。


======================================================================






【程式碼】

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
    Public Sub New()

        ' 設計工具需要此呼叫。
        InitializeComponent()

        ' 在 InitializeComponent() 呼叫之後加入所有初始設定。

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objMath As CalculateHelper = New CalculateHelper
        Dim OperationNum As Integer = Convert.ToInt16(TextBox3.Text)
        Dim num1 As Integer = Convert.ToInt32(TextBox1.Text)
        Dim num2 As Integer = Convert.ToInt32(TextBox2.Text)
        Dim res As Integer = objMath.getPointer(OperationNum).Invoke(num1, num2)
        lblResult.Text = res.ToString()
    End Sub
End Class


新修改後的CalculateHelper   Class


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class CalculateHelper
    Public Delegate Function PointerCalculate(x As Integer, y As Integer) As Integer

    Public Function getPointer(intOperation As Integer) As PointerCalculate
        Dim objPtr As PointerCalculate = Nothing

        If intOperation = 1 Then
            objPtr = AddressOf Me.Add
        ElseIf intOperation = 2 Then
            objPtr = AddressOf Me.Subtract
        ElseIf intOperation = 3 Then
            objPtr = AddressOf Me.Mul
        ElseIf intOperation = 4 Then
            objPtr = AddressOf Me.Div
        End If
        Return objPtr
    End Function

    Private Function Add(a As Integer, b As Integer) As Integer
        Return a + b
    End Function
    Private Function Subtract(a As Integer, b As Integer) As Integer
        Return a - b
    End Function
    Private Function Mul(a As Integer, b As Integer) As Integer
        Return a * b
    End Function
    Private Function Div(a As Integer, b As Integer) As Integer
        Return a / b
    End Function

End Class






這裡我透過定義1~4數值去讓使用者輸入
明確對應的四則運算種類
1  --> Add
2 --> Subtract
3 --> Multi
4 --> Divide

於後端程式中
會先透過建立好的 objMath  委派
去指向當前使用者是輸入何值間接帶入兩參數
去做對應運算

這樣的好處是不需像剛才寫太多程式
且我在修改後的類別Code中也將  四種運算方法定義改為Private修飾
就是要避免像一開始又在外部   物件實體.Method名

物件實體.Method名
物件實體.Method名
物件實體.Method名
物件實體.Method名
物件實體.Method名
.......N行Code







這次分享到這邊結束喔~~~~
學習
高內聚低耦合層次的設計模式
(PS:  除法的定義  其實不太嚴謹要記得判斷分母為0情形的錯誤例外排除)

學習參考:

中鳥階段-高內聚，低耦合
https://ithelp.ithome.com.tw/articles/10080201




留言

張貼留言

這個網誌中的熱門文章

何謂淨重(Net Weight)、皮重(Tare Weight)與毛重(Gross Weight)

-
圖片
當談到貨物的重量時，往往會分成所謂的淨重(Net Weight)與毛重(Gross Weight)。 會有以下公式關係存在 淨重=毛重-皮重(包裝物的重量) 毛重=淨重+皮重 淨重( Net Weight 縮寫為N.W.) 指物品本身的重量，不包括容器或包裝材料的重量。 凈重是國際貿易中最常見的計重辦法。 例如，如果運輸原材料，原材料的重量就是所運輸貨物的淨重。包裝原材料的容器或包裝不計入淨重。同樣地，當我們考慮一罐豆子時，罐子內所含物品的重量就算作淨重。因此，淨重將包括豆子、罐頭里的任何液體，以及保存豆子所含的物品。 大多數 以重量為計價的貨物買賣 ，採用此計價方法。 若合同中並未明確規範以何種方式計量和計價時，按慣例以凈重計價。 毛重( Gross Weight 縮寫G.W.) 貨物連同它的包裝的重量，是你托運的所有物品的總重量。 皮重(Tare Weight) 指商品外包裝材料的重量(即運輸包裝的重量)，不包括內包裝材料和襯墊物的重量。 比方一個空的貨櫃、容器、或任何包裝材料的重量。 Net Net Weight純淨重 (指從Net Weight中扣除內包裝後的重量) 進出口商品為了因應運輸及消費需求, 一般都有內包裝與外包裝。 一般在買賣合同與信用狀中,通常只要求於裝箱單上註明Gross Weight和Net Weight即可, 但有些L/C 要求 Net Net Weight,大多是海關徵收從量稅時的依據 運輸重量對於航運業或者航空運輸等各自都通用這些術語 為何特別在意重量? 主要就在於會影響像是傳輸安全乘載限制。 就運輸層面(不同方式的運輸) 航空運輸：對機長而言，毛重包括皮重、產品淨重以及飛機、燃料、乘客和機組人員的重量。 公路/鐵路運輸:對於火車車長而言，毛重包括產品淨重、皮重和運輸車輛的重量。 水路航運運輸：對船長而言，毛重就是淨重和皮重之和。 就公司ERP成本角度 成本一般都會採用 "淨重" 主要是因為若用毛重，可能會有輔材不可控因素存在 比方一個 5cm 固定塑膠件，今天用一個 10cm 紙箱測重，明天用一個 100cm 紙箱測重，那可能就容易導致ERP資料比較會失真。 就物流層面來探討 通常還會有一名詞即所謂「實際重量」(Actual Weight) 根據稱重(過磅)所得到的重量，實際重量分為實際毛重(Gross Weig
閱讀完整內容

Architecture(架構) 和 Framework(框架) 有何不同?_軟體設計前的事前規劃的藍圖概念

-
圖片
一個應用程式(軟體) 不管是  互動拍照 也好、 投影也好、車牌偵測... 舞台演唱會後方電視牆的互動應用程序、 粒子特效、3D或2D遊戲  等等 開發者通常都需要在一開始做規劃 ㄟ  假設我今天要寫 跟影像有關 可能需要偵測、可能需要提取前景、可能需要偵測圓形 之類的 我有  emgucv 、AForge.Net、 opencv 等等可以用 但是 假設我今天要做的應用程序是需要有視窗介面的~~ emgucv 跟 C# windows form 媒合性 就很高 而且直接在 visual studio 做開發 opencv 我可能還需要依賴 Qt 之類等等  framework 假設我今天是要寫一個 演唱會電視牆互動粒子特效 可能就會挑   openframeworks  、 processing 、kinect 來寫互動 Achitecture  --->全稱 :  Software Architecture   軟體架構 Achitecture   由好多 framework 組成 軟體架構（Software Architecture）是一種軟體在開發前的設計藍圖， 用來告訴軟體的結構，功能，介面，用法，與其他系統的構連以及資料交換等等規範， 但它並沒有叫你要用什麼方式實作， 因此軟體架構通常會產生文件，圖樣，原型以及規格等， 就是沒有可用的程式碼，因為那不是軟體架構應該有的東西， 就像蓋房子時是給你藍圖，而不是一幢蓋好的房子。 軟體框架（Framework):是一個已經成形的方法，而且有程式碼實體 （例如鋼構工法也是要有鋼材才能做），並且會告訴你要如何使用它 （即 Framework Documentation，MSDN Library 即為一最佳例子）
閱讀完整內容

(2021年度)駕訓學科筆試準備題庫歸納分析_法規是非題

-
圖片
  若是出現 「必須」、「必需」、「...必...」、「應由」、「應先」、「應...」 則很高機率是圈 是非通常只要是如下字眼 「不必」+動詞 、「不需」「不須」、「可不」、「可以不」、「可立即」 有出現或符合的都選叉 (X)1.違規記點又不登記在駕照上，所以可以 不必理會 而任意違反交通規則。 (X)2.發生重大交通事故，為迅速恢復交通，清除現場，可 不必等待 肇事處理機關之指示，即可進行。 (X)3.道路駕駛練習，行車前 不必實施 車輛安全檢查，因為那是駕駛教練的工作。 (X)4.開車前， 不必檢查 機件安全，但在行駛中要隨時注意儀錶功能顯示，確保行車安全。 (X)5.煞車油若經常低於"MIN"線，只要添加即可， 不必到修理廠檢修 。 (X)6.冷卻系統只要副水箱在滿水位，主水箱 不必檢查 也不會有問題。 (X)7.引擎冷卻水內含有防凍液或防銹劑，可 不必更換 。 (X)8.儀錶板上的「燃油油量錶」之指針高度，已經降低至「E」點，橘色的「低油料警示燈」點亮時， 不必急著加油 ，到達目的地後再行補充燃油即可。 (X)9.有安全氣囊裝備的汽車， 不必繫 安全帶。 (X)10.煞車時有異音，是正常的情況， 不必檢修 。 (X)11.汽車定期檢驗 不必檢驗 車輛故障標誌，所以隨車不一定要帶車輛故障標誌。 (X)12.開車時 不必理會 義交之指揮，一切以號誌為主。 (X)13.汽車經過隧道，因隧道內燈光明亮視線良好，為省電可 不必開亮 頭燈。 (X)14.駕駛人只求技術優良，對遵守交通規則 不必太重視 。 (X)15.在開車前， 不必檢查 機件，以免耽誤行車時間。 (X)16.遇幼童專用車、校車、身心障礙者用特製車或教練車， 不必禮讓 。 (X)17.行車 不必攜帶 隨車工具。 (X)18.行車起駛前進， 不必顯示 方向燈。 (X)19.汽車通過鐵路平交道，前後兩車間， 不必保持 距離。 (X)20.夜間將車輛停放在無燈光設備及照明不清之道路時，亦 不必顯示 停車燈光或反光標識。 (X)21.在夜間或有霧靄、雨雪、風沙及晝晦時，把車輛停在路旁， 不必顯示 停車燈光或反光標識。 (X)22.汽車駕駛人，僅需具有優良駕駛技術， 不需 具備急救的常識和技能。 (X)23.汽車車身、引擎、底盤、電系等重要設備變更或調換時， 不需 向公路主管機關申請臨時檢驗。
閱讀完整內容