مساعده فى برمجة فئه و الاشتقاق منها

للتطوير وعرضوا عليك جزاً من

البرنامج الذي يعرض الاصناف (CLASS) المستخدمة في هذا البرنامج لتقييمه وإبداء الرأي في إمكانية التطوير .

طبعاً مثال جيد للمبتدئين للتعامل مع البرمجه الشيئيه

هل حاولت ان تحل هذا المثال ؟

اعطنا ما قمت به من تجارب حتى و إن كانت خاطئه لاننا لن نعطيك الحل مباشره و إلا ما فائدة البرمجه إذاً

الاخ طارق ابراهيم ... الف شكر للنظر للموضوع ..

وانا الان سوف اقوم بوضع الكود الذي حاولت فية ان انفذ المهمة المطلوبه مني واللذي لم يطبق معي ...

Option Strict On
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim employee As String
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim emp_data As String
        Dim emp_name, emp_address, emp_gop, emp_degree As String
        Dim emp_sal As Double
        emp_name = TextBox1.Text
        emp_address = TextBox2.Text
        emp_gop = TextBox3.Text
        emp_degree = TextBox4.Text
        emp_sal = CDbl(TextBox5.Text)
        employee(ListBox1) = emp_data
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        ListBox1.Items.Add("تمت إضافة إسم الموظف")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
Class emp_data
    Private emp_name As String
    Private emp_address As String
    Private emp_gop As String
    Private emp_degree As String
    Private emp_sal As Double
    Public Property name() As String
        Get
            Return emp_name
        End Get
        Set(ByVal value As String)
            emp_name = value
        End Set
    End Property
    Public Property emp_address() As String
        Get
            Return emp_address
        End Get
        Set(ByVal value As String)
            emp_address = value
        End Set
    End Property
    Public Property emp_gop() As String
        Get
            Return emp_gop
        End Get
        Set(ByVal value As String)
            emp_gop = value
        End Set
    End Property
    Public Property emp_degree() As String
        Get
            Return emp_degree
        End Get
        Set(ByVal value As String)
            emp_degree = value
        End Set
    End Property
    Public Property sal() As String
        Get
            Return emp_sal
        End Get
        Set(ByVal value As String)
            emp_sal = value
        End Set
    End Property

End Class
Public WriteOnly Property midgrade() As String
    Set(ByVal value As String)
        emp_midterm = value
    End Set
End Property
Public WriteOnly Property final() As String
    Set(ByVal value As String)
        emp_final = value
    End Set
End Property
must inhert class shape
Dim manger_data As String
public property manger_ data() as string
    Get
        Return manger_ data
    End Get
    Set(ByVal value As Double)
        manger _ data = value
    End Set
End Property
MustOverride Function dn() As Double
MustOverride Function dne() As String
MustOverride Function drd() As Double
end class
Class dn
    in herits shap overides function name ()as double
    return dn
    end function
End Class
Class dne
    in herits shap overides function name ()as string
    return dne
    end function

End Class


Class drd
    in herits shap overides function name ()as double
    return drd
    end function

End Class

بعد إذنك قمت بحذف الجزء الخاص بال Form Designer Generator لانه لا يفيدنا هنا

الاخطاء الحاليه كما ارى فى عجاله هى :

1- استخدامك اسماء member vriables كاسماء للخواص و هذا خطأ

2- استخدام الكلمات الاساسيه اعتقد ان به اخطاء كتابيه syntax error يعنى must inherits لا يوجد مسافه يعنى المفروض تكتبها mustinherits

3- انت استخدمت اسماء الفئات drd و dn و dre كاسماء طرق (لا ينفع) و عملت لهم overrride كمان

كان المفروض ان تقوم بانشاء فئه باسم يدل على وظيفتها ثم تضع الدوال و الطرق التى تريدها و فى حالة عمل overrriding لهذه الدوال (لو قمت بالاشتقاق) كان عليك ان تحدد فى ال base class ان هذه الطرق overridable

اعتقد انك تحتاج لمراجعة الجزء الخاص بال oop من الاول

(ربما اكون انا المخطئ و محتاج اذاكر من اول و جديد من يعلم)

مرفق class لل emp_data يمكنك الاشتقاق منه لتكوين فئات جديده كما تشاء و ساحاول تعديله و تكملة باقى الفئات لاحقاً

emp_data.vb

هذا مثال بسيط ايضاً قد يحتوى على اخطاء و لكنه يفى بالغرض (يبدو ان هناك متخلف قام بكتابته كالمعتاد معى :D )

empclass.rar

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

الف شكر لك يااخ طارق ابراهيم على الجهود المبذوله .... والشكر والله لايكفي .......

انا استخدمت الكود اللذي وضعته وهو طبعا صحيح والفورما طبقت معي الا انه في نقطتين او ملاحظتين :

1/ بعد ادخال البيانات في التكست الاسم والعنوان . الخ اضغط زر ادخال بيانات الموظفين وبعدها المفروض تخرج لي اخر بيانات موظف قمت بادخاله في اللستة بوكس .

2/ بعد كتابة الكود السابق نكمل علية بانشاء صنف جديد إسمه manger_data يرث جميع مواصفات الصنف emp_data بالاضافه الى البيانات التالية ( رقم القسم ، اسم القسم ، تاريخ استلام الادارة )

_مع اضافة الخصائص اللازمه للتعامل مع البيانات الجديدة .

ممتنه لكم ....نورس

يبدو انك لم تشاهدى الكود بل اهتميت بتنفيذه فقط البرنامج الذى ارفقته ينفذ المطلوب الثانى

المطلوب الاول لا يحتاج سوى لقليل من التفكير فلا كسل افتحى الكود و اقرئيه ثم حاولى و ناقشينا فيه حتى لو اخطأت لكن انا اسف المنتدى ليس لحل الواجب و البرمجه متعه فلماذا نفسدها اتمنى الا يكون كلامى قد ضايق احد

السلام عليكم

اخي طارق

Dim empdataarr() As emp_new_data
    Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'declare index for array element

        'redim array
        ReDim empdataarr(i)
        'instantiation of the array
        empdataarr(i) = New emp_new_data
        'fill the array
        empdataarr(i).name = TextBox1.Text
        empdataarr(i).memp_address = TextBox2.Text
        empdataarr(i).memp_job = TextBox3.Text
        empdataarr(i).Dep_ID = TextBox4.Text
        empdataarr(i).Dep_name = TextBox5.Text
        empdataarr(i).Dep_recieve_date = CType(TextBox6.Text, Date)
        'show some chosen data in listbox
        ListBox1.Items.Add(empdataarr(i).name & " " & empdataarr(i).memp_address & " " & empdataarr(i).Dep_name)

        i += 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            ListBox1.Items.Clear()
            ListBox1.Items.Add(empdataarr(Val(TextBox7.Text)).name & " " & empdataarr(Val(TextBox7.Text)).memp_address & " " & empdataarr(Val(TextBox7.Text)).Dep_name)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        
    End Sub

انت عرفت مصفوفة من نوع empdataarr

وكل اضافة تعمل

ReDim empdataarr(i)

طيب لو انا سجلت 4 سجلات

وحبيت اعرض السجل الثاني

يعطيني رسالة خطاء

فقط يعرض السجل الاخير

لماذا , وكيف اتجاوز المشكلة

بما انك تستخدم مصفوفه للسجلات إذاً للوصول إلى اى سجل لابد من استخدام دليل السجل داخل المصفوفه يعنى ال Index بتاعه داخل المصفوفه عشان توصله

مو انا عملت تكست وزر

التكست اسمه text7

هذا هو الكود

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Try
           ListBox1.Items.Clear()
           ListBox1.Items.Add(empdataarr(Val(TextBox7.Text)).name & " " & empdataarr(Val(TextBox7.Text)).memp_address & " " & empdataarr(Val(TextBox7.Text)).Dep_name)
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
       
   End Sub

ولم يستجيب هو المشكلة في

هذا

  'redim array
       ReDim empdataarr(i)
       'instantiation of the array
       empdataarr(i) = New emp_new_data

ReDim اعتقد انه يرجع بصفر دائما

ونفقد القديم من المصفوفة

بامكانك تعديلها إلى Redim Preserve للاحتفاظ بالقيم السابقه للمصفوفه

الله ينور عليك

اخوي طارق

اشتغلت معاي 100%

السلام عليكم ورحمة الله وبركاته

عند تنفيذ الكود ينفذ بشكل صحيح

بس عند الضغط على بتن2 الي يعرض البيانات يعطيني مسج اتمنى توضيحه لي وهو

object reference not set an intance of an object