VB.NET

VB.NET RSS

using generic procedures

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: May 2008

Posts: 3

Reputation: uma625010 is an unknown quantity at this point

Solved Threads: 0

uma625010

Offline

Newbie Poster

using generic procedures

Oct 4th, 2008

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Int16, y As Int16
        x = CInt(TextBox1.Text)
        y = CInt(TextBox2.Text)
        add(10, 20)
    End Sub
 
 
    Private Sub add(Of T)(ByVal x As T, ByVal y As T)
        Dim res As T
        res = x + y
        MsgBox(res)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Double, y As Double
        x = CDbl(TextBox1.Text)
        y = CDbl(TextBox2.Text)
 
        add(4.5, 5.6)
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Int16, y As Int16
        x = CInt(TextBox1.Text)
        y = CInt(TextBox2.Text)
        add(10, 20)
    End Sub


    Private Sub add(Of T)(ByVal x As T, ByVal y As T)
        Dim res As T
        res = x + y
        MsgBox(res)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Double, y As Double
        x = CDbl(TextBox1.Text)
        y = CDbl(TextBox2.Text)

        add(4.5, 5.6)
    End Sub

This is the code i used but there is an error " Operator + not defined for datatype 'T' and 'T' ". what is wrong in this. thanks in advance

•

Join Date: Mar 2006

Posts: 121

Reputation: manal is an unknown quantity at this point

Solved Threads: 17

manal

Offline

Junior Poster

Re: using generic procedures

Oct 4th, 2008

•

Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
 Private Sub add(Of T)(ByVal x As T, ByVal y As T)
        Dim res As T
        res = x + y
        MsgBox(res)
    End Sub
Private Sub add(Of T)(ByVal x As T, ByVal y As T) Dim res As T res = x + y MsgBox(res) End Sub

what type T ??

"give only what u willing to receive "

•

Join Date: May 2008

Posts: 3

Reputation: uma625010 is an unknown quantity at this point

Solved Threads: 0

uma625010

Offline

Newbie Poster

Re: using generic procedures

Oct 5th, 2008

•

Originally Posted by manal

what type T ??

T is to accept any data type that we pass as the argument. that is the main advantage of generics in .net. the following code works fine, but doesnot allow the + opertor.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 
 
Private Sub add(Of T)(ByVal x As T, ByVal y As T)
        'Dim res As T
        'res = x + y
        MsgBox("The values are " & x.ToString & ", " & y.ToString)
 
 
    End Sub
 

Private Sub add(Of T)(ByVal x As T, ByVal y As T)
        'Dim res As T
        'res = x + y
        MsgBox("The values are " & x.ToString & ", " & y.ToString)


    End Sub