[annagui]

السلام عليكم اساتذتي الكرام

عندي جدول بيانت ( ذكر انثي) اريد باستخدام ادات الشارت تحديد النسبة المائوية وشكرا
عفوا كيف ارفق صورة الى النص

---

---

[تركي الحلواني]

(21-01-24, 01:33 AM)annagui كتب : السلام عليكم اساتذتي الكرام

عندي جدول بيانت ( ذكر انثي) اريد باستخدام ادات الشارت تحديد النسبة المائوية وشكرا
عفوا كيف ارفق صورة الى النص

---

---

جرب الكود 

كود :

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Chart1.Series.Clear()

        Chart1.Series.Add("ذكر")
        Chart1.Series("ذكر").Points.AddY(Val(TextBox1.Text))
          Chart1.Series.Add("انثى")
        Chart1.Series("انثى").Points.AddY(Val(TextBox2.Text))
        Chart1.ChartAreas(0).AxisY.Minimum = 0
        Chart1.ChartAreas(0).AxisY.Maximum = Val(TextBox1.Text)
 End Sub

End Class

[annagui]

شكرا ستاذي الفاضل كل التقدير و الاحترام
ظهرت معي هذه المشكلة:
Your app has entered a break state, but there is no code to show because all threads were executing external code (typically system or framework code).
System.InvalidOperationException: 'Axis Object - Auto interval does not have proper value.'

كود :

vb.net
Module Module_Connection
    Public DatabaseName As String = "char.mdb"
    Public conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseName)


End Module

___________________________________________________________________________________________________________

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try

            conn.Open()
            Dim table As New DataTable("pro")
            Dim rs As New OleDb.OleDbDataAdapter("select * from pro ", conn)
            rs.Fill(table)
            'rs.Dispose()
            DataGridView1.DataSource = table
            DataGridView1.Refresh()
            rs.Dispose()

            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Chart1.Series.Clear()

        Chart1.Series.Add("ذكر")
        Chart1.Series("ذكر").Points.AddY(Val(TextBox1.Text))
        Chart1.Series.Add("انثى")
        Chart1.Series("انثى").Points.AddY(Val(TextBox2.Text))
        Chart1.ChartAreas(0).AxisY.Minimum = 0
        Chart1.ChartAreas(0).AxisY.Maximum = Val(TextBox1.Text)
    End Sub
End Class

[تركي الحلواني]

لو ترفق مثال ليتم التعديل علية وشرح المطلوب بضبط

[annagui]

(21-01-24, 06:21 PM)تركي الحلواني كتب : لو ترفق مثال ليتم التعديل علية وشرح المطلوب بضبط

مع فائق التقدير  قد تم ارفاق الملف وهو نموذج بسيط مع الشكر
  WindowsApp8.zip (الحجم : 531.43 ك ب / التحميلات : 43)
الموضوع اظهار  النسبة المئوية للذكور والاناث في ادة chart 1
 داخل جدول (pro)  بخانة( sex ) حيث يحتوي هذا الاخير علي نوعين هم ذكر او انثى بقاعدة بيانات اكسس (char)

[annagui]

الف الف شكرا استاذى الفاضل 

[melad2002]

عدلت لك الملف بطريقتي لتمنى ان يكون المطلوب