В центре экрана построить окружность, в которую вписать равносторонний треугольник с вершиной, направленной влево. Внутрь треугольника вписать еще одну окружность. В центре фигур построить точку.
Code
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
sender.width = 400
sender.height = 400
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.<WBR>PaintEventArgs) Handles Me.Paint
Dim center_X As Integer = e.ClipRectangle.Width / 2
Dim center_Y As Integer = e.ClipRectangle.Height / 2
Dim new_x As Integer = center_X / 2
Dim new_y As Integer = center_Y / 2
Dim k As Double = Math.Sqrt(3) / 2
Dim triangle1(4) As System.Drawing.Point
triangle1(0) = New System.Drawing.Point(0, center_Y)
triangle1(1) = New System.Drawing.Point(center_X * 3 / 2, center_Y * (1
- k))
triangle1(2) = New System.Drawing.Point(center_X * 3 / 2, center_Y * (1
+ k))
triangle1(3) = New System.Drawing.Point(0, center_Y)
e.Graphics.DrawEllipse(Pens.<WBR>Red, 0, 0, e.ClipRectangle.Width,
e.ClipRectangle.Height)
e.Graphics.DrawEllipse(Pens.<WBR>Red, new_x, new_y, center_X, center_Y)
e.Graphics.DrawEllipse(Pens.<WBR>Black, center_X, center_Y, 1, 1)
e.Graphics.DrawPolygon(Pens.<WBR>Blue, triangle1)
End Sub
End Class
