درس ChartDirector

لعمل نظرا لزيادة حجم الامثلة لم استطع ارفاقها في المشاركة

وسأكتفي بنسخ الكود

المراد تعديه لتطبيق المثال الثاني في الشرح

في الكلاس simplebar

في الدالة CreateChart

نقوم بكتابة الكود التالي

مع مراعاة انشاء قاعدة بيانات اكسس لتنفيذه وهذا هو الكود

Public Sub createChart(ByVal viewer As WinChartViewer, ByVal img As String) _
        Implements DemoModule.createChart
        Try
            Dim c1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Ab.mdb;")
            c1.Open()
            Dim cmd As New OleDbCommand("select count(*) from Absence where reason='Sick'", c1)
            Dim cS As Integer = cmd.ExecuteScalar
            Dim cmd1 As New OleDbCommand("select count(*) from Absence where reason='Away'", c1)
            Dim cW As Integer = cmd1.ExecuteScalar
            Dim cmd2 As New OleDbCommand("select count(*) from Absence where reason='Other'", c1)
            Dim cO As Integer = cmd2.ExecuteScalar
            c1.Close()
       

        'The data for the bar chart
            Dim data() As Double = {cS, cW, cO}

        'The labels for the bar chart
            Dim labels() As String = {"Sick", "Away", "Other"}

        'Create a XYChart object of size 250 x 250 pixels
        Dim c As XYChart = New XYChart(300, 300)

        'Set the plotarea at (30, 20) and of size 200 x 200 pixels
        c.setPlotArea(30, 20, 200, 200)

        'Add a bar chart layer using the given data
        c.addBarLayer(data)

        'Set the labels on the x axis.
        c.xAxis().setLabels(labels)

        'output the chart
        viewer.Image = c.makeImage()

        'include tool tip for the chart
            viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
                "title='{xLabel}: US${value}K'")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

شكرا جزيلا لك

كنت فعلا محتاجة اعرف اتعامل مع هذي الأداة

تسلم

يعطيك العافية

السلام عليكم

شكراً جزيلاً // تحت التجربة و المحاولة , إذا فيه أي سؤال أو مشكلة ,,, أكيد ما راح تقصر , وشكراً مجددً على الدرس القيم .

اشكر مروركم

وانا حاضر لكم باللي تبون:)

من زمان وانا ابحث عن هذه الاداة

ومشكور يالغالي

بس تشرح لنا مكونات قاعدة البيانات الجداول والحقول

وجزاك الله خيرا :)

قاعدة البيانات بسية

عبارة عن جدول واحد

هو جدول الغياب

فيه رقم الغياب ( Primary Key)

وسبب الغياب ( Text )

وهذي هي قاعدة البيانات فك الضغط و نزلها وحطها في مجلد bin في المشروع اللي سويته

ونفذ البرنامج:)

Ab.zip

مشكوررررررررررر اخي

مشكور اخي

بس كيف نلغي اسم الشركة الموضوعة في اسفل الاداة المسطورة بلون الاصفر؟؟؟

سهلة

بالكاش $$ يعني تدفع فلوس وتشتري البرنامج

من موقع الشركة

بس ليه زعلان منه

شكله حلو ولونه اصفر يعطي لمعان للفورم :):):)

وببلاش

واللي عنده فلوس يشتري ويروح الاصفر:)

اعتقدت بامكان اذالته بطريقة ما؟؟؟

شكله حلو!!!

وفي انتظار شروحاتك القادمة للاداة

السلام عليكم

احد عند تسجيل لهذه الاداة لاني ساستخدم في مشروع تخرج

ارجوكم