[العيدروس]

السلام عليكم.اخواني ارجو المساعدة من فضلكم.الايد لما اختار من الكمبوبكس اسم الورشة يظهر بالتاكست 1 عدد الحرفيين بالورشة يلي اخترتها و بالتاكست بكس 2 عدد المتربصين و بالتاكست بكس 3 المجموع ولو كان بالامكان انعكاس المعطيات على الرسم البياني ربنا يبارك باعماركم و بارك الله فيكم

[يونس علي]

تفظل الملف بعد التعديل

تنوية الرسم البياني لم اقم بعمل اي شيء اتمنى ان تبحث قبل ان تسال

https://www.dropbox.com/s/8o7p1sbjf2nwj8...3.rar?dl=0

[العيدروس]

كثر الف خيرك . نصف مساعدة ومع ذلك ليس المطلوب اخي. .فكر في كوني رايح اضيف ورشات و اسماء كيف رايح اتصرف لما نكتب المتغيرات داخل الكود .. انت بعيد كل البعد عن مطلبي و صدقني انا بحث كثير لكن لم اجد مثال مثل مثالي و لذلك لجأت للمنتدى

[عبد العزيز البسكري]

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

أخي الكريم .. بالنسبة للشطر الأوّل من السؤال ..  الكود الذي تكرّم به الأخ الغالي يشتغل بطريقة رائعة .. فقط ربما لم ينتبه لهذا الجزء البسيط للحساب الدقيق و الإحصاء الصحيح ..

كود :

 Dim cmd As New OleDbCommand(" Select Count(warcha = '" & ComboBox1.Text & "'  ) From Table1 where warcha = '" & ComboBox1.Text & "'  And caase = 'حرفي' ", Conne)

كود :

Dim cmd As New OleDbCommand(" Select Count(warcha = '" & ComboBox1.Text & "'  ) From Table1 where warcha = '" & ComboBox1.Text & "'  And caase = 'متربص' ", Conne)

تحياتي

[يونس علي]

يا اخ العيدروس إذا كان بخصوص متربص او حرفي فلامر مقدور علية

اما اذا كان يوجد غير هؤلاء الاثنين فلمسالة تحتاج  تعمق

[العيدروس]

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

[يونس علي]

تم تحديث الملف

https://www.dropbox.com/s/8o7p1sbjf2nwj8...3.rar?dl=0

[العيدروس]

(02-05-19, 02:06 PM)يونس علي كتب :

تم تحديث الملف

https://www.dropbox.com/s/8o7p1sbjf2nwj8...3.rar?dl=0

بارك الله فيك اخي يونس علي مثال رائع يعطيك العافية و يجازيك بخير.فقط بعد اذنك نقطة اخيرة بالنسبة للرسم البياني للاعمدة كيف يمكن اخلي عمود الحرفيين بلون و عمود المتربصين بلون آخر و بارك الله فيك

[يونس علي]

تفظل الكود بعد التعديل 

كود :

 Private Sub CHart()
       If DataGridView1.RowCount <= 0 Then Return
       '//
       Chart1.Titles.Clear()
       '// Clear Legends & Series
       Chart1.Series.Clear()
       Chart1.Series.Add("Sample Chart")
       Chart1.Legends.Clear()
       '// Clear Points
       For Each xSeries In Chart1.Series
           xSeries.Points.Clear()
       Next
       '// Create Legends
       Dim Legend1 As Legend = New Legend()
       Legend1.Name = "Legend1"
       Chart1.Legends.Add(Legend1)
       '// Create Series
       Dim Series1 As Series = New Series()
       Dim Series2 As Series = New Series()
       Dim Series3 As Series = New Series()

       '// Add Series
       With Chart1
           .Series.Add(Series1)
           .Series.Add(Series2)
           .Series(0).Color = Color.Green
           .Series(1).Color = Color.Gray
           .Series(2).Color = Color.Gold
           '.Series.Add(Series3)
           '.Series.Add(Series4)
       End With
       '//
       Try
           Dim myFont As New Font("Tahoma", 14, FontStyle.Bold)
           Chart1.Titles.Add("Sample Chart")
           Chart1.Titles(0).Font = myFont
           '// Define Chart Type.
           For Each xSeries In Chart1.Series
               Select Case cmbChartType.Text
                   Case "Column"
                       xSeries.ChartType = SeriesChartType.Column
                   Case "Line"
                       xSeries.ChartType = SeriesChartType.Line
                   Case "Point"
                       xSeries.ChartType = SeriesChartType.Point
               End Select
               '// Show Legend
               If chkShowLegend.Checked Then
                   xSeries.IsVisibleInLegend = True
               Else
                   xSeries.IsVisibleInLegend = False
               End If
               '// View the value of a chart point on mouse over.
               xSeries.ToolTip = "#VAL{0.00}"
           Next
           '//
           With Chart1
               .Series(0).LegendText = "Value 1"
               .Series(1).LegendText = "Value 2"
               .Series(2).LegendText = "Value 3"
               '.Series(3).LegendText = "Average"
           End With
           '// Show all Axis Label
           Chart1.ChartAreas(0).AxisX.Interval = 1
           '//
           With Chart1.ChartAreas("ChartArea1")
               .AxisX.MajorGrid.LineWidth = 1
               .AxisY.MajorGrid.LineWidth = 1
           End With

           Me.Chart1.Series("Sample Chart").Points.AddXY(Label1.Text, Val(TextBox1.Text))
           Me.Chart1.Series("Sample Chart").Points.AddXY(Label2.Text, Val(TextBox2.Text))
           Me.Chart1.Series("Sample Chart").Points.AddXY(Label3.Text, Val(TextBox3.Text))

           Me.Chart1.Series("Sample Chart").Points(0).Color = Color.Green
           Me.Chart1.Series("Sample Chart").Points(1).Color = Color.Gray
           Me.Chart1.Series("Sample Chart").Points(2).Color = Color.Gold
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

والله يا اخ عيدروس عندي سؤال في المنتدى 

لحد الان مش لاقي اي جواب او تجواب 

على العموم اي مشكلة او استفسار انا في الخدمة على قدر استطاعتي

لاني مبتدئ

[العيدروس]

اخ يونس الهي يجبر بخطرك و يديك ما تتمنى و ان شاء الله ستجد الحل هنا بالمنتدى و بكل حاجة بنفسك ربنا يقضيهالك باحسن نتيجة يا رب .فعلا لا ادري كيف اشكرك عمل رائع و ليس به اي خلل.بقيت لي اخي يونس نقطة صغيرة اخيرة لو كان بامكانك المساعدة لاختم سؤالي بهاذا الموضوع.هل يمكن اظهر النسبة بهذا الشكل مثلا.ليس شرط ان تظهر النسبة المئوية داخل العمود لا يهم فوقه او تحته المهم تكون ظاهرة و متغيرة حسب المعطيات