Проверьте код круговой диаграммы - VB

Формулировка задачи:

Проверьте пожалуйста код круговой диаграммы. Принцип таков: вводим количество отличников, хорошистов, троечников и двоечников - в зависимости от их количества, круговой сектор делится на части!

Решение задачи: «Проверьте код круговой диаграммы»

textual
                            Листинг программы 
                        

                            Private Sub Command5_Click()
vsego = Val(otl) + Val(hor) + Val(tro) + Val(dvo)
pi = Atn(1) * 4
ko = otl / vsego * 2 * pi
kh = ko + hor / vsego * 2 * pi
kt = kh + tro / vsego * 2 * pi
kd = kt + dvo / vsego * 2 * pi
r = 6
Picture1.Cls
Picture1.Scale (-10, 10)-(10, -10)
Picture1.DrawWidth = 4
Picture1.Circle (0, 0), r, vbRed, kt, -kd
f = (kt + kd) / 2
Picture1.CurrentX = (r + 2) * Cos(f)
Picture1.CurrentY = (r + 2) * Sin(f)
Picture1.Print "2"
Picture1.Circle (0, 0), r, vbYellow, kh, -kt
f = (kh + kt) / 2
Picture1.CurrentX = (r + 2) * Cos(f)
Picture1.CurrentY = (r + 2) * Sin(f)
Picture1.Print "3"
Picture1.Circle (0, 0), r, vbBlue, ko, -kh
f = (ko + kh) / 2
Picture1.CurrentX = (r + 2) * Cos(f)
Picture1.CurrentY = (r + 2) * Sin(f)
Picture1.Print "4"
Picture1.Circle (0, 0), r, vbGreen, 0, -ko
f = (ko + 0) / 2
Picture1.CurrentX = (r + 2) * Cos(f)
Picture1.CurrentY = (r + 2) * Sin(f)
Picture1.Print "5"
End Sub
                        