متابعي مدونتي العزيزة على علم بأنها متخصصة في المحاسبة وهذا واضح في إسمها على الأقل كما أني أقوم بين الحين والآخر بالحديث عن البرمجة وعن كيفية بناء العلاقة بين البرمجة والمحاسبة وكيفية الإستفادة من البرمجة في المحاسبة والحصول على افضل النتائج بإستخدام تكنولوجيا المعلومات التي تتطور بشكل سريع .وسأتحدث اليوم عن كيفية برمجة الرسوم البيانية والخرائط Graphs And Charts عن طريق الـ VB.Net .
بعد عملية بحث طويلة اكتشفت انه يوجد العديد من أدوات الرسوم البيانية والخرائط الإحترافية التي يقدمها اصحابها بشكل غير مجاني والحقيقة أنها تقدم حلول و تصاميم رائعة وجيدة ولكنها غير مجانية وبالتالي هي غير مناسبة مع شرحي هذا على الأقل حتى يتسنى لزواري الأعزاء تجربة المثال فتابعت البحث الى ان توصل لأداة رائعة وتقدم كل ما هو مطلوب وبشكل مجاني MSChart إضغط هنا لتحميلها ومعرفة متطلباتها .
غالبا سنحتاج الى الـ Framework: .NET Framework 3.5 SP1 بعد ذلك نقوم بتشغيل ملف الإعداد .
بعد الإنتهاء من الإعداد نبدأ الآن في تهيئة الفيجوال بيسك للبرمجة على الأداة .
إضافة الأداة إلى بيئة البرمجة لإستخدامها :
- من شريط الأدوات Toolbox نضغط زر الفأرة اليمين ثم Choose Items ثم تحديد الأداة ستظهر في شريط الأدوات .
- نقوم بسحبها لإستخدامها على الفورم .
- تحديد مدى البيانات التي سيتم تحويلها إلى رسوم بيانية أو خرائط من الخصائص Properties وعند الخاصية Series إضغط على Collection لتحديد عدد مجموعات البيانات المطلوبة .
- فقد تكون مجموعة واحدة من البيانات مثلاً ( مبيعات مكتب سياحة وسفر ويتم فيها مقارنة مبيعات تذاكر الطيران بالنسبة لحجوزات الفنادق )
- أو قد تكون مجموعتين من البيانات مثلاً ( نفس المثال مبيعات تذاكر الطيران ويكون هناك بيانات لتكلفة المبيعات وبيانات صافي المبيعات كما موضح في الصورة )
كل ما عليك هو اضافة مجموعات على حسب احتياجك .
- هنا كود برمجة لمجموعة ( 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 ) .
مع العلم ان أكثر هذه الأنواع إستخدماً هما النوعان الموضحان في الأعلى .
تمتعوا بهذه الإضافات الرائعة التي تعطي لبرامجكم الكثير من التميز والإحترافية .
مع العلم ان أكثر هذه الأنواع إستخدماً هما النوعان الموضحان في الأعلى .
تمتعوا بهذه الإضافات الرائعة التي تعطي لبرامجكم الكثير من التميز والإحترافية .
