+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23279)
[ تمّ الحل ] : الرسم البياني - عبد العزيز البسكري - 11-01-18
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل لو تكرّمتم بالمساعدة بهذا الملف حول الرّسم البياني من أجل جدول الأعمار
ما أريده لو سمحتم .. بالفورم 4 أقوم بإدخال البيانات بالتاكسات من 1 إلى 10 فتظهر تلقائيا على MSCHART بعيدا عن قاعدة البيانات
حاولت بالملف المرفق تجربة قاعدة البيانات لكن الرسم البياني لم يضبط معي .. ووجدتها عبارة عن دوّامة بالنسبة لي .. فارتأيت أنّ الحل الأمثل هو الإدخال المباشر من غير قاعدة البيانات
بارك الله فيكم مقدّمًا و أحسن إليكم و جزاكم خير الدّاريْن إن شاء الله
تحياتي
RE: الرسم البياني - طالب برمجة - 11-01-18
لم أجدالأداة Chart في الفورم
على ماذا اعتمدت في الرسم البياني؟
RE: الرسم البياني - عبد العزيز البسكري - 11-01-18
السّلام عليكم و رحمة الله و بركاته
آسف أخي الكريم لم أنتبه لذلك .. الأداة هي نفسها الموجودة بالفورم 1
تحياتي
RE: الرسم البياني - طالب برمجة - 11-01-18
بالنسبة للمرفق الأول - الفورم الأول
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DOUSSA.mdb;Persist Security Info=True"
Dim Conn As OleDbConnection = New OleDbConnection(provider)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Chart1.Series.Add("MASCULIN")
Chart1.Series.Add("FEMININ")
Dim da As New OleDbDataAdapter("SELECT [YYear], [NNumber] FROM [MASCULIN]", Conn)
Dim dt As New DataTable
da.Fill(dt)
Chart1.DataSource = dt
Chart1.Series(0).XValueMember = "YYear"
Chart1.Series(0).YValueMembers = "NNumber"
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.Hide()
Form2.Show()
End Sub
End Class
RE: الرسم البياني - عبد العزيز البسكري - 11-01-18
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم و سلم يمينك و دينك و بارك الله فيك و لك دنيا و آخرة
أخي الغالي .. لمّا ذكرت أنّي أبتعد عن قاعدة البيانات لأنّه كان بها خلل و بصراحة لم أعرف كبفبة التعامل معه
المفروض لو أعتمد عن قاعدة البيانات سأعتمد على جدول واحد فقط و المسمى MMSHART .. وهو الصحيح .. أضفته مجدّدًا
و بما أنّه كان عندي جدولين بقاعدة البيانات .. MASCULIN و FEMININ .. إختلط برأسي الحابل بالنابل .. فأردت ترك قاعدة البيانات و الانتقال للإدخال المباشر بالفورم 4 ..
أخي الغالي .. أرجو المعذرة إن سبّبت لك أي إرهاق .. فرجائي فضل لا أمر :
إعادة صياغة كود الفورم 1 بما يتماشى مع الجدول MMSHART
أو تشكيل الرسم البياني المباشر مثلما هو الحال بالفورم 4
كامل الشكر و التقدير و الاحترام
RE: الرسم البياني - طالب برمجة - 11-01-18
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DOUSSA.mdb;Persist Security Info=True"
Dim Conn As OleDbConnection = New OleDbConnection(provider)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim da As New OleDbDataAdapter("SELECT [ANNEE], [MASCULIN] , [FEMININ]FROM [MMSHART]", Conn)
Dim dt As New DataTable
da.Fill(dt)
Chart1.DataSource = dt
Chart1.Series.Clear()
Chart1.Series.Add("الذكور")
With Chart1.Series(0)
.Color = Color.Blue
.XValueMember = "ANNEE"
.YValueMembers = "MASCULIN"
End With
Chart1.Series.Add("الإناث")
With Chart1.Series(1)
.Color = Color.DeepPink
.XValueMember = "ANNEE"
.YValueMembers = "FEMININ"
End With
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.Hide()
Form2.Show()
End Sub
End Class
RE: الرسم البياني - عبد العزيز البسكري - 11-01-18
السّلام عليكم و رحمة الله و بركاته
تمام التّمام .. وهو المطلوب بالضبط أخي الغالي
إلهي يحسن إليك مثلما أحسنت إلي .. و يبارك لك في أعمالك و مالك و أهلك و جميع أمورك الدينية و الدنيوية
مهما عبّرت عن شكري لك .. لن أفيك حقّك أخي الكريم
كامل إحتراماتي
RE: [ تمّ الحل ] : الرسم البياني - طالب برمجة - 11-01-18
أشكرك أخي على مشاعرك الجميلة
تحسين الكود السابق مع إضافة عنوان
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DOUSSA.mdb;Persist Security Info=True"
Dim Conn As OleDbConnection = New OleDbConnection(provider)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim da As New OleDbDataAdapter("SELECT [ANNEE], [MASCULIN] , [FEMININ]FROM [MMSHART]", Conn)
Dim dt As New DataTable
da.Fill(dt)
Chart1.DataSource = dt
Chart1.Titles.Clear()
With Chart1.Titles.Add("إحصائية لعدد الذكور والإناث")
.TextStyle = DataVisualization.Charting.TextStyle.Shadow
.Font = New Font("Times New Roman", 20, FontStyle.Bold)
.ForeColor = Color.Brown
End With
With Chart1.Titles.Add("الإحصائية للأعوام من سنة 2000")
.TextStyle = DataVisualization.Charting.TextStyle.Shadow
.Font = New Font("Times New Roman", 12, FontStyle.Bold)
.ForeColor = Color.Brown
End With
Chart1.Series.Clear()
With Chart1.Series.Add("الذكور")
.Color = Color.Blue
.XValueMember = "ANNEE"
.YValueMembers = "MASCULIN"
End With
With Chart1.Series.Add("الإناث")
.Color = Color.DeepPink
.XValueMember = "ANNEE"
.YValueMembers = "FEMININ"
End With
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.Hide()
Form2.Show()
End Sub
End Class
RE: [ تمّ الحل ] : الرسم البياني - عبد العزيز البسكري - 11-01-18
السّلام عليكم و رحمة الله و بركاته
إلهي يسترك و يرحمك فوق الأرض و بباطنها بعد عمر طويل بمحبّته و مرضاته إن شاء الله
فعلا و بكل صدق لمسة إضافيّة رائعة .. روعة شخصك الكريم
إحتراماتي