Graphs And Charts in Visual Basic

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

وسأتحدث اليوم عن كيفية برمجة الرسوم البيانية والخرائط Graphs And Charts عن طريق الـ VB.Net .

بعد عملية بحث طويلة اكتشفت انه يوجد العديد من أدوات الرسوم البيانية والخرائط الإحترافية التي يقدمها اصحابها بشكل غير مجاني والحقيقة أنها تقدم حلول و تصاميم رائعة وجيدة ولكنها غير مجانية وبالتالي هي غير مناسبة مع شرحي هذا على الأقل حتى يتسنى لزواري الأعزاء تجربة المثال فتابعت البحث الى ان توصل لأداة رائعة وتقدم كل ما هو مطلوب وبشكل مجاني MSChart إضغط هنا لتحميلها ومعرفة متطلباتها .

غالبا سنحتاج الى الـ Framework: .NET Framework 3.5 SP1 بعد ذلك نقوم بتشغيل ملف الإعداد .
بعد الإنتهاء من الإعداد نبدأ الآن في تهيئة الفيجوال بيسك للبرمجة على الأداة .
إضافة الأداة إلى بيئة البرمجة لإستخدامها :
- من شريط الأدوات Toolbox نضغط زر الفأرة اليمين ثم Choose Items ثم تحديد الأداة ستظهر في شريط الأدوات .
- نقوم بسحبها لإستخدامها على الفورم .

تهيئة الأداة للإستخدام قبل البدأ في البرمجة :

1. تحديد مدى البيانات التي سيتم تحويلها إلى رسوم بيانية أو خرائط من الخصائص Properties وعند الخاصية Series إضغط على Collection لتحديد عدد مجموعات البيانات المطلوبة .
   - فقد تكون مجموعة واحدة من البيانات مثلاً ( مبيعات مكتب سياحة وسفر ويتم فيها مقارنة مبيعات تذاكر الطيران بالنسبة لحجوزات الفنادق )
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   - أو قد تكون مجموعتين من البيانات مثلاً ( نفس المثال مبيعات تذاكر الطيران ويكون هناك بيانات لتكلفة المبيعات وبيانات صافي المبيعات كما موضح في الصورة )
   
   كل ما عليك هو اضافة مجموعات على حسب احتياجك .
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
2. هنا كود برمجة لمجموعة ( Series ) واحدة فقط :
   
   Private Sub Sales_Graph()
   Dim array(1000, 1000) As Object
   
   array(0, 0) = "Ticket"
   array(0, 1) = "Hotel"
   array(0, 2) = "XO"
   
   array(1, 0) = 50
   array(1, 1) = 100
   array(1, 2) = 150
   
   array(1, 0) = Format(CDec(array(1, 0)), "#,##0.000")
   array(1, 1) = Format(CDec(array(1, 1)), "#,##0.000")
   array(1, 2) = Format(CDec(array(1, 2)), "#,##0.000")
   
   
   Chart1.Series(0).Points.AddXY(array(0, 0), array(1, 0))
   Chart1.Series(0).Points.AddXY(array(0, 1), array(1, 1))
   Chart1.Series(0).Points.AddXY(array(0, 2), array(1, 2))
   
   End Sub
   
   أما في حال كان هناك أكثر من مجموعة ( Series ) :
   
   Private Sub Staff_Sales_Graph()
   Dim array(1000, 1000) As Object
   Dim array1(1000, 1000) As Object
   Dim array2(1000, 1000) As Object
   
   Dim Total_Sales As Double
   Dim Cost_Sales As Double
   Dim Net_Sales As Double
   
   Total_Sales = 150
   Cost_Sales = 100
   
   Net_Sales = Total_Sales - Cost_Sales
   
   array1(1, 0) = Net_Sales
   array2(1, 0) = Cost_Sales
   
   If array1(1, 0) > 0 Then
   Chart2.Series(0).Points.AddXY(array1(0, 0), array2(1, 0))
   Chart2.Series(1).Points.AddXY(array1(0, 0), array1(1, 0))
   
   End If
   
   
   Next
   End Sub
   

يمكنك إختيار أنواع الرسم البياني أو الخرائط التي تريدها على حسب إحتياجك وهذا من Chart Type من خصائص الـ ( Series ) .
مع العلم ان أكثر هذه الأنواع إستخدماً هما النوعان الموضحان في الأعلى .
تمتعوا بهذه الإضافات الرائعة التي تعطي لبرامجكم الكثير من التميز والإحترافية .