Add a multicast delegate that holds all four procedures. Call the procedures usi

Question

Add a multicast delegate that holds all four procedures. Call the procedures using the DynamicInvoke() method.

If you could do this to the below program, it would be much appreciated.


Module Module1
Varabiles
F1 as integer
F2 as integer
F3 as integer

Sub
Dim Multiply1 As myDelegate
Multiply1 = New myDelegate(AddressOf Multiply)
Multiply1()

Dim Subtract1 As myDelegate
Subtract1 = New myDelegate(AddressOf Subtract)
Subtract1()

Dim Addition1 As myDelegate
Addition1 = New myDelegate(AddressOf Addition)
Addition1()

Dim Divide1 As myDelegate
Divide1 = New myDelegate(AddressOf Divide)
Divide1()
Console.ReadKey()
End Sub

Sub
Console.WriteLine("Enter your first number")
F1 = Console.Read()
Console.WriteLine("Enter your Second Number")
F2 = Console.Read()
End Sub

Sub Multiply()
Result = F1 * F2 = F3
Console.WriteLine(F3)
F3 is 0
End Sub

Sub Subtract()
Result = F1 - F2 = F3
Console.WriteLine(F3)
F3 is 0
End Sub

Sub Addition()
Result = F1 + F2 = F3
Console.WriteLine (F3)
F3 is 0
End Sub

Sub Divide()
Result = F1 / F2 F3
Console.WriteLine(F3)

End Sub
End Module

Explanation / Answer

Private Delegate Sub ArithmeticDelegate() Sub Main() Dim objMyClass0 As New MyClass0() objMyClass0.MyFunction0() Dim objMyClass1 As New MyClass1() objMyClass1.MyFunction1() Dim objMyClass2 As New MyClass2() objMyClass2.MyFunction2() Dim objMyClass3 As New MyClass3() objMyClass3.MyFunction3() Dim objMyClass4 As New MyClass4() objMyClass4.MyFunction4() Dim Practice As ArithmeticDelegate Practice = New ArithmeticDelegate(AddressOf Separation) Practice() Practice = New ArithmeticDelegate(AddressOf Addition) Practice() Practice = New ArithmeticDelegate(AddressOf Subtraction) Practice() Practice = New ArithmeticDelegate(AddressOf Multiplication) Practice() Practice = New ArithmeticDelegate(AddressOf Division) Practice() End Sub Sub Separation() Console.WriteLine("----------------------------") End Sub Sub Addition() Console.WriteLine("Addition: 12") End Sub Sub Subtraction() Console.WriteLine("Subtraction: 2") End Sub Sub Multiplication() Console.WriteLine("Multiplication: 35") End Sub Sub Division() Console.WriteLine("Division: 1.4") End Sub Class MyClass0 Public Sub MyFunction0() System.Console.WriteLine("The following is a list of the four basic arithmetic operations performed with the numbers 7 and 5.") End Sub End Class Class MyClass1 Public Sub MyFunction1() System.Console.WriteLine("Addition: 12") End Sub End Class Class MyClass2 Public Sub MyFunction2() System.Console.WriteLine("Subtraction: 2") End Sub End Class Class MyClass3 Public Sub MyFunction3() System.Console.WriteLine("Multiplication: 35") End Sub End Class Class MyClass4 Public Sub MyFunction4() System.Console.WriteLine("Division: 1.4") End Sub End Class

Related Questions

Navigate

• Browse (All)
• Browse A
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.