Piechart Application

by Muhammed Yousuf Arain (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 16^th July 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Piechart Application



Dim piedata(10) As Integer
Form1.Cls
For i = 0 To 9
piedata(i) = 20 + Rnd() * 100
total = total + piedata(i)
Next
Form1.DrawWidth = 2
For i = 0 To 9
arc1 = arc2
arc2 = arc1 + 6.28 * piedata(i) / total
If Check1.Value Then
Form1.FillStyle = 2 + (i Mod 5)
Else
Form1.FillColor = 0
End If
If Check2.Value Then
Form1.FillColor = QBColor(8 + (i Mod 5))
Else
Form1.FillColor = QBColor(9)
End If
Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), Form1.ScaleHeight / 2.5, , -arc1, arc2
Next


End Sub

Download this snippet Add to My Saved Code

Piechart Application Comments

No comments have been posted about Piechart Application. Why not be the first to post a comment about Piechart Application.

Piechart Application

Piechart Application Comments

Post your comment

Difficulty