+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن مساعدتي لأعرف أين الخطأ هنا .. (/showthread.php?tid=2384)
ممكن مساعدتي لأعرف أين الخطأ هنا .. - MONA1990 - 28-03-14
السلام عليكم ..
أنا أشتغل حاليا على برنامج فكرته الأساسية تعتمد على حساب مجموع ثلاث سلع ..
أحتاج لإستخدام خاصية الـ 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.
فـأين الخطأ لو سمحتوا ؟؟
RE: ممكن مساعدتي لأعرف أين الخطأ هنا .. - Abu Ehab - 28-03-14
شــــــوف :
هو الكود منطـــــــــــقيا ســــــــليم
لكن لازم تعرف أنه : من أهم قوانين تعريف الكائنات وحتى المتغيرات هو لا يجوز أن يبدأ برقم مثل ما أنت عامل ...
المهم :
عدل أسماء الكلاسات كالتالي :
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
RE: ممكن مساعدتي لأعرف أين الخطأ هنا .. - MONA1990 - 28-03-14
آوه أنا آسفة أسماء الكلاسات انكتبت هنا بالغلط ولا أساسا هي بهالشكل Customer1 ..
وحتى بتعديلك أخوي مازالت نفس المشكلة متواجدة , فما الحل ؟
ومعليش مافهمت المغزى من هالسطر ؟
PHP كود :
I1 = 12 : I2 = 13
RE: ممكن مساعدتي لأعرف أين الخطأ هنا .. - MONA1990 - 28-03-14
حاليا لو كتبت ..
PHP كود :
OBJCus2.name
بيطلع لي رسالة خطأ ..
name' is not a member of 'WindowsApplication1.Customer2
وكأن الـ Name ليست موجودة وهي في الأساس موجودة في Person اللي أنا عملت له انهرتنس !
وأنا رجعت عرفتها بالزر
Dim name as string = txtn.text
وكذا الحال مع بقية العناصر !!
ممكن حل لهالمشكلة ؟ وين الخطأ بالضبط ؟
RE: ممكن مساعدتي لأعرف أين الخطأ هنا .. - silverlight - 29-03-14
كود :
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 ClassRE: ممكن مساعدتي لأعرف أين الخطأ هنا .. - silverlight - 29-03-14
دي فكرة أخري
كود :
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