Draw Chinese Tai Chi Oracle on a Form

Category:

Screen/Graphics

Type:

Snippets

Difficulty:

Beginning

Author:

Wen-Kai Chung

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This a simple VB sample that shows how to draw Chinese Tai Chi oracle.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Sub form_Load()

Dim i As Integer, j As Integer

Dim bangle As Single
Dim eangle As Single
Dim bangle1 As Single
Dim eangle1 As Single
Dim secX As Single
Dim secY As Single
Dim secangle As Single

Me.AutoRedraw = True

FillStyle = 0
i = 90 'Given Show2 begin angle from 90 degree
j = 90 'Given Shoo1 begin angle from 90 degree
bangle = 90 * PI / 180
eangle = 270 * PI / 180
FillColor = vbBlack 'half of Big black circle
Circle (3000, 2500), 2000, vbBlack, -bangle, -eangle

bangle = 270 * PI / 180
eangle = 90 * PI / 180
FillColor = vbWhite 'half of Big white circle
Circle (3000, 2500), 2000, vbWhite, -bangle, -eangle

bangle = 90 * PI / 180
eangle = 270 * PI / 180
FillColor = vbWhite 'half of Small white circle
Circle (3000, 3500), 1000, vbWhite, -bangle, -eangle

bangle = 270 * PI / 180
eangle = 90 * PI / 180
FillColor = vbBlack  'Half of Small black circle
Circle (3000, 1500), 1000, vbBlack, -bangle, -eangle

FillColor = vbBlack  'Small black circle
Circle (3000, 3500), 500, vbBlack

FillColor = vbWhite  'Small white circle
Circle (3000, 1500), 500, vbWhite

End Sub