+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=29531)
الصفحات:
1
2
فلترة البيانات باستخدام رسم بياني - العيدروس - 01-05-19
السلام عليكم.اخواني ارجو المساعدة من فضلكم.الايد لما اختار من الكمبوبكس اسم الورشة يظهر بالتاكست 1 عدد الحرفيين بالورشة يلي اخترتها و بالتاكست بكس 2 عدد المتربصين و بالتاكست بكس 3 المجموع ولو كان بالامكان انعكاس المعطيات على الرسم البياني ربنا يبارك باعماركم و بارك الله فيكم
RE: فلترة البيانات باستخدام رسم بياني - يونس علي - 02-05-19
تفظل الملف بعد التعديل
تنوية الرسم البياني لم اقم بعمل اي شيء اتمنى ان تبحث قبل ان تسال
RE: فلترة البيانات باستخدام رسم بياني - العيدروس - 02-05-19
كثر الف خيرك . نصف مساعدة ومع ذلك ليس المطلوب اخي. .فكر في كوني رايح اضيف ورشات و اسماء كيف رايح اتصرف لما نكتب المتغيرات داخل الكود .. انت بعيد كل البعد عن مطلبي و صدقني انا بحث كثير لكن لم اجد مثال مثل مثالي و لذلك لجأت للمنتدى
RE: فلترة البيانات باستخدام رسم بياني - عبد العزيز البسكري - 02-05-19
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. بالنسبة للشطر الأوّل من السؤال .. الكود الذي تكرّم به الأخ الغالي يشتغل بطريقة رائعة .. فقط ربما لم ينتبه لهذا الجزء البسيط للحساب الدقيق و الإحصاء الصحيح ..
كود :
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)تحياتي
RE: فلترة البيانات باستخدام رسم بياني - يونس علي - 02-05-19
يا اخ العيدروس إذا كان بخصوص متربص او حرفي فلامر مقدور علية
اما اذا كان يوجد غير هؤلاء الاثنين فلمسالة تحتاج تعمق
RE: فلترة البيانات باستخدام رسم بياني - العيدروس - 02-05-19
تسلم اخي عبد العزيز البسكري و بارك الله فيك .لشطر الاول تمام وهو يلي اريد اضبطو ربنا يجازيك كل خير
اخي يونس علي بالنسبة لمتربص و حرفي ليس عندي غيرهم يعني يا اما متربص او حرفي مفيش خيار ثالث.بقي لي لو سمحتو كيف تتاثر الداتاجريد لما اختار من الكومبو و مسالة الرسم البياني و ربنا يبيض وجوهكم
RE: فلترة البيانات باستخدام رسم بياني - يونس علي - 02-05-19
تم تحديث الملف
RE: فلترة البيانات باستخدام رسم بياني - العيدروس - 02-05-19
(02-05-19, 02:06 PM)يونس علي كتب :بارك الله فيك اخي يونس علي مثال رائع يعطيك العافية و يجازيك بخير.فقط بعد اذنك نقطة اخيرة بالنسبة للرسم البياني للاعمدة كيف يمكن اخلي عمود الحرفيين بلون و عمود المتربصين بلون آخر و بارك الله فيكتم تحديث الملف
RE: فلترة البيانات باستخدام رسم بياني - يونس علي - 02-05-19
تفظل الكود بعد التعديل
كود :
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والله يا اخ عيدروس عندي سؤال في المنتدى
لحد الان مش لاقي اي جواب او تجواب
على العموم اي مشكلة او استفسار انا في الخدمة على قدر استطاعتي
لاني مبتدئ
RE: فلترة البيانات باستخدام رسم بياني - العيدروس - 02-05-19
اخ يونس الهي يجبر بخطرك و يديك ما تتمنى و ان شاء الله ستجد الحل هنا بالمنتدى و بكل حاجة بنفسك ربنا يقضيهالك باحسن نتيجة يا رب .فعلا لا ادري كيف اشكرك عمل رائع و ليس به اي خلل.بقيت لي اخي يونس نقطة صغيرة اخيرة لو كان بامكانك المساعدة لاختم سؤالي بهاذا الموضوع.هل يمكن اظهر النسبة بهذا الشكل مثلا.ليس شرط ان تظهر النسبة المئوية داخل العمود لا يهم فوقه او تحته المهم تكون ظاهرة و متغيرة حسب المعطيات
