منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
رسم بياني - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26476)

رسم بياني - DOX.1 - 13-09-18

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

أخواني أتمنى من الله ثم منكم مساعدتي في طريقه لتعامل مع chart  
ولكن للأسف عملت كمبوبكس لكي أعطي المستخدم أكثر من خيار للأحصائيات 

ولكن ما يعمل أبداً 

أنا طبقت هذا المثال ونجح معاي بشرط أن يكون في حدث اللود فقط
https://www.youtube.com/watch?v=Ap9olTAG8sg&t=2s

RE: رسم بياني - elgokr - 13-09-18

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

اهلاً اخى DOX.1

كل ما عليك حتى يعمل معك الكود
تطبيق الامر بهذا الشكل
كود :
       If ComboBox1.SelectedItem = "الاسم الاول" Then
           REM طبق كود المطلوب عمله لـ chart  
       ElseIf ComboBox1.SelectedItem = "الاسم الثاني" Then
           REM طبق كود المطلوب عمله لـ chart  
       ElseIf ComboBox1.SelectedItem = "الاسم الثالث" Then
           REM طبق كود المطلوب عمله لـ chart  
       End If

كل ما عليك استبدال الوصف بـ الكود المطلوب تنفيذه لـ chart 

تحياتى لك
وتمنياتى لك التوفيق


RE: رسم بياني - DOX.1 - 14-09-18

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

RE: رسم بياني - elgokr - 14-09-18

(14-09-18, 02:18 AM)DOX.1 كتب : المشكله لا يحدث تغيير في الرسم البياني ولا يعطيني خطأ 
لأن الرسم البياناني يعتمد على توضيح الأحصائيه بالالوان على شكل عمودي 
والأخر نسبه مؤيه على شكل دائره


ارفق مثا مصغر لما لديك

او طبق ما قمت بالرد به ردى السابق
وهو جعل تحت كل SelectedItem 
الكود للتصميم / شكل الـ chart  المطلوب عرضه
وكذلك البيانات التى تحتويها

تحياتى لك
وتمنياتى لك التوفيق


RE: رسم بياني - DOX.1 - 14-09-18

[attachment=19495]
تفضل هذا المثال

RE: رسم بياني - elgokr - 15-09-18

كان يفضل ان تضع نسخة اعدة البيانات سكربت Sql
تجنباً لاختلاف اصدارات النسخة

على اى حال عند مراجعة السورس
اول ما لفت انتباهي هو 
كود :
       If ComboBox1.SelectedIndex = 0 Then
           Form1_Load(Nothing, Nothing)
       End If

لماذا تستخدم الامر بهذا الشكل بينما يمكنك استخدام الامر بهذا الشكل
كود :
       If ComboBox1.SelectedIndex = 0 Then
           lodeData()
       End If

ناتي الان الى الجزء كيفية تغير شكل الـ Chart حسب اختيار الخيارات من الـ ComboBox
أولاً لاحظ الكود التالى
كود :
   Private Sub lodeData()
       Me.Chart1.DataSource = GetData()
       Me.Chart1.Series("Series1").XValueMember = "Gop_emp"
       Me.Chart1.Series("Series1").YValueMembers = "Total"
   End Sub

تعال نجعل الكود بهذا الشكل
كود :
   Private Sub lodeData(ByRef TB As DataTable, ByVal Ser As String, ByVal val1 As String, ByVal val2 As String)
       Me.Chart1.DataSource = TB
       Me.Chart1.Series(Ser).XValueMember = val1
       Me.Chart1.Series(Ser).YValueMembers = val2
   End Sub

ناتى الان الى جزء استدعاء الـ lodeData
فى الحدث Form1_Load
ستجعله بهذا الشكل
كود :
       lodeData(GetData(), "Series1", "Gop_emp", "Total")

طيب عند تحديد الـ ComboBox سيكون الشكل كالتالى
كود :
       If ComboBox1.SelectedIndex = 0 Then
           lodeData(GetData(), "Series1", "Gop_emp", "Total")
       ElseIf ComboBox1.SelectedIndex = 1 Then
           lodeData(GetData(), "Series2", "Gop_emp", "Total")
       End If

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

اتمنى ايضاً مراجعة هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=26491


تحياتى لك
وتمنياتى لك التوفيق