Draw a circle around a small round circle, why when the "great circle radius is too large, painted round distortion?
Private Sub Command1_Click ()

X=CDbl (x.T ext)
Y=CDbl (y.T ext)
Dybj=CDbl (dy. Text)
Xybj=CDbl (x, y., Text)

For I=0 To CDbl (XSJD. Text) Step CDbl (FBL. Text)
Pic1. Circle (x + (xybj + dybj) * Cos (I * 0.0174532925199), y + (xybj + dybj) * Sin (I * 0.0174532925199)), dybj

Next I

End Sub

Private Sub Command3_Click ()
Pic1. Cls
End Sub

Private Sub Command4_Click ()
X=CInt (x.T ext)
Y=CInt (y.T ext)
Dybj=CDbl (dy. Text)
Xybj=CDbl (x, y., Text)
Pic1. Circle (x, y), xybj, QBColor (15)

End Sub

CodePudding user response:

Drawing function parameters are the coordinates of Single type (you can have a look at the Circle method to help), according to the parameters are calculated in this picture you
(CSng (5000 + 174999 + 3000) * cos (0.1 * 0.0174532925199)=182998.7
Minimum accuracy has been close to the integer bit, positioning are not allowed to cause circular distortion is very normal,

CodePudding user response:

This can work it out?

CodePudding user response:

No, daiwa fine always contradictory,
Limit input range,