drawradius.frm

使用的是最小误差法的插补程序

VERSION 5.00
Begin VB.Form DrawRadius 
   Caption         =   "画圆"
   ClientHeight    =   5070
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7935
   LinkTopic       =   "Form1"
   ScaleHeight     =   5070
   ScaleWidth      =   7935
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox PicRadius 
      Height          =   5055
      Left            =   0
      ScaleHeight     =   4995
      ScaleWidth      =   7875
      TabIndex        =   0
      Top             =   0
      Width           =   7935
   End
End
Attribute VB_Name = "DrawRadius"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub XYline() '建立XY的坐标
Dim X1 As Double
Dim X2 As Double
Dim X3 As Double
Dim X4 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim Y3 As Double
Dim Y4 As Double

'设置竖线
X1 = 0
Y1 = Me.PicRadius.ScaleHeight / 2
X2 = Me.PicRadius.ScaleWidth
Y2 = Me.PicRadius.ScaleHeight / 2

'设置横线
X3 = Me.PicRadius.ScaleWidth / 2
Y3 = 0
X4 = Me.PicRadius.ScaleWidth / 2
Y4 = Me.PicRadius.ScaleHeight

Me.PicRadius.Line (X1, Y1)-(X2, Y2)
Me.PicRadius.Line (X3, Y3)-(X4, Y4)
 
End Sub

Private Sub DrawRadius(AngleOne As Integer, AngleTwo As Integer, JumpOne As Double, JumpTwo As Double)

Dim X0 As Double
Dim Y0 As Double
Dim X1 As Double
Dim Y1 As Double
Dim X2 As Double
Dim Y2 As Double
Dim X3 As Double
Dim Y3 As Double
Dim X4 As Double
Dim Y4 As Double

Const pi = 3.1415926
Const R = 2000

'根据实际检测的结果画圆
X0 = Me.PicRadius.ScaleWidth / 2
Y0 = Me.PicRadius.ScaleHeight / 2

X1 = X0 - Cos(AngleOne * pi / 180) * (300 * JumpOne + R) '设置第一点的X坐标
Y1 = Y0 - Sin(AngleOne * pi / 180) * (300 * JumpOne + R) '设置第一点的Y坐标

X2 = X0 - Cos(AngleTwo * pi / 180) * (300 * JumpTwo + R) '设置第二点的X坐标
Y2 = Y0 - Sin(AngleTwo * pi / 180) * (300 * JumpTwo + R) '设置第二点的Y坐标

Me.PicRadius.Line (X1, Y1)-(X2, Y2), vbRed '连接各点

'设置标准的圆
X3 = X0 - Cos(AngleOne * pi / 180) * R '设置第一点的X坐标
Y3 = Y0 - Sin(AngleOne * pi / 180) * R '设置第一点的Y坐标

X4 = X0 - Cos(AngleTwo * pi / 180) * R '设置第二点的X坐标
Y4 = Y0 - Sin(AngleTwo * pi / 180) * R '设置第二点的Y坐标

Me.PicRadius.Line (X3, Y3)-(X4, Y4), vbBlue '连接各点
sleep (50)
 End Sub

Private Sub Form_Activate()
Dim i As Integer
Dim aa As Double
Const pi = 3.1415926
Call XYline
 For i = 1 To 360
Call DrawRadius(i, i + 1, Sin(i * pi / 180), Sin((i + 1) * pi / 180))
    Next i
End Sub