在VB中如何画出平面等距螺旋线图形
在你的窗体里放置一个Timer控件,名称为Timer1,然后把下面的代码放到窗体里,运行看看吧:
Private Sub Form_Load()
With Me
。
AutoRedraw = True
。Width = 400 * Screen。TwipsPerPixelX
。Height = 400 * Screen。TwipsPerPixelY
。
Move (Screen。Width - 。Width) / 2, (Screen。Height - 。Height) / 2
。Caption = "动态等距螺旋线"
。
BackColor = 16777215
With 。Timer1
。Interval = 1
。Enabled = True
End With
End With
End Sub
Private Sub Timer1_Timer()
Static StartJD As Double
Dim Pi As Double
Dim X As Double, Y As Double, JD As Double, HD As Double, Pi1D As Double, CX As Long, CY As Long, R As Double, OX As Long, OY As Long, C As Double
Me。
Cls
Pi = Atn(1) * 4
Pi1D = Pi / 180
CX = Me。ScaleWidth / 2
CY = Me。
ScaleHeight / 2
OX = CX
OY = CY
R = 0
For JD = StartJD To StartJD 3600 Step 1
HD = JD * Pi1D
X = CX Cos(HD) * R
Y = CY - Sin(HD) * R
C = C 0。
035
Me。Line (OX, OY)-(X, Y), Abs(255 - Int(C)) * 65536 (255 - Int(C)) * 256 Int(C)
OX = X: OY = Y
R = R 0。
05
Next
StartJD = StartJD Pi
End Sub
我这是VB6的代码哦,我在64Bit Win7中运行,效果不错哦,如果想让速度更快,编译后运行。
编译选“代码速度优化”进高级所有都挑勾。
答:当几何问题中出现一点发出的四条线段二二相等夹角相等时可找出一对旋转型全等三角形。(等会与图一起打上来) 证明: (1)∵BD=BA,BF=BC,易知∠DBF=∠...详情>>
答:详情>>