الرسم البياني في الفيجوال بيسك

نعم عن الطريق الـSystem.Drawing

لرسم PieChart أو Barchart أو حتى خط أو دائرة أو لملئ شكل معين قم باتباع التالي:

1- عرِّف متغير من نوع Graphics واجعله يخلق الجرافيك الخاص بإما الفورم أو Picturebox

2- عرف متغير من نوع Pen واجعل الأداة ترسم به

مثال:

Dim g as graphics = me.createGraphics

لاحظ أن Me هنا هي الفورم, وعليه فإن الرسم سيحصل عند الحدث Paint الخاص بالفورم

إذا أردت الرسم على PictureBox1 مثلاً سيكون الكود كالتالي:

Dim g as graphics = picturebox1.creategraphics

وبعدها تقوم بعمل متغير Pen وتقوم بتحديد اللون في الـConstructor كما يلي:

Dim p As New Pen(Color.Black)

وبعدها تقوم باستدعاء قيمة DrawPie من المتغير g

g.drawPie

لاحظ أن دالة DrawPie تأخذ الـParameters التالية:

Pen: وهو القلم الذي عرفناه

rect: وهو مربع تقوم بتعريفه على إحداثيات نقاط Points وهو الذي سترسم فيه الـPieChart

startAngle: زاوية البدء مع عقارب الساعة للـPie التالية

SweepAngle : زاوية الانحراف التي تبدأ من آخر Pie للـPie التي تليها

واقرأ عنها المزيد في الـMSDN لترى أمثلة لاستخدام الـPieChart : )

بالتوفيق ,,,