يسمح لنا عنصر التحكم MSChart بإنشاء الرسوم البيانية فى مشروع الفجوال بيسك بعدة طرق.حيث يمكنك إنشاء مخطط عن طريق تعيين البيانات في صفحة خصائص عنصر التحكم ، أو عن طريق استرداد البيانات التي سيتم رسمها من مصدر آخر ، مثل جدول بيانات Microsoft Excel. أو جدول بيانات فى اى قاعدة بيانات اخري 

 رسم البيانات باستخدام مصفوفة رقمية و خاصية ChartData

إن أبسط طريقة لرسم تخطيط هي إنشاء مصفوفة من القيم الرقمية ، ثم تعين قيم تلك المصفوفة الى الخاصية ChartData  كما هو موضح في المثال التالي:

الكود:


Dim arrPrices(1 to 10)
Dim i As Integer
For i = 1 to 10
   arrPrices(i)= i * 2
Next i
MSChart1.ChartData = arrPrices

ينتج الرمز أعلاه تخطيطًا بسيطًا ومفردًا من نقاط البيانات ذات سلسلة بيانات واحدة.


لإنشاء مخطط أكثر تعقيدًا ومتعدد المجموعات ، يجب إنشاء مصفوفة متعدد الأبعاد ، كما هو موضح في المثال التالي:

الكود:


Dim arrPriceQuantity(1 to 5, 1 to 2)
Dim i as Integer
For i = 1 to 5
   arrPriceQuantity(i, 1) = i ' Series 1
   arrPriceQuantity(i, 2) = 0 - i ' Series 2
Next i
MsChart1.ChartData = arrPriceQuantity

إضافة تسميات إلى الرسم البياني 

توضح الشفرة التالية كيفية اضافة مسميات للرسم البياني :

الكود:


Dim arrValues(1 to 5, 1 to 3)
Dim i as Integer
For i = 1 to 5
   arrValues(i, 1) = "Label " & i ' Labels
   arrValues(i, 2) = 0 + i ' Series 1 values.
   arrValues(i, 3) = 2 * i ' Series 2 values.
Next i
MsChart1.ChartData = arrValues



كما ترى ، يمكن أن يكون إنشاء مخطط بيانات سريعًا وبسيطًا باستخدام خاصية ChartData . ومع ذلك ، فإن مشكلة استخدام تلك الطريقة هو الحصول على البيانات من مصفوفة البيانات ثابتة القيم التى لا تتغير . 

لذل يفضل معظم المطورين استخدام بيانات جداول البيانات ، مثل Microsoft Excel ، أو ربما برنامج قاعدة بيانات ، مثل Microsoft Access ، لتخزين البيانات واستردادها لرسم مخطط بيانات ديناميكي على النحو التالى :

أستخدام طريقة DataSource لتعبئة البيانات من جدول قاعدة بيانات 

الكود:


Option Explicit
' Be sure to set a reference to the Microsoft ActiveX Data
' Objects 2.0 Library.
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection

Private Sub Form_Load()
   Dim strQuery As String ' SQL query string.

   ' First change the path to a valid path for your machine.
   cn.ConnectionString = _
   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
   "C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb" ' <-Change this path.

   ' Open the connection.
   cn.Open
  
   ' Create a query that retrieves only four fields.
   strQuery = "SELECT ProductName, UnitPrice, " & _
   "UnitsInStock, UnitsOnOrder FROM Products WHERE SupplierID = 1"
   ' Open the recordset.
   rsProducts.Open strQuery, cn, adOpenKeyset
  
 ' Set the DataSource to the recordset.
  
 With MSChart1
      .ShowLegend = True
      Set .DataSource = rsProducts
   End With
End Sub





الكود:

[right]Private Sub Form_Load()
   ' Then set the variable with the GetObject method.
   Set wkbObj = GetObject _
      ("C:\My Documents\MySpread.xls")
End Sub

        

جورج صبحى كتب:

شكرا جزيلا ...موضوع مهم كنت فى حاجة الية 

على الرحب و السعة