圆形平均分算法(图)

    Private R As Double = 200
    Dim A As Double = 16
    Private Num As Integer = 10
    Private AngleNum As Double
    Private Const Pi As Double = 3.1415926
    Dim bmp As New Bitmap(Application.StartupPath & "/1.png")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click= 2 * PI / Num
        Dim AngleNumA As Double
        Dim g As Graphics = Me.CreateGraphics
        Dim posX, posY As Integer
        g.Clear(Me.BackColor)
        For x As Integer = 1 To Num
            AngleNumA = AngleNum * x
            '  MsgBox(AngleNumA)
            posX = CInt(R * Math.Cos(AngleNumA) + R - A / 2)
            posY = CInt(-R * Math.Sin(AngleNumA) + R + A / 2)
            ' MsgBox("[" & posX & ":" & posY & "]")
            g.DrawImage(bmp, New Point(posX, posY))
        Next



        ' Me.BackgroundImage = doubblimage
        ' MsgBox("OK")
    End Sub