создать круговую диаграмму онлайн

Ответ от Максим Васильев[мастер]
ПОСТРОЕНИЕ СТОЛБЧАТЫХ ДИАГРАММ
Используется метод Line в режиме прямоугольника.
Пример: Построить диаграмму по элементам некоторого массива чисел, заданных случайным образом в диапазоне от 30 до 100. Ширина столбца равна 1.
Private Sub Command1_Click()
Dim m(10) As Integer
Randomize
For i = 0 To 9
m(i) = Int(70 * Rnd) + 30
Next i
Picture1.Scale (-2, 110)-(12, -10)
Picture1.Line (0, 0)-(0, 100)
Picture1.Line (0, 0)-(10, 0)
For i = 0 To 9
Picture1.Line (i, m(i))-(i + 1, 0), , B
Next i
End Sub
Если изменить один из аргументов метода Line, то получим другой вид диаграм-мы.
For i = 0 To 9
Picture1.Line (i, m(i))-(i + 1, 0), , BF
Next i
ПОСТРОЕНИЕ КРУГОВЫХ ДИАГРАММ
Используется метод Circle. Но перед построением необходимо вычислить сумму всех элементов массива m(i) и затем представить дугу каждого сектора диаграммы как до-лю дуги окружности, соответствующей доле каждого элемента массива от суммы 6б28*(m(i)/Sum). Масштаб построения может быть произвольным. Только желательно, чтобы начало координат находилось в центре окна.
Пример: Для массива из 10 вещественных чисел построить круговую диаграмму.
Private Sub Command1_Click()
Dim m(10) As Single
Dim a As Single
Dim b As Single
Dim sum As Single
Randomize
sum = 0
For i = 0 To 9
m(i) = 70 * Rnd + 30
sum = sum + m(i)
Next i