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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح لطريقة ربط أكثر من جدول اكسس ؟ أبووسم 5 115 منذ 2 ساعة مضت
آخر رد: أبووسم
  ممكن احد يساعدني في التكست بوكس محمد بوقزاحة 4 93 01-02-17, 07:04 PM
آخر رد: محمد بوقزاحة
  ممكن كود البوتن بالشكل ده MOSTAFA.KAMEL 7 208 24-01-17, 02:14 AM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 175 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 72 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] معني رسالة الخطأ يسرى7 10 369 16-01-17, 01:08 AM
آخر رد: يسرى7
  كيفية تغير رسائل الخطأ؟ noway 4 223 12-01-17, 02:05 AM
آخر رد: يسرى7
  ممكن يا جماعة سورس كود لبرنامج إدارة كافيه المبرمج العبقري 0 107 01-01-17, 01:31 PM
آخر رد: المبرمج العبقري
  ممكن كود الفرق بين وقتين Riad Soft 3 1,949 18-12-16, 08:48 PM
آخر رد: gigantic
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 464 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد

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


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