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


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


الملفات المرفقة
.rar   هرم الأعمار.rar (الحجم : 130.64 ك ب / التحميلات : 46)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 103)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#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
السّلام عليكم و رحمة الله و بركاته
إلهي يسترك و يرحمك فوق الأرض و بباطنها بعد عمر طويل بمحبّته و مرضاته إن شاء الله
فعلا و بكل صدق لمسة إضافيّة رائعة .. روعة شخصك الكريم
إحتراماتي
قناتنا على اليوتوب
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الرسم الباياني annagui 2 244 28-01-24, 02:28 PM
آخر رد: annagui
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  ارجو ان لا تبخلو علينا با الحل ahmedbezia 3 466 06-12-22, 01:29 PM
آخر رد: ahmedbezia
  [سؤال] [تم الحل] انشاء المسارات وتمرير البارامترات لها وقت التشغيل سعود 7 1,220 03-09-22, 09:44 AM
آخر رد: Taha Okla
  مشكلة واجهتني كتير وزهقت منها فاللي عنده الحل ياريت يفيدني بيه ميدو الفنان 7 1,023 03-09-22, 03:33 AM
آخر رد: ميدو الفنان
  [سؤال] * تم الحل * التحكم بمخرجات السريال بورت واعادة تحويلها mohamedallams 1 431 30-08-22, 06:42 PM
آخر رد: mohamedallams
  [سؤال] * [تم الحل] * المحاولة الثانية و اللتي باءت بالفشل حول تقسيم ملف بشكل دقيق سعود 8 1,031 27-08-22, 07:41 AM
آخر رد: سعود
  ما هو الحل لهذه المشكلة جيولوجي مبتدئ 7 1,131 17-05-22, 09:22 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] التحديث من خلال الـ DropBox متوقف ما الحل؟ abomo3ath 1 758 06-05-22, 09:11 PM
آخر رد: سعود

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


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