Круговая диаграмма - VB (59947)

Option Explicit
 
Private Sub Command1_Click()
Dim PieData(10) As Double
Dim pi As Double, Total As Double
Dim arc1 As Double, arc2 As Double
Dim i As Integer
 
pi = 4 * Atn(1)
    
    Form1.Cls
    For i = 0 To 9
        PieData(i) = 20 + Rnd() * 100
        Total = Total + PieData(i)
    Next i
    
    Form1.DrawWidth = 2
    arc2 = 0
    
    For i = 0 To 9
    arc1 = arc2
        arc2 = arc1 + 2 * pi * PieData(i) / Total
        If Check1.Value Then
            Form1.FillStyle = 2 + (i Mod 5)
        Else
            Form1.FillStyle = 0
        End If
        
        If Check2.Value Then
            Form1.FillColor = QBColor(8 + (i Mod 6))
        Else
            Form1.FillColor = QBColor(8)
        End If
        
        Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), Form1.ScaleHeight / 2.5, _
        , -arc1, -arc2
        
    Next i
End Sub