• 0
BazaR

Graphs And Charts in Visual Basic.Net

سؤال

السلام عليكم ورحمة الله وبركاته

وسأتحدث اليوم عن كيفية برمجة الرسوم البيانية والخرائط 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 ) .

مع العلم ان أكثر هذه الأنواع إستخدماً هما النوعان الموضحان في الأعلى .

تمتعوا بهذه الإضافات الرائعة التي تعطي لبرامجكم الكثير من التميز والإحترافية .

لمشاهدة المقالة كاملة مع الصور يرجى زيارة Graphs And Charts in Visual Basic.Net

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

السلام عليكم ورحمه الله وبركاته

شكرا اخي على المجهود الرائع .. تمنياتي لك بالتوفيق ..

تم تعديل بواسطه VB Helper
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .