تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : الرسم البياني
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل لو تكرّمتم بالمساعدة بهذا الملف حول الرّسم البياني من أجل جدول الأعمار
ما أريده لو سمحتم .. بالفورم 4 أقوم بإدخال البيانات بالتاكسات من 1 إلى 10 فتظهر تلقائيا على MSCHART بعيدا عن قاعدة البيانات
حاولت بالملف المرفق تجربة قاعدة البيانات لكن الرسم البياني لم يضبط معي .. ووجدتها عبارة عن دوّامة بالنسبة لي .. فارتأيت أنّ الحل الأمثل هو الإدخال المباشر من غير قاعدة البيانات
بارك الله فيكم مقدّمًا و أحسن إليكم و جزاكم خير الدّاريْن إن شاء الله
تحياتي


الملفات المرفقة
.rar   هرم الأعمار.rar (الحجم : 130.6 ك ب / التحميلات : 35)
الرد
تم الشكر بواسطة:
#2
لم أجدالأداة Chart في الفورم
على ماذا اعتمدت في الرسم البياني؟
الرد
#3
السّلام عليكم و رحمة الله و بركاته
آسف أخي الكريم لم أنتبه لذلك .. الأداة هي نفسها الموجودة بالفورم 1
تحياتي


الملفات المرفقة
.rar   هرم الأعمار.rar (الحجم : 130.64 ك ب / التحميلات : 29)
الرد
تم الشكر بواسطة:
#4
بالنسبة للمرفق الأول - الفورم الأول
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 ObjectByVal e As EventArgsHandles 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 ObjectByVal e As EventArgsHandles Button1.Click
        Me
.Hide()
        
Form2.Show()
    
End Sub

End 
Class 
الرد
#5
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم و سلم يمينك و دينك و بارك الله فيك و لك دنيا و آخرة
أخي الغالي .. لمّا ذكرت أنّي أبتعد عن قاعدة البيانات لأنّه كان بها خلل و بصراحة لم أعرف كبفبة التعامل معه
المفروض لو أعتمد عن قاعدة البيانات سأعتمد على جدول واحد فقط و المسمى MMSHART .. وهو الصحيح .. أضفته مجدّدًا
و بما أنّه كان عندي جدولين بقاعدة البيانات .. MASCULIN و FEMININ .. إختلط برأسي الحابل بالنابل .. فأردت ترك قاعدة البيانات و الانتقال للإدخال المباشر بالفورم 4 ..
أخي الغالي .. أرجو المعذرة إن سبّبت لك أي إرهاق .. فرجائي فضل لا أمر :
إعادة صياغة كود الفورم 1 بما يتماشى مع الجدول MMSHART
أو تشكيل الرسم البياني المباشر مثلما هو الحال بالفورم 4
كامل الشكر و التقدير و الاحترام


الملفات المرفقة
.rar   هرم الأعمار.rar (الحجم : 128.73 ك ب / التحميلات : 55)
الرد
تم الشكر بواسطة:
#6
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 ObjectByVal e As EventArgsHandles 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 ObjectByVal e As EventArgsHandles Button1.Click
        Me
.Hide()
        
Form2.Show()
    
End Sub

End 
Class 
الرد
#7
السّلام عليكم و رحمة الله و بركاته
تمام التّمام .. وهو المطلوب بالضبط أخي الغالي
إلهي يحسن إليك مثلما أحسنت إلي .. و يبارك لك في أعمالك و مالك و أهلك و جميع أمورك الدينية و الدنيوية
مهما عبّرت عن شكري لك .. لن أفيك حقّك أخي الكريم
كامل إحتراماتي
الرد
تم الشكر بواسطة: طالب برمجة , عبدالله الدوسري
#8
أشكرك أخي على مشاعرك الجميلة

تحسين الكود السابق مع إضافة عنوان
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 ObjectByVal e As EventArgsHandles 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"20FontStyle.Bold)
 
           .ForeColor Color.Brown
        End With
        With Chart1
.Titles.Add("الإحصائية للأعوام من سنة 2000")
 
           .TextStyle DataVisualization.Charting.TextStyle.Shadow
            
.Font = New Font("Times New Roman"12FontStyle.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 ObjectByVal e As EventArgsHandles Button1.Click
        Me
.Hide()
 
       Form2.Show()
 
   End Sub

End 
Class 
الرد
#9
السّلام عليكم و رحمة الله و بركاته
إلهي يسترك و يرحمك فوق الأرض و بباطنها بعد عمر طويل بمحبّته و مرضاته إن شاء الله
فعلا و بكل صدق لمسة إضافيّة رائعة .. روعة شخصك الكريم
إحتراماتي
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 830 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : جلب قيمة من الريجيستري عبد العزيز البسكري 11 409 10-09-20, 04:01 PM
آخر رد: عبد العزيز البسكري
  [سؤال] [تم الحل]استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد محمد العامر 6 706 22-08-20, 08:15 AM
آخر رد: محمد العامر
  [ تمّ الحل ] : جعل الآلة الحاسبة بمقدّمة الشاشة عبد العزيز البسكري 12 663 16-08-20, 03:26 AM
آخر رد: مصمم هاوي
  عندي خطا في الريجستري ممكن الحل عاصم النجار 3 493 11-07-20, 07:50 PM
آخر رد: Mohamad Anan
  [ تمّ الحل ] : عدد الغياب الإجمالي للمترشّحين الذكور عبد العزيز البسكري 11 814 02-07-20, 02:47 PM
آخر رد: عبد العزيز البسكري
  مطلوب كود بعد ازن اخونا العرب(تم الحل) محمد ايمن 1 327 12-06-20, 04:02 AM
آخر رد: سعود
  [VB.NET] [تم الحل] مشكلة اضافة عناصر الي ListView الماجيك مسعد 3 471 04-06-20, 05:23 AM
آخر رد: الماجيك مسعد
  [VB.NET] [تم الحل] تخطي حفظ الملف Sorax 7 495 25-05-20, 02:47 PM
آخر رد: Sorax
  [كود] احتج كود بعد ازن اخونا المبرمجين (تم الحل) محمد ايمن 6 436 24-05-20, 03:15 AM
آخر رد: محمد ايمن

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


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