تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن مساعدتي لأعرف أين الخطأ هنا ..
#1
السلام عليكم ..

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

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

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

PHP كود :
Public Class Person 
Public Name as string 
Public Function Calculate(ByVal Items1 As DoubleByVal Items2 As Double) As Double
    
Return (Items1+Items2)
    
End Function

Public Function 
Calculate(ByVal Items1 As DoubleByVal Items2 As DoubleByval 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.

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

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

المهم :
عدل أسماء الكلاسات كالتالي :
PHP كود :
Public Class Person

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

    Public Function 
Calculate(ByVal Items1 As DoubleByVal Items2 As DoubleByVal 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 ObjectAs EventArgsHandles Button1.Click

        Dim I1
I2I3 As Double
        I1 
12 I2 13
        List1
.Items.Add(OBJCus1.Calculate(I1I2))

    
End Sub

   
End 
Class 

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة: مالكـ
#3
آوه أنا آسفة أسماء الكلاسات انكتبت هنا بالغلط ولا أساسا هي بهالشكل Customer1 ..
وحتى بتعديلك أخوي مازالت نفس المشكلة متواجدة , فما الحل ؟
ومعليش مافهمت المغزى من هالسطر ؟

PHP كود :
I1 12 I2 13 
الرد }}}}
تم الشكر بواسطة:
#4
حاليا لو كتبت ..

PHP كود :
OBJCus2.name 

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

name' is not a member of 'WindowsApplication1.Customer2

وكأن الـ Name ليست موجودة وهي في الأساس موجودة في Person اللي أنا عملت له انهرتنس !
وأنا رجعت عرفتها بالزر
Dim name as string = txtn.text
وكذا الحال مع بقية العناصر !!
ممكن حل لهالمشكلة ؟ وين الخطأ بالضبط ؟
الرد }}}}
تم الشكر بواسطة:
#5
كود :
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
الرد }}}}
تم الشكر بواسطة:
#6
دي فكرة أخري

كود :
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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 1 33 منذ 42 دقيقة مضت
آخر رد: الماجيك مسعد
  ممكن شرح هذا الكود؟ rafaag777 1 93 أمس, 11:33 PM
آخر رد: الماجيك مسعد
  ممكن تفيدونا في DevExpress adel27 5 534 أمس, 07:31 PM
آخر رد: Atef Bidier
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 66 30-11-16, 08:34 PM
آخر رد: ابو ليلى
  كيفية تغير رسائل الخطأ؟ noway 3 79 11-11-16, 05:37 PM
آخر رد: ممدوح
Question [VB.NET] ممكن احد يشرح لي المطلوب :( a_abdullah 2 85 05-11-16, 08:43 PM
آخر رد: a_abdullah
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 2 72 03-11-16, 09:19 PM
آخر رد: ابراهيم كركوكي
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 123 30-10-16, 10:14 PM
آخر رد: adel27
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 0 56 29-10-16, 08:37 PM
آخر رد: mmm650
  هل ممكن مساعدة من أهل الخبرة sambro 1 87 27-10-16, 11:50 PM
آخر رد: sambro

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم