[MONA1990]

السلام عليكم ..

أنا أشتغل حاليا على برنامج فكرته الأساسية تعتمد على حساب مجموع ثلاث سلع ..
أحتاج لإستخدام خاصية الـ Inheritance و الـ Overloade ..
في البرنامج ثلاثة Classes
الرئيسي Person والمشتقان منهم 1Customer و 2Customer

حيث الأول مسموح له بشراء سلعتين والثاني ثلاث سلع .. وهنا حققنا الـ Overloading
بالإضافة لمعلومات أخرى كالاسم وغيره ..

الكود الذي كتبته بشكل مبسط ..

PHP كود :

Public Class Person 
Public Name as string 
Public Function Calculate(ByVal Items1 As Double, ByVal Items2 As Double) As Double
    Return (Items1+Items2)
    End Function

Public Function Calculate(ByVal Items1 As Double, ByVal Items2 As Double, Byval Items3 as double) As Double
  Return ( Items1+Items2+items3)
    End Function

 Public Class 1Customer
        Inherits Person
    End Class

    Public Class 2Customer
        Inherits Person
        Public Num as String
    End Class


Class form1 
dim OBJCus1 as new 1Customer
dim OBJCus2 as new 2Customer 


وعلى الزر

[php]

Dim I1, I2, I3 as double
list1.items.add ( OBJCus1.Calculate (I1,I2)

وللكود طبعا بقية وتفاصيل أخرى ..
لكن الأهم عندي يظهر لي في الجزئية اللي حددتها بالأحمر خطأ ورسالة ..
The method or operation is not implemented.

فـأين الخطأ لو سمحتوا ؟؟

[Abu Ehab]

شــــــوف :
هو الكود منطـــــــــــقيا ســــــــليم
لكن لازم تعرف أنه : من أهم قوانين تعريف الكائنات وحتى المتغيرات هو لا يجوز أن يبدأ برقم مثل ما أنت عامل ...

المهم :
عدل أسماء الكلاسات كالتالي :

PHP كود :

Public Class Person

    Public Name As String
    Public Function Calculate(ByVal Items1 As Double, ByVal Items2 As Double) As Double
        Return (Items1 + Items2)
    End Function

    Public Function Calculate(ByVal Items1 As Double, ByVal Items2 As Double, ByVal Items3 As Double) As Double
        Return (Items1 + Items2 + items3)
    End Function
End Class 


PHP كود :

Public Class _1Customer
    Inherits Person
End Class 


PHP كود :

Public Class _2Customer
    Inherits Person
    Public Num As String
End Class 


PHP كود :

Public Class Form1
    Dim OBJCus1 As New _1Customer
    Dim OBJCus2 As New _2Customer



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim I1, I2, I3 As Double
        I1 = 12 : I2 = 13
        List1.Items.Add(OBJCus1.Calculate(I1, I2))

    End Sub

   
End Class 


[MONA1990]

آوه أنا آسفة أسماء الكلاسات انكتبت هنا بالغلط ولا أساسا هي بهالشكل Customer1 ..
وحتى بتعديلك أخوي مازالت نفس المشكلة متواجدة , فما الحل ؟
ومعليش مافهمت المغزى من هالسطر ؟

PHP كود :

I1 = 12 : I2 = 13 


[MONA1990]

حاليا لو كتبت ..

PHP كود :

OBJCus2.name 


بيطلع لي رسالة خطأ ..

name' is not a member of 'WindowsApplication1.Customer2

وكأن الـ Name ليست موجودة وهي في الأساس موجودة في Person اللي أنا عملت له انهرتنس !
وأنا رجعت عرفتها بالزر
Dim name as string = txtn.text
وكذا الحال مع بقية العناصر !!
ممكن حل لهالمشكلة ؟ وين الخطأ بالضبط ؟

[silverlight]

كود :

Public Class Form1

    Private first As FirstCustomer
    Private second As SecondCutomer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        first = New FirstCustomer
        second = New SecondCutomer

        Dim item1 As Double = 2
        Dim item2 As Double = 4
        Dim item3 As Double = 6

        Me.ListBox1.Items.Add(first.Calculate(item1, item2))
        first.Name = "ahmed"
        Me.ListBox1.Items.Add(first.Name)
    End Sub

End Class

Public Class Person
    Private _name As String

    Public Sub New()
        Me._name = Nothing
    End Sub

    Public Property Name As String
        Get
            Return Me._name
        End Get
        Set(value As String)
            Me._name = value
        End Set
    End Property

    Public Function Calculate(firstItem As Double, SecondItem As Double)
        Return firstItem + SecondItem
    End Function

    Public Function Calculate(firstItem As Double, SecondItem As Double, thirdItem As Integer)
        Return firstItem + SecondItem + thirdItem
    End Function

End Class

Public Class FirstCustomer
    Inherits Person
End Class

Public Class SecondCutomer
    Inherits Person

    Private _number As String

    Public Sub New()
        Me._number = Nothing
    End Sub

    Public Property Number As String
        Get
            Return Me._number
        End Get
        Set(value As String)
            Me._number = value
        End Set
    End Property

End Class

[silverlight]

دي فكرة أخري

كود :

Public Class Form1

    Private first As Person
    Private second As Person

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        first = New Person
        second = New Person

        Dim item1 As Double = 2
        Dim item2 As Double = 4
        Dim item3 As Double = 6

        Me.ListBox1.Items.Add(first.Calculate(item1, item2))
        first.Name = "Ahmed"
        Me.ListBox1.Items.Add(first.Name)

        Me.ListBox1.Items.Add(second.Calculate(item1, item2 + item3))
        second.Name = "Ibrahim"
        second.Number = "1000"
        Me.ListBox1.Items.Add(second.Name)
        Me.ListBox1.Items.Add(second.Number)

    End Sub

End Class

Public Structure Person

    Public Name As String
    Public Number As String

    Public Function Calculate(firstItem As Double, SecondItem As Double)
        Return firstItem + SecondItem
    End Function

    Public Function Calculate(firstItem As Double, SecondItem As Double, thirdItem As Integer)
        Return firstItem + SecondItem + thirdItem
    End Function

End Structure