实例104万花规

    万花规是一种较流行的作图工具，它利用两个内切的圆来绘图。万花规可以绘出很多图形。本例根据万花规的原理，随机模拟产生具有万花规效果的图案。

Imports System.Math
Public Class Form1
    Dim myGraph As Graphics
    Dim myPen As New Pen(Color.Red)
    Dim GreatR As Single
    Dim SmallR As Single
    '小圆内的点与小圆圆心的距离
    Dim DynaDistance As Integer
    Dim GreatCenter As Point
    Dim SmallCenter As Point
    Dim DynaPoint As Point

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myGraph = Graphics.FromHwnd(PictureBox1.Handle)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myGraph.Clear(Color.White)

        Randomize()
        Dim D As Integer = Math.Min(PictureBox1.Width, PictureBox1.Height)
        GreatCenter = New Point(PictureBox1.Width / 2, PictureBox1.Height / 2)
        GreatR = D / 2

        SmallR = Int(Rnd() * GreatR)
        DynaDistance = Int(Rnd() * SmallR)
        SmallCenter = New Point(GreatCenter.X + GreatR - SmallR, GreatCenter.Y)
        DynaPoint = New Point(SmallCenter.X + DynaDistance, SmallCenter.Y)

        Dim GreatAngel As Integer
        Dim SmallAngel As Integer
        Dim x As Integer
        Dim y As Integer
        Dim i As Integer = Int(Rnd() * 15)
        myPen.Color = Drawing.ColorTranslator.FromWin32(QBColor(i))
        For GreatAngel = 0 To 7200
            SmallAngel = GreatAngel * GreatR / SmallR
            SmallCenter.X = GreatCenter.X + (GreatR - SmallR) * Cos(GreatAngel * PI / 180)
            SmallCenter.Y = GreatCenter.Y + (GreatR - SmallR) * Sin(GreatAngel * PI / 180)

            x = DynaPoint.X
            y = DynaPoint.Y
            DynaPoint.X = SmallCenter.X + DynaDistance * Cos((GreatAngel - SmallAngel) * PI / 180)
            DynaPoint.Y = SmallCenter.Y + DynaDistance * Sin((GreatAngel - SmallAngel) * PI / 180)

            myGraph.DrawLine(myPen, x, y, DynaPoint.X, DynaPoint.Y)
        Next

    End Sub

End Class