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 即為一最佳例子）
閱讀完整內容

經得起原始碼資安弱點掃描的程式設計習慣培養(五)_Missing HSTS Header

-
圖片
  接續前幾篇系列 經得起原始碼資安弱點掃描的程式設計習慣培養(一)_OWASP Top 10(十大網站安全風險)_學習寫更安全程式碼的網站推薦 經得起原始碼資安弱點掃描的程式設計習慣培養(二)_8.Insecure Deserialization ：不安全的反序列化漏洞ASP.NET處理方式 經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients 經得起原始碼資安弱點掃描的程式設計習慣培養(四)_1.Injection注入攻擊_SQL Injection)_order by 語句正確參數化套入 最近又遇到被若安掃描到高風險要修正的程式碼啦.... 一看這還真是搞不懂該怎麼修呢 HSTS(HTTP Strict Transport Security)  主要是一份國際標準規格 (RFC 6797) 的網際網路瀏覽安全機制， 用於宣告瀏覽器與伺服器之間通訊方式必須強制採用 TLS/SSL 加密通道。 只要從伺服器端送出一個 Strict-Transport-Security 標頭 (Header) 給瀏覽器，即可告知瀏覽器於未來的某段時間內一律使用 SSL 來和該網站連接 (設定可涵蓋所有子域名網站)， 一旦發生憑證失效情況，使用者將無法再瀏覽該網站，如此一來便可大幅減少中間人攻擊的問題發生。 再更白話一點 HSTS Header 就是負責將 http 強制轉為 https CheckMarx掃碼報告給的說明 ============================================================ 風險: 如果web config沒有設置HSTS表頭、"max-age"(有效期)不足一年， 或沒有設定"includeSubDomains"(包含所有子網域)，可能會使用戶容易遭受中間人攻擊。 發生原因: 許多使用者只要在瀏覽器的網址列輸入網域名稱(Domain Name)即可瀏覽網站， 並沒有輸入協定(Protocol)的名稱。 瀏覽器會自動假設使用者使用的是HTTP協定而不是有加密機制的HTTPS協定。 在第一次發出前往特定網站的請求時，攻擊者可以執行中間人攻擊並將用戶轉址到...
閱讀完整內容