تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] احصاء و تمثيل بيانات بChart
#1
السلام عليكم ورحمة الله
حاولت ان احصاء و تمثيل البيانات بChart يعمل عند التحميل فقط ثم لا يتغير عند استعمال ComboBox
اليكم الملف


الملفات المرفقة
.rar   احصاء و تمثيل بيانات.rar (الحجم : 128.78 ك ب / التحميلات : 16)
الرد
تم الشكر بواسطة:
#2
كود :
Imports System.Data.OleDb

Public Class Form1

   Dim DT As New DataTable
   Dim totals() As Integer
   Dim titles() As String = {"ذكر", "أنثى"}

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       '=========================
       fillcboSubject()
       '=========================
       LoadDataGridView_Subject_Gender()
   End Sub

   Private Sub fillcboSubject()
       'تحميل بيانات المواد في الكومبوبكس
       Subjects_Load()
       '==============================
       ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
       ComboBox1.DataSource = SubjectDT
       ComboBox1.DisplayMember = "Subject"
       ComboBox1.ValueMember = "ID_Subject"
       ComboBox1.SelectedIndex = -1
       'ComboBox1.Text = "المادة"
   End Sub

   Private Sub LoadDataGridView_Subject_Gender()
       Try

           Dim id = ComboBox1.SelectedValue
           DT.Clear()
           Dim DA As New OleDbDataAdapter("SELECT Subjects.Subject, Teachers.Gender AS Gender, Count(Teachers.ID_Teacher) AS total FROM Teachers,Subjects where (Teachers.ID_Subject = Subjects.ID_Subject) and (Teachers.ID_Subject = " & ComboBox1.SelectedValue & ") GROUP BY Subjects.Subject, Teachers.Gender", con)

           DA.Fill(DT)
           DataGridView1.DataSource = DT
           Data_GridView()

           Dim male As Integer = (From x In DT Where x("Gender").Equals("ذكر") Select x("total")).FirstOrDefault
           Dim female As Integer = (From x In DT Where x("Gender").Equals("أنثى") Select x("total")).FirstOrDefault
           totals = {male, female}

       Catch ex As Exception
       End Try
   End Sub

   Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
       LoadDataGridView_Subject_Gender()
       Chart1.Series(0).Points.DataBindXY(titles, totals)
   End Sub


   Private Sub Data_GridView()
       DataGridView1.Columns(0).HeaderText = " المادة"
       DataGridView1.Columns(1).HeaderText = " الجنس"
       DataGridView1.Columns(2).HeaderText = " المجموع"
   End Sub

End Class
الرد
تم الشكر بواسطة: elgokr , elgokr , عبد العزيز البسكري , DOX.1 , DOX.1
#3
شكرا لك اخي 911 على الرد
و لكن النسبة المئوية لم تتحقق
وكذلك اردت لو امكن لماذا لاتتغير في الكود الذي وضعته انا بحيث عند التحميل في المرة الاولى النسبة صحيحىة ثم لاتتغير
الرد
تم الشكر بواسطة: 911 , 911 , elgokr
#4
كود :
Imports System.Data.OleDb

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       '=========================
       fillcboSubject()
       '=========================
       LoadDataGridView_Subject_Gender()
       '=========================
       Data_GridView()
       '=========================
       ComboBox1.Select()
   End Sub

   Private Sub fillcboSubject()
       'تحميل بيانات المواد في الكومبوبكس
       Subjects_Load()
       '==============================
       ComboBox1.DataSource = SubjectDT
       ComboBox1.DisplayMember = "Subject"
       ComboBox1.ValueMember = "ID_Subject"
       If ComboBox1.Items.Count > 0 Then
           ComboBox1.SelectedIndex = 0
       End If
       'ComboBox1.Text = "المادة"
   End Sub

   Dim DT As New DataTable
   Dim total() As Integer
   Dim titles() As String = {"ذكر", "أنثى"}

   Private Sub LoadDataGridView_Subject_Gender()
       Try

           Dim id = ComboBox1.SelectedValue
           DT.Clear()
           Dim DA As New OleDbDataAdapter("SELECT Subjects.Subject, Teachers.Gender AS Gender, Count(Teachers.ID_Teacher) AS total FROM Teachers,Subjects where (Teachers.ID_Subject = Subjects.ID_Subject) and (Teachers.ID_Subject = " & ComboBox1.SelectedValue & ") GROUP BY Subjects.Subject, Teachers.Gender", con)

           DA.Fill(DT)
           DataGridView1.DataSource = DT

           Dim male As Integer = (From x In DT Where x("Gender").Equals("ذكر") Select x("total")).FirstOrDefault
           Dim female As Integer = (From x In DT Where x("Gender").Equals("أنثى") Select x("total")).FirstOrDefault

           If male > 0 Or female > 0 Then
               total = {(male / (male + female)) * 100, (female / (male + female)) * 100}
           Else
               total = {0, 0}
           End If

           charting()

       Catch ex As Exception

       End Try

   End Sub

   Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
       LoadDataGridView_Subject_Gender()
       charting()
   End Sub

   Private Sub charting()
       Chart1.Series(0).LabelFormat = "#'%'"
       Chart1.Series(0).Points.DataBindXY(titles, total)
       Chart1.Series(0).IsValueShownAsLabel = True
   End Sub

   Private Sub Data_GridView()

       DataGridView1.Columns(0).HeaderText = " المادة"
       DataGridView1.Columns(1).HeaderText = " الجنس"
       DataGridView1.Columns(2).HeaderText = " المجموع"
   End Sub

End Class
الرد
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#5
شكرا لك اخي 911 على تعبك معنا وبارك الله فيكم
الرد
تم الشكر بواسطة: 911 , 911 , elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 60 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] حفظ بيانات في جدولين kah1974 0 37 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 72 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 0 103 04-12-18, 11:52 PM
آخر رد: abo ragab
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 77 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 50 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 548 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 2 177 29-11-18, 03:09 AM
آخر رد: Rabeea Qbaha
  اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو vb2010 8 140 26-11-18, 01:11 AM
آخر رد: Rabeea Qbaha
  [VB.NET] طريقة ارفاق ملفات الى قاعدة بيانات access aak505 5 1,604 22-11-18, 01:50 PM
آخر رد: حريف برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم