一个转子

最新推荐文章于 2024-12-27 10:11:32 发布

weixin_34419326

最新推荐文章于 2024-12-27 10:11:32 发布

阅读量122

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xiii/p/5001547.html

本文介绍如何利用VBScript实现动态圆形绘制，并通过调整变量改变圆的颜色，包括圆心、半径、圆周长及三角形的绘制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

无需控件,直接复制代码

Option Explicit
Private Const PI = 3.141592654
Dim R As Single, Rx As Single, Ry As Single
Dim w As Single, h As Single
Dim A As Single, bool As Boolean
Dim Wall As Long
Dim dotY(360) As Long
Public Sub Draw()
    Me.Cls
    w = R * Sin(PI / 180 * A) '由于sin的参数单位是弧度,要转换
    h = Sqr(R ^ 2 - w ^ 2)
    Me.Line (Wall, Ry - R)-(Wall, Ry + R), vbYellow
    Me.Circle (Rx, Ry), R, vbRed
    If bool Then
        DrawTriangle Rx, Ry, Rx, Ry + h, Rx + w, Ry + h
        DrawDot Ry + h, Rx + w
    Else
        DrawTriangle Rx, Ry, Rx, Ry - h, Rx + w, Ry - h
        DrawDot Ry - h, Rx + w
    End If
    A = A + 1
    If A = 360 Then A = 0
    If A = 90 Or A = 270 Then bool = Not bool
End Sub
Private Sub DrawDot(y As Long, x As Long)
Dim i As Long
For i = 360 To 1 Step -1
    dotY(i) = dotY(i - 1)
    Me.PSet (i + Wall, dotY(i)), vbYellow
Next i
dotY(0) = y
Me.PSet (Wall, dotY(0)), vbYellow
End Sub

Private Sub DrawTriangle(x0 As Single, y0 As Single, x1 As Single, y1 As Single, x2 As Single, y2 As Single)
    Me.Line (x0, y0)-(x1, y1), vbWhite
    Me.Line (x2, y2)-(x1, y1), vbWhite
    Me.Line (x0, y0)-(x2, y2), vbWhite
    Me.Circle (x2, y2), 5, &HFFFF00
End Sub

Private Sub Form_Load()
R = 50: Rx = 55: Ry = 55
Wall = Ry + R + 2
Me.AutoRedraw = True
Me.Show
Do
    Draw
    DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

转载于:https://www.cnblogs.com/xiii/p/5001547.html